0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
10 'SpeedRead by Russ Hall
20 'You must have some text file in RAM
30 'for it to format initially.
40 'It will create a file called 'test'
50 'which it works with then.
60 CLS:MAXFILES=2
70 PRINT:PRINT" WHAT INPUT FILE TO FORMAT?":INPUT"(IF NONE, PRESS <ENTER>)";F$
80 IFF$=""THEN290
100 OPEN F$FORINPUTAS1
105 OPEN"RAM:TEST.DO"FORAPPENDAS2
110 IFEOF(1)THEN210
112 A=A+1:PRINTA
115 B$=""
120 FORF=1TO30
125 IFEOF(1)THEN210
130 A$=INPUT$(1,1):B$=B$+A$
150 IFA$=""THENPRINT#2,B$:GOTO110
160 NEXT
170 FORF=1TO10:IFEOF(1)THEN210
180 A$=INPUT$(1,1):B$=B$+A$
190 IFA$=" "ORA$=""THENPRINT#2,B$:GOTO110
200 NEXT
210 CLOSE1,2
290 CLS:PRINT:PRINT" 1 = 460 WORDS/MINUTE":PRINT" 2 = 630 WPM":PRINT" 3 = 690 WPM"
300 PRINT" 4 = 760 WPM":PRINT" 5 = 840 WPM"
310 PRINT:INPUT"WHAT SPEED (1-5)";A
315 PRINT
320 OPEN"TEST.DO"FOR INPUTAS1
325 IFEOF(1)THEN1300
330 A$=INPUT$(A,1)
335 IFA$=""THENPRINT:GOTO325
340 PRINTA$;
360 GOTO325
1300 FORF=1TO1000:NEXT:MAXFILES=1:END