/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / SPEED-READ / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 22 14 14 | 14 14 14 14 53 54 45 56 |1 REM"..|....STEV|
|00000010| 45 4e 20 44 41 52 4e 4f | 4c 44 2c 20 50 2e 4f 2e |EN DARNO|LD, P.O.|
|00000020| 20 42 4f 58 20 32 30 31 | 2c 20 41 4c 45 58 41 4e | BOX 201|, ALEXAN|
|00000030| 44 52 41 20 20 4e 45 57 | 20 5a 45 41 4c 41 4e 44 |DRA  NEW| ZEALAND|
|00000040| 8d 00 0a 31 30 20 50 4f | 4b 45 35 33 32 38 30 2c |...10 PO|KE53280,|
|00000050| 31 31 3a 50 4f 4b 45 35 | 33 32 38 31 2c 31 31 0a |11:POKE5|3281,11.|
|00000060| 39 30 20 50 52 49 4e 54 | 22 8e 93 99 22 3b 3a 47 |90 PRINT|"...";:G|
|00000070| 4f 53 55 42 31 30 30 3a | 47 4f 54 4f 31 33 30 0a |OSUB100:|GOTO130.|
|00000080| 31 30 30 20 50 52 49 4e | 54 2c 22 12 20 20 20 20 |100 PRIN|T,".    |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000a0| 20 20 20 22 0a 31 31 30 | 20 50 52 49 4e 54 2c 22 |   ".110| PRINT,"|
|000000b0| 12 20 53 20 50 20 45 20 | 45 20 44 20 20 20 20 20 |. S P E |E D     |
|000000c0| 52 20 45 20 41 20 44 20 | 22 0a 31 32 30 20 50 52 |R E A D |".120 PR|
|000000d0| 49 4e 54 2c 22 12 20 20 | 20 20 20 20 20 20 20 20 |INT,".  |        |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 3a 52 |        |     ":R|
|000000f0| 45 54 55 52 4e 0a 31 33 | 30 20 4b 24 3d 22 20 53 |ETURN.13|0 K$=" S|
|00000100| 20 50 20 45 20 45 20 44 | 20 20 20 20 20 52 20 45 | P E E D|     R E|
|00000110| 20 41 20 44 20 20 20 20 | 20 20 20 20 20 20 20 20 | A D    |        |
|00000120| 20 20 20 20 42 59 20 20 | 20 20 20 20 20 20 20 20 |    BY  |        |
|00000130| 20 20 20 20 20 20 20 4d | 41 58 20 59 4f 44 45 52 |       M|AX YODER|
|00000140| 22 0a 31 34 30 20 4b 24 | 3d 4b 24 2b 22 20 20 20 |".140 K$|=K$+"   |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 41 44 41 50 54 45 |        |  ADAPTE|
|00000170| 44 20 46 4f 52 20 54 48 | 45 20 36 34 20 20 20 20 |D FOR TH|E 64    |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 22 0a 31 35 |        |    ".15|
|00000190| 30 20 4b 24 3d 4b 24 2b | 22 42 59 20 20 20 20 20 |0 K$=K$+|"BY     |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 54 45 56 |        |    STEV|
|000001b0| 45 4e 20 44 41 52 4e 4f | 4c 44 20 20 20 20 20 20 |EN DARNO|LD      |
|000001c0| 20 20 22 0a 31 35 35 20 | 4b 24 3d 4b 24 2b 22 20 |  ".155 |K$=K$+" |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4d 4f 44 49 |        |    MODI|
|000001e0| 46 49 45 44 20 20 20 20 | 20 20 20 20 1d 1d 1d 20 |FIED    |    ... |
|000001f0| 20 42 59 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | BY     |        |
|00000200| 20 20 20 20 22 0a 31 35 | 36 20 4b 24 3d 4b 24 2b |    ".15|6 K$=K$+|
|00000210| 22 53 4d 41 44 41 20 53 | 4f 46 54 57 41 52 45 20 |"SMADA S|OFTWARE |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 22 0a 31 36 30 |        |   ".160|
|00000230| 20 46 4f 52 49 3d 31 54 | 4f 31 30 30 30 3a 4e 45 | FORI=1T|O1000:NE|
|00000240| 58 54 0a 31 37 30 20 46 | 4f 52 49 3d 31 54 4f 4c |XT.170 F|ORI=1TOL|
|00000250| 45 4e 28 4b 24 29 53 54 | 45 50 32 3a 50 52 49 4e |EN(K$)ST|EP2:PRIN|
|00000260| 54 22 13 22 3a 50 52 49 | 4e 54 2c 22 12 22 4d 49 |T".":PRI|NT,"."MI|
|00000270| 44 24 28 4b 24 2c 49 2c | 32 33 29 3a 46 4f 52 4a |D$(K$,I,|23):FORJ|
|00000280| 3d 31 54 4f 31 32 30 3a | 4e 45 58 54 3a 4e 45 58 |=1TO120:|NEXT:NEX|
|00000290| 54 0a 31 38 30 20 50 52 | 49 4e 54 22 13 22 3b 3a |T.180 PR|INT".";:|
|000002a0| 47 4f 53 55 42 31 30 30 | 0a 31 39 30 20 4b 24 3d |GOSUB100|.190 K$=|
|000002b0| 22 90 5e 22 3a 4e 3d 31 | 32 0a 32 30 30 20 44 49 |".^":N=1|2.200 DI|
|000002c0| 4d 20 50 24 28 32 30 29 | 3a 44 49 4d 20 56 24 28 |M P$(20)|:DIM V$(|
|000002d0| 32 30 29 0a 32 31 30 20 | 44 49 4d 20 4e 24 28 32 |20).210 |DIM N$(2|
|000002e0| 30 29 3a 44 49 4d 20 4c | 57 28 34 30 29 0a 32 32 |0):DIM L|W(40).22|
|000002f0| 30 20 50 52 49 4e 54 22 | 9e 11 11 11 54 48 49 53 |0 PRINT"|....THIS|
|00000300| 20 50 52 4f 47 52 41 4d | 20 54 45 53 54 53 20 59 | PROGRAM| TESTS Y|
|00000310| 4f 55 52 20 52 45 41 44 | 49 4e 47 20 53 50 45 45 |OUR READ|ING SPEE|
|00000320| 44 20 20 20 11 41 4e 44 | 20 43 4f 4d 50 52 45 48 |D   .AND| COMPREH|
|00000330| 45 4e 53 49 4f 4e 2e 22 | 0a 32 33 30 20 50 52 49 |ENSION."|.230 PRI|
|00000340| 4e 54 22 11 11 11 11 99 | 41 4c 54 48 4f 55 47 48 |NT".....|ALTHOUGH|
|00000350| 20 53 4f 4d 45 20 4f 46 | 20 54 48 45 20 53 45 4e | SOME OF| THE SEN|
|00000360| 54 45 4e 43 45 53 20 41 | 52 45 20 41 00 0a 32 34 |TENCES A|RE A..24|
|00000370| 30 20 50 52 49 4e 54 22 | 11 42 49 54 20 53 54 52 |0 PRINT"|.BIT STR|
|00000380| 41 4e 47 45 2c 20 54 48 | 45 20 4f 42 4a 45 43 54 |ANGE, TH|E OBJECT|
|00000390| 20 49 53 20 54 4f 20 52 | 45 43 4f 47 4e 49 53 45 | IS TO R|ECOGNISE|
|000003a0| 00 0a 32 35 30 20 50 52 | 49 4e 54 22 11 54 48 45 |..250 PR|INT".THE|
|000003b0| 4d 20 49 4e 20 54 48 45 | 20 53 48 4f 52 54 45 53 |M IN THE| SHORTES|
|000003c0| 54 20 50 4f 53 53 49 42 | 4c 45 20 54 49 4d 45 2e |T POSSIB|LE TIME.|
|000003d0| 22 3b 0a 32 39 30 20 54 | 3d 35 30 0a 33 31 30 20 |";.290 T|=50.310 |
|000003e0| 58 24 3d 22 20 22 0a 33 | 32 30 20 42 24 3d 22 54 |X$=" ".3|20 B$="T|
|000003f0| 48 45 20 22 3a 59 24 3d | 22 54 48 45 20 22 0a 33 |HE ":Y$=|"THE ".3|
|00000400| 33 30 20 46 4f 52 20 49 | 3d 20 31 20 54 4f 20 4e |30 FOR I|= 1 TO N|
|00000410| 0a 33 34 30 20 52 45 41 | 44 20 4e 24 28 49 29 0a |.340 REA|D N$(I).|
|00000420| 33 35 30 20 4e 24 28 49 | 29 3d 4e 24 28 49 29 2b |350 N$(I|)=N$(I)+|
|00000430| 58 24 3a 4e 45 58 54 0a | 33 36 30 20 46 4f 52 20 |X$:NEXT.|360 FOR |
|00000440| 49 3d 20 31 20 54 4f 20 | 4e 0a 33 37 30 20 52 45 |I= 1 TO |N.370 RE|
|00000450| 41 44 20 50 24 28 49 29 | 0a 33 38 30 20 4e 45 58 |AD P$(I)|.380 NEX|
|00000460| 54 0a 33 39 30 20 5a 3d | 30 3a 46 4f 52 49 20 3d |T.390 Z=|0:FORI =|
|00000470| 20 31 20 54 4f 20 31 34 | 0a 34 30 30 20 52 31 3d | 1 TO 14|.400 R1=|
|00000480| 49 4e 54 28 32 2a 52 4e | 44 28 31 29 29 2b 31 0a |INT(2*RN|D(1))+1.|
|00000490| 34 31 30 20 4f 4e 20 52 | 31 20 47 4f 54 4f 34 32 |410 ON R|1 GOTO42|
|000004a0| 30 2c 34 33 30 0a 34 32 | 30 20 51 24 3d 42 24 3a |0,430.42|0 Q$=B$:|
|000004b0| 47 4f 54 4f 34 34 30 0a | 34 33 30 20 51 24 3d 59 |GOTO440.|430 Q$=Y|
|000004c0| 24 0a 34 34 30 20 52 45 | 41 44 20 56 24 28 49 29 |$.440 RE|AD V$(I)|
|000004d0| 0a 34 35 30 20 56 24 28 | 49 29 3d 56 24 28 49 29 |.450 V$(|I)=V$(I)|
|000004e0| 2b 58 24 2b 51 24 0a 34 | 36 30 20 4e 45 58 54 3a |+X$+Q$.4|60 NEXT:|
|000004f0| 50 52 49 4e 54 22 05 11 | 11 11 11 11 20 20 20 20 |PRINT"..|....    |
|00000500| 20 50 52 45 53 53 20 12 | 53 48 49 09 00 92 20 54 | PRESS .|SHI... T|
|00000510| 4f 20 42 45 47 49 4e 22 | 3a 57 41 49 54 36 35 33 |O BEGIN"|:WAIT653|
|00000520| 2c 31 0a 34 37 30 20 52 | 31 3d 49 4e 54 28 31 32 |,1.470 R|1=INT(12|
|00000530| 2a 52 4e 44 28 31 29 29 | 2b 31 0a 34 38 30 20 52 |*RND(1))|+1.480 R|
|00000540| 32 3d 49 4e 54 28 31 34 | 2a 52 4e 44 28 31 29 29 |2=INT(14|*RND(1))|
|00000550| 2b 31 0a 34 39 30 20 52 | 33 3d 49 4e 54 28 31 32 |+1.490 R|3=INT(12|
|00000560| 2a 52 4e 44 28 31 29 29 | 2b 31 0a 35 30 30 20 52 |*RND(1))|+1.500 R|
|00000570| 34 3d 49 4e 54 28 32 2a | 52 4e 44 28 31 29 29 2b |4=INT(2*|RND(1))+|
|00000580| 31 0a 35 31 30 20 4f 4e | 20 52 34 20 47 4f 54 4f |1.510 ON| R4 GOTO|
|00000590| 35 32 30 2c 35 33 30 0a | 35 32 30 20 49 24 3d 42 |520,530.|520 I$=B|
|000005a0| 24 3a 47 4f 54 4f 35 34 | 30 0a 35 33 30 20 49 24 |$:GOTO54|0.530 I$|
|000005b0| 3d 59 24 0a 35 34 30 20 | 41 24 3d 49 24 2b 4e 24 |=Y$.540 |A$=I$+N$|
|000005c0| 28 52 31 29 2b 56 24 28 | 52 32 29 2b 50 24 28 52 |(R1)+V$(|R2)+P$(R|
|000005d0| 33 29 0a 35 35 30 20 4c | 3d 4c 45 4e 28 41 24 29 |3).550 L|=LEN(A$)|
|000005e0| 3a 57 31 3d 4c 2f 35 0a | 35 36 30 20 50 52 49 4e |:W1=L/5.|560 PRIN|
|000005f0| 54 22 93 9e 22 3a 46 4f | 52 20 49 3d 20 31 20 54 |T"..":FO|R I= 1 T|
|00000600| 4f 20 31 30 30 30 3a 4e | 45 58 54 0a 35 37 30 20 |O 1000:N|EXT.570 |
|00000610| 50 52 49 4e 54 41 24 0a | 35 38 30 20 54 49 24 3d |PRINTA$.|580 TI$=|
|00000620| 22 30 30 30 30 30 30 22 | 0a 35 39 30 20 49 46 20 |"000000"|.590 IF |
|00000630| 54 49 3c 54 20 47 4f 54 | 4f 35 39 30 0a 36 30 30 |TI<T GOT|O590.600|
|00000640| 20 50 52 49 4e 54 22 93 | 22 0a 36 31 30 20 50 52 | PRINT".|".610 PR|
|00000650| 49 4e 54 22 99 57 48 41 | 54 20 44 49 44 20 54 48 |INT".WHA|T DID TH|
|00000660| 41 54 20 53 45 4e 54 45 | 4e 43 45 20 53 41 59 3f |AT SENTE|NCE SAY?|
|00000670| 11 11 11 22 0a 36 32 30 | 20 49 4e 50 55 54 22 a0 |...".620| INPUT".|
|00000680| a0 a0 9d 9d 9d 22 3b 20 | 44 24 0a 36 33 30 20 50 |....."; |D$.630 P|
|00000690| 52 49 4e 54 22 93 11 9e | 59 4f 55 20 53 41 49 44 |RINT"...|YOU SAID|
|000006a0| 3a 11 22 0a 36 34 30 20 | 50 52 49 4e 54 44 24 22 |:.".640 |PRINTD$"|
|000006b0| 11 11 22 0a 36 35 30 20 | 49 46 20 41 24 3d 44 24 |..".650 |IF A$=D$|
|000006c0| 20 54 48 45 4e 20 43 4f | 4d 50 3d 31 30 30 3a 47 | THEN CO|MP=100:G|
|000006d0| 4f 54 4f 37 35 30 0a 36 | 36 30 20 46 4f 52 20 49 |OTO750.6|60 FOR I|
|000006e0| 3d 31 20 54 4f 20 4c 2b | 31 3a 4d 24 3d 4d 49 44 |=1 TO L+|1:M$=MID|
|000006f0| 24 28 41 24 2c 49 2c 31 | 29 3a 4e 24 3d 4d 49 44 |$(A$,I,1|):N$=MID|
|00000700| 24 28 44 24 2c 49 2c 31 | 29 3a 49 46 20 4d 24 3d |$(D$,I,1|):IF M$=|
|00000710| 4e 24 20 54 48 45 4e 20 | 4c 43 3d 20 4c 43 2b 31 |N$ THEN |LC= LC+1|
|00000720| 0a 36 37 30 20 49 46 20 | 4d 24 3c 3e 4e 24 20 54 |.670 IF |M$<>N$ T|
|00000730| 48 45 4e 20 4c 57 3d 4c | 57 2b 31 3a 4c 57 28 49 |HEN LW=L|W+1:LW(I|
|00000740| 29 3d 49 0a 36 38 30 20 | 4e 45 58 54 20 49 0a 36 |)=I.680 |NEXT I.6|
|00000750| 39 30 20 50 52 49 4e 54 | 22 05 54 48 45 20 53 54 |90 PRINT|".THE ST|
|00000760| 41 54 45 4d 45 4e 54 20 | 57 41 53 3a 09 00 00 0a |ATEMENT |WAS:....|
|00000770| 37 30 30 20 50 52 49 4e | 54 41 24 0a 37 31 30 20 |700 PRIN|TA$.710 |
|00000780| 46 4f 52 20 49 3d 20 31 | 20 54 4f 20 4c 2b 31 0a |FOR I= 1| TO L+1.|
|00000790| 37 32 30 20 49 46 20 4c | 57 28 49 29 3d 49 20 54 |720 IF L|W(I)=I T|
|000007a0| 48 45 4e 20 50 52 49 4e | 54 54 41 42 28 49 2d 31 |HEN PRIN|TTAB(I-1|
|000007b0| 29 3b 4b 24 22 91 22 0a | 37 33 30 20 4e 45 58 54 |);K$".".|730 NEXT|
|000007c0| 20 49 0a 37 34 30 20 43 | 4f 4d 50 3d 49 4e 54 28 | I.740 C|OMP=INT(|
|000007d0| 4c 43 2a 31 30 30 2f 28 | 4c 2b 31 29 29 3a 47 4f |LC*100/(|L+1)):GO|
|000007e0| 54 4f 37 36 30 0a 37 35 | 30 20 53 43 3d 53 43 2b |TO760.75|0 SC=SC+|
|000007f0| 31 3a 49 46 20 49 4e 54 | 28 53 43 29 3d 2e 32 35 |1:IF INT|(SC)=.25|
|00000800| 2a 49 4e 54 28 53 43 2a | 34 29 54 48 45 4e 20 53 |*INT(SC*|4)THEN S|
|00000810| 50 3d 53 50 2b 31 0a 37 | 36 30 20 50 52 49 4e 54 |P=SP+1.7|60 PRINT|
|00000820| 22 11 11 22 0a 37 37 30 | 20 50 52 49 4e 54 22 99 |"..".770| PRINT".|
|00000830| 59 4f 55 52 20 53 50 45 | 45 44 20 57 41 53 22 49 |YOUR SPE|ED WAS"I|
|00000840| 4e 54 28 31 34 34 30 30 | 2f 54 29 22 57 4f 52 44 |NT(14400|/T)"WORD|
|00000850| 53 20 50 45 52 20 4d 49 | 4e 55 54 45 20 41 54 00 |S PER MI|NUTE AT.|
|00000860| 0a 37 38 30 20 50 52 49 | 4e 54 22 11 41 20 43 4f |.780 PRI|NT".A CO|
|00000870| 4d 50 52 45 48 45 4e 53 | 49 4f 4e 20 4f 46 22 43 |MPREHENS|ION OF"C|
|00000880| 4f 4d 50 22 25 22 0a 37 | 39 30 20 46 4f 52 20 49 |OMP"%".7|90 FOR I|
|00000890| 20 3d 20 31 20 54 4f 28 | 4c 2b 31 29 3a 4c 57 28 | = 1 TO(|L+1):LW(|
|000008a0| 49 29 3d 30 3a 4e 45 58 | 54 20 49 0a 38 30 30 20 |I)=0:NEX|T I.800 |
|000008b0| 50 52 49 4e 54 22 11 11 | 11 11 11 05 50 52 45 53 |PRINT"..|....PRES|
|000008c0| 53 20 4b 45 59 20 54 4f | 20 43 4f 4e 54 49 4e 55 |S KEY TO| CONTINU|
|000008d0| 45 92 22 0a 38 31 30 20 | 50 52 49 4e 54 22 20 20 |E.".810 |PRINT"  |
|000008e0| 20 11 12 46 92 91 9d a4 | 11 41 53 54 45 52 20 20 | ..F....|.ASTER  |
|000008f0| 20 20 12 53 92 91 9d a4 | 11 4c 4f 57 45 52 20 20 |  .S....|.LOWER  |
|00000900| 20 20 12 4e 92 91 9d a4 | 11 4f 20 43 48 41 4e 47 |  .N....|.O CHANG|
|00000910| 45 00 0a 38 32 30 20 50 | 4f 4b 45 31 39 38 2c 30 |E..820 P|OKE198,0|
|00000920| 3a 57 41 49 54 31 39 38 | 2c 31 3a 47 45 54 41 24 |:WAIT198|,1:GETA$|
|00000930| 3a 49 46 41 24 3d 22 53 | 22 54 48 45 4e 54 3d 54 |:IFA$="S|"THENT=T|
|00000940| 2a 31 2e 31 35 0a 38 33 | 30 20 49 46 20 41 24 3d |*1.15.83|0 IF A$=|
|00000950| 22 46 22 20 54 48 45 4e | 20 54 3d 54 2a 2e 39 31 |"F" THEN| T=T*.91|
|00000960| 0a 38 34 30 20 4c 3d 30 | 3a 4c 43 3d 30 3a 4c 52 |.840 L=0|:LC=0:LR|
|00000970| 3d 30 3a 43 4f 4d 50 3d | 30 3a 54 31 3d 30 3a 50 |=0:COMP=|0:T1=0:P|
|00000980| 52 49 4e 54 0a 38 35 30 | 20 47 4f 54 4f 34 37 30 |RINT.850| GOTO470|
|00000990| 0a 38 36 30 20 44 41 54 | 41 20 46 4f 58 2c 44 4f |.860 DAT|A FOX,DO|
|000009a0| 47 2c 43 48 49 43 4b 45 | 4e 2c 43 4f 57 2c 4d 55 |G,CHICKE|N,COW,MU|
|000009b0| 4c 45 2c 44 4f 4e 4b 45 | 59 2c 50 49 47 2c 4c 49 |LE,DONKE|Y,PIG,LI|
|000009c0| 4f 4e 2c 4d 4f 4e 4b 09 | 0a 38 37 30 20 44 41 54 |ON,MONK.|.870 DAT|
|000009d0| 41 42 41 52 4e 2c 42 41 | 52 2c 47 41 54 45 2c 43 |ABARN,BA|R,GATE,C|
|000009e0| 41 4e 2c 48 4f 55 53 45 | 2c 43 41 52 2c 47 4f 41 |AN,HOUSE|,CAR,GOA|
|000009f0| 54 2c 43 41 54 2c 42 41 | 54 2c 43 41 52 54 2c 48 |T,CAT,BA|T,CART,H|
|00000a00| 4f 52 53 45 2c 4d 4f 55 | 53 45 0a 38 38 30 20 44 |ORSE,MOU|SE.880 D|
|00000a10| 41 54 41 4a 55 4d 50 45 | 44 20 4f 56 45 52 2c 50 |ATAJUMPE|D OVER,P|
|00000a20| 41 49 4e 54 45 44 2c 52 | 41 4e 20 41 57 41 59 20 |AINTED,R|AN AWAY |
|00000a30| 46 52 4f 4d 2c 48 49 54 | 2c 53 45 41 52 43 48 45 |FROM,HIT|,SEARCHE|
|00000a40| 44 20 46 4f 52 2c 4d 49 | 53 53 45 44 2c 42 49 54 |D FOR,MI|SSED,BIT|
|00000a50| 2c 54 48 52 45 57 0a 38 | 39 30 20 44 41 54 41 20 |,THREW.8|90 DATA |
|00000a60| 42 52 4f 4b 45 2c 57 41 | 53 48 45 44 2c 43 52 55 |BROKE,WA|SHED,CRU|
|00000a70| 53 48 45 44 2c 50 55 53 | 48 45 44 2c 4b 49 53 53 |SHED,PUS|HED,KISS|
|00000a80| 45 44 2c 4c 4f 4f 4b 45 | 44 20 41 54 0a          |ED,LOOKE|D AT.   |
+--------+-------------------------+-------------------------+--------+--------+