home *** CD-ROM | disk | FTP | other *** search
- 5 REM"ADAPTED BY STEVEN DARNOLD, P.O. BOX 201 ALEXANDRA, NEW ZEALAND[141]
- 8 [151]53280,0:[151]53281,0:[153]"LOAD":D$[178]"T Y P I N G P R A C T I C E "
- 10 [129]I[178]1[164]13[169]3:[151]646,I:[153]:[153]" ";
- 12 [129]J[178]1[164][195](D$):[153][202](D$,J,1);:[129]N[178]1[164][187](1)[172]50:[130]N,J,I
- 14 [153]"LISTLOADRETURN":[156]
- 16 [134]EX$(60)
- 18 LN[178]39:SC[178]55296[171]1024
- 20 OC$[178]"INPUT"
- 22 T1[178]700
- 24 [141] 40
- 26 [141] 252
- 32 Z1[178]64:R1[178]2
- 38 [137]190
- 40 A[178]1064:[134]CL(57)
- 42 [131]169,258,254,173,92,175,177,179
- 44 [131]102,181,183,185,262,260,104,106
- 46 [131]88,94,171,96,100,256,90,252,98,250
- 48 [129]I[178]1[164]26
- 50 [135]CL(I):[130]
- 52 [131]336,256,258,260,176,178,180,96,98,100
- 54 [129]I[178]48[164]57
- 56 [135]CL(I):[130]
- 58 [142]
- 60 X[178][198](C$)[171]Z1
- 62 [139]X[178][171]32[137]66
- 64 Y[178]A[170]CL(X):[137]68
- 66 Y[178]A[170]339
- 68 D[178][194](Y[170]SC):[151]Y[170]SC,1:[142]
- 70 [153]" SPC(
- 72 END
- 74 PRINT"[147]
- 76 [153]"LOAD
- 78 PRINT"[151] "
- 80 PRINT" "
- 82 PRINT" [156] [146] [146] [146] [151] [156] [146] [146] [146] [151] "
- 84 PRINT" "
- 86 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
- 88 [142]
- 90 [153]"LOAD"
- 92 [153]" SPC(CLOSESPC(CLOSESPC(CLOSESPC(
- 94 PRINT"
- 96 [153]" SPC(CLOSESPC(CLOSESPC(CLOSESPC(
- 98 PRINT"
- 100 [153]" WAIT WAIT WAIT SPC(
- 102 PRINT"
- 104 [153]" SPC(CLOSESPC(CLOSESPC(CLOSESPC(
- 106 PRINT"
- 108 [153]" SPC(CLOSESPC(CLOSESPC(CLOSESPC(
- 110 RETURN
- 112 PRINT"[154]";EX$(N);"";
- 114 PRINT"[150]";
- 116 E=0:C=0:LL=0
- 118 FORI=1TOLEN(EX$(N))
- 120 C$=MID$(EX$(N),I,1):L=0
- 122 GOSUB60
- 124 T=TI: T2=T1
- 126 GET D$: IF TI-T > T2 GOTO 132
- 128 IF D$="" GOTO 126
- 130 GOTO 142
- 132 T2=100000
- 134 PRINT "[154]PRESS [150]F1[154] TO CHECK PROGRESS"
- 136 GET D$:IF D$="" GOTO 136
- 138 PRINT"[145] "
- 140 PRINT "[150][145][145][145][145][145][145][145][145][145]";: FOR KK=1 TO I:PRINT"";:NEXT
- 142 IF D$=OC$ GOTO 158
- 144 IFD$<>C$THENE=E+1:PRINT"[214][157][150]";:GOTO126
- 146 L=TI-T:IFL>300THENL=300
- 148 LL=LL+L
- 150 POKEY+SC,D
- 152 C=C+1:PRINTC$;:NEXT
- 154 TC=TC+C:TE=TE+E:TL=TL+LL
- 156 RETURN
- 158 PRINT"[147]"
- 160 PRINT"[159]PRESENT DIFFICULTY =";:IFINT(N/4)<10THENPRINTINT(N/4):GOTO164
- 162 PRINT" NUMERIC"
- 164 PRINT:PRINT"CORRECT KEYSTROKES =";TC
- 166 PRINT:PRINT"ERROR KEYSTROKES =";TE
- 168 IF(TC+TE)=0GOTO172
- 170 PRINT:PRINT"ERROR/TOTAL =";INT(TE/(TC+TE)*100);"%"
- 172 X=INT(TL/60):Y=INT(X/60):X=X-Y*60
- 174 PRINT:PRINT"KEYBOARD TIME USED =";Y;"MIN."X;"SEC."
- 176 IFTL=0GOTO180
- 178 PRINT:PRINT"WORDS PER MINUTE ="INT(TC*720/TL)
- 180 PRINT"[154]PRESS [150]F1[154] TO RETURN TO EXERCISES.
- 182 [161]D$:[139]D$[178]""[137]182
- 184 [139] D$[178]OC$ [167] [137] 14
- 186 [137]182
- 188 [128]
- 190 [139]R1[178]1[137]220
- 192 [141]400:[153]"OPENLEVEL OF DIFFICULTY? (0 TO 9)";
- 194 [161]D$:[139]D$[178]""[137]194
- 196 [139] D$ [179][177] "0" [167] [139] [197](D$)[178]0 [137] 194
- 198 [153][197](D$)
- 200 N[178]4[172][197](D$)
- 202 TL[178]0:TE[178]0:TC[178]0
- 204 [141]74
- 206 [141]112
- 208 [139]E[177]2[137]204
- 210 [139]LL[179]1840[167]N[178]N[170]1:[137]216
- 212 N[178]N[171]4:[139]N[179]0[167]N[178]0
- 214 [137]204
- 216 [139]N[177]LN[167]N[178]LN[171]3
- 218 [137]204
- 220 N[178]40
- 222 TL[178]0:TE[178]0:TC[178]0
- 224 [141]90:[141]112
- 226 [139]E[177]2[137]224
- 228 [139]LL[179]1840[167]N[178]N[170]1:[137]234
- 230 N[178]N[171]4:[139]N[179]40[167]N[178]40
- 232 [137]224
- 234 [139]N[177]47[167]N[178]44
- 236 [137]224
- 238 I[178]43:LN[178]11000
- 240 [153]LN[170]I;"EX$("I")=";
- 242 [129]J[178]1[164]33
- 244 [161]D$:[139]D$[178]""[137]244
- 246 [153]D$;:[130]
- 248 [153]:I[178]I[170]1:[137]240
- 250 [128]
- 252 EX$( 0 )[178]"FJFJFJFJJFJFJFJFFDJKFDJKJKFDJKFD
- 254 EX$( 1 )="DKDKDKDKKDKDKDKDDSKLDSKLKLDSKLDS
- 256 EX$( 2 )[178]"SLSLSLSLLSLSLSLSSAKLLKASLKASKLSA
- 258 EX$( 3 )="FDSAJKLLKJASDFSADJLKJSFLJDAJLFJF
- 260 EX$( 4 )[178]"SAD ASK LAD ALL DAD FAD ADD LASS
- 262 EX$( 5 )="FGJHFGJHFGJHFGJHGJHGFHJGFHJGFHJF
- 264 EX$( 6 )[178]"GAS HAD LAG SAG HAG JAG GAGS LAD
- 266 EX$( 7 )="HA ADD FADS HAGS SHALL FALL LADS
- 268 EX$( 8 )[178]"FRDESWAQFTRFEDWSQATREWQASDFREWQA
- 270 EX$( 9 )="JUKILOPLOIKUJHYUJKILOPLPOLKIUJHY
- 272 EX$( 10 )[178]"SAWFEDREDFATJUKKILLOPPOKHUGJUGFT
- 274 EX$( 11 )="TRFDESWQAGYJHUKILOLPOKIUJHGTYRUI
- 276 EX$( 12 )[178]"FOR THE ITS TWO HIS GOT DUG LOTS
- 278 EX$( 13 )="SHE ROD OUT YOU ARE LIDS POT SAW
- 280 EX$( 14 )[178]"SIR FUR HOW TRY HAD RUT RID WEDS
- 282 EX$( 15 )="DID ROD USE PLY WAYS ALE ATE DOG
- 284 EX$( 16 )[178]"AZSXDCFVGBHNJMKLJHBNKLOPAWSEDRFT
- 286 EX$( 17 )="ZASXDCFVGBHNJMKLLKMJNHBGVFDCSXZA
- 288 EX$( 18 )[178]"ZXCVBNMMNBVCXZFCDXSZAJNKMLHBGVMK
- 290 EX$( 19 )="LKMJNHBAZSXDCFVGBNJMKLJHNFGVJHBF
- 292 EX$( 20 )[178]"AND FIX HILL BUY MAN BED NOR END
- 294 EX$( 21 )="CAN CUT NOW SONS OWN BIG NEW CAR
- 296 EX$( 22 )[178]"MEW HIM ONE ANY VAN BUT BAD ICES
- 298 EX$( 23 )="OFF ODD ANN ALL SEE ZOO CAN BACK
- 300 EX$( 24 )[178]"QAZWSXEDCRFVTGBYHNUJMIKOLPPLOQAW
- 302 EX$( 25 )="DESWQAIOPJKLLHYTGVBNJUKILOPQAZSX
- 304 EX$( 26 )[178]"BGVFRDSWAZAQPLMJUOILPLKMJNUTGVAQ
- 306 EX$( 27 )="ZSERFDVCXZAQJHKMLPOLKIJUHYNTGBAQ
- 308 EX$( 28 )[178]"THE THAN ABLE VERY GAVE HID COPY
- 310 EX$( 29 )="MOVE THEN CAM WHEN HAVE SENT POT
- 312 EX$( 30 )[178]"GIVE THEM TIME TRY BOTH NOT MUCH
- 314 EX$( 31 )="WANT BEST MAKE TO GO MORE CRY AS
- 316 EX$( 32 )[178]"TEUPOYQSHGRJWLDAKQTREOUGJHSDFNJK
- 318 EX$( 33 )="IDPFWAKLPOUTWEYDSAHJKLKIGOROPLQA
- 320 EX$( 34 )[178]"ATRQJEWLDUYIGKFSHIPOJSUEWTLUONML
- 322 EX$( 35 )="FRYGADOQHSKARUILQTPDOYWHGKFJECXN
- 324 EX$( 36 )[178]"OTHER THEIR RYE FIELD NORM RIFLE
- 326 EX$( 37 )="THINK USUAL WASTE FOR MOVE WOULD
- 328 EX$( 38 )[178]"MONTH DATE YEAR MINUTE DAY TIMES
- 330 EX$( 39 )="EARLY DELAY ABOUT AXE QUEER MOAN
- 332 EX$( 40 )[178]"45645645645646564554645645664546
- 334 EX$( 41 )="41415252636314412552366345612345
- 336 EX$( 42 )[178]"50053252036524156365201450025641
- 338 EX$( 43 )="47475858696974478558966945678945
- 340 EX$( 44 )[178]"10203014504758695005647586950145
- 342 EX$( 45 )="12345678900546123475869500145650
- 344 EX$( 46 )[178]"14150525863696321456563214569874
- 346 EX$( 47 )="02021233698521474120234569874520
- 348 [142]
- 400 [153]"LOADCONTREST YOUR FINGERS ON THE HOME KEYS:
- 410 PRINT"[156] ";
- 412 PRINT" A S D F J K L : ";
- 414 PRINT" "
- 420 PRINT"[154]DO NOT LOOK AT THE KEYBOARD. KEEP YOUR EYES ON THE SCREEN.
- 430 [153]"PRESS DEFF1CONT TO CHECK YOUR PROGRESS.
- 440 RETURN
-