ZXTape! 0Created with Ramsoft MakeTZXsr ~~  1:6:1: 4,19;"SPEED READ" :6,20;"based on":17;"an analysis by" :18;"Dr. Hartmann" (190,115s,60< 2719,17;" Hi-Yin Music":23;"1984" d@12 ,0;"Please wait 3":"minutes while":"I load": n"SPEED READ" x 6 "SPEEDREAD" +SPEEDREAD Bn=(Nx)Dn  4:sq=0  0 wpm=0:max=0 x23658j\,7 Gi$(160,32 ):t$(260,32 ):w$(20,28) q$(10 ,32 ):o$(10 ,4,32 ):m$(7,20):n$(20,31):c$(20,31):l$(4,6):e$(20,4) r$(30,1) Aa(10 ):e(20):f(20):n(20):d(20) d$="* S p e e d r e a d *" y$=" Hi-Yin Music 1984" 1 s$="":j=031:s$=s$+131:j 6 j=1 7:m$(j):j J0"Instructions","Flash numbers","Flash phrases" T""Memory","Text","Progress chart" ^"Stop" r j=120:n(j):j 3693,136,907,213,582F 4232,991,144,1111W,113q 41018,257,666,211,975 3114r,794,514,694,437 j=120:d(j):j 2,2,3,3,3,3,4,4,5,5,6,6,6,6,7,7,7,7,8,9 j=14:l$(j):j "Words","per","minute"," " &3530 :sq=02:10 ,9 ;"Stop the tape":0:1,3:5:.5,11 :5:j=301-1:.02{# =,j:j:2730 : :driver N 3530 b410 ,5;"What is your name "; v8800`":"" j$=v$ i=202-1  3930Z :3530 510 ,6;"Which lesson is this? ";  8800`" u$=v$:le=u$ #le<1le>20670 d1=le-2 +(le/2)=(le/2)d1=le-1 :3530 *le=1850R >6830:3530 :10 ,9 ;"STOP the tape.":j=19 :.04|# =,(*21):j:::2730 R 4350 f:3530 :3690j zrt=12150f rt=24690R $rt=36530:6030 rt=44690R <rt=52370B :3030 :3390> :8090 rt=64170J rt=78670!  870f  . read intro V c=0  c=c+1 /i$(c):i$(c,12)="-9"1270  1170   read text F c=0  c=c+1 /t$(c):t$(c,12)="-7"1510  1410   read quiz J c=0 r c=c+1 /q$(c):q$(c,12)="-5"1850: a(c) j=14:o$(c,j):j  1650r :nq=c-1 N v read word j=120:w$(j):j > f print intro z :c=0  c=c+1 (i$(c,12)="-9"2310 i$(c) *(c/19)=(c/19)2730 :  2230 ((c/19)ɺ(c/19)2730  B print text V+:8,4;"This is a timed text" jN9 ,4;"press c when you are":10 ,4;"ready ?" t.0:z$=:(z$="c")(z$="C")2430~ y .01z# =,34":2420t ~@:start=23673y\*256+23672x\:flag=23674z\ c=0 5c=c+1:t$(c,12)="-7"2590 t$(c) *(c/19)=(c/19)2700 : 2510  2700 #Lende=23673y\*256+23672x\:carry=23674z\:plus=0 (ende>start26102 -.start=start-65536:carry=carry-1 2carry=flag2620< 7plus=(carry-flag)*65536 <(dur=(ende-start+plus)*0.00033333u.˗ Awpm=(n(le)/dur) F (:5;"Press c to continue" ="c"Ŧ="C"2725 2705  inkey ':6;"Press c to continue";  z$= z$="c"z$="C"2830 2760  ask quiz score=0: i=1nq &5,0;q$(i): :j=14:o$(i,j) bj v:"?"; E0:(<491)(>524).1}L,30:3210 8;: 3=a(i)+480score=score+1:3310 :o$(i,a(i)) 100d :i score=score/nq  >rdspd Re(le)=(wpm*score) f 6670 zle=1max=e(1)  Header  0 1,5;d$ s$ 20,0;s$ .21,7;y$ B jmenu ~j=17  5+j,8;j;")";m$(j) j !j+6,8;"?";  0 z$= :z$<491ůz$>557.2~L,20:3790 8;:z$;" "; rt=z$  m$(rt)  4 2 Zpname n t=(j$)  p$=""  j=1t  u=(j$(j)) u>96`u=u-32  p$=p$+u j /j>5p$=p$(15):4130" $p$<5p$=p$+"X":4110 " Jpchart ^1d1=-1wpm=07950:4310 h$:9 ,9 ;"Please wait.." rd1=d1  7170  7370  7590  2730   read files 2:4 f$="LESSON"+u$ W3530 :5,5;"Place TEXT TAPE in the":5;"cassette recorder.":5;"Ensure that the plug":5;"is connected to the":5;"EAR socket."::5;"The program ";f$:5;"will load. It will take":5;"about one minute. Be":5;"ready to stop the tape":5;"when asked to do so." f$ $4:6:0 %:9 ,9 ;"Stop the tape":j=113 :.02{# =,(*21+20):j:::10 ;"Please wait"  1070.  1310  1550  1910v * Rflshn z sc=0 $rt=46310:4810  pl=d(le) :5330  5030  out=0 +k=120:g$=n$(k,1pl):  5470^ . 5650 B 5810 Vout=14990~ jk ~ speed !:9 ,9 ;"What speed" >rt=410 ,9 ;"? ";:5150  +10 ,9 ;"? "; 78800`":dl=v$:dl<3rt4dl=2 F((dl<502)(rt=4)5250 Z-20,9 ;"Smaller than 50" d"10 ,0;s$:5130  ndl=(dl/2) ((rt=4)(dl>20)dl=0 :rt=4dl=dl*502:dl=07,0;"The number will be remain on":"the screen until you press a":"key.":200   create nr (9 ,9 ;"Please wait.." i=120:v$="" j=1pl ,ran=(*9 +.5):v$=v$+(ran):j " n$(i)=v$:i , 6 ^flsh r0x$=">":j=1̱g$:x$=x$+" ":j:x$=x$+"<" x=(15-pl/2) 9 ,x;x$  502 9 ,x+1;g$ dl:  answ & 1,4;"What was it" :%3,x;"?";:8800`" D3,x;"?" N"v$=g$sc=sc+1:5750v b15,0;"NO, it was";:(x);"'";g$;"'" v":j$;", your score is ";sc;"/";k  change : J"'c' to continue":"'s' to change speed":"'q' to quit"::" ?"; *0:z$= 47z$="c"z$="s"z$="q"z$="C"z$="S"z$="Q"5950> 9.2~L,27:5930* >z$="s"z$="S"5030 Rz$="q"z$="Q"out=1 z  flshwrd  3  sc=0 :5030:out=0 k=120:g$="":  6275  5470^ . 5650 B 5810 Vout=16270~ jk t 4 ~ slngth  pl=0 pl=pl+1 !z$=w$(k,pl):z$="`"6286  g$=g$+z$  6278 pl=pl-1  digits  /9 ,8;"How many digits? ";  8800`" pl=v$ $pl<25pl>06470F  '20,10 ;"Less than 25" 9 ,26;" " 2$9 ,25;" ";:6370 F  shuffle  i=202-1 j=(*i)+1 !z$=w$(j):w$(j)=w$(i):w$(i)=z$ i  wpm 67:8,0;"Reading speed: ";wpm;" wpm." J"Comprehension speed:";e(le) ^ 2730 rd1=le   getpfile d1=le-2 1le/2=(le/2)d1=le-1:d1=d1  f$=p$+(d1) ƒ:3530 :7,5;"Place PROGRESS TAPE in":5;"recorder. The number":5;"array ";f$;" will load."::  max=0 f$e() "j=1d1:e(j)>maxmax=e(j) j  norm xam=1/max *i=1le2 >$f(i)=(e(i)*xam*13 +.5) He$(i)=(e(i)) R&f(i)=0e$(i)=" ":7310 i  symbol i=13 1-1 z$="" j=1202 b$=" " f(j)>ib$=143 .z$=z$+b$+" " Bj Vc$(i)=" "+z$ ji ~ prntch : j$;"'s progress chart":  i=13 1-1 c$(i) 2i < Zi=14:1; j=1d12 e$(j,i);" "; j " ";l$(i);:i4 i  notyet ":3530 6K9 ,4;"Complete the lesson first.":::2730 r update 3:6  f$=p$+u$ ((le/2)=(le/2)8340 :3530 )8,5;"Insert progress tape" !5;"remove plug from EAR" !5;"socket, RECORD mode." f$e() e:9 ,9 ;"STOP THE TAPE":j=113 :.03{u\,(*40(+.5):j &"j=1le:e(j)>maxmax=e(j) +j :2730 1  ! "`input "jv$="" "tj=130 "y 0 "~z$= "j<18810j" "Az$=12 j=j-1:8;" ";:8;:8825y" "z$=13 8890" "z$; " r$(j)=z$ "z$="" "j " "%i=1j-1:v$=v$+r$(i):i "v$=""v$="0" " #(intr 9010-9299 #)text 9310-9599 #*quiz 9610-9799 #+word 9810-9899 $S"-9" %"-7" &G"-5" pa& ZJjohnnytuYPJOHNNV12U12 FLESSON12cayK'B  ԅ  5 E   ͑Instructions Flash numbers Flash phrases Memory Text Progress chart Stop q q Words per minute U # 5 gggFWqrg D* S p e e d r e a d *Y Hi-Yin Music 1984S Z sr ~~  1:6:1: 4,19;"SPEED READ" :6,20;"based on":17;"an analysis by" :18;"Dr. Hartmann" (190,115s,60< 2719,17;" Hi-Yin Music":23;"1984" d@12 ,0;"Please wait 3":"minutes while":"I load": n"SPEED READ" x 6 "SPEEDREAD" SPEEDREAD Bn=(N6Dn  4:sq=0  0 wpm=0:max=0 x23658j\,7 Gi$(160,32 ):t$(260,32 ):w$(20,28) q$(10 ,32 ):o$(10 ,4,32 ):m$(7,20):n$(20,31):c$(20,31):l$(4,6):e$(20,4) r$(30,1) Aa(10 ):e(20):f(20):n(20):d(20) d$="* S p e e d r e a d *" y$=" Hi-Yin Music 1984" 1 s$="":j=031:s$=s$+131:j 6 j=1 7:m$(j):j J0"Instructions","Flash numbers","Flash phrases" T""Memory","Text","Progress chart" ^"Stop" r j=120:n(j):j 3693,136,907,213,582F 4232,991,144,1111W,113q 41018,257,666,211,975 3114r,794,514,694,437 j=120:d(j):j 2,2,3,3,3,3,4,4,5,5,6,6,6,6,7,7,7,7,8,9 j=14:l$(j):j "Words","per","minute"," " &3530 :sq=02:10 ,9 ;"Stop the tape":0:1,3:5:.5,11 :5:j=301-1:.02{# =,j:j:2730 : :driver N 3530 b410 ,5;"What is your name "; v8800`":"" j$=v$ i=202-1  3930Z :3530 510 ,6;"Which lesson is this? ";  8800`" u$=v$:le=u$ #le<1le>20670 d1=le-2 +(le/2)=(le/2)d1=le-1 :3530 *le=1850R >6830:3530 :10 ,9 ;"STOP the tape.":j=19 :.04|# =,(*21):j:::2730 R 4350 f:3530 :3690j zrt=12150f rt=24690R $rt=36530:6030 rt=44690R <rt=52370B :3030 :3390> :8090 rt=64170J rt=78670!  870f  . read intro V c=0  c=c+1 /i$(c):i$(c,12)="-9"1270  1170   read text F c=0  c=c+1 /t$(c):t$(c,12)="-7"1510  1410   read quiz J c=0 r c=c+1 /q$(c):q$(c,12)="-5"1850: a(c) j=14:o$(c,j):j  1650r :nq=c-1 N v read word j=120:w$(j):j > f print intro z :c=0  c=c+1 (i$(c,12)="-9"2310 i$(c) *(c/19)=(c/19)2730 :  2230 ((c/19)ɺ(c/19)2730  B print text V+:8,4;"This is a timed text" jN9 ,4;"press c when you are":10 ,4;"ready ?" t.0:z$=:(z$="c")(z$="C")2430~ y .01z# =,34":2420t ~@:start=23673y\*256+23672x\:flag=23674z\ c=0 5c=c+1:t$(c,12)="-7"2590 t$(c) *(c/19)=(c/19)2700 : 2510  2700 #Lende=23673y\*256+23672x\:carry=23674z\:plus=0 (ende>start26102 -.start=start-65536:carry=carry-1 2carry=flag2620< 7plus=(carry-flag)*65536 <(dur=(ende-start+plus)*0.00033333u.˗ Awpm=(n(le)/dur) F (:5;"Press c to continue" ="c"Ŧ="C"2725 2705  inkey ':6;"Press c to continue";  z$= z$="c"z$="C"2830 2760  ask quiz score=0: i=1nq &5,0;q$(i): :j=14:o$(i,j) bj v:"?"; E0:(<491)(>524).1}L,30:3210 8;: 3=a(i)+480score=score+1:3310 :o$(i,a(i)) 100d :i score=score/nq  >rdspd Re(le)=(wpm*score) f 6670 zle=1max=e(1)  Header  0 1,5;d$ s$ 20,0;s$ .21,7;y$ B jmenu ~j=17  5+j,8;j;")";m$(j) j !j+6,8;"?";  0 z$= :z$<491ůz$>557.2~L,20:3790 8;:z$;" "; rt=z$  m$(rt)  4 2 Zpname n t=(j$)  p$=""  j=1t  u=(j$(j)) u>96`u=u-32  p$=p$+u j /j>5p$=p$(15):4130" $p$<5p$=p$+"X":4110 " Jpchart ^1d1=-1wpm=07950:4310 h$:9 ,9 ;"Please wait.." rd1=d1  7170  7370  7590  2730   read files 2:4 f$="LESSON"+u$ W3530 :5,5;"Place TEXT TAPE in the":5;"cassette recorder.":5;"Ensure that the plug":5;"is connected to the":5;"EAR socket."::5;"The program ";f$:5;"will load. It will take":5;"about one minute. Be":5;"ready to stop the tape":5;"when asked to do so." f$ $4:6:0 %:9 ,9 ;"Stop the tape":j=113 :.02{# =,(*21+20):j:::10 ;"Please wait"  1070.  1310  1550  1910v * Rflshn z sc=0 $rt=46310:4810  pl=d(le) :5330  5030  out=0 +k=120:g$=n$(k,1pl):  5470^ . 5650 B 5810 Vout=14990~ jk ~ speed !:9 ,9 ;"What speed" >rt=410 ,9 ;"? ";:5150  +10 ,9 ;"? "; 78800`":dl=v$:dl<3rt4dl=2 F((dl<502)(rt=4)5250 Z-20,9 ;"Smaller than 50" d"10 ,0;s$:5130  ndl=(dl/2) ((rt=4)(dl>20)dl=0 :rt=4dl=dl*502:dl=07,0;"The number will be remain on":"the screen until you press a":"key.":200   create nr (9 ,9 ;"Please wait.." i=120:v$="" j=1pl ,ran=(*9 +.5):v$=v$+(ran):j " n$(i)=v$:i , 6 ^flsh r0x$=">":j=1̱g$:x$=x$+" ":j:x$=x$+"<" x=(15-pl/2) 9 ,x;x$  502 9 ,x+1;g$ dl:  answ & 1,4;"What was it" :%3,x;"?";:8800`" D3,x;"?" N"v$=g$sc=sc+1:5750v b15,0;"NO, it was";:(x);"'";g$;"'" v":j$;", your score is ";sc;"/";k  change : J"'c' to continue":"'s' to change speed":"'q' to quit"::" ?"; *0:z$= 47z$="c"z$="s"z$="q"z$="C"z$="S"z$="Q"5950> 9.2~L,27:5930* >z$="s"z$="S"5030 Rz$="q"z$="Q"out=1 z  flshwrd  3  sc=0 :5030:out=0 k=120:g$="":  6275  5470^ . 5650 B 5810 Vout=16270~ jk t 4 ~ slngth  pl=0 pl=pl+1 !z$=w$(k,pl):z$="`"6286  g$=g$+z$  6278 pl=pl-1  digits  /9 ,8;"How many digits? ";  8800`" pl=v$ $pl<25pl>06470F  '20,10 ;"Less than 25" 9 ,26;" " 2$9 ,25;" ";:6370 F  shuffle  i=202-1 j=(*i)+1 !z$=w$(j):w$(j)=w$(i):w$(i)=z$ i  wpm 67:8,0;"Reading speed: ";wpm;" wpm." J"Comprehension speed:";e(le) ^ 2730 rd1=le   getpfile d1=le-2 1le/2=(le/2)d1=le-1:d1=d1  f$=p$+(d1) ƒ:3530 :7,5;"Place PROGRESS TAPE in":5;"recorder. The number":5;"array ";f$;" will load."::  max=0 f$e() "j=1d1:e(j)>maxmax=e(j) j  norm xam=1/max *i=1le2 >$f(i)=(e(i)*xam*13 +.5) He$(i)=(e(i)) R&f(i)=0e$(i)=" ":7310 i  symbol i=13 1-1 z$="" j=1202 b$=" " f(j)>ib$=143 .z$=z$+b$+" " Bj Vc$(i)=" "+z$ ji ~ prntch : j$;"'s progress chart":  i=13 1-1 c$(i) 2i < Zi=14:1; j=1d12 e$(j,i);" "; j " ";l$(i);:i4 i  notyet ":3530 6K9 ,4;"Complete the lesson first.":::2730 r update 3:6  f$=p$+u$ ((le/2)=(le/2)8340 :3530 )8,5;"Insert progress tape" !5;"remove plug from EAR" !5;"socket, RECORD mode." f$e() e:9 ,9 ;"STOP THE TAPE":j=113 :.03{u\,(*40(+.5):j &"j=1le:e(j)>maxmax=e(j) +j :2730 1  ! "`input "jv$="" "tj=130 "y 0 "~z$= "j<18810j" "Az$=12 j=j-1:8;" ";:8;:8825y" "z$=13 8890" "z$; " r$(j)=z$ "z$="" "j " "%i=1j-1:v$=v$+r$(i):i "v$=""v$="0" " #(intr 9010-9299 #)text 9310-9599 #*quiz 9610-9799 #+word 9810-9899 $S"-9" %"-7" &G"-5" pa& ZJjohnnytuYPJOHNNV12U12 FLESSON12cayK'B  ԅ  5 E   ͑Instructions Flash numbers Flash phrases Memory Text Progress chart Stop q q Words per minute U # 5 gggFWqrg D* S p e e d r e a d *Y Hi-Yin Music 1984S Z