a3  g .a PUNCTUATION 1  Eve Gorton  65023 2:2:7: En=214:0;7;n,8;" ":n (Ln=1518:4;n,10 ;".";n,18;".":n -Bn=1920:4;n,10 ;"";n,18;"":n 2+4;17,11 ;"" <0;7;5,8;" BLACKBOARD ";6,8;" SOFTWARE ";8,8;" PUNCTUATION";11 ,8;" The use of";9 ,8;" PROGRAM 1 ";13 ,8; " . , ? ! " d,1;21,0;"STILL LOADING" i0,0; n"b"65024,513 s0,0; x"c"  -Cb <![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[ 2[: [G: [2[: [Oͤ:[<2[ :[<2[ :[0@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P 88 MMX_XL8Wq !v># <<<<<$B10 n$=n$(110 ) "n$(1)97a730  750 &n$(1)=(n$(1)-32 ) !:8,0;"Hello, ";n$ 10 ,0;"A punctuation mark has been ";11 ,0;"missed out of each sentence.";13 ,0;"You must complete 10 sentences";14,0;"correctly to finish the game.":.5,10 .#1;0,0;"Press G to go on" "G"Ʀ"g"776    ~0:0:7::6;14,0;"When the man reaches the right place, press the missing . , ? !" Oj=010 :5;j,0;" ":j  select sentence *"u=0:i=0:7000X d=1:m=1 I6;0;12 ,1;" Score=";s;" " 6;19,m;" ":t$=:.05|L,-20:6;19,m;" ":t$=:.05|L,-20:6;19,m;" ":.02{# =,-20 Et$="n"t$=","t$="m"t$="."t$="?"t$="c"t$="1"t$="!"1000 m=m+d m(a$+1)d=-1 m<1900  910 t$=b$t$=c$1030  5000 )m=z-1m=zm=z+11045  5000  s=s+1 $.125},20:.125},10 :1;19,m;"":10 :19,m;" ";1;20,z;b$+"":10 :1;20,z;b$+"":10 :1;19,z;"";20,z;b$;20,z+1;" " )7;20,1;a$ 8 6500d = 8000@ B 800  editing routine d:7;2,0;"There are 20 sentences, 5 for each of the 4 punctuation marks." ڊ6,0;"The mark which is the subject ofthe exercise will be printed so:";3;7;10 ,10 ;" . , ? ! " <16,0;" Press any key to print them "  0 C1:1:7::0,2;"THE EXERCISES"  2500 f:7;6,1;"There are 20 sentences, 5 for each of the four punctuation marks." T7;10 ,1;"If you wish to alter a sentence you must ensure that " J7;13 ,3;"a. the same punctuation mark is used " u7;16,3;"b. the total of letters, spaces and punctuation does not exceed 30." 96;0;20,1;"Press P to go on."  "p"Ʀ"P"2060  1:1:7:  w=120:2300 ="2"2071 ccolumn=1:line=557:w$="Press":502:10 ,0;"1 to edit this sentence."  :7;12 ,0;"2 to see the next sentence." %?7;14,0;"3 to return and RUN the program." &7;16,0;"4 to SAVE your new program now. (You will get another chance to do this after sentence no.20 has been printed.)" +%"4"Ʀ"1"Ʀ"2"Ʀ"3"2090* ,="1"2200 -="2"21004 .="3"150 /="4"9000(# 4J1;7;4,0;" ":w >i20,0;"Press 1 to save your new program";21,0;"Press 2 to return to the start" H"1"Ʀ"2"2120H M="1"9000(# \(0:0:7::150 F7::0,0;" Press N to prevent scrolling. " 2,0;" Press CAPS SHIFT & EDIT to edit";3,0;" in the usual way or type a new ";4,0;" line with the number ";7100+w;" " ;7,0;" Ensure the new sentence has no " 8,0;" more than 30 letters, spaces ";9 ,0;" etc., and contains only one ";10 ,0;7;0;" ";d$;" ";1;7;12 ,0;" ENTER your new line. Press GOTO 4000/ENTER to go on. " 5:7100+w  21004 print sentences 1 at a time $7100+w ) 7800x .'1,0;"EXERCISES: THE ";d$ 8L5;0;4,0;w;7;0;4,2;a$ B w=120 7100+w 7800x Ta=1̱a$:0;4;0;w,0;w;7;w,a+1;a$(a) 'a$(a)=b$3;w,a+1;a$(a) a w o23659k\,0:6;0;22,2;"Press 1 to edit, 2 to return";:23659k\,2 "1"Ʀ"2"2575 ="1"2595# ="2"150 # endgame Pj=11 21:4;j,0;" ":j t=0:s=0 C4;0;18,1;" Press F to fire - 10 shots" y=030 !t10 6000p +_4;0;0;15,y-1;" ";16,y-1;" ":.025{L,-y 0X0;7;20,5;" Hits=";s;" ";20,16;" Shots= ";t;" " 5="f"Ŧ="F"3200 :y Nry=292-1:4;0;15,y-1;" ";16,y-1;" ":.05|L,-y S="f"Ŧ="F"3200 X="f"Ŧ="F"3200 by l 3100 check answer t=t+1:4;7;14,y;"";13 ,y;"";4;0;15,y;"";16,y;"":.25~,-25:4;14,y;" ";13 ,y;" " 7x=175-1:.025{L,30-x:x $(2,y)100d3300 #(2,y)99c3400H hit Ks=s+1:4;0:u=13 16:4;u,y;" ":u #(2,y)=106jc=2 #(2,y)=105ic=1 5;c;0,y;"." 5;c;1,y;"" 5;c;2,y;"" P.125},4:.125},5:.125},4:.125},5 65;c:u=02:5;u,y;" ":u * 3100 Hmiss M4u=1416:4;0;u,y;" ":u R60;7;17,10 ;"MISSED!" \?.125},-30:1,-30:.125},-30 f04;0;17,10 ;" " 3100  )1:1:7::21004 Sc=521:1;c,0;" ":c: check no of errors u=u+1:i=i+1 6;0;19,m-1;"No!":no=no+1:.25~,12 :.25~,0:.25~,-12 :19,m-1;" " i=55100 u=10 5200P  900 Z14,0;" 5 mistakes - think again, then press G to go on "  5300  P\14,0;" 10 mistakes-you need help! Here is the right answer:- " UM1,10 :20:1;6;0;19,1;a$ Z1,5:502 du1,0:16,0;" Read it carefully and then press G to go on. ":5300  "G"Ʀ"g"5300 Gl=1419:l,0;" ":l a6;14,0;"When the man reaches the right place, press the missing . , ? !"  p%7:7:0::m$="#" u&b=031:0,b;m$:b z'b=021:b,31;m$:b 0b=310-1:21,b;m$:b /b=210-1:b,0;m$:b +2,2;"PROGRAM: PUNCTUATION 1" 4,2;"NAME: ";n$ 46,2;"No.of tries: ";10 +no *8,2;"Right answers: 10" ,10 ,2;"Wrong answers: ";no "no20m$="Try again!" 6no11 no19m$="Not so good!" 6no1no10 m$="Good try!" !no=0m$="Excellent!" S15,2;"BOTTLE GAME";17,2;"Number of bottles hit: ";s &13 ,2;"Your rating: ";m$  .19,2;"Press RUN to start again" "r"Ʀ"R"6110  dm=z0-1 n.005y# =,14:19,m;"  ":.005y# =,14:19,m;"  ":.005y# =,14:19,m;"  ":.005y# =,14:19,m;"  " xm W19,0;" "  X3w=(*20)+1:b(w)=17000X Zb(w)=1 ] t=t+1 b&7100+w:7500L:7200  l7;20,1;i$ q :If you are editing-type GOTO 4000 and ENTER to go on 'a$="My cat is fat. Do you agree?": a$="I see a mouse. Do you?": %a$="The dog is going for a walk.":  a$="The cat sat on the mat.": &a$="The dog barked. Did you hear?": &a$="I had a cat, a dog and a rat.": #a$="You're going out, are you?": %a$="Rex is awake, keeping guard.": &a$="He buys bread, eggs and milk.": Sa$="Here is a cat, purring."::If you are editing, type GOTO 4000/ENTER "a$="Is the cat in the garden?": $a$="Has the dog chased the cat?": a$="Where is the mouse?": a$="Who saw the dog?": !a$="Which cat saw the mouse?": a$="Come here!": &a$="Go quickly! We must find him.": &a$="The dog bit the cat. Bad dog!":  a$="Sit!": $a$="The dog is asleep. Wake up!": :If you are editing-type GOTO 4000 and ENTER to go on  define uncorrected sentence >,i$=a$(1z-1)+a$(z+1̱a$) H L 7800x a=1̱a$ a$(a)=b$7600 a  z=a  7570 xw57820 }"w6w10 7825 #w11 w157830 w167835 &b$=".":c$="m":d$="FULL STOP": +d$="COMMA ":b$=",":c$="n": *d$="QUESTION MARK":b$="?":c$="c": -d$="EXCLAMATION MARK":b$="!":c$="1": @ k=k-1 E70;6;12 ,1;" Score=";s;" " T7k=13 k=11 k=9 k=78100 ^7k=12 k=10 k=8k=68200 h!k=5k=48300l Dj=0312:2;7;k-3,j;"":j  8900" [j=1302:2;7;k-3,0;"";k-3,j;"":j +2;7;k-3,31;""  8900" lb=17:bottle=(*26)+3:c=(*2)+1:5;c;1,bottle;"";5;c;1;2,bottle;"" v.125},20:b 0 k43000 " #(saving routine #2t6:6:0::0,4;"SAVING YOUR NEW PROGRAM";1,4;"_______________________" #<3,0;"1. Put a blank tape into your recorder.";6,0;"2. Rewind the tape, then wind forward, past the leader." #F59 ,0;"3. Press RECORD on taperecorder." #PG11 ,0;"4. Press 1 to save the program and the bytes." #ZN14,0;"5. WATCH THE SCREEN AND FOLLOW INSTRUCTIONS." #d717,0;"6. The new program's name:""p1""." #n"1"9070n# #x21,0;"SAVING PROGRAM":"p1"9900&:21,0;"SAVING BYTES ":"p1"65024,513:2,10 :20,0;"Rewind tape and press PLAY ":21,0;"To verify program and bytes" : "p1":"p1"65024,513 #Z20,0;"THE NEW PROGRAM IS SAVED PRESS ANY LETTER TO GO ON":0: & 65023 &-"still loading":"p1"65024,513 & ' @236099\,0:23561 \,35#:23562 \,5 'Z"b"65024,513:.125,10:"RECORD":"c"1:.125,10:"rewind and play":"b"65024,513:"c" gapeidteigholumini[2 Wexclamation mark !