home *** CD-ROM | disk | FTP | other *** search
- 1 REM PROGRAMMED BY DON FERGUSON
- 2 REM 901 HACKNEY
- 3 REM ST. MARYS, OHIO
- 4 REM 45885
- 5 REM WORDS ENTERED INTO DATA STATEMENTS BEGINNING WITH LINE 10000
- 6 REM PUBLIC DOMAIN PROGRAM
- 10 POKE53280,2:POKE53281,1:POKE53272,23
- 100 PRINT"[147]"
- 200 PRINT" [144][211][208][159][197][156][204][204][158][201][206][199]"
- 225 FORI=1TO2000:NEXT:PRINT"[147]"
- 261 PRINT"[147]"
- 262 RESTORE
- 265 REM: MENU ROUTINE
- 267 PRINT"[211][212][213][196][217][160][215][207][210][196][211] (1)"
- 268 PRINT:PRINT" [212][193][203][197] [212][197][211][212] (2)"
- 270 GETCHOICE$:IFCHOICE$=""THEN GOTO 270
- 275 IF CHOICE$="1"THEN (null) TO 2000
- 276 IFCHOICE$="2" THEN GOTO2500
- 277 IFCHOICE$<>"1"ANDCHOICE$<>"2"THENGOTO270
- 279 PRINT"[147]"
- 280 PRINT"[147]":PRINTTAB(17)"[212][197][211][212] [194][197][199][201][206][211]"
- 281 FOR X=1TO2500:NEXT
- 290 SUM=0
- 300 READ A$
- 310 COUNT=0
- 350 IF A$="*"THEN GOTO 10050
- 395 PRINT"[147]"
- 396 FORI=1 TO 20
- 397 PRINT"";A$
- 398 PRINT"[147]"
- 400 NEXT
- 500 PRINT"[147]":FORI=1TO 300:NEXT
- 610 INPUT "[195][207][210][210][197][195][212][160][211][208][197][204][204][201][206][199]";B$
- 650 COUNT=COUNT+1
- 700 IF B$=A$ THEN SUM=SUM+5:GOSUB5000:GOTO300
- 705 IF B$<>A$THENGOSUB 6000
- 710 SUM=SUM-1
- 750 IF COUNT=3 THEN 950
- 800 GOTO 395
- 925 PRINT"[147]"
- 930 GOTO261
- 940 PRINT"[147]"
- 950 PRINT "[195][207][210][210][197][195][212][160][211][208][197][204][204][201][206][199][160][201][211]: "A$
- 955 INPUT"[212][217][208][197][160][195][207][210][210][197][195][212][160][215][207][210][196]:";B$
- 956 IF B$<>A$THEN GOTO940
- 960 PRINT"PRESS ANY KEY TO CONTINUE"
- 980 GET Q$:IFQ$=""THEN GOTO980
- 990 PRINT"[147]"
- 1000 GOTO300
- 1200 PRINT"[212][193][203][197]
- 49568 [199][193][201][206]; [217]/[206]"
- 2000 REM: STUDY WORD ROUTINE
- 2050 PRINT"[147]"
- 2100 READA$
- 2200 PRINT"";A$
- 2250 IF A$="*"THEN GOTO261
- 2300 PRINT:PRINT:PRINT:PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217][160][212][207][160][211][197][197][160][206][197][216][212][160][215][207][210][196]"
- 2310 GETL$:IFL$=""THEN GOTO2310
- 2312 PRINT"[147]"
- 2400 (null) TO 2100
- 2500 PRINT"[147]":PRINT"[208][207][201][206][212] [193][215][193][210][196][211]"
- 2510 PRINT:PRINT:PRINT"[195][207][210][210][197][195][212][160][198][201][210][211][212][160][212][201][205][197] = +5[160][208][207][201][206][212][211]"
- 2520 PRINT:PRINT"[215][210][207][206][199][160][197][193][195][200][160][212][201][205][197][160]= -1 [208][207][201][206][212]"
- 2530 PRINT:::PRINT"[208][210][197][211][211][160][193][206][217] [203][197][217][160][212][207][160][194][197][199][201][206]"
- 2540 GET A$:IFA$=""THEN2540
- 2610 PRINT"[147]":GOTO279
- 5000 REM BELL SOUND
- 5010 POKE54296,15:POKE54277,0:POKE54278,247
- 5020 POKE54276,17:POKE54273,40:POKE54272,0
- 5030 FOR T=1TO500:NEXT:POKE54276,6
- 5040 PRINT"[147]":FORX=1TO6:PRINTTAB(17)"[210][201][199][200][212]!":FORY=1TO80:NEXT:PRINT"[147]"
- 5050 FORZ=1TO80:NEXT:NEXT:RETURN
- 6000 REM BUZZER
- 6010 POKE54296,15:POKE54277,45:POKE54268,165
- 6020 POKE54276,33:POKE54273,6:POKE54272,5
- 6030 FORT=1TO500:NEXT:POKE54276,32:POKE54273,0:POKE54272,0
- 6040 PRINT"[147]":FORX=1TO6:PRINTTAB(17)"[215][210][207][206][199]!":FORY=1TO80:NEXT:PRINT"[147]"
- 6050 FORZ=1TO80:NEXT:NEXT:RETURN
- 10000 DATA ACCIDENTALLY,ATTENDANCE,BENEFIT,CHARACTERISTIC,DENY,DOUBLE,ELABORATE
- 10001 DATA FICTITIOUS,GRACIOUS,HINDRANCE,IMMEDIATELY,INDUSTRY,LIEUTENANT,MANUAL
- 10002 DATA MARVELOUS,"[206]EGROS",OBLIQUE,OCCURANCE,PARALLEL,RECEIPT,*
- 10020 REM*
- 10794 MESSAGE ROUTINE*****
- 10050 IF SUM<75 THEN MSG$="YOU NEED TO STUDY YOUR WORDS"
- 10051 IF SUM>75 AND SUM<84 THEN MSG$="PRETTY GOOD JOB"
- 10052 IF SUM>84 AND SUM<94 THEN MSG$="REAL GOOD"
- 10053 IF SUM>94 AND SUM<100 THEN MSG$="ALMOST PERFECT"
- 10054 IF SUM>99 THENMSG$="PERFECT SCORE!! [200]OORAY!!!
- 10055 [153]"";MSG$
- 10058 [153]:[153]:[153]"(null)(null)(null)(null)CLOSE(null)LEN(null)(null)VALCLOSE(null)ATN(null)CLOSE";SUM
- 10060 [153]:[153]:[153]"TAKE TEST AGAIN? Y/N"
- 10350 [161]Z$:[139]Z$[178]""[167] 10350
- 10400 [139] Z$[178]"Y" [167] 261
- 10500 [153]"LOAD":[153]"SEE YOU LATER"
- 10600 [128]
-