ZXTape! 2 Write OnSystem SoftwareEArnold Wheaton Software Malcolm Short (C) E.J. Arnold & Son Ltd 19841984English Educational9.14 UndeterminedOriginal@TZXed by Andrew Barker. Tape loaned from Andrew Blood MC 117000WRITE ON |>7  99999 ~h !C>2#>2Ð/`*~C(???? "#N#F͗!"!/"C # 0 0    ͗*:  "   >Ɛ0Ͱ""!\>2\ yO#xG#:(͸" !\ˆ>2\**""!+| Pffffffffihxhfhfff663#2#"2""!""""2333#33#32336ififiififff2!D"!b2iiiffffffffffff63"!!!$DDDDDDDDDDDDDtuH&iiiiiiiiiiiiifffffffffffff6cf633#23"2##"!"!!!!!!!"#"26ffffffffffffffffffffffffffffffffffffffffP䊈DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"""""""""PL"Pf2!"!"%fff2!"fc"(f2!#ffctD#fii"!"!"6if7DA""6i"!"""66"!"!#6"!"##i#"6!"!"!fc"6iftA#6fffctD#fi"6!"!#ffctD#fib!"f2!#iP\fffexffffP}"!%wDA"363"Dwvcffff"#fi!"!"Gc2!G6i!"!"ffihwD#3ffff2!"f2!#i%ffffPwD#3c2!DGxf6ffffctD!#fii6ffPcPi"!"#f"#f"#f&ifctD!#fi"69f36ifiDA"3fPff`!@~o&)))|82\>2\ͯ >!~#       >?GV!:\͐d&o)))))!HA~#x H  00``00`` 00`` 00`` 00``  00`` 00`` 00``00`` 00``  00``00``  00``> O0!+| 00>Ƹ0$ 0x0yO& u yO#.>˸|gz |>= >Щ (y/O7 !\x>7[_0>!+| !N6#6$6+6!l!+| !l!j͵>[!H{!Hw$#<[Ð !!"B\>2D\}> !? O͑0!+| ͍0͍0>Ƹ0$ ͑0x0͑yO& 0uyO~#.͍>˸t|gz |͑>= > (yO7!\>!>!\>7!>7*=\6#6!}!@ !\ !Xf 8f0  # <@8 7\\\\\\ȔȔȔ-\ ܝ\![!@P!!88,/ K SR Ppage=1:ERROR 53250 Uerrsp=23613=\+256*23614>\:errsp,237:errsp+1,254 G$=" ":j$="----------------" 4k(x)=x-(64@*(x/64@)):k=0 w$(257)=" ":page=1:t$(352`):beg=1:end=1:z$(32 ):r$="":w$(24)="she":w$(285)="go back":w$(11 )=" " (ERROR=100d 2pse=0:joystk=1 da7500L:errsp=23613=\+256*23614>\:errsp,237:errsp+1,254 nscpslk=(23658j\/8):cpslk/2ɺ(cpslk/2)23658j\,23658j\-8: CLEAR CAPS LOCK "2500 :900:130 .02{# =,1 $LHkey=RH5000:z=0: &key=110n1000:100d rkey=112pw$(11 )="prt.out"w$(11 )=" ":1:5,17;z$(7):910 pkey=112pw$(11 )=" "w$(11 )="prt.out":1:7:5,17;w$(11 ) &key=108l9000(#:100d H1:7:key=103gG$=" "8000@:g$="G":920 6key=103gG$="G"5,31;" ":g$=" " &key=99cpage1924 $key=99cyy5924  930 6000p:7600 &key=115s7400:100d  errsp=23613=\+256*23614gf>\:errsp,235:errsp+1,253:23560\,0:a$="":f$=""::5,5;"Do you really want to":7,5;"start again (y or n)?"  1020 f$="del"1002  a$="n" 23560\,0 0:2:2:6::2,12 ;"WARNING";3,12 ;"=======";5,2;"You will lose ALL your words";7,2;"Are you sure (y or n) ?":.9ffff,8  1020 f$="del"1008  a$="n" +t$(352`):beg=1:end=1: =""1020 0:.02{# =,1 D23560\=110n7,27;"no":a$="n":1028 E23560\=121y7,27;"yes":a$="y":1028  1020 =""1028 K()=480ů()=12 0;7,27;" ":f$="del": (13 )1028  .02{# =,1:f$="ok": 3xx=1:yy=0:next=0:v=1: _1:br=1:7:0:page=1yy<6br=0:1:7 *yy=0br=0:1:7 +yy=17br=0:1:7 br;yy,xx;"" v=v*-1:0: ,23560\,255:23562 \,1 2000 n=15 3G$="G"RH=250:8000@+joystk*100d AG$=" "z=0+(k(65278)=62>):LH=z:RH=32 zkey=0: c(23560\>96`ƾ23560\<123{)(23560\=32 G$=" ")key=23560\: n 2510  v=-12000 fkey=RH2900T LH2800 key=0: yy=0yy=1: (yy=yy+2:yy>17yy=1 Udw=1yy>11 xx=9 dw=1yy>11 xx=25yy=yy+4  Txx=1xx=xx+8: ^?dw=1yy>11 xx=1xx=17xx=xx+8 h(xx=xx+8:xx>30xx=1 r n=71-1 "w$(word,n)" "len=n:n=1 n word=289!len=0  page=18,154:246,0:8,138:246,0:68D,168:0,-40(:132,168:0,-40(:196,168:0,-40(  end<2cap=1 Jword=((yy-1)*2+(xx+7)/8)+(page-1)*32 yy=174070: Dword11 w$(word)=" "w$(word)="go back"4250: $w$(word)="space "word=289! page=14100: page>14200h  v=-12000 1500: /word<9 page=word+1:7500L: word=9 5500|: "sword=10 :n=111 :t$(((n-1)*32 )+132 *n),':n:8900":7500L: ,word=11 w$(11 )="prt.out":errsp=23613=\+256*23614>\:errsp,235:errsp+1,253:n=1end31:t$(beg+nn+32 ):::n:7500L:errsp,237:errsp+1,254: .(word=11 w$(11 )=" " 1'word>12 v=-12000 65word>12 4500mf:7600:1500: hKdw=1yy>11 w$(word+1)" "4300:4210r m 4500 r(page6page=1:7500L wpage=644000 | 8end>0page=6t$(end)" "end=end+1 page=1:7500L: O word=word+1:3000 :len2=len:len=len2+7:word=word-1 len+end>350^ end=0end=1 Alend=((end/32 )+1)*32 :end+len>lendend=lend vt$(end+1end+7)=w$(word,17):t$(end+8end+8+len2)=w$(word+1,1len2) 4517: 0v=-12000 D7600:1500:  3000 end=0end=1 end+len>350^ Rw$(word)=". "w$(word)="? "cap=1:t$(end)=" "end=end-1 end=0end=1 1w$(word)=", "t$(end)=" "end=end-1 end=0end=1 Alend=((end/32 )+1)*32 :end+len>lendend=lend .t$(end+1end+len)=w$(word,1len) bcap=1Ưt$(end+1)>90Zt$(end+1)=(t$(end+1)-32 ):cap=0 Ct$(end+1)>64@Ưt$(end+1)<123{cap=0 Fpage6end=end+len+1:end=lend+1end=end-1 <page=6end=end+len:word=289!end=end+1 Uend>94^lines=((end/32 ))+1:beg=(lines-3)*32 +1  /next=1key=RHyy04000:  next=2LH2700 : 5next=0key=RHLHnext=1:2700 mf: .next=1LHnext=2:2700 : $next=1key=RH2700 : $next=2key=RH4000:  |3end>0t$(end)="."t$(end)="?"cap=0 ~end>0t$(end)=" " end=end-1 end=-1end=0  4540  7600  2500 key=RH5500| LHv=-12000 LH1500:  5540 pyy=0yy=17 r(page1yy=15xx=1 sr$="" u23560\,0:1:7:23562 \,200:19,0;z$;z$;z$;20,0;"Type in new word and press ENTER" zv=12000 | ll=7 ~%dw=1yy>12 ll=14 dw=0ll=7 8page1br=1:7:0:6022 H7:0:br=1:yy4br=0:1:7 >br;yy,xx;z$(ll);1;yy,xx;j$(ll):0:0 w=((yy-1)*2+(xx+7)/8)+(page-1)*32 :0:0:=(13 )br;yy,xx;z$(ll);yy,xx;w$(w):0:0:6050 xx=xx-1:6031 23560\,0 "23560\=06030 Yr$023560\=480ž23560\=12 .02{# =,1:6027 23560\=12 ž23560\=480.02{# =,1:0;br;yy,xx;"-":r$=r$(̱r$-1):xx=xx-1:6027 %23560\=(13 )6042 r$=r$+(23560\) H.02{# =,1:br;yy,(xx+1);¾(23560\):xx=xx+1 r$12 w$(w+1)=r$(8̱r$) 81:.02{# =,1:1500:next=1: ?errsp=23613=\+256*23614>\:errsp,235:errsp+1,253:23562 \,200:6:6:0::br=0:4,5;"SAVE WORD SET TO TAPE";8,1;"Type in the title for the word";10 ,1;"set (upto 8 letters) then press";12 ,1;"ENTER" Xr$="":br=0:yy=17:xx=8:ll=8:yy,xx;" --------":6027  r$=""  r$(1)=" "űr$>10  :r$w$(): L 1500 NA1:1:7::7600:2000:3500 T@dw=1:page=1page=2page=6dw=0 Vpage>1instr=0 `page=1instr=12 jx=1:y=1 o5st=(page-1)*32 +1:fin=st+31 t q=stfin ~qinstrbr=0 'q>instrbr=1:7:0 fdw=1y>11 x=9 dw=1y>11 x=25br;y,x-1;w$(q):7580 br;y,x;w$(q) 1x=x+8:x=33!x=1:y=y+2 q:1:7 Kpage=1243,137:0,-9 :5,31;G$  .1f:7:19,0;z$;z$;z$ #19,0;t$(begend);"<" j((end/32 )+1)>10 #1;1;1,5;"This is your last line":0 j1:7:((end/32 )+1)<11 #1;1,5;" " > @*** JOYSTICK SELECT *** JK:0,10 ;"JOYSTICK SELECT";1,10 ;"---------------" T5,5;joystk=1;"1.SINCLAIR";7,5;joystk=2;"2.FULLER ";9 ,5;joystk=3;"3.KEMPSTON" YH14,0;"Enter your choice (1-3)"''"(Press ENTER to return)" ^LO$=:O$=13 .02{# =,1:7500L:5,31;"G": hO$<"1"O$>"3"8030^ mjoystkɰo$.02{# =,1 rjoystk=O$:8020T *** SINCLAIR *** LA=61438:A1=(A/16)/2:z=A1=A1:LH=z:zkey=0: 1A1=(A/8)/2:key=RH*(A1=A1):key pse n=n+1:2519 *** FULLER *** IA=127:A1=(A/4)/2:z=A1=A1:LH=z:zkey=0: 1A1=(A/8)/2:key=RH*(A1=A1):key !pse &n=n+1:2519 l*** KEMPSTON *** vHA=31:A1=(A/2)/2:z=A1ɺA1:LH=z:zkey=0: 'A1=A/2:key=RH*(A1ɺA1):key pse n=n+1:2519 "Kz=:g$="G"z=0pse=1:8000@+joystk*100d:z=z+key "z8900" "pse=0: #(5errsp=23613=\+256*23614>\:errsp,235:errsp+1,253:6:6:0::4,5;"LOAD WORDfSET FROM TAPE";8,1;"Type in the title for the word ";10 ,1;"set (upto 8 letters) then press";12 ,1;"ENTER -(xx loads any list)-" #*Xr$="":br=0:yy=17:xx=8:ll=8:yy,xx;" --------":6027 #- r$="" #. r$(1)=" "űr$>10 #/r$="xx"r$="" #2/:10 ,10 ;"Searching"'':r$w$(): "a b c de f g hi j k lm n o plettersq r s tuvwxyz my own rub outdisplay space a and go he I in is it my of on she the to was we went , ? . a back call dad all be came day am becausecan did and big car dinner are boy come do at but could down go back each father gave had eat first get have eight fish girl he end for go her every friend good his eye from got home elephant go back I jelly keep last if jet key let in jigsaw kitten like into jump kite little is jungle knock live it just know look kangaroo go back made name of paint man new off people me next on picturemother night one play mum not our police my now out put go back a b c d e f g h i j k l space m n o p qu ?-f r s t u v w x go back y z queen rabbit said that quick red saw the quiet right see then quite road she there round so they run some to go back under very was year until we yes up went you upon when your us will use with zoo go back x-ray go back rrsKG J----------------kagc` en# rrodsoystexvnst xyi ! tpsl z eR15  3)="prt.out":errsp=23613=\+256*23614>\:errsp,235:errsp+1,253:n=1end31:t$(beg+nn+32 ):::n:7500L:errs