PUTIN   "PUTIN" (1:1:7:56999  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x1A$="COMPUTER":L=7:C=3:9180# }1A$="STUDIES":L=10 :C=4:9180# 0:1 140:A=57000 !N=023:B:A+N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 621,0;" " 57000 :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #' "dbsize"" #("DOUBLE HEIGHT" #2a=57050 #<.z:z999a,z:a=a+1:9020<# #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z 209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201,999 #"DOUBLE WIDTH" #a=57150> #.z:z999a,z:a=a+1:9130# #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ȥ16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201,999 # #n=1̱a$ #23729\,l:23728\,c # l,c;a$(n) #57150> #357050:23728\,c+1:57050 #c=c+2:n $ (bGIZ PazASTUDIESinput G- ,I- "INPUT" D  COPYRIGHT 1984   MERCURIAN PULP PRODUCTS  AND (  CONTRACT BOOKS 2 <  DEBUGGED BY  F ******************** * WRITE YOUR * * NAME HERE. * ******************** PM21,0;" PROGRAM READY - PRESS ANY KEY ":1,0 ZA$=:A$=""90Z dv7:0:4::1,12 ;"I N P U T";3,9 ;"BASIC AT WORK." nG100d:N=15:G$:R=07:B:G$+R,B:R:N x"A",0,125},255,255,125},41),68D,136,"B",6,217,244,254,220,32 ,152,64@ "c",96`,155,47/,127,59;,4,25,2,"d",0,190,255,255,190,148,34",17 O"E",60<,60<,60<,60<,255,126~,60<,24 A$="PUTIN":500 a$="WORK AT BASIC!":600X P502:''" There were 5 perfectly good"''" demonstration routines in this" A'" program. They all worked - "''" then the bugs got at them!!" X'" You will have to debug them"''" yourself - the bugs got the"''" programmer too...." Y#1;0,0;" Poke  the right key  to go on ":2,-20 a$=:a$=""200 a$="o"a$="O"230 190 d4::1,12 ;"I N P U T";3,9 ;"BASIC AT WORK." A$="PUNIT":500 A$="OW BAA! TRICKS":600X F'" The bug-ridden routines start"''" at 1000,2000,3000,4000 & 5000." >'" The REMs will tell you what"''" they are supposed to do." 7'" If you have trouble debugging"''" then LIST 6000." " 500 ,BL$(32 ):n=13:L$:700:L$:800 :n 6B" The big rotten writings stop"," at 007, `5.95, 6.30 and No.10" @:" The RAMs won't tell you what"," your supper is today." J>" If you have double pea-pudding"," then LIST to starboard." T:20,0;" LIST 1000 for your first chore " ^ *C=029:1,C;" " YC>11 C<21C/2=(C/2)1,C;6;A$(C/2-5) +.02{# =,10 :.01z# =,20:C 1,30;" ": X5C=290-1:3,C;" " bAC>6C<213,C+3;5;A$(C-6) l+.02{# =,10 :.01z# =,20:C v3,0;" ": AC=029:n*4+1,C;L$(c+1);"" +.02{# =,10 :.01z# =,20:C -n*4+1,30;L$(31):  JC=290-1:n*4+3,C;"";L$(c+3) *+.02{# =,10 :.01z# =,20:C 4+n*4+3,0;L$(2):  BUBBLE-SORT ROUTINE. 1700:DATA LINE !N(10 ):NUMBER ARRAY #I=110 :READ 10 N$(J): ITEMS I:  $#I=19 :9 TIMES  .$J=19 :EACH LOOP 8<N(J)N(J+1)1120`:IN RIGHT ORDER - JUMP BX=N(J): SWAP  LN(J)=N(J+1):THE VN(J)=X: PAIR `I:ADD GOSUB 1200 jI:TO WATCH SORT tI=110 ~M(I);:FINAL I: PRINT OUT R10 ,5,7,9 ,2,4,8,3,6,1  > DISPLAY SUBROUTINE   FOLLOWS. IT'S O.K.!  ADD 1125 GOSUB 1200 AND 1135 STOP TO USE THIS. "RUN NUMBER ";I J=110 C=N(J):INK COLOUR C>5C=C-5 C;N(J);" "; J        ( 2 < F P e DRAWS A CIRCLE IN   DIAMOND,IN AN OVAL  IN AN SQUARE.  1:1: FILLED CIRCLE R=015 127,87W,P R   DIAMOND 127,579  '30,30:-30,30 **30,-70F:30,-30 4 OVAL >72H,65A H7110n,0,1.3&fff:0,44,,2 R;110n,0,-1.3&fff:0,-44,,2 \ SQUARE f524,12 p&150,0:0,150 z(-150,0:0,-150  ` FINDS THE MEAN OF 10 NUMBERS  NUMBERS INPUT I=110 "ENTRY ";I;"= "; D(I) D(1) I  AND TOTALLED  TATOL=0 I=110 TOTAL=TOTAL+D(I) I &MEAN=TOTAL*10 +FINAL FIGURES 0"TOTAL = ";TOTAL :"MEAN = ";MEAN D>:  ************ a  TABULAR DISPLAY - DATA   ON VARIOUS COMPUTERS.  4000: %'" MACHINE RAM COLOUR? PRICE" N=18  M$,R,C,P$ 8'1;M$;12 ;R;"k";TAP 18;C$;25;"`";P N %"Spectrum",480,"yes",776 !"ZX18",1,"yes",2392X $"APPLE PI",480,"yes",64@ #"IBM II",480,"yes",125} &"ITV ""B""",399,"yes",32 #"CBM 64",229,"yes",40(  "? scroll to see how   it should appear.  ,?   MACHINE RAM COLOUR? PRICE  6A   Spectrum 48k yes `125  @A   ZX81 1k no `40   JA   CBM 64 64k yes `229   TA   IBM PC 64k yes `2392  ^A   BBC "B" 32k yes `399  hC   APPLE II 48k yes `776  r=  |  All the necessary information  is in the DATA lines - just   not in the right places!  = *************  Simple Word Game  "GIVE ME A WORD ";W$ G=0:GO COUNTER  R=0:RIGHT GUESSES :M=1̱W$ "GUESS A LETTER ";G$ 10 ,N*2;"_":N N=1̱L$ G$=W$(N)5100 51702:NO GOOD 10 ,N*2;G$ W$=" ":MARK OFF R=R+1:SCORE  N:G=G+1:GO'S G=10 51702 R=W$5190F ( 5060 2" ENOUGH!YOU'VE LOST" <1,0:5010 F" WELL DONE" P!1,100d:5010 Z scroll for notes  d  This is rather a crude game  but I wanted to keep it all  on a single screen.  n   To end the game, BREAK in   during a BEEP, or EDIT out   the INPUT quotes and ENTER   the keyword STOP .  x  Include an "Another go ?"   routine before looping to   INPUT W$,to allow ending.     The words to be guessed   could be written in as DATA  and READ at random at the   start of each turn.    Have fun!! p  ARE YOU STUCK?!    FOLLOW THESE   ARROWS.  z$   $   $   $   $   $   $   $   X   INDEX   BUBBLE SORT....7100   PLOT & DRAW....7200  bC MEAN...........7300   HARDWARE DATA..7400  lC WORDGAME.......7500     vC LIST the numbers     ;  5  0  +  %    c  SORTING OUT   THE BUBBLE SORT   $1010 RESTORE 1170 !1040 READ N(I) *1080 IF N(J)N(J+1)... $1110 LET N(J+1)=X #1120 NEXT J %1130 NEXT I  1150 PRINT N(I) ^ **********  i  DEBUGGING   THE DRAWING   *$2010 PAPER 7:.... 4 2040 CIRCLE 127,87,R >#2090 DRAW -30,-30:.... H'2130 DRAW -110,0,+1.3 R$2150 PLOT 52,12 \p  Try different INK   and PAPER colours.  fk Try other curve   numbers on the   OVAL routine.  f  MAKING THE MEAN   MEAN SOMETING.    3010 DIM D(10) #3050 PRINT D(I) $3070 LET TOTAL .... $3100 NEXT  I  #3110 ...TOTAL/10 %3120 PRINT "TOTAL..... ʰ   Long variable names   are easy to read,but  more likely to give   typing errors.  d  CONFUSED COMPUTERS   "4030 FOR N=1 TO 6 !4040 READ M$,R,C$,P I4050 PRINT TAB 1;.. ...TAB 18;C$.... m Lines 4090 and 4120 have been switched   DATA can be corrected by reference to the table LISTed after the routine. (4140 on) $"  Lg   Worried about a word game  that won't work well?   V$5010 INPUT "GIVE ME...  `'5040..FOR N=... j#5070....LEN W$ t#5090 GOTO 5130 ~"5110 LET W$(N) #5150...THEN GOTO 5190 "5200 BEEP TOO HIGH ALINES 5050 & 5060 HAVE BEEN SWITCHED   >>THAT'S ALL << nnb# then LIST to starboard. GEA