Notes

Disk info for RIC_Programs_82.dsk:

File Name: riag_011_RIC_Programs_82/RIC_Programs_82.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 37376
Used Space (bytes): 105984
Physical Size (KB): 140
Free Space (KB): 36
Used Space (KB): 103
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 146
Used Sectors: 414
Tracks On Disk: 35
Sectors On Disk: 16



Text found in RIC_Programs_82.dsk/COLLEGE WORDS.txt:

47
53
TEXT
LANGUAGE
KLEENEX
UNIVERSITY
ANTHROPOLOGY
ENCYCLOPEDIA
TELESCOPE
MURAL
OUTLET
BYTE
DICTIONARY
VEHICLE
LIBRARY
TELEVISION
SOFTWARE
UTILITY
ZOOLOGY
COLLEGIATE
PASSIVE
PERFECT
AUTOMATIC
ALUMINIUM
ANTELOPE
PLANETARIUM
BUZZ
HARPSICHORD
WIZARD
GNOME
GUARD
CACTUS
YACHT
ROUX
ZERO
TROLL
HOLIDAY
TURKEY
CRYSTAL
XYLOPHONE
LARYNX
NOSTRIL
LYNX
TARNISH
NUMB
SQUARE
CAFE
VARSITY
ZULU
PACHYDERM
AEROBICS
GYMNASTICS
HORIZON
PROMISE
PADRE

Text found in RIC_Programs_82.dsk/COLOR ORGAN.bas:

0 REM ***************
1 REM AN ORGAN
2 REM BY ERIKA
6 REM ***************
7 REM
8 REM
9 REM WRITTEN IN APPLESOFT
10 REM WITH MACHINE LANGUAGE
11 REM SUBROUTINES
12 D$ = ""
13 PRINT D$;"BLOAD TONE ROUTINE,A$300"
14 REM
15 HOME
16 GOSUB 10000
19 HOME
20 GR
25 VTAB 22
30 GET A$
34 IF A$ = "Q" THEN TEXT : HOME : GOTO 11000
35 IF A$ = "A" OR A$ = "S" OR A$ = "D" OR A$ = "F" OR A$ = "G" OR A$ = "H" OR A$ = "J" OR A$ = "K" OR A$ = "L" THEN GOTO 1000
37 IF A$ = "W" OR A$ = "E" OR A$ = "R" OR A$ = "T" OR A$ = "Y" OR A$ = "U" OR A$ = "I" OR A$ = "O" THEN GOTO 1000
38 IF A$ = "Q" THEN GOTO 1000
999 REM POKES FOR THE TONES
1000 IF A$ = "A" THEN POKE 6,73: POKE 7,255: GOSUB 2000
1001 IF A$ = "E" THEN POKE 6,95: POKE 7,255: GOSUB 2000
1002 IF A$ = "S" THEN POKE 6,82: POKE 7,255: GOSUB 2000
1003 IF A$ = "W" THEN POKE 6,85: POKE 7,255: GOSUB 2000
1004 PRINT : PRINT " IF YOU GET TIRED OF IT, JUST PRESS THE 'Q' KEY, AND THE PROGRAM WILL END.....AUTOMATICALLY. SO, IF YOU'RE READY, HERE WE GO!!"
1005 IF A$ = "R" THEN POKE 6,115: POKE 7,255: GOSUB 2000
1006 IF A$ = "F" THEN POKE 6,100: POKE 7,255: GOSUB 2000
1007 IF A$ = "T" THEN POKE 6,125: POKE 7,255: GOSUB 2000
1008 IF A$ = "G" THEN POKE 6,115: POKE 7,255: GOSUB 2000
1009 IF A$ = "Y" THEN POKE 6,135: POKE 7,255: GOSUB 2000
1010 IF A$ = "H" THEN POKE 6,130: POKE 7,255: GOSUB 2000
1011 IF A$ = "U" THEN POKE 6,145: POKE 7,255: GOSUB 2000
1012 IF A$ = "J" THEN POKE 6,135: POKE 7,255: GOSUB 2000
1013 IF A$ = "I" THEN POKE 6,155: POKE 7,255: GOSUB 2000
1014 IF A$ = "K" THEN POKE 6,150: POKE 7,255: GOSUB 2000
1015 IF A$ = "O" THEN POKE 6,165: POKE 7,255: GOSUB 2000
1016 IF A$ = "L" THEN POKE 6,170: POKE 7,255: GOSUB 2000
1017 IF A$ = "Q" THEN POKE 6,82: POKE 7,255: GOSUB 2000
1998 GOTO 25
1999 REM PICS FOR THE TONES
2000 REM GRAPHICS MODE
2001 IF A$ = "A" THEN COLOR= 1: HLIN 1,39 AT 0: CALL 768: COLOR= 0: HLIN 1,39 AT 0
2002 IF A$ = "W" THEN COLOR= 2: HLIN 1,39 AT 3: CALL 768: COLOR= 0: HLIN 1,39 AT 3
2003 IF A$ = "S" THEN COLOR= 3: HLIN 1,39 AT 5: CALL 768: COLOR= 0: HLIN 1,39 AT 5
2004 IF A$ = "E" THEN COLOR= 4: HLIN 1,39 AT 8: CALL 768: COLOR= 0: HLIN 1,39 AT 8
2005 IF A$ = "D" THEN COLOR= 5: HLIN 1,39 AT 10: CALL 768: COLOR= 0: HLIN 1,39 AT 10
2006 IF A$ = "R" THEN COLOR= 6: HLIN 1,39 AT 13: CALL 768: COLOR= 0: HLIN 1,39 AT 13
2007 IF A$ = "F" THEN COLOR= 7: HLIN 1,39 AT 15: CALL 768: COLOR= 0: HLIN 1,39 AT 15
2008 IF A$ = "T" THEN COLOR= 8: HLIN 1,39 AT 18: CALL 768: COLOR= 0: HLIN 1,39 AT 18
2009 IF A$ = "G" THEN COLOR= 9: HLIN 1,39 AT 20: CALL 768: COLOR= 0: HLIN 1,39 AT 20
2010 IF A$ = "Y" THEN COLOR= 10: HLIN 1,39 AT 23: CALL 768: COLOR= 0: HLIN 1,39 AT 23
2011 IF A$ = "H" THEN COLOR= 11: HLIN 1,39 AT 25: CALL 768: COLOR= 0: HLIN 1,39 AT 25
2012 IF A$ = "U" THEN COLOR= 12: HLIN 1,39 AT 28: CALL 768: COLOR= 0: HLIN 1,39 AT 28
2013 IF A$ = "J" THEN COLOR= 13: HLIN 1,39 AT 30: CALL 768: COLOR= 0: HLIN 1,39 AT 30
2014 IF A$ = "I" THEN COLOR= 14: HLIN 1,39 AT 33: CALL 768: COLOR= 0: HLIN 1,39 AT 33
2015 IF A$ = "K" THEN COLOR= 15: HLIN 1,39 AT 35: CALL 768: COLOR= 0: HLIN 1,39 AT 35
2016 IF A$ = "O" THEN COLOR= 1: HLIN 1,39 AT 37: CALL 768: COLOR= 0: HLIN 1,39 AT 37
2017 IF A$ = "L" THEN COLOR= 2: HLIN 1,39 AT 39: CALL 768: COLOR= 0: HLIN 1,39 AT 39
2018 IF A$ = "Q" THEN COLOR= 13: HLIN 1,39 AT 0: CALL 768: COLOR= 0: HLIN 1,39 AT 0
3000 RETURN
10000 INPUT "DO YOU NEED INSTRUCTIONS ?";L$
10001 IF LEFT$(L$,1) < >"Y" THEN RETURN
10003 PRINT "THIS IS REALLY A VERY SIMPLE GAME.THE KEYBOARD ACTS AS AN ORGAN.WHEN YOU PRESS ONE OF THE SELECTED KEYS,YOU WILL SEE A BAR OF LIGHT AND HEAR A MUSICAL TONE."
10004 PRINT : PRINT " IF YOU GET TIRED OF IT,JUST PRESS THE 'Q' KEY,AND THE PROGRAM WILL END AUTOMATICALLY.SO,IF YOU'RE READY, HERE WE GO!"
10005 VTAB 22: PRINT "PRESS ANY KEY TO BEGIN ";: GET R$
10006 IF R$ = "Q" THEN 11000
10007 RETURN
11000 PR# 6

Text found in RIC_Programs_82.dsk/CURSORS.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 0C 00 20 00 47 00 59 00 5B 00 68 00 75 00 82 00 .. .G.Y. [.h.u...
$000010 95 00 9B 00 9B 00 9B 00 9B 00 00 00 00 00 00 00 ........ ........
$000020 09 2D 2D 15 3F 3F 3F 17 2D 2D 2D 2D 3E 3F 3F 3F .--.???. ---->???
$000030 37 2D 2D 2D 2D 3E 3F 3F 3F 37 2D 2D 2D 2D 1E 3F 7---->?? ?7----.?
$000040 3F 3F 0E 2D 2D 96 00 09 2D 2D 15 15 36 36 1E 1E ??.--... --..66..
$000050 3F 3F 1C 1C 24 24 0C 05 00 1D 00 36 36 36 2E 2D ??..$$.. ...666.-
$000060 2D 24 24 24 3C 3F 3F 00 12 36 36 2D 2D 25 24 3C -$$$ $000070 3F 3F 18 08 00 2E 68 49 29 B6 92 32 3F DB 1B 27 ??....hI )6.2?[.'
$000080 04 00 92 92 92 92 92 2D 2D 2D 2D 25 C0 C0 C0 C0 .......- ---%@@@@
$000090 C0 C0 C0 1B 00 2D 3E 37 2D 05 00 0D 16 1F 07 00 @@@..->7 -.......
$0000A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0000C0 00 00 00 00 00 00 00 00 A0 00 A5 3C C9 00 D0 02 ........ .%.@ %>I.P.F?
$0000E0 C6 3E A5 40 C9 00 D0 02 C6 41 C6 40 A5 3D C5 3F F>%@I.P. FAF@%=E?
$0000F0 D0 E2 A5 3C C5 3E D0 DC 60 D8 A0 00 4C 2C FE .. Pb%P\ `X .L,~
** END **

Text found in RIC_Programs_82.dsk/DISK FILE ROUTINES TUTORIAL.bas:

1 REM WRITTEN BY
2 REM JOHN FALUDI
10 D$ = CHR$(4)
20 HOME : VTAB 8
30 PRINT "SELECT OPTION BY NUMBER"
40 PRINT : PRINT
50 PRINT " 1. DEMONSTRATION RUN OF DISK COMMANDS"
60 PRINT : PRINT " 2. PROGRAM LISTINGS OF DISK COMMANDS"
70 PRINT : PRINT " 3. QUIT"
80 PRINT : PRINT
90 INPUT "SELECTION? ";I
100 ON I GOSUB 120,800,2220
110 GOTO 20
120 PRINT D$;"MON C,I,O"
130 FOR X = 1 TO 4: READ V(X),A(X),A$(X): NEXT
140 DATA 3,100,"OPEN TEST FILE"
150 DATA 4,110,"WRITE TEST FILE"
160 DATA 4,110,"READ TEST FILE"
170 DATA 6,130,"CLOSE TEST FILE"
180 TEXT : HOME
190 PRINT
200 GOTO 310
210 REM DISK COMMAND
220 VTAB V(X): PRINT A(X);: PRINT " PRINT D$;";: PRINT CHR$(34);: PRINT A$(X);: PRINT CHR$(34): NORMAL : RETURN
230 REM INPUT
240 VTAB 5: PRINT A(X);: PRINT " INPUT VAR$": NORMAL : RETURN
250 REM PRINT
260 VTAB 5: PRINT A(X);: PRINT " PRINT VAR$": NORMAL : RETURN
270 REM PRINTS COMMANDS
280 TEXT : HOME
290 X = 1: GOSUB 220:X = 2: GOSUB 220: GOSUB 260:X = 4: GOSUB 220: POKE 34,8: HOME : RETURN
300 REM WRITE TO DISK
310 COM$ = "W": GOSUB 280
320 PRINT : PRINT : PRINT "TYPE IN SOMETHING YOU WOULD LIKE TO "
330 PRINT "STORE TO DISK AND WATCH WHAT HAPPENS."
340 INPUT "ENTER IT HERE--> ";VAR$
350 HOME
360 PRINT "ABOVE, YOU SEE THE PROGRAM COMMANDS AS"
370 PRINT "THEY ARE EXECUTED, BELOW ARE THE "
380 PRINT "MONITOR COMMANDS AS THEY HAPPEN."
390 SPEED= 100
400 POKE 34,11: HOME
410 X = 1: INVERSE : GOSUB 220: VTAB 13
420 PRINT D$;"OPEN TEST FILE"
430 GOSUB 220:X = 2: INVERSE : GOSUB 220: VTAB 14
440 PRINT D$;"WRITE TEST FILE"
450 PRINT VAR$
460 GOSUB 220: INVERSE : GOSUB 260: VTAB 15
470 GOSUB 260:X = 4: INVERSE : GOSUB 220: VTAB 16
480 PRINT D$;"CLOSE TEST FILE"
490 GOSUB 220: VTAB 17
500 PRINT : PRINT
510 PRINT "YOUR VARIABLE IS NOW ON DISK!"
520 SPEED= 255
530 INPUT "NOW HIT RETURN AND WE WILL GET IT BACK.";I$
540 REM FETCH VARIABLE FROM DISK
550 TEXT : HOME
560 X = 1: GOSUB 220:X = 3: GOSUB 220: GOSUB 240:X = 4: GOSUB 220: POKE 34,8: HOME
570 PRINT "ABOVE, YOU SEE THE PROGRAM COMMANDS AS"
580 PRINT "THEY ARE EXECUTED, BELOW ARE THE"
590 PRINT "MONITOR COMMANDS AS THEY HAPPEN."
600 FOR Z = 1 TO 3500: NEXT
610 SPEED= 100
620 POKE 34,11: HOME
630 X = 1: INVERSE : GOSUB 220: VTAB 13
640 PRINT D$;"OPEN TEST FILE"
650 GOSUB 220:X = 3: INVERSE : GOSUB 220: VTAB 14
660 PRINT D$;"READ TEST FILE"
670 INPUT VAR$
680 GOSUB 220: INVERSE : GOSUB 240: VTAB 15
690 GOSUB 240:X = 4: INVERSE : GOSUB 220: VTAB 16
700 PRINT D$;"CLOSE TEST FILE"
710 GOSUB 220: VTAB 17
720 SPEED= 255
730 PRINT "YOUR VARIABLE IS NOW BACK FROM DISK!!"
740 PRINT "HERE IT IS--> ";VAR$
750 PRINT : PRINT "HIT RETURN TO SEE PROGRAM LISTINGS FOR"
760 PRINT "THE VARIOUS WAYS DISK COMMANDS CAN BE"
770 INPUT "USED TO STORE DATA. ";I$
780 TEXT : HOME
790 RETURN
800 HOME : VTAB 6
810 HTAB 8: INVERSE
820 PRINT "***---> DISK FILES <---***"
830 NORMAL
840 VTAB 10
850 PRINT " THIS PROGRAM WILL SHOW YOU LISTINGS"
860 PRINT "OF DISK COMMANDS USED IN PROGRAMS."
870 PRINT : PRINT " IT IS INTENDED TO SUPPLEMENT THE"
880 PRINT "INFORMATION IN THE DOS MANUAL."
890 VTAB 18: INPUT "HIT RETURN TO CONTINUE ";I$
900 REM
910 REM MAIN ROUTINE
920 REM
930 HOME : VTAB 4
940 PRINT "SELECT THE FILE TYPE TO VIEW BY NUMBER"
950 PRINT
960 HTAB 4: INVERSE
970 PRINT "***--> FILES WITHOUT LOOP <--***"
980 NORMAL
990 PRINT
1000 PRINT " 1. READ RANDOM ACCESS FILE"
1010 PRINT " 2. WRITE RANDOM ACCESS FILE"
1020 PRINT " 3. READ SEQUENTIAL FILE"
1030 PRINT " 4. WRITE SEQUENTIAL FILE"
1040 PRINT : PRINT
1050 HTAB 5: INVERSE
1060 PRINT "***---> FILES WITH LOOPS <---***"
1070 NORMAL : PRINT
1080 PRINT " 5. READ RANDOM ACCESS FILE"
1090 PRINT " 6. WRITE RANDOM ACCESS FILE"
1100 PRINT " 7. READ SEQUENTIAL FILE"
1110 PRINT " 8. WRITE SEQUENTIAL FILE"
1120 PRINT : PRINT " 9. QUIT PROGRAM"
1130 PRINT : INPUT "SELECTION? ";I
1140 HOME : VTAB 5
1150 ON I GOSUB 1190,1200,1210,1220,1230,1240,1250,1260,10
1160 PRINT : INPUT "WOULD YOU LIKE TO SEE ANOTHER? ";I$
1170 IF LEFT$(I$,1) = "Y" THEN GOTO 930
1180 GOTO 10
1190 LIST 1300,1410: RETURN
1200 LIST 1430,1540: RETURN
1210 LIST 1560,1630: RETURN
1220 LIST 1650,1720: RETURN
1230 LIST 1740,1860: RETURN
1240 LIST 1880,2000: RETURN
1250 LIST 2010,2100: RETURN
1260 LIST 2110,2200: RETURN
1270 REM
1280 REM PROGRAM LISTINGS
1290 REM
1300 REM
1310 REM READ RANDOM ACCESS FILE
1320 REM WITHOUT LOOP
1330 REM
1340 REM (X IS RECORD
1350 REM NUMBER IN THE
1360 REM FILE)
1370 REM
1380 PRINT D$;"OPEN ALPHA,L23"
1390 PRINT D$;"READ ALPHA,R"X
1400 INPUT STUFF$
1410 PRINT D$;"CLOSE ALPHA"
1420 REM
1430 REM
1440 REM WRITE TO RANDOM FILE
1450 REM WITHOUT LOOP
1460 REM
1470 REM (X IS RECORD
1480 REM NUMBER IN THE
1490 REM FILE)
1500 REM
1510 PRINT D$;"OPEN ALPHA,L23"
1520 PRINT D$;"WRITE ALPHA,R"17
1530 PRINT STUFF$
1540 PRINT D$;"CLOSE ALPHA"
1550 REM
1560 REM
1570 REM READ SEQUENTIAL FILE
1580 REM WITHOUT LOOP
1590 REM
1600 PRINT D$;"OPEN ALPHA"
1610 PRINT D$;"READ ALPHA"
1620 INPUT STUFF$
1630 PRINT D$;"CLOSE ALPHA"
1640 REM
1650 REM
1660 REM WRITE SEQUENTIAL FILE
1670 REM WITHOUT LOOP
1680 REM
1690 PRINT D$;"OPEN ALPHA"
1700 PRINT D$;"WRITE ALPHA"
1710 PRINT STUFF$
1720 PRINT D$;"CLOSE ALPHA"
1730 REM
1740 REM
1750 REM READ RANDOM FILE
1760 REM WITH LOOP
1770 REM
1780 REM (X SELECTS RECORD
1790 REM NUMBER IN FILE)
1800 REM
1810 PRINT D$;"OPEN ALPHA,L23"
1820 FOR X = 1 TO 15
1830 PRINT D$;"READ ALPHA,R"X
1840 INPUT STUFF$(X)
1850 NEXT
1860 PRINT D$;"CLOSE ALPHA"
1870 REM
1880 REM
1890 REM WRITE RANDOM FILE
1900 REM WITH LOOP
1910 REM
1920 REM (X SELECTS RECORD
1930 REM NUMBER IN FILE)
1940 REM
1950 PRINT D$;"OPEN ALPHA,L23"
1960 FOR X = 1 TO 15
1970 PRINT D$;"WRITE ALPHA,R"X
1980 PRINT STUFF$(X)
1990 NEXT
2000 PRINT D$;"CLOSE ALPHA"
2010 REM
2020 REM READ SEQUENTIAL FILE
2030 REM WITH LOOP
2040 REM
2050 PRINT D$;"OPEN ALPHA"
2060 PRINT D$;"READ ALPHA"
2070 FOR X = 1 TO 15
2080 INPUT STUFF$(X)
2090 NEXT
2100 PRINT D$;"CLOSE ALPHA"
2110 REM
2120 REM WRITE SEQUENTIAL FILE
2130 REM WITH LOOP
2140 REM
2150 PRINT D$;"OPEN ALPHA"
2160 PRINT D$;"WRITE ALPHA"
2170 FOR X = 1 TO 15
2180 PRINT STUFF$(X)
2190 NEXT
2200 PRINT D$;"CLOSE ALPHA"
2210 TEXT : HOME : RETURN
2220 TEXT : HOME : VTAB 12: PRINT "PROGRAM TERMINATED": PRINT CHR$(4);"RUN HELLO"

Text found in RIC_Programs_82.dsk/FUN WITH MATH.bas:

10 REM IMAGE MODULE-NEXTDATA MODULE
11 :
12 REM IMAGE SUBROUTINES + IMAGE LIBRARY
13 :
20 C = INT( RND(1) *15)
30 C1 = INT( RND(1) *15): IF C1 = C THEN 30
100 GR : HOME
105 COLOR= C: GOSUB 15500
110 X$ = "FUN"
120 XV = 5
130 XC(1) = C1
140 GOSUB 15300
150 X$ = "WITH"
160 XV = 15
170 GOSUB 15300
180 X$ = "MATH!"
190 XV = 25
200 GOSUB 15300
205 L = 0
210 FOR I = 1 TO 400: NEXT
215 SPEED= 100
230 HOME : PRINT "LET'S TRY SOME MATH PROBLEMS. WOULD YOULIKE ME TO CHOOSE THE NUMBERS? ";: GET A$: PRINT A$
237 IF A$ = "Y" THEN GOSUB 400: GOTO 450
240 GOSUB 400
250 SPEED= 100: HOME : INPUT "PLEASE ENTER YOUR FIRST NUMBER ";X1$: SPEED= 255
253 GR : HOME : COLOR= 5: GOSUB 15500
255 N1 = VAL(X1$)
260 XV = 1:XC(1) = 1
270 X$ = X1$: GOSUB 15300
283 X$ = AD$
285 XV = 11:XH = 1: GOSUB 15400
290 SPEED= 100: INPUT "PLEASE ENTER ANOTHER NUMBER ";X2$: SPEED= 255
300 N2 = VAL(X2$)
310 X$ = X2$:XV = 11: GOSUB 15300
320 EQ$ = "="
325 X$ = EQ$:XV = 19: GOSUB 15300
326 IF AD$ = "+" THEN N3 = N1 +N2
327 IF AD$ = "-" THEN N3 = N1 -N2
328 IF AD$ = "X" THEN N3 = N1 *N2
330 IF AD$ = "/" THEN N3 = N1/N2:N3 = INT(N3 *100 +.5)/100
340 GOSUB 700
370 SPEED= 100: HOME : PRINT "DO YOU WANT SOME MORE MATH PROBLEMS? ";: GET A$: PRINT A$: SPEED= 255
380 IF A$ = "Y" THEN T = 0: GOSUB 400: GOTO 250
385 SPEED= 100: HOME : PRINT "WOULD YOU LIKE ME TO PICK THE NUMBERS FOR YOU? ";: GET A$: PRINT A$: SPEED= 255
390 IF A$ = "Y" THEN GOSUB 400: GOTO 450
398 SPEED= 100: HOME : PRINT "THANK YOU FOR PLAYING WITH ME. SEE YOU SOON, I HOPE!": SPEED= 255: PRINT CHR$(4);"RUN HELLO"
400 HOME : PRINT "WOULD YOU LIKE (1) ADDITION, (2) SUBTRACTION, (3) MULTIPLICATION, OR (4) DIVISION ";: GET A$
410 A = VAL(A$): IF A >4 OR A <1 THEN 400
420 IF A = 1 THEN AD$ = "+"
430 IF A = 2 THEN AD$ = "-"
440 IF A = 3 THEN AD$ = "X"
442 IF A = 4 THEN AD$ = "/"
445 RETURN
450 HOME : PRINT "ENTER LEVEL OF DIFFICULTY (1 = EASIEST, 5 = HARDEST) ";: GET A$: PRINT A$
455 A = VAL(A$): IF A >5 OR A <1 THEN 450
460 IF A = 1 THEN H = 9
470 IF A = 2 THEN H = 20
480 IF A = 3 THEN H = 40
490 IF A = 4 THEN H = 60
500 IF A = 5 THEN H = 100
501 SPEED= 255
502 GR : HOME : COLOR= 13: GOSUB 15500
505 PRINT "JUST A MINUTE WHILE I THINK OF SOME NUMBERS.....": FOR I = 0 TO 1000: NEXT
510 N1 = INT((H -L +1) * RND(1)):X1$ = STR$(N1)
520 N2 = INT((H -L +1) * RND(1)):X2$ = STR$(N2): IF AD$ = "/" AND N2 <1 THEN 520
525 EQ$ = "="
527 IF AD$ = "+" THEN N3 = N1 +N2
529 IF AD$ = "-" THEN N3 = N1 -N2
530 IF AD$ = "X" THEN N3 = N1 *N2
532 IF AD$ = "/" THEN N3 = N1/N2:N3 = INT(N3 *100 +.5)/100: IF H = 20 AND N3 < > INT(N3) THEN 510
535 XH = 1:XC(1) = 8:XV = 15
540 X$ = X1$:XV = 1: GOSUB 15300
550 X$ = AD$:XV = 11:XH = 2: GOSUB 15400
560 X$ = X2$: GOSUB 15300
570 X$ = EQ$:XV = 19: GOSUB 15300
580 GOSUB 700
590 SPEED= 100: HOME : PRINT "WOULD YOU LIKE SOME MORE MATH PROBLEMS? ";: GET A$: PRINT A$: SPEED= 255
600 IF A$ = "Y" THEN GOSUB 400: GOTO 450
610 GOTO 398
700 SPEED= 100: HOME : INPUT "PLEASE ENTER THE CORRECT ANSWER ";X3$: SPEED= 255
705 T = T +1
710 X$ = X3$:XV = 24: GOSUB 15300
720 PRINT : PRINT : IF VAL(X3$) < >N3 THEN 740
730 SPEED= 100: HOME : PRINT "GREAT!! THAT'S THE ANSWER!!": PRINT : PRINT "PRESS RETURN TO CONTINUE.";: GET A$: SPEED= 255: RETURN
740 HOME : PRINT "THAT'S NOT THE RIGHT ANSWER.": IF T > = 4 THEN GOSUB 800
745 IF A = 1 THEN A = 0: RETURN
747 PRINT "PRESS ANY KEY TO CONTINUE.";: GET A$
750 GR : HOME : COLOR= 9: GOSUB 15500:XC(1) = 15
760 X$ = X1$:XV = 1: GOSUB 15300
770 X$ = AD$:XV = 11:XH = 2: GOSUB 15400
780 X$ = X2$: GOSUB 15300
790 X$ = EQ$:XV = 19: GOSUB 15300
795 GOTO 700
800 PRINT "DO YOU WANT ME TO TELL YOU THE RIGHT ANSWER? ";: GET A$: PRINT A$
810 IF A$ = "N" THEN 850
820 HOME : PRINT "THE CORRECT ANSWER IS ";N3: PRINT
830 T = 0:A = 1: PRINT "PRESS ANY KEY TO CONTINUE. ";: GET A$: RETURN
850 PRINT "LET'S TRY THIS PROBLEM AGAIN.": RETURN
14981 :
14982 :
14983 REM * DISPLAY IMAGE IS LO RES
14984 REM ENTRY XH H-POS OF UPPER LEFT HAND CORNER
14985 REM XV V-POS
14986 REM XA HORIZONTAL WIDTH
14987 REM XB VERTICAL HEIGHT
14988 REM READ NEXT DATA POINTER SET TO IMAGE
14989 REM COLORS SELECTED IN XC(1)
14990 REM GRAPHICS MODE SELECTED
14991 REM EXIT Z% 0 IMAGE FITS
14992 REM 1 ERROR - DOES NOT FIT
14999 :
15000 IF XH +XA >40 OR XV +XB >48 THEN Z% = 1: RETURN : REM ERROR - DOES NOT FIT
15010 Z1 = XV: REM FIRST V-POS
15020 REM INITIALIZATION UNNECESSARY - FIRST REFERENCE TO XC(1) CAUSES 'DIM XC(10)'
15030 READ Z$: IF Z$ = "-1" THEN Z% = 0: RETURN : REM CHECK IF DONE
15040 FOR Z = 1 TO LEN(Z$): REM PLOT EACH 1/9 CHARACTER
15050 Z% = ASC( MID$ (Z$,Z,1)) -48
15060 IF Z% > = 1 AND Z% < = 9 THEN COLOR= XC(Z%): PLOT XH +Z -1,Z1: REM PLOT DOT
15070 NEXT
15080 Z1 = Z1 +1: REM NEXT V-POS
15090 GOTO 15030
15092 :
15093 REM * GET IMAGE *
15094 REM ENTRY Z IMAGE #
15095 REM EXIT XA HORIZONTAL WIDTH
15096 REM XB VERTICAL HEIGHT
15097 REM READ DATA POINTER SET TO IMAGE
15098 :
15099 :
15100 Z = 20000 +100 *Z: GOSUB 19000: REM SET READ DATA POINTER
15110 READ XA,XB: REM FIRST TWO DATA ARE WIDTH AND HEIGHT
15120 RETURN
15191 :
15192 REM * DISPLAY ONE IMAGE *
15193 REM ENTRY Z IMAGE #
15194 REM XH H-POS OF ULHC
15195 REM XV V-POS
15196 REM COLORS SELECTED IN XC()
15197 REM EXIT Z% 0 IMAGE FITS
15198 REM 1 ERROR - DOES NOT FIT
15199 :
15200 GOSUB 15100: REM SET READ DATA POINTER
15210 GOTO 15000: REM DISPLAY IMAGE
15292 :
15293 REM * CENTER STRING OF IMAGES
15294 REM ENTRY X$ STRING
15295 REM XV V-POS OF ULHC
15296 REM COLORS SELECTED IN XC()
15297 REM EXIT Z% 0 IMAGES FIT
15298 REM 1 ERROR - DOES NOT FIT
15299 :
15300 IF LEN(X$) = 0 THEN RETURN : REM EMPTY
15310 IF XS = 0 THEN XS = 1: REM INITIALIZE SPACE BETWEEN IMAGES
15320 X1 = -XS: REM INITIALIZE LO RES WIDTH
15330 FOR X = 1 TO LEN(X$)
15340 Z = ASC( MID$ (X$,X,1)): GOSUB 15100: REM IMAGE #S IDENTICAL TO ASCII #S
15350 X1 = X1 +XA +XS: REM UPDATA LO RES WIDTH
15360 NEXT
15370 IF X1 >40 +XS THEN Z% = 1: RETURN : REM ERROR DOES NOT FIT
15380 XH = 19 - INT(X1/2): REM DISPLAY AT LEFT MARGIN
15390 :
15391 REM * DISPLAY STRING OF IMAGES *
15392 REM ENTRY X$ STRING
15393 REM XH H-POS OF ULHC
15394 REM XV V-POS
15395 REM COLORS SELECTED IN XC()
15396 REM EXIT XH UPDATED
15397 REM Z% 0 IMAGE FITS
15398 REM 1 ERROR - DOES NOT FIT
15399 :
15400 IF LEN(X$) = 0 THEN RETURN : REM EMPTY
15410 IF XS = 0 THEN XS = 2: REM INITIALIZE SPACE BETWEEN IMAGES
15420 FOR X = 1 TO LEN(X$)
15430 Z = ASC( MID$ (X$,X,1)): GOSUB 15200: REM DISPLAY ONE IMAGE
15440 XH = XH +XA +XS: REM UPDATE H-POS
15450 NEXT
15460 RETURN
15492 :
15493 REM * WASH 40X40 SCREEN IN ONE COLOR *
15494 REM ENTRY COLOR SET
15499 :
15500 Z = 39: REM HEIGHT
15510 FOR Z1 = 0 TO Z: HLIN 0,39 AT Z1: NEXT
15520 RETURN
18991 :
18992 :
18993 REM ** NEXT DATE FROM LINE # **
18994 REM ENTRY Z LINE NUMBER
18999 :
19000 IF YR% THEN 19200: REM CHECK IF NEXT DATE ROUTINE ALREADY LOADED
19010 YR% = 770: REM NEXT DATA ADDRESS
19097 :
19098 REM NEXT DATE ROUTINE WRITTEN IN MACHINE CODE
19099 :
19100 POKE 770,173: POKE 771,0: POKE 772,3: POKE 773,133: POKE 774,80: POKE 775,173: POKE 776,1: POKE 777,3
19110 POKE 778,133: POKE 779,81: POKE 780,32: POKE 781,26: POKE 782,214: POKE 783,165: POKE 784,155: POKE 785,24
19120 POKE 786,105: POKE 787,4: POKE 788,133: POKE 789,125: POKE 790,165: POKE 791,156: POKE 792,105: POKE 793,0
19130 POKE 794,133: POKE 795,126: POKE 796,96
19200 Z% = Z/256: POKE YR% -2,Z -256 *Z%: POKE YR% -1,Z%: REM LINE #
19210 CALL YR%
19220 RETURN
23300 DATA 3,7: REM ! EXCALMATION POINT
23310 DATA " 1"
23320 DATA " 1"
23330 DATA " 1"
23340 DATA " 1"
23350 DATA " 1"
23360 DATA " "
23370 DATA " 1"
23380 DATA "-1"
23900 DATA 3,3: REM ' APOSTROPHE
23910 DATA "11"
23920 DATA " 1"
23930 DATA "-1"
24300 DATA 5,7: REM PLUS SIGN
24310 DATA " "
24320 DATA " 1"
24330 DATA " 1"
24340 DATA "11111"
24350 DATA " 1"
24360 DATA " 1"
24370 DATA " "
24380 DATA "-1"
24500 DATA 5,3: REM DASH
24510 DATA " "
24520 DATA "11111"
24530 DATA " "
24540 DATA "-1"
24600 DATA 3,7: REM PERIOD OR DECIMAL POINT
24610 DATA " "
24620 DATA " "
24630 DATA " "
24640 DATA " "
24650 DATA " "
24660 DATA " "
24670 DATA " 1"
24680 DATA "-1"
24700 DATA 5,7: REM DIVISION SIGN
24720 DATA " 1"
24730 DATA " "
24740 DATA "11111"
24750 DATA " "
24760 DATA " 1"
24770 DATA "-1"
24800 DATA 5,7: REM 0
24810 DATA " 111"
24820 DATA "1 1"
24830 DATA "1 11"
24840 DATA "1 1 1"
24850 DATA "11 1"
24860 DATA "1 1"
24870 DATA " 111"
24880 DATA "-1"
24900 DATA 3,7: REM 1
24910 DATA " 1"
24920 DATA " 11"
24930 DATA " 1"
24940 DATA " 1"
24950 DATA " 1"
24960 DATA " 1"
24970 DATA " 111"
24980 DATA "-1"
25000 DATA 5,7: REM 2
25010 DATA " 111"
25020 DATA "1 1"
25030 DATA " 1"
25040 DATA " 11"
25050 DATA " 1"
25060 DATA "1"
25070 DATA "11111"
25080 DATA "-1"
25100 DATA 5,7: REM 3
25110 DATA "11111"
25120 DATA " 1"
25130 DATA " 1"
25140 DATA " 11"
25150 DATA " 1"
25160 DATA "1 1"
25170 DATA " 111"
25180 DATA "-1"
25200 DATA 5,7: REM 4
25210 DATA " 1"
25220 DATA " 11"
25230 DATA " 1 1"
25240 DATA "1 1"
25250 DATA "11111"
25260 DATA " 1"
25270 DATA " 1"
25280 DATA "-1"
25300 DATA 5,7: REM 5
25310 DATA "11111"
25320 DATA "1"
25330 DATA "1111"
25340 DATA " 1"
25350 DATA " 1"
25360 DATA "1 1"
25370 DATA " 111"
25380 DATA "-1"
25400 DATA 5,7: REM 6
25410 DATA " 111"
25420 DATA " 1"
25430 DATA "1"
25440 DATA "1111"
25450 DATA "1 1"
25460 DATA "1 1"
25470 DATA " 111"
25480 DATA "-1"
25500 DATA 5,7: REM 7
25510 DATA "11111"
25520 DATA " 1"
25530 DATA " 1"
25540 DATA " 1"
25550 DATA " 1"
25560 DATA "1"
25570 DATA "1"
25580 DATA "-1"
25600 DATA 5,7: REM 8
25610 DATA " 111"
25620 DATA "1 1"
25630 DATA "1 1"
25640 DATA " 111"
25650 DATA "1 1"
25660 DATA "1 1"
25670 DATA " 111"
25680 DATA "-1"
25700 DATA 5,7: REM 9
25710 DATA " 111"
25720 DATA "1 1"
25730 DATA "1 1"
25740 DATA " 1111"
25750 DATA " 1"
25760 DATA " 1"
25770 DATA "111"
25780 DATA "-1"
26100 DATA 9,3: REM EQUALS SIGN
26110 DATA " "
26120 DATA "111111111"
26130 DATA " "
26140 DATA "-1"
26500 DATA 5,7: REM A
26510 DATA " 1"
26520 DATA " 1 1"
26530 DATA "1 1"
26540 DATA "1 1"
26550 DATA "11111"
26560 DATA "1 1"
26570 DATA "1 1"
26580 DATA "-1"
27000 DATA 5,7: REM F
27010 DATA "11111"
27020 DATA "1"
27030 DATA "1"
27040 DATA "1111"
27050 DATA "1"
27060 DATA "1"
27070 DATA "1"
27080 DATA "-1"
27200 DATA 5,7:H
27210 DATA "1 1"
27220 DATA "1 1"
27230 DATA "1 1"
27240 DATA "11111"
27250 DATA "1 1"
27260 DATA "1 1"
27270 DATA "1 1"
27280 DATA "-1"
27300 DATA 3,7: REM I
27310 DATA "111"
27320 DATA " 1"
27330 DATA " 1"
27340 DATA " 1"
27350 DATA " 1"
27360 DATA " 1"
27370 DATA "111"
27380 DATA "-1"
27700 DATA 7,7: REM M
27710 DATA "1 1"
27720 DATA "11 11"
27730 DATA "1 1 1 1"
27740 DATA "1 1 1"
27750 DATA "1 1"
27760 DATA "1 1"
27770 DATA "1 1"
27780 DATA "-1
27800 DATA 5,7: REM N
27810 DATA "1 1"
27820 DATA "1 1"
27830 DATA "11 1"
27840 DATA "1 1 1"
27850 DATA "1 11"
27860 DATA "1 1"
27870 DATA "1 1"
27880 DATA "-1"
28400 DATA 5,7: REM T
28410 DATA "11111"
28420 DATA " 1"
28430 DATA " 1"
28440 DATA " 1"
28450 DATA " 1"
28460 DATA " 1"
28470 DATA " 1"
28480 DATA "-1"
28500 DATA 5,7: REM U
28510 DATA "1 1"
28520 DATA "1 1"
28530 DATA "1 1"
28540 DATA "1 1"
28550 DATA "1 1"
28560 DATA "1 1"
28570 DATA " 111"
28580 DATA "-1"
28700 DATA 7,7: REM W
28710 DATA "1 1"
28720 DATA "1 1"
28730 DATA "1 1"
28740 DATA "1 1 1"
28750 DATA "1 1 1 1"
28760 DATA "11 11"
28770 DATA "1 1"
28780 DATA "-1"
28800 DATA 5,7: REM X OR TIME SIGN
28810 DATA "1 1"
28820 DATA "1 1"
28830 DATA " 1 1"
28840 DATA " 1"
28850 DATA " 1 1"
28860 DATA "1 1"
28870 DATA "1 1"
28880 DATA "-1"

Text found in RIC_Programs_82.dsk/GRADES 1-4 WORDS.txt:

52
MOM
DOG
CAT
COW
TOY
SCHOOL
TOP
PLAY
BABY
FUN
DAY
NIGHT
CLOCK
CAR
PUPPY
FISH
BALL
TEACHER
DAD
CHURCH
SUNDAY
BOOK
HAND
FOOT
HEAD
BOY
GIRL
PET
INDIAN
THIS
DOWN
RIGHT
CHAIR
ZEBRA
FAIR
PURPLE
LYNX
FOUR
WHEN
FOREST
AIRPLANE
YES
UP
BOAR
ENTERTAIN
SEE
HAT
EGGS
LOVE
SISTER
HOUSE
CIRCUS

Text found in RIC_Programs_82.dsk/GRADES 5-8 WORDS.txt:

32
WORD
BOOK
PLAY
GAME
MOTHER
BROTHER
SISTER
FATHER
ADDITION
SUBTRACTION
DIVISION
MULTIPLY
LOCKER
NECKLACE
BRACELET
HOCKEY
SUMMER
SPORTS
PUPPY
FUDGE
CHOCOLATE
POPSICLE
COTTON
CHURCH
SUNDAY
MONDAY
FRIDAY
MOVIE
TELEVISION
FUN
SING
SONG

Text found in RIC_Programs_82.dsk/GRADES 9-12 WORDS.txt:

59
SCHOOL
STEREO
TELEVISION
TELEPHONE
GARBAGE
CHRISTMAS
ARITHMETIC
GEOMETRY
ALGEBRA
DEMOCRACY
HISTORY
PROM
FOOTBALL
BASKETBALL
TRACK
WRESTLING
ECONOMICS
CHEMISTRY
BIOLOGY
PHYSICS
MATHEMATICS
REPORT
SWIMMING
GYMNASTICS
TRIGONOMETRY
PRESIDENT
BAND
ART
ORCHESTRA
UMBRELLA
TOUCHDOWN
CHEER
UMPIRE
REFEREE
GYMNASIUM
HALLWAY
LOCKER
TENNIS
PIZZA
COKE
PINBALL
ARCADE
HAMBURGER
FRIES
SHAKE
SIXTEEN
DANCE
HOMECOMING
DRAMA
PHOTOGRAPHY
JOURNALISM
DEBATE
SKATEBOARD
MOVIE
AUTOMOBILE
WESTERN
DISCO
MUSIC
CASSETTE

Text found in RIC_Programs_82.dsk/HELLO.bas:

1 FOR A = 1 TO 500: NEXT A: TEXT : HOME
2 D$ = ""
107 HOME
110 PRINT "DO YOU WANT TO:": PRINT : PRINT : PRINT : PRINT
120 PRINT " 1. LOAD A PROGRAM": PRINT
130 PRINT " 2. RUN A PROGRAM": PRINT
140 PRINT " 3. END FOR NOW": PRINT
145 FLASH
150 INPUT "ENTER A NUMBER (1, 2, OR 3) ";A
155 NORMAL
160 IF A <1 THEN PRINT "NUMBER MUST BE GREATER THAN 0": FOR M = 1 TO 5000: NEXT M: HOME : GOTO 110
170 IF A >3 THEN PRINT "NUMBER MUST BE LESS THAN 3": FOR M = 1 TO 5000: NEXT M: HOME : GOTO 110
180 IF A = 1 THEN 1000
190 IF A = 2 THEN 1000
200 IF A = 3 THEN END
1000 HOME
1010 PRINT TAB( 18)"MENU"
1020 PRINT : PRINT : PRINT
1025 GOSUB 7000
1030 PRINT " 1. NIM"
1040 PRINT " 2. KALAH"
1050 PRINT " 3. APPLE MASTERMIND"
1060 PRINT " 4. COLOR ORGAN"
1070 PRINT " 5. VOCABULARY FLASH CARDS"
1080 PRINT " 6. APPLE HANGMAN"
1090 PRINT " 7. FUN WITH MATH"
1100 PRINT " 8. VAC MAN"
1120 PRINT " 9. DISK FILE ROUTINES TUTORIAL"
1130 PRINT " 10. ROMAN NUMBERS CONVERTER"
1140 PRINT : PRINT : INPUT "ENTER A NUMBER FROM 1 TO 10 ";B
1150 IF B <1 THEN PRINT "NUMBER LESS THAN 1--REENTER": FOR M = 1 TO 5000: NEXT M: GOTO 1000
1160 IF B >10 THEN PRINT "NUMBER GREATER THAN 10--REENTER": FOR M = 1 TO 5000: NEXT M: GOTO 1000
1165 D$ = ""
1170 IF A = 1 AND B = 1 THEN PRINT D$;"LOAD ";E$
1180 IF A = 1 AND B = 2 THEN PRINT D$;"LOAD ";F$
1190 IF A = 1 AND B = 3 THEN PRINT D$;"LOAD ";G$
1200 IF A = 1 AND B = 4 THEN PRINT D$;"LOAD ";H$
1300 IF A = 1 AND B = 5 THEN PRINT D$;"LOAD ";I$
1400 IF A = 1 AND B = 6 THEN PRINT D$;"LOAD ";J$
1500 IF A = 1 AND B = 7 THEN PRINT D$;"LOAD ";K$
1600 IF A = 1 AND B = 8 THEN PRINT D$;"LOAD ";L$
1610 IF A = 1 AND B = 9 THEN PRINT D$;"LOAD ";M$
1620 IF A = 1 AND B = 10 THEN PRINT D$;"LOAD ";N$
1630 IF A = 2 AND B = 1 THEN PRINT D$;"RUN ";E$
1640 IF A = 2 AND B = 2 THEN PRINT D$;"RUN ";F$
1650 IF A = 2 AND B = 3 THEN PRINT D$;"RUN ";G$
1660 IF A = 2 AND B = 4 THEN PRINT D$;"RUN ";H$
1670 IF A = 2 AND B = 5 THEN PRINT D$;"RUN ";I$
1680 IF A = 2 AND B = 6 THEN PRINT D$;"RUN ";J$
1690 IF A = 2 AND B = 7 THEN PRINT D$;"RUN ";K$
1700 IF A = 2 AND B = 8 THEN PRINT D$;"RUN ";L$
1710 IF A = 2 AND B = 9 THEN PRINT D$;"RUN ";M$
1720 IF A = 2 AND B = 10 THEN PRINT D$;"RUN ";N$
1730 END
7000 E$ = "NIM"
7010 F$ = "KALAH"
7020 G$ = "APPLE MASTERMIND"
7030 H$ = "COLOR ORGAN"
7040 I$ = "VOCABULARY FLASH CARDS"
7050 J$ = "APPLE HANGMAN"
7060 K$ = "FUN WITH MATH"
7070 L$ = "VAC-MAN"
7080 M$ = "DISK FILE ROUTINES TUTORIAL"
7090 N$ = "ROMAN NUMBERS CONVERTER"
7100 RETURN
7200 END
0
5220

Text found in RIC_Programs_82.dsk/KALAH INSTRUCTIONS.txt:

KALAH PAGE 1

KALAH IS AN ANCIENT GAME WHICH
ORIGINATED IN AFRICA AND THE MIDDLE-
EAST. IT IS PLAYED WIDELY UNDER MANY
NAMES WITH MANY VARIATIONS INCLUDING
THIS ONE.

THE GAME IS FOR TWO PLAYERS; ONE OF
WHICH MAY BE THE COMPUTER. EACH PLAYER
ASSUMES COMMAND OF SIX 'PITS' PLUS A
'HOME PIT'; EITHER WHITE OR BLACK.
WHITE ALWAYS GOES FIRST.

A CERTAIN NUMBER OF STICKS ARE PLACED
IN EACH PIT TO BEGIN THE GAME. TO WIN
A PLAYER MUST END THE GAME WITH MORE
STICKS IN HIS HOME PIT THAN HIS
OPPONENT HAS.




(N)EXT PAGE; (Q)UIT;
KALAH PAGE 2

PLAYERS ALTERNATE MOVES. A MOVE
CONSISTS OF CHOOSING A PIT OF YOUR
COLOR WITH STICKS IN IT. THE STICKS
ARE REMOVED AND DISTRIBUTED COUNTER-
CLOCK-WISE; ONE STICK DROPPED IN EACH
PIT.
EXCEPTION - NO STICK IS DROPPED IN THE
OPPONENT'S HOME PIT.

IF THE LAST STICK TO BE DROPPED IS
DROPPED IN YOUR OWN HOME PIT YOU GET
TO MOVE AGAIN.

A SPECIAL CASE OCCURS WHEN THE LAST
STICK TO BE DROPPED IS DROPPED IN ONE
OF YOUR OWN PITS THAT IS EMPTY AND THE
OPPOSITE PIT CONTAINS STICKS. THAT
STICK AND ALL THE ONES IN THE OPPOSITE
PIT WILL BE PLACED IN YOUR HOME PIT.


(N)EXT PAGE; (L)AST PAGE; (Q)UIT;
KALAH PAGE 3

NO STICKS ARE EVER REMOVED FROM A HOME
PIT.

THE GAME ENDS WHEN ONE PLAYER EMPTIES
ALL OF HIS PITS OR ALL OF HIS
OPPONENT'S PITS. IN EITHER CASE ALL
STICKS IN PLAY ARE MOVED TO THAT
PLAYER'S HOME PIT.

THE SCORE IS THE NUMBER OF STICKS IN
EACH HOME PIT. THE GREATER SCORE WINS.

**NOTE** ALL RESPONSES TO THIS PROGRAM
ARE SINGLE KEY-STROKE ENTRIES.
USE ONLY TO ENTER A MOVE.

THE 'S' KEY TURNS SOUND ON/OFF.
THE 'R' KEY IS USED TO RESIGN.



(L)AST PAGE; (Q)UIT;

Text found in RIC_Programs_82.dsk/KALAH.bas:

10 DIM P(14),T(2),CS(14),L$(72)
20 N0 = 0:N1 = 1:N2 = 2:N3 = 3:N4 = 4
25 N5 = 5:N6 = 6:N7 = 7:N8 = 8:N9 = 9
30 S = -16336:D$ = CHR$(4)
33 HOME : HTAB (14): VTAB (10): PRINT "PLEASE WAIT...": VTAB (23)
40 PRINT D$;"OPEN KALAH INSTRUCTIONS"
50 PRINT D$;"READ KALAH INSTRUCTIONS"
60 FOR I = N1 TO 72: INPUT L$(I): NEXT
70 PRINT D$;"CLOSE KALAH INSTRUCTIONS"
80 GOTO 1000
100 HCOLOR= N6
110 FOR Y = 20 TO 139: HPLOT 0,Y TO 279,Y: NEXT
120 FOR M = N1 TO N6: GOSUB 200: NEXT
130 FOR Y = 55 TO 104: HPLOT 224,Y TO 273,Y: NEXT
140 FOR M = N8 TO 13: GOSUB 200: NEXT
150 FOR Y = 55 TO 104: HPLOT 6,Y TO 55,Y: NEXT
160 RETURN
200 IF M >N7 GOTO 220
210 Y = 84:PI = M -1: HCOLOR= N7: GOTO 230
220 Y = 29:PI = 13 -M: HCOLOR= N4
230 X = 62 +(PI *27)
240 FOR PI = Y TO Y +46: HPLOT X,PI TO X +20,PI
250 NEXT
260 RETURN
300 X = 207 -((M -N8) *27)
310 Y = 14
320 HPLOT X,Y TO X +N6,Y -N6 TO X +N2,Y -N6 TO X +N2,Y -12 TO X -N2,Y -12 TO X -N2,Y -N6 TO X -N6,Y -N6 TO X,Y
330 RETURN
350 X = 72 +((M -N1) *27)
360 Y = 145
370 HPLOT X,Y TO X +N6,Y +N6 TO X +N2,Y +N6 TO X +N2,Y +12 TO X -N2,Y +12 TO X -N2,Y +N6 TO X -N6,Y +N6 TO X,Y
380 RETURN
400 I = H1
410 FOR K = N1 TO J:P(I) = P(I) +N1: GOSUB 500: NEXT
420 RETURN
500 IF I >N7 GOTO 550
510 HCOLOR= N4
520 IF I N5 GOTO 750
710 X = PX -N2:Y = PY +Y +N3
720 HPLOT X,Y TO X +16,Y
730 GOTO 790
750 X = PN: IF X >N5 THEN X = X -N5
760 X = ((X -N1) *N4) +PX:Y = PY +Y
770 HPLOT X,Y TO X,Y +N6
790 FOR PI = N1 TO 15:SS = PEEK(S): NEXT
791 RETURN
800 Y = P(I)
805 HCOLOR= N4: IF I 30 GOTO 840
830 X = PX:Y = INT(Y/10) *10: GOTO 850
840 X = PX +20:Y = ( INT(Y/10) -N4) *10
850 Y = PY +Y
860 FOR PJ = N0 TO N6
870 HPLOT X -N2,Y +PJ TO X +14,Y +PJ
880 NEXT PJ
890 IF PI = N1 THEN Y = P(I) -10
900 NEXT PI
905 HCOLOR= N7: IF I 13 THEN CK = CK -13
3110 IF CK = CI THEN CS(CJ) = 12: GOTO 3300
3120 IF P(CJ) >CI THEN CS(CJ) = N1: GOTO 3200
3130 CK = CJ +P(CJ):CL = 14 -CK: GOTO 3250
3200 IF P(CJ) = 13 THEN CS(CJ) = 10: GOTO 3300
3210 CK = CJ -(13 -P(CJ)):CL = 14 -CK
3220 IF CK N0) THEN CS(CJ) = P(CL) +N1
3300 IF P(CJ) CS(CI) THEN CI = CJ
3430 NEXT
3440 M = CI
3500 HCOLOR= N3: ON P0 GOSUB 350,300
3510 RETURN
4000 HOME : HTAB (11): VTAB (22)
4010 PRINT "<-- --> OR (RETURN)"
4020 M = N1: IF P0 = N2 THEN M = 13
4040 HCOLOR= N3: ON P0 GOSUB 350,300
4050 G = PEEK(49152)
4060 IF G <128 GOTO 4050
4070 POKE 49168,0
4080 IF G = 149 THEN ON P0 GOTO 4200,4250: REM -->
4090 IF G = 136 THEN ON P0 GOTO 4300,4350: REM <--
4100 IF G = 141 GOTO 4900: REM
4110 IF G = 211 GOTO 4400: REM SOUND
4115 IF G = 210 GOTO 4500: REM RESIGN
4120 PRINT CHR$(7): HTAB (1): VTAB (22): GOTO 4050
4200 IF M >N5 GOTO 4120
4210 HCOLOR= N0: GOSUB 350:M = M +N1
4220 HCOLOR= N3: GOSUB 350
4230 GOTO 4050
4250 IF M 12 GOTO 4120
4360 HCOLOR= N0: GOSUB 300:M = M +N1
4370 HCOLOR= N3: GOSUB 300
4380 GOTO 4050
4400 IF S = -16336 THEN S = 49152: GOTO 4050
4410 S = -16336: GOTO 4050
4500 HOME : HTAB (14): VTAB (22)
4510 IF P0 = N1 THEN PRINT "WHITE";: GOTO 4530
4520 PRINT "BLACK";
4530 PRINT " RESIGNS": PRINT "": GOTO 8090
4900 RETURN
5000 ON T(P0) GOSUB 4000,3000: REM GET A MOVE
5005 L5 = M
5010 IF P(M) >N0 GOTO 5100
5020 HOME : VTAB (23)
5030 PRINT "CHOOSE ONLY A PIT WITH STICKS IN IT!"
5035 FOR PAUSE = N1 TO 2000: NEXT
5040 HCOLOR= N0
5050 ON P0 GOSUB 350,300
5060 GOTO 5000
5100 I = M:J = P(M):P(M) = N0: GOSUB 200
5110 I = I +N1: IF I >14 THEN I = N1: REM NEXT PIT
5120 IF I = H2 GOTO 5110: REM SKIP OPPONENTS HOME PIT
5130 J = J -N1:P(I) = P(I) +N1
5140 GOSUB 500
5150 IF J >N0 GOTO 5110
5160 L0 = I
5500 FOR I = L1 TO L2: IF P(I) >N0 GOTO 5600
5510 NEXT
5520 FOR M = L3 TO L4
5530 IF P(M) >N0 THEN J = J +P(M):P(M) = N0: GOSUB 200
5540 NEXT
5550 GOSUB 400
5560 GOTO 8000
5600 IF L0 < >H1 GOTO 5700
5610 HOME : HTAB (9): VTAB (23)
5620 IF T(P0) = N1 THEN PRINT "YOU ";: GOTO 5630
5625 PRINT "I ";
5630 PRINT "GET TO MOVE AGAIN"
5640 FOR PAUSE = N1 TO 2000: NEXT
5650 HCOLOR= N0: ON P0 GOSUB 350,300
5660 GOTO 5000
5700 IF (L0 L2) GOTO 5900
5710 IF P(L0) < >N1 GOTO 5900
5720 IF P(14 -L0) = N0 GOTO 5900
5730 J = N1:P(L0) = N0:M = L0: GOSUB 200
5740 M = 14 -M:J = J +P(M):P(M) = N0: GOSUB 200
5750 GOSUB 400
5760 FOR I = L1 TO L2: IF P(I) >N0 GOTO 5830
5770 NEXT
5775 J = N0
5780 FOR M = L3 TO L4
5790 IF P(M) >N0 THEN J = J +P(M):P(M) = N0: GOSUB 200
5800 NEXT
5810 GOSUB 400
5820 GOTO 8000
5830 FOR I = L3 TO L4: IF P(I) >N0 GOTO 5900
5840 NEXT
5845 J = N0
5850 FOR M = L1 TO L2
5860 IF P(M) >N0 THEN J = J +P(M):P(M) = N0: GOSUB 200
5870 NEXT
5880 GOSUB 400
5890 GOTO 8000
5900 M = L5: HCOLOR= N0: ON P0 GOSUB 350,300
5910 M = L5: HCOLOR= N0: ON P0 GOSUB 350,300
5920 IF P0 = N1 GOTO 5950
5930 P0 = N1:L1 = N1:L2 = N6:H1 = N7:L3 = N8:L4 = 13:H2 = 14
5940 GOTO 5000
5950 P0 = N2:L1 = N8:L2 = 13:H1 = 14:L3 = N1:L4 = N6:H2 = N7
5960 GOTO 5000
8000 HOME : HTAB (6): VTAB (21)
8020 PRINT "BLACK - ";P(14);
8030 HTAB (26): PRINT "WHITE - ";P(N7)
8040 IF P(14) >P(N7) GOTO 8070
8050 IF P(N7) >P(14) GOTO 8080
8060 HTAB (19): PRINT "A TIE!": GOTO 8090
8070 HTAB (16): PRINT "BLACK WINS!": GOTO 8090
8080 HTAB (16): PRINT "WHITE WINS!"
8090 PRINT "HIT RETURN ";: GET R$
8110 TEXT : HOME : VTAB (10)
8120 PRINT "WOULD YOU LIKE TO PLAY AGAIN? ";
8130 GET R$: IF R$ = "Y" GOTO 1010
8140 GOTO 9999
9000 TEXT : HOME
9010 HTAB (12): VTAB (7): PRINT "W E L C O M E"
9020 HTAB (17): VTAB (9): PRINT "T O"
9030 HTAB (14): VTAB (11): PRINT "K A L A H"
9040 HTAB (11): VTAB (14): PRINT "BY: DAVID"
9050 HTAB (15): PRINT "GRIEBELBAUER"
9060 VTAB (23): PRINT "DO YOU WANT INSTRUCTIONS? (Y FOR YES) ";
9070 GET R$: IF R$ < >"Y" GOTO 9900
9100 HOME : HTAB (18): PRINT L$(N1)
9110 FOR I = N2 TO 23: PRINT L$(I): NEXT
9120 PRINT L$(24);
9125 GET R$
9130 IF R$ = "Q" GOTO 9900
9140 IF R$ = "N" GOTO 9200
9150 PRINT CHR$(N7);: GOTO 9125
9200 HOME : HTAB (18): PRINT L$(25)
9210 FOR I = 26 TO 47: PRINT L$(I): NEXT
9220 PRINT L$(48);
9225 GET R$
9230 IF R$ = "Q" GOTO 9900
9240 IF R$ = "N" GOTO 9300
9250 IF R$ = "L" GOTO 9100
9260 PRINT CHR$(N7);: GOTO 9225
9300 HOME : HTAB (18): PRINT L$(49)
9310 FOR I = 50 TO 71: PRINT L$(I): NEXT
9320 PRINT L$(72);
9325 GET R$
9330 IF R$ = "Q" GOTO 9900
9340 IF R$ = "L" GOTO 9200
9350 PRINT CHR$(N7);: GOTO 9325
9900 RETURN
9999 HOME : PR# 6

Text found in RIC_Programs_82.dsk/LOGO.bas:

50 FLAG = 0
51 FT$(1) = ""
52 FT$(2) = "]SMALL STANDARD"
53 FT$(3) = "]WESTERN"
54 UL$ = "@"
55 ONERR GOTO 450
56 GOTO 170
90 T$ = "":LC = 0: FOR I = 1 TO LEN(A$):J = ASC( MID$ (A$,I,1)): IF J < >UL THEN T$ = T$ + CHR$(J +LC *(J >63 AND J <96)): NEXT :A$ = T$: GOTO 100
95 LC = LC +32 -64 *(LC = 32): NEXT :A$ = T$
99 REM PRINT ROUTINE:
100 POKE 232,L1(FT): POKE 233,L2(FT): IF LEN(FT3$) THEN PRINT D$;"BLOAD ";FT3$;",A";LOC(3):FT$(3) = FT3$:FT3$ = "": RETURN
105 X = 7 *HT -6:Y = 8 *VT -8: ROT= RT *16: IF CL <8 THEN BG = CL: HCOLOR= BG:CL = 8: HPLOT 0,0: CALL 62454:VT = 1:HT = 1:FT = 1: RETURN
110 IF CT THEN X = 0:YT = 176:XR = 0: HCOLOR= BG: FOR Z = 1 TO LEN(A$): DRAW ASC( MID$ (A$,Z,1)) -T1 AT X,YT: DRAW 99: CALL 62923:XR = XR + PEEK(224): NEXT :X = (280 -XR)/2
120 HCOLOR= HC: DRAW 100 AT X,Y: FOR Z = 1 TO LEN(A$): DRAW ASC( MID$ (A$,Z,1)) -T1: XDRAW 99: NEXT : CALL 62923:XO = X:X = PEEK(224) + PEEK(225) *TF:CT = 0:RT = 0:HT = (X +6)/7: IF NOT (IN) THEN RETURN
130 POKE 232,0: POKE 233,64:XR = X:YB = 8 * PEEK(LO(FT) +1):SC = XR -XO: IF SC <256 THEN SCALE= SC: ROT= 0: FOR I = Y -(Y >0) TO Y +YB: XDRAW 3 AT XO,I: NEXT : GOTO 150
140 SCALE= YB: ROT= 16: FOR I = X TO XR: XDRAW 3 AT I,Y: NEXT
150 ROT= 0: SCALE= 1:IN = 0: RETURN
170 SCALE= 1: ROT= 0:CL = 8: HCOLOR= 3:TF = 256:T1 = 31:TXT = 49235:FULL = 49234:HIRES = 49232:UL = ASC(UL$):G$ = CHR$(7):D$ = CHR$(13) + CHR$(4)
180 J = 768: FOR I = 1 TO 3:LOC(I) = PEEK(J) + PEEK(J +1) *256:L1(I) = PEEK(J):L2(I) = PEEK(J +1):J = J +2: NEXT : REM STORE.FONT.LOCATIONS
190 REM FONT LOAD ROUTINE:
200 IF FLAG >0 THEN 500
220 PRINT D$;"BLOAD CURSORS,A16384":LOC(1) = 16640: FOR I = 1 TO 3
230 IF LEN(FT$(I)) THEN PRINT D$;"BLOAD ";FT$(I);",A";LOC(I)
240 LOC(I +1) = LOC(I) + PEEK(43616) + PEEK(43617) *256: NEXT
250 J = 768: FOR I = 1 TO 3:X = LOC(I): POKE J,X - INT(X/256) *256:L1(I) = PEEK(J): POKE J +1, INT(X/256):L2(I) = PEEK(J +1):J = J +2: NEXT : GOTO 500
399 REM HT CALCULATOR:
400 TEXT : VTAB 24: PRINT :Q$ = CHR$(34): PRINT "CENTER FINDER": PRINT "-------------": PRINT "FONT: ";FT: PRINT "COPY: "Q$A$Q$:X = 0:YT = 176:XR = 0: HCOLOR= BG: PRINT : POKE 232, PEEK(766 +2 *FT): POKE 233, PEEK(767 +2 *FT)
405 IF NOT LEN(A$) OR (FT <1 OR FT >3) THEN PRINT CHR$(7);"SPECIFY FONT NUMBER (FT=#)": PRINT "AND COPY (A$="Q$"WORDS"Q$"),": PRINT "AND GOTO 400 AGAIN.": VTAB 11: PRINT "FOR EXAMPLE, TYPE:": PRINT : PRINT "FT=1:A$="Q$"TITLE"Q$":GOTO 400": END
410 FOR I = 1 TO LEN(A$): DRAW ASC( MID$ (A$,I,1)) -31 AT X,YT: DRAW 99: CALL 62923:XR = XR + PEEK(224): NEXT :X = (280 -XR)/2:HT = (X +6)/7: PRINT "FOR HTAB, LET HT="; INT(HT *10)/10: IF HT <1 THEN FLASH : VTAB 7: PRINT CHR$(7)" COPY TOO LONG ";: CALL -958
420 NORMAL : END
450 LINE = PEEK(218) + PEEK(219) *256:TYPE = PEEK(222): HOME : POKE TXT,0: VTAB 21: IF TYPE <255 THEN PRINT CHR$(7);"CODE-";TYPE;" ERROR IN LINE #";LINE: END
499 REM MAIN PROGRAM:
500 HC = 3:HT = 1:VT = 1:FT = 1:CT = 0:IN = 0:CL = 8:RT = 0:FT3$ = "": HGR : POKE FULL,0: REM STARTING DEFAULTS
514 HT = 14:VT = 4:FT = 3:A$ = "P": GOSUB 100
516 HT = 16:VT = 6:FT = 3:A$ = "M": GOSUB 100
518 HT = 18:VT = 8:FT = 3:A$ = "Enterprises": GOSUB 100
519 HT = 3:VT = 19:FT = 2:A$ = "Copying or Reproduction of any part of": GOSUB 100
520 CT = 1:VT = 20:FT = 2:A$ = "The Disk Management Program is Prohibited": GOSUB 100
530 HT = 3:VT = 21:FT = 2:A$ = "Copyright (c) 1983. P.M. Enterprises All": GOSUB 100
535 VT = 22:HT = 3:FT = 2:A$ = "Rights Reserved.": GOSUB 100
600 FOR CT = 1 TO 8000: NEXT CT: TEXT : HOME : PRINT CHR$(4);"RUN HELLO"

Text found in RIC_Programs_82.dsk/NIM.bas:

1 GOTO 10
2 CALL 768: RETURN
10 ZP = 49200
11 GOSUB 50010
20 DIM WP(14,3),FM(5,2),SW(3),PO(3),R3(3),R4(3)
25 DIM N$(2),TP(2)
30 GOSUB 9000: GOTO 4000
999 REM SQUARE DISAPPEAR ROUTINE
1000 FOR I = 9 TO 3 STEP -2
1010 X1 = X1 +1:Y1 = Y1 -1
1015 REM
1020 SCALE= I
1030 GOSUB 2: XDRAW 1 AT X2,Y2: GOSUB 2: XDRAW 2 AT X2,Y2
1040 SCALE= I -2
1050 GOSUB 2: XDRAW 1 AT X1,Y1: GOSUB 2: XDRAW 2 AT X1,Y1
1060 X2 = X1:Y2 = Y1
1070 NEXT
1080 GOSUB 2: XDRAW 2 AT X1,Y1
1099 REM FLASH SQUARE
1100 FOR J = 1 TO 5
1110 REM
1120 GOSUB 2: XDRAW 1 AT X1,Y1
1125 GOSUB 2: XDRAW 2 AT X1,Y1
1130 NEXT
1199 REM EXPAND AGAIN
1200 FOR I = 3 TO 9 STEP 2
1210 X1 = X1 -1:Y1 = Y1 +1
1215 REM
1220 SCALE= I -2
1230 GOSUB 2: XDRAW 2 AT X2,Y2
1240 SCALE= I
1250 GOSUB 2: XDRAW 2 AT X1,Y1
1260 X2 = X1:Y2 = Y1
1270 NEXT
1280 REM
1290 GOSUB 2: XDRAW 2 AT X1,Y1
1295 RETURN
1498 REM CALCULATE BASE POINT (X,Y)
1499 REM FOR RIGHTMOST SQUARE IN ROW R
1500 J = (R -1) *50:I = (PO(R) -1) *40
1505 X1 = I +15:Y1 = J +30
1510 X2 = I +15:Y2 = J +30
1598 REM PLOT THE CRUSHER, FULL SIZE,
1599 REM AT X1,Y1
1600 SCALE= 9: GOSUB 2: XDRAW 2 AT X1,Y1
1610 RETURN
2000 REM DECIDE IF IT IS THE FIRST MOVE
2010 IF MN >1 THEN GOTO 2030
2020 RN = INT( RND(1) *5) +1:R = FM(RN,1):RN = FM(RN,2): RETURN
2030 REM FIND GOOD MOVE
2040 FOR X = 1 TO WM
2050 FOR W = 1 TO 3:R3(W) = 0:R4(W) = 0: NEXT W
2060 FOR Y = 1 TO 3
2070 FOR Z = 1 TO 3
2080 IF R3(Z) >0 THEN GOTO 2120
2090 IF PO(Y) = WP(X,Z) THEN R3(Z) = Y:R4(Y) = Z: GOTO 2130
2120 NEXT Z
2130 NEXT Y
2132 C = 0:R5 = 6:R6 = 6
2134 FOR W = 1 TO 3
2135 R6 = R6 -R4(W)
2136 IF R3(W) >0 THEN C = C +1:R5 = R5 -R3(W): GOTO 2140
2140 NEXT W
2142 IF C = 2 THEN R = R5:RN = PO(R) -WP(X,R6): IF RN >0 THEN RETURN
2150 NEXT X
2160 R = INT( RND(1) *4)
2170 IF PO(R) = 0 THEN GOTO 2160
2180 RN = INT( RND(1) *PO(R)) +1: RETURN
4000 HOME : VTAB (7)
4010 PRINT "ENTER THE NUMBER OF PLAYERS (1 OR 2) ";: GET R$
4020 IF R$ = "1" GOTO 4100
4030 IF R$ = "2" GOTO 4200
4040 PRINT CHR$(7): GOTO 4000
4100 HOME : VTAB (7)
4110 PRINT "PLEASE ENTER YOUR NAME..."
4120 INPUT N$(1)
4130 HOME : VTAB (7)
4140 PRINT "DO YOU WANT TO GO FIRST? (Y FOR YES) ";: GET R$
4150 IF R$ < >"Y" GOTO 4180
4160 TP(1) = 1:TP(2) = 2:N$(2) = "THE COMPUTER"
4170 GOTO 4500
4180 TP(1) = 2:TP(2) = 1:N$(2) = N$(1):N$(1) = "THE COMPUTER"
4190 GOTO 4500
4200 TP(1) = 1:TP(2) = 1: HOME : VTAB (7)
4210 PRINT "PLEASE ENTER THE NAME"
4220 PRINT "OF THE PLAYER TO GO FIRST..."
4230 INPUT N$(1)
4240 HOME : VTAB (7)
4250 PRINT "PLEASE ENTER THE NAME"
4260 PRINT "OF THE PLAYER TO GO SECOND..."
4270 INPUT N$(2)
4500 GOSUB 9600
4505 P = 1:MN = 1
4510 HOME : VTAB (21)
4520 PRINT N$(P);"'S TURN..."
4525 ON TP(P) GOSUB 5100,5500
4530 IF (PO(1) = 0) AND (PO(2) = 0) AND (PO(3) = 0) THEN ON TP(P) GOTO 6500,6000
4540 P = P +1: IF P >2 THEN P = 1
4550 MN = MN +1: GOTO 4510
5100 Q1 = 0: PRINT ""
5110 PRINT "ENTER THE ROW OF YOUR CHOICE (1-3) ";
5115 GET R$
5120 IF R$ = "1" THEN R = 1: GOTO 5200
5130 IF R$ = "2" THEN R = 2: GOTO 5200
5140 IF R$ = "3" THEN R = 3: GOTO 5200
5150 PRINT CHR$(7);: REM BELL
5160 HTAB (36): VTAB (23): GOTO 5115
5199 REM OR
5200 IF PO(R) = 0 GOTO 5150
5202 HOME : VTAB (21)
5210 PRINT " TO REMOVE THE INDICATED PIECE"
5220 PRINT " TO END THE MOVE"
5225 GOSUB 1500
5230 GET R$
5240 IF R$ = CHR$(13) GOTO 5300: REM
5250 IF R$ = CHR$(27) GOTO 5400: REM
5260 PRINT CHR$(7);: REM BELL
5270 HTAB (1): GOTO 5230
5299 REM - REMOVE THE SQUARE
5300 PO(R) = PO(R) -1
5305 Q1 = Q1 +1
5310 GOSUB 1000
5320 IF PO(R) < >0 THEN HTAB (1): GOTO 5225
5325 RETURN
5399 REM - CHECK THAT SOME WERE TAKEN
5400 IF Q1 = 0 THEN HOME : VTAB (21): GOSUB 1600: GOTO 5100
5405 GOSUB 1600
5410 RETURN
5499 REM COMPUTER MOVE
5500 GOSUB 2000: REM GET R & RN
5501 FOR W = 1 TO 1000
5502 HOME : VTAB (21)
5504 PRINT "I CHOOSE TO TAKE ";RN;" FROM ROW ";R
5508 FOR W = 1 TO 600
5510 FOR IJ = 1 TO RN
5520 GOSUB 1500
5525 PO(R) = PO(R) -1: GOSUB 1000
5530 NEXT IJ
5547 REM
5550 RETURN
5560 GOTO 5500
5999 REM COMPUTER LOST
6000 HOME : VTAB (21)
6010 PRINT "SO I LOST...BIG DEAL!"
6020 INPUT "DO YOU DARE TRY AGAIN? (Y FOR YES) ";R$
6030 IF R$ = "Y" THEN TEXT : GOTO 4000
6040 GOTO 7000
6099 REM HUMAN LOST
6500 HOME : VTAB (21)
6510 IF (P = 1) AND (TP(2) = 2) GOTO 6600
6515 IF (P = 2) AND (TP(1) = 2) GOTO 6600
6520 P = P -1: IF P <1 THEN P = 2
6530 PRINT N$(P);" WON! WELL DONE!"
6540 GOTO 6610
6600 PRINT "I WON YET AGAIN!"
6610 INPUT "DO YOU WANT ANOTHER GAME? (Y FOR YES) ";R$
6620 IF R$ = "Y" THEN TEXT : GOTO 4000
6630 GOTO 7000
7000 TEXT : HOME : PRINT CHR$(4);"RUN HELLO"
9000 TEXT : HOME
9010 HTAB (12): VTAB (7): PRINT "W E L C O M E"
9020 HTAB (17): VTAB (9): PRINT "T O"
9030 HTAB (16): VTAB (11): PRINT "N I M"
9040 VTAB (15): PRINT "BY: DAVID GRIEBELBAUER"
9050 HTAB (5): PRINT "DON SONOM"
9060 VTAB (23): PRINT "DO YOU WANT INSTRUCTIONS? (Y FOR YES) ";
9070 GET R$: IF R$ < >"Y" GOTO 9300
9080 HOME : HTAB (18): PRINT "N I M"
9090 PRINT "": PRINT "NIM IS A SIMPLE GAME FOR TWO PLAYERS;"
9100 PRINT "ONE OF WHICH MAY BE THE COMPUTER."
9110 PRINT "PLAYERS ALTERNATE REMOVING SQUARES FROM"
9120 PRINT "THE SCREEN. THE PLAYER WHO REMOVES THE"
9130 PRINT "LAST SQUARE LOSES."
9140 PRINT "": PRINT "ANY NUMBER OF SQUARES MAY BE REMOVED"
9150 PRINT "FROM A SINGLE ROW. ROW ONE IS AT THE"
9160 PRINT "TOP; ROW THREE IS AT THE BOTTOM."
9170 PRINT "": PRINT "ALL INPUT TO THE COMPUTER WILL BE"
9180 PRINT "SINGLE KEY-STROKE ENTRIES. USE THE"
9190 PRINT " KEY ONLY TO REMOVE A SQUARE"
9200 PRINT "FROM THE SCREEN."
9210 VTAB (23): PRINT "HIT THE KEY TO START THE GAME ";
9220 GET R$
9299 REM WINNING POSITIONS AND GOOD FIRST MOVES
9300 DATA 0,0,1,0,2,2,0,3,3,0,4,4,0,5,5,1,1,1,1,2,3,1,4,5,2,4,6
9305 DATA 1,2,1,1,3,3,3,1,2,1
9310 WM = 9
9320 FOR X = 1 TO WM
9330 FOR Y = 1 TO 3: READ WP(X,Y): NEXT
9340 NEXT
9350 FOR X = 1 TO 5
9360 FOR Y = 1 TO 2: READ FM(X,Y): NEXT
9370 NEXT
9499 REM ALL GRAPHICS INITIALIZATION
9500 DATA 19,2,0,6,0,9,0,44 , 62,0,58,4,32,37 ,53,181,62,62,4,0
9510 READ I
9520 FOR J = 16384 TO 16384 +I -1
9530 READ K: POKE J,K
9540 NEXT
9550 POKE 232,0: POKE 233,64: REM SHAPE TABLE IS AT THE TOP OF SCREEN #2
9560 RETURN
9599 REM SET UP SCREEN
9600 HGR : HCOLOR= 3: ROT= 0: SCALE= 9
9610 PO(1) = 3:PO(2) = 5:PO(3) = 7
9620 FOR R = 1 TO 3
9630 FOR K = 1 TO PO(R)
9640 J = (R -1) *50:I = (K -1) *40
9650 X1 = I +15:Y1 = J +30
9655 GOSUB 2: XDRAW 1 AT X1,Y1
9660 NEXT K
9670 NEXT R
9990 RETURN
50010 POKE 768,169: POKE 769,16: POKE 770,32: POKE 771,168: POKE 772,252: POKE 773,160: POKE 774,19: POKE 775,169: POKE 776,4: POKE 777,32: POKE 778,168: POKE 779,252: POKE 780,173: POKE 781,48: POKE 782,192: POKE 783,136: POKE 784,208: POKE 785,245: POKE 786,96: RETURN

Text found in RIC_Programs_82.dsk/ROMAN NUMBERS CONVERTER.bas:

1 REM PROGRAM STARTS AT LINE 800
2 REM PROGRAM IS SET FOR PRINTER IN SLOT #1. LINE 860 MUST BE CHANGED IF YOUR PRINTER IS IN ANOTHER SLOT
3 REM PROGRAM WRITTEN BY NELSON GOTHIE BOX 42 BREEZEWOOD, PENNA., 15533 NOVEMBER 1979. PHONE 814-735-4553
800 TEXT : HOME : VTAB 5: PRINT "THIS PROGRAM CONVERTS ARABIC NUMBERS TO ROMAN NUMERALS"
810 PRINT : PRINT "YOU MUST ENTER THE FIRST AND LAST NUMBERYOU WISH TO CONVERT. TO GET JUST ONE NUMBER ENTER IT AS FIRST AND LAST"
820 PRINT : PRINT "THE NUMBER CANNOT BE LARGER THAN 1999"
825 PRINT
830 INPUT "ENTER THE SMALLER NUMBER ";SN
835 PRINT
840 INPUT "ENTER THE LARGER NUMBER ";LN
850 PRINT : PRINT "DO YOU WISH A PRINT? Y/N": INPUT Q$
860 IF Q$ = "Y" THEN PR# 1
870 PRINT
900 FOR Z = SN TO LN
910 X = Z
1010 IF X <1000 THEN 1100
1020 RN$ = "M":X = X -1000
1100 IF X <900 THEN 1150
1110 RN$ = RN$ +"CM"
1115 X = X -900
1150 IF X <500 THEN 1167
1160 RN$ = RN$ +"D":X = X -500
1167 IF X <400 THEN 1170
1168 RN$ = RN$ +"CD":X = X -400
1170 Y = INT(X/100)
1175 IF Y <1 THEN 1200
1180 FOR I = 1 TO Y
1190 RN$ = RN$ +"C":X = X -100: NEXT I
1200 IF X <90 THEN 1250
1210 RN$ = RN$ +"XC":X = X -90
1250 IF X <50 THEN 1275
1260 RN$ = RN$ +"L":X = X -50
1275 IF X <40 THEN 1300
1280 RN$ = RN$ +"XL":X = X -40
1300 IF X <10 THEN 1350
1310 Y = INT(X/10)
1320 FOR I = 1 TO Y
1330 RN$ = RN$ +"X":X = X -10: NEXT I
1350 IF X <9 THEN 1370
1360 RN$ = RN$ +"IX":X = X -9
1370 IF X <5 THEN 1400
1380 RN$ = RN$ +"V":X = X -5
1400 IF X <4 THEN 1430
1410 RN$ = RN$ +"IV":X = X -4
1430 IF X = 0 THEN 1450
1440 Y = X: FOR I = 1 TO Y:RN$ = RN$ +"I":X = X -1: NEXT I
1450 PRINT RN$,
1455 RN$ = ""
1460 NEXT Z
1470 PR# 0
1480 PRINT : PRINT "END": PR# 6

Text found in RIC_Programs_82.dsk/SHAPES.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 3B 00 78 00 7A 00 7C 00 7E 00 80 00 82 00 90 00 ;.x.z.|. ~.......
$000010 92 00 94 00 9C 00 A4 00 A6 00 AE 00 B0 00 B5 00 ......$. &...0.5.
$000020 B9 00 C1 00 D0 00 D8 00 E4 00 EF 00 F9 00 05 01 9.A.P.X. d.o.y...
$000030 11 01 1B 01 28 01 32 01 34 01 36 01 3F 01 48 01 ....(.2. 4.6.?.H.
$000040 51 01 53 01 55 01 62 01 6F 01 79 01 84 01 90 01 Q.S.U.b. o.y.....
$000050 99 01 A4 01 B1 01 BA 01 C2 01 CF 01 D7 01 E3 01 ..$.1.:. B.O.W.c.
$000060 F1 01 FC 01 07 02 15 02 22 02 2D 02 37 02 43 02 q.|..... ".-.7.C.
$000070 4F 02 5C 02 6B 02 75 02 01 00 01 00 01 00 01 00 O.\.k.u. ........
$000080 01 00 25 25 DE 1B 2C BE 09 3E 3E 66 49 3E 2C 00 ..%%^.,> .>>fI>,.
$000090 01 00 01 00 24 2D 9F 32 36 2D 07 00 24 3F 8D 32 ....$-.2 6-..$?.2
$0000A0 36 3F 05 00 01 00 34 DE 2D 36 24 2D 07 00 01 00 6?....4^ -6$-....
$0000B0 9B 29 2D 07 00 12 37 25 00 25 25 9E 33 37 37 04 .)-...7% .%%.377.
$0000C0 00 25 25 3F 3F 36 36 25 E5 93 2E 2D 25 24 04 00 .%%??66% e..-%$..
$0000D0 24 37 0A 36 3E 2D 07 00 25 25 3F 3F 4E 32 3F 36 $7.6>-.. %%??N2?6
$0000E0 2D 2D 07 00 2D 24 3F 3F 96 32 2D 2D 24 04 00 2D --..-$?? .2--$..-
$0000F0 24 DE C3 36 2D 2D 36 26 00 3F 24 2D 2D DE 2A 35 $^C6--6& .?$--^*5
$000100 36 3F 3F 04 00 35 35 3E 3F 27 2C 0C 9F 24 2C 2D 6??..55> ?',..$,-
$000110 00 25 25 3F 3F 56 31 37 37 3D 00 2D 24 3F 3F 36 .%%??V17 7=.-$??6
$000120 AD 2D 36 3F 3F 24 2D 00 2D 24 3F 3F 36 6D 31 36 --6??$-. -$??6m16
$000130 04 00 01 00 01 00 2C FD 3A 3E 35 35 2D 07 00 2D ......,} :>55-..-
$000140 97 3D 3F 2F 08 38 2F 00 3C 6F 2A 2E 37 37 3F 05 .=?/.8/. ?'$ $-55??..
$000170 32 3F 3F 24 24 2C 2D 35 00 29 3E 3E 3E 27 24 24 2??$$,-5 .)>>>'$$
$000180 2D 2E 06 00 AD 12 3F 3F 24 2C DD 24 2D 2D 07 00 -...-.?? $,]$--..
$000190 45 38 3F 37 2E DD 36 26 00 2A 35 3E 3F 27 24 24 E8?7.]6& .*5>?'$$
$0001A0 2D 2D 06 00 2D 24 DE 1B 34 2E DD 36 66 49 26 24 --..-$^. 4.]6fI&$
$0001B0 00 24 2F 3D 36 36 3E 2D 07 00 09 24 36 36 3E 3F .$/=66>- ...$66>?
$0001C0 27 00 2C 25 DE C3 36 36 66 51 21 27 27 3F 00 52 '.,%^C66 fQ!''?.R
$0001D0 31 3F 3F 24 24 34 00 3C 3C 36 36 66 49 26 24 24 1??$$4.< <66fI&$$
$0001E0 37 07 00 2E 36 25 24 24 DE 33 3D 24 37 36 36 04 7...6%$$ ^3=$766.
$0001F0 00 09 24 3F 3F 36 36 2E 2D 25 24 00 3B 35 2D 2C ..$??66. -%$.;5-,
$000200 3C 3C 3F 36 36 26 00 09 24 3F 3F 36 36 2E 2D BC < $000210 AD 27 25 24 00 2E 2E E6 DB 26 24 24 2D 35 35 3F -'%$...f [&$$-55?
$000220 3F 00 BF 12 2D 2D 24 3C DF 24 2D 2D 00 24 3F 4E ?.?.--$< _$--.$?N
$000230 09 3C 97 36 26 00 00 09 24 1E D8 33 36 36 2D 2D .<.6&... $.X366--
$000240 24 04 00 09 24 1E D8 33 36 35 2E 25 2C 04 00 36 $...$.X3 65.%,..6
$000250 35 25 24 24 1E D8 33 36 36 25 05 00 25 25 3E D8 5%$$.X36 6%..%%>X
$000260 33 35 35 37 37 2C 2C 35 35 04 00 2D 24 1E D8 33 35577,,5 5..-$.X3
$000270 2E 35 36 04 00 25 25 3F 3F 95 31 37 37 2D 2D 07 .56..%%? ?.177--.
** END **

Text found in RIC_Programs_82.dsk/SPELLER.bas:

5 DIM WO$(1000)
6 A$(1) = "GRADES 1-4":A$(2) = "GRADES 5-8":A$(3) = "GRADES 9-12":A$(4) = "COLLEGE"
10 D$ = CHR$(4)
11 HOME : VTAB 5: PRINT "1 GRADES 1-4": PRINT : PRINT "2 GRADES 5-8": PRINT : PRINT "3 GRADES 9-12": PRINT : PRINT "4 COLLEGE": PRINT : PRINT : INPUT " ENTER VOCABULARY LEVEL ";A$: IF VAL(A$) <1 OR VAL(A$) >4 THEN 11
12 A = VAL(A$)
20 PRINT : PRINT D$;"OPEN ";A$(A);" WORDS,L15"
30 PRINT D$;"READ ";A$(A);" WORDS,R1"
40 INPUT NW
50 FOR I = 1 TO NW: INPUT WO$(I): NEXT
60 PRINT D$;"CLOSE"
70 FOR I = 1 TO NW
75 PRINT
80 PRINT "RECORD ";I;" IS ";WO$(I)
90 PRINT : INPUT "ENTER CORRECT SPELLING OR HIT FOR NO CHANGE -- ";AN$
100 IF AN$ = "" THEN 120
110 WO$(I) = AN$
120 NEXT
130 PRINT
140 PRINT D$;"OPEN ";A$(A);" WORDS,L15"
150 PRINT D$;"WRITE ";A$(A);" WORDS,R1"
160 PRINT NW
170 FOR I = 1 TO NW: PRINT WO$(I): NEXT
180 PRINT D$"CLOSE"

Text found in RIC_Programs_82.dsk/TEST FILE.txt:

TODAY IS SAT.
110 PRINT D$;"WRITE TEST FILE"
110 PRINT VAR$
110 PRINT VAR$
130 PRINT D$;"CLOSE TEST FILE"

Text found in RIC_Programs_82.dsk/TONE ROUTINE.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A6 07 A4 06 AD 30 C0 88 D0 FD CA D0 F5 60 .. .. &.$.-0@. P}JPu`
** END **

Text found in RIC_Programs_82.dsk/VAC-MAN.bas:

1 REM VAC-MAN
2 REM WRITTEN BY
3 REM CAROL OYAFUSO
4 REM MELANIE RITTER
5 REM NILS LUCANDER
6 REM ALAN FOXX
7 REM STEPHANIE THOMPSON
8 REM 11/27/82
9 HS = 0:Z6 = 0.5: GOTO 1800
10 GR : COLOR= 5
12 SC = 0
15 NT = 0
20 FOR I = 0 TO 39
30 VLIN 0,39 AT I
40 NEXT I
42 GOTO 600
43 Y = 39:X = 20: COLOR= 2: PLOT X,Y: FOR D = 1 TO 3000:OX = X:OY = Y
44 HOME : FLASH : PRINT "ON YOUR MARKS": GOSUB 900
45 HOME : FLASH : PRINT "GET SET": GOSUB 900
46 HOME : FLASH : PRINT "GO!!!": NORMAL :B = PEEK( -16336) + PEEK( -16366) + PEEK( -16366) + PEEK( -16336)
50 COLOR= 2
51 IF CN$ = "P" THEN 60
52 IF PEEK( -16384) = 149 THEN X = X +0.7: IF X >39 THEN X = 39
54 IF PEEK( -16384) = 136 THEN X = X -0.7: IF X <0 THEN X = 0
55 GOTO 70
60 IF PDL(1) >150 THEN X = X +0.7: IF X >39 THEN X = 39
62 IF PDL(1) <105 THEN X = X -0.7: IF X <0 THEN X = 0
70 Y = Y -Z6: IF Y <0 THEN Y = 0: FOR D = 1 TO 1200:Z6 = -Z6
72 IF Y >39 THEN Y = 39:NX = INT( RND(1) *40):NY = INT( RND(1) *17) +1: COLOR= 0: VLIN NY,NY +1 AT NX: VLIN NY,NY +1 AT 39 -NX:Z6 = -Z6
75 IF SCRN( X,Y) = 0 THEN 700
76 B = PEEK( -16336)
80 PLOT X,Y
90 COLOR= 15
100 PLOT OX,OY
110 OX = X:OY = Y
120 GOTO 50
600 REM THE HAIRPINS
610 COLOR= 0
614 X = 16
620 FOR I = 1 TO 10
624 X = INT( RND(1) *40)
625 Y = INT( RND(1) *18) +1
626 VLIN Y,Y +1 AT X
627 NEXT I
670 GOTO 43
700 PLOT X,Y
705 FOR D = 1 TO 60:B = PEEK( -16336): NEXT D
720 FOR J = 1 TO 50
730 POKE -16303,0
735 B = PEEK( -16336) + PEEK( -16336):B = PEEK( -16336)
740 POKE -16304,0
750 NEXT
760 HOME : FLASH : PRINT "THE VACUUM CLEANER IS CLOGGED UP BECAUSEYOU HAVE JUST RAN OVER A HAIRPIN. ": NORMAL
762 FOR Q1 = 0 TO 39: FOR Q2 = 0 TO 39: IF SCRN( Q1,Q2) = 15 THEN SC = SC +1
763 PLOT Q1,Q2
764 NEXT : NEXT
765 IF SC >HS THEN HS = SC
768 HOME
770 PRINT "YOUR SCORE IS ";SC;" HIGH SCORE ";HS
771 PRINT "PLAY AGAIN? (Y/N) =>";: GET A$: PRINT A$: IF A$ = "Y" THEN 10
772 IF A$ = "N" THEN PRINT CHR$(4);"RUN HELLO"
776 GOTO 768
900 FOR D = 1 TO 1800: NEXT D: RETURN
1800 TEXT : HOME : PRINT : PRINT "WELCOME TO VAC-MAN:"
1810 VTAB (8): HTAB (10): PRINT "WRITTEN BY:"
1820 HTAB (14): PRINT "CAROL OYAFUSO": HTAB (14): PRINT "MELANIE RITTER": HTAB (14): PRINT "NILS LUCANDER": HTAB (14): PRINT "ALAN FOXX": HTAB (10): PRINT "AND STEPHANIE THOMPSON..."
1830 FOR D = 1 TO 6000: NEXT D
1832 HOME : PRINT "DO YOU PREFER THE KEYBOARD OR THE GAME": PRINT "PADDLES? (K/P) =>";: GET A$: PRINT A$: IF A$ = "P" OR A$ = "K" THEN 1840
1835 GOTO 1832
1840 POKE -16368,0: FOR D = 1 TO 1000: NEXT D: HOME : PRINT "VAC-MAN"
1850 PRINT : PRINT " THE OBJECT OF THE GAME IS TO CLEAN": PRINT "AS MUCH OF THE CARPET, REPRESENTED AS": PRINT "THE GREY AREA OF THE SCREEN,"
1852 IF A$ = "K" THEN PRINT "WITHOUT JAMMING THE VACUUM WITH THE": PRINT "BLACK HAIRPINS. TO MOVE, USE THE ARROW": PRINT "KEYS TO MOVE RIGHT AND LEFT AND THE": PRINT "SPACE BAR TO GO STRAIGHT.": GOTO 1864
1855 PRINT "WITHOUT JAMMING THE VACUUM WITH": PRINT "THE BLACK HAIRPINS. TO MOVE,": PRINT "USE THE PADDLE #1 TO GO RIGHT"
1860 PRINT "AND LEFT. YOU ARE CONSTANTLY": PRINT "GOING FORWARD. MORE HAIRPINS": PRINT "APPEAR AS THE GAME GOES ON. YOU"
1864 IF A$ = "K" THEN PRINT "YOU ARE CONSTANTLY GOING FORWARD. MORE": PRINT "HAIRPINS APPEAR AFTER EACH LAP. YOU"
1865 PRINT "CONTROL THE BLUE VACUUM."
1868 CN$ = A$
1870 VTAB (22): PRINT "PRESS RETURN TO PLAY =>>>";: INPUT "";A$: GOTO 10

Text found in RIC_Programs_82.dsk/VOCAB.STARTER.bas:

10 D$ = CHR$(4)
20 PRINT D$;"OPEN VOCAB,L150"
30 PRINT D$;"WRITE VOCAB,R0"
35 X = 0
40 PRINT X
50 PRINT D$;"CLOSE VOCAB"

Text found in RIC_Programs_82.dsk/VOCAB.txt:

104
ABASE
LOWER; HUMILIATE
ABASH
EMBARRASS
ALLEVIATE
RELIEVE
ALLOCATE
ASSIGN
AQUILINE
CURVED; HOOKED
ARABLE
FIT FOR PLOWING
BARB
SHARP PROJECTION FROM FISHHOOK
BAROQUE
HIGHLY ORNATE
CAJOLE
COAX; WHEEDLE
CALIBER
ABILITY; CAPACITY
CILIATED
HAVING MINUTE HAIRS
CIRCLET
SMALL RING; BAND
CONCLAVE
PRIVATE MEETING
CONCOCT
PREPARE BY COMBINING; MAKE UP IN CONCERT
CRYPTIC
MYSTERIOUS; HIDDEN; SECRET
CUISINE
STYLE OF COOKING
DESPOTISM
TYRANNY
DESTITUTE
EXTREMELY POOR
DIVERSITY
VARIETY; DISSIMILITUDE
DIVEST
STRIP; DEPRIVE
ENNUI
BOREDOM
ENORMITY
HUGENESS (IN A BAD SENSE)
EXTRUDE
FORCE OR PUSH OUT
EXUBERANT
ABUNDANT; EFFUSIVE; LAVISH
FLUX
FLOWING; SERIES OF CHANGES
FOIBLE
WEAKNESS; SLIGHT FAULT
GLOSSY
SMOOTH AND SHINING
GLUT
OVERSTOCK; FILL TO EXCESS
HOMOGENEOUS
OF THE SAME KIND
HOMONYM
WORD SIMILAR IN SOUND BUT DIFFERENT IN MEANING AND SPELLING
INCENDIARY
ARSONIST
INCENTIVE
SPUR; MOTIVE
INTELLIGENTSIA
THE INTELLIGENT AND EDUCATED CLASSES
INTER
BURY
LEWD
LUSTFUL
LEXICON
DICTIONARY
MENIAL
SUITABLE FOR SERVANTS; LOW
MENTOR
TEACHER
NAIVETE
QUALITY OF BEING UNSOPHISTICATED
NATAL
PERTAINING TO BIRTH
OPULENCE
WEALTH
ORATORIO
DRAMATIC POEM SET TO MUSIC
PERIMETER
OUTER BOUNDARY
PERIPATETIC
WALKING ABOUT; MOVING
PRECEDENT
PRECEDING IN TIME- RANK- ETC.
PRECEPT
PRACTICAL RULE GUIDING CONDUCT
PUSILLANIMOUS
COWARDLY; FAINT-HEARTED
PUTRID
FOUL; ROTTEN; DECAYED
REJUVENATE
MAKE YOUNG AGAIN
RELEGATE
BANISH; CONSIGN TO INFERIOR POSITION
ROTE
REPETITION
ROTUNDITY
ROUNDNESS; SONOROUSNESS OF SPEECH
SIMIAN
MONKEY-LIKE
SIMILE
COMPARISON OF ONE THING WITH ANOTHER USING THE WORD LIKE OR AS
SUPERANNUATED
RETIRED ON PENSION BECAUSE OF AGE
SUPERCILIOUS
CONTEMPTUOUS; HAUGHTY
TRANSGRESSION
VIOLATION OF LAW; SIN
TRANSIENT
FLEETING; QUICKLY PASSING AWAY; STAYING FOR A SHORT TIME
VEGETATE
LIVE IN A MONOTONOUS WAY
VEHEMENT
IMPETUOUS; WITH MARKED VIGOR
ABERRATION
WANDERING OR STRAYING AWAY; IN OPTICS- FAILURE OF RAYS TO FOCUS
ABNEGATION
REPUDIATION; SELF-SACRIFICE
BASSOON
REED INSTRUMENT OF THE WOODWIND FAMILY
BEHOLDEN
OBLIGATED; INDEBTED
CRUET
SMALL GLASS BOTTLE FOR VINEGAR- OIL- ETC.
CRYPT
SECRET RECESS OR VAULT USUALLY FOR BURIAL
EXCISION
ACT OF CUTTING AWAY
EXCORIATE
FLAY; ABRADE
IMPLEMENT
SUPPLY WHAT IS NEEDED; FURNISH WITH TOOLS
IMPLY
SUGGEST A MEANINGNOT EXPRESSED; SIGNIFY
MANDATE
ORDER; CHARGE
MANIFOLD
NUMEROUS; VARIED
PALIMPSEST
PARCHMENT USED FOR SECOND TIME AFTER ORIGINAL WRITING HAS BEEN ERASED
PALLIATION
ACT OF MAKING LESS SEVERE OR VIOLENT
PROPINQUITY
NEARNESS; KINSHIP
PROSCENIUM
PART OF STAGE IN FRONT OF CURTAIN
SIMPERING
SMIRKING
SIROCCO
WARM SULTRY WIND BLOWN FROM AFRICA TO SOUTHERN EUROPE
TERMAGANT
SHREW; SCOLDING BRAWLING WOMAN
TERMINOLOGY
TERMS USED IN SCIENCE OR ART
ABETTOR
ENCOURAGER
ABEYANCE
SUSPENDED ACTION
ALLUVIAL
PERTAINING TO SOIL DEPOSITS LEFT BY RIVERS
ALTRUISM
UNSELFISH AID TO OTHERS; GENEROSITY
ARDUOUS
HARD; STRENOUS
ARRANT
THOROUGH; COMPLETE; UNMITIGATED
BATE
LET DOWN; RESTRAIN
BATTEN
GROW FAT; THRIVE UPON OTHERS
CALUMNIATE
SLANDER
CALUMNY
MALICIOUS MISREPRESENTATION
CIRCUMSPECT
PRUDENT; CAUTIOUS
CLANDESTINE
SECRET (ADJ.)
CONCOMITANT
THAT WHICH ACCOMPANIES
CONDIGN
ADEQUATE
CULL
PICK OUT; REJECT
CULPABALE
DESERVING BLAME
DESUETUDE
DISUSED CONDITION
DESULTORY
AIMLESS; JUMPING AROUND
DIVINATION
FORSEEING THE FUTURE WITH THE AID OF MAGIC
DOGGEREL
POOR VERSE
ENSCONCE
SETTLE COMFORTABLY
ENTHRALL
CAPTURE; MAKE SLAVE
FACTITIOUS
ARTIFICIAL; SHAM
FACTIOUS
INCLINED TO FORM FACTIONS; CAUSING DISSENSION

Text found in RIC_Programs_82.dsk/VOCABULARY FLASH CARDS.bas:

10 D$ = CHR$(4)
20 GOSUB 2000: DIM A$(RE% +100),B$(RE% +100),A%(RE% +100),B%(RE% +100): GOSUB 2600
30 REM ** RE%= NUMBER OF RECORDS, A$()=WORD,B$()=DEFINITIONS
100 HOME
110 PRINT "SELECT ONE: "
120 PRINT : PRINT " 1. INPUT NEW WORDS"
121 PRINT : PRINT " 2. FLASH CARDS"
122 PRINT : PRINT " 3. REVIEW ALL WORDS"
123 PRINT : PRINT " 4. TYPE A WORD LIST"
124 PRINT : PRINT " 5. DELETE WORDS FROM LIST"
125 PRINT : PRINT " 6. END"
150 HTAB 2: VTAB 20: PRINT "CHOICE >> ";
155 NH = 6:NL = 1: GOSUB 546
160 ON V GOTO 3000,4000,5000,6000,8000,199
199 PRINT CHR$(4);"RUN HELLO"
499 REM ** PRESS ANY KEY
500 VTAB 23: INVERSE : PRINT " PRESS ANY KEY TO CONTINUE... ";: NORMAL : WAIT -16384,128,1: POKE -16368,0: RETURN
501 REM ** ONLY Y/N
502 PRINT S$;" (Y/N)? ";: GET A$: PRINT A$: IF A$ < >"Y" AND A$ < >"N" THEN 501
503 RETURN
545 REM ** INPUT W/IN RANGE NH TO NL
546 IF NOT NH THEN NH = 9
547 VT = PEEK(37):HT = PEEK(36): INPUT V$:V = VAL(V$): IF V < = NH AND V > = NL THEN 549
548 VTAB VT +2: INVERSE : PRINT " MUST BE BETWEEN ";NL;" AND ";NH;" ": NORMAL : FOR X = 1 TO 1600: NEXT : VTAB VT +2: CALL -868: VTAB VT +1: HTAB HT +1: GOTO 547
549 RETURN
579 REM ** NO DUPLICATE RANDOMS
580 FOR I = 1 TO N
581 A%(I) = INT(( RND(1) *N) +1)
582 X = A%(I): IF B%(X) = 1 GOTO 581
583 B%(X) = 1
584 PRINT "THINKING": NEXT I: PRINT : PRINT "OK, I'M READY."
585 RETURN
604 REM ** OUTPUT ST$ WORD BY WORD
605 IF POS(0) + LEN(ST$) <40 THEN PRINT ST$: RETURN
606 FOR II = 40 - POS(0) TO 1 STEP -1: IF MID$ (ST$,II,1) = " " THEN PRINT LEFT$(ST$,II -1):ST$ = MID$ (ST$,II +1):II = 1: GOTO 608
607 IF II = 1 THEN PRINT
608 NEXT II
609 IF LEN(ST$) < = 40 THEN PRINT ST$: RETURN
610 GOTO 605
611 RETURN
999 REM ** STORE DATA
1000 PRINT D$;"OPEN VOCAB,L150"
1010 PRINT D$;"READ VOCAB,R0"
1020 INPUT RE%
1030 FOR J = 1 TO I
1040 PRINT D$;"WRITE VOCAB,R";RE% +J
1050 PRINT A$(J): PRINT B$(J)
1060 NEXT J
1070 PRINT D$;"WRITE VOCAB,R0"
1080 PRINT RE% +I
1090 PRINT D$;"CLOSE VOCAB"
1100 GOTO 100
1999 REM ** READ DATA
2000 PRINT D$;"OPEN VOCAB,L150"
2010 PRINT D$;"READ VOCAB,R0"
2020 INPUT RE%
2030 PRINT D$;"CLOSE VOCAB"
2040 RETURN
2100 PRINT D$;"OPEN VOCAB,L150"
2110 RETURN
2500 PRINT D$;"READ VOCAB,R"X
2510 INPUT A$(I),B$(I)
2520 RETURN
2600 PRINT D$;"CLOSE VOCAB"
2610 RETURN
2999 REM ** INPUT NEW WORDS
3000 I = 1
3005 HOME : INVERSE : PRINT "WORD ";I: NORMAL : PRINT
3006 PRINT "WHEN YOU ARE FINISHED, ENTER '.' AS THE WORD.": PRINT : PRINT
3010 INPUT "WORD: ";A$(I)
3020 IF A$(I) = "." THEN I = I -1: GOTO 1000
3030 PRINT : INPUT "MEANING: ";B$(I)
3040 PRINT :S$ = "IS THIS CORRECT? ": GOSUB 501
3050 IF A$ = "N" THEN PRINT : PRINT : GOTO 3010
3060 I = I +1: GOTO 3005
3999 REM ** FLASH CARDS
4000 HOME
4010 GOSUB 2000
4020 PRINT "THERE ARE NOW ";RE%;" WORDS IN THE FILE.": PRINT : PRINT "HOW MANY WORDS WOULD YOU LIKE TO REVIEW? ";:NH = RE%:NL = 1: GOSUB 546:RV% = V
4030 N = RE%: GOSUB 580
4035 GOSUB 2100
4040 FOR I = 1 TO RV%:X = A%(I): GOSUB 2500: NEXT I
4050 GOSUB 2600
4060 FOR I = 1 TO RV%
4070 HOME : INVERSE : PRINT "WORD ";I;" OF ";RV%: NORMAL
4080 VTAB 5: INVERSE : PRINT "WORD:": NORMAL : PRINT : PRINT " ";A$(I)
4090 GOSUB 500
4100 VTAB 10: INVERSE : PRINT "MEANING:": NORMAL : PRINT : POKE 32,5: HTAB 6:ST$ = B$(I): GOSUB 605: POKE 32,0
4110 GOSUB 500
4120 NEXT I
4130 GOTO 100
5000 HOME
5010 GOSUB 2000
5040 GOSUB 2100
5050 FOR I = 1 TO RE%:X = I: GOSUB 2500: NEXT I
5060 GOSUB 2600
5070 FOR I = 1 TO RE%
5080 HOME : INVERSE : PRINT "WORD ";I;" OF ";RE%: NORMAL
5090 VTAB 5: INVERSE : PRINT "WORD:": NORMAL : PRINT : PRINT " ";A$(I)
5100 GOSUB 500
5110 VTAB 10: INVERSE : PRINT "MEANING:": NORMAL : PRINT : POKE 32,5: HTAB 6:ST$ = B$(I): GOSUB 605: POKE 32,0
5120 GOSUB 500
5130 NEXT I
5140 GOTO 100
5999 REM ** TYPE A WORD LIST
6000 HOME
6010 GOSUB 2000
6020 PRINT "HOW MANY WORDS DO YOU WANT TYPED? ";:NH = RE%:NL = 1: GOSUB 545:TY% = V
6030 PRINT : PRINT : PRINT "DO YOU WANT": PRINT : PRINT " 1. A RANDOM LIST": PRINT : PRINT " 2. IN ORDER FROM THE FILE? ";:NH = 2:NL = 1: GOSUB 545: PRINT : PRINT
6040 ON V GOTO 6050,6100
6050 HOME : HTAB 5: VTAB 10: INVERSE : PRINT "SELECTING THE WORDS.": NORMAL :N = RE%: GOSUB 580
6055 HOME : HTAB 5: VTAB 10: INVERSE : PRINT "READING THE WORDS.": NORMAL
6060 GOSUB 2100
6070 FOR I = 1 TO TY%:X = A%(I): GOSUB 2500: NEXT I
6080 GOSUB 2600
6090 GOTO 6200
6100 PRINT : PRINT : PRINT "WHAT WORD SHOULD I START WITH? ";:NH = RE% -TY%:NL = 1: GOSUB 545:FI% = V -1
6105 HOME : HTAB 5: VTAB 10: INVERSE : PRINT "READING THE WORDS.": NORMAL
6110 GOSUB 2100
6120 FOR I = 1 TO TY%:X = FI% +I: GOSUB 2500: NEXT I
6130 GOSUB 2600
6140 GOTO 6200
6200 PRINT D$;"PR#1": PRINT "80N"
6210 FOR I = 1 TO TY%
6220 FOR J = 25 TO LEN(A$(I)) +1 STEP -1:A$(I) = A$(I) +" ": NEXT J
6230 PRINT A$(I);
6240 IF LEN(B$(I)) <55 THEN PRINT B$(I): GOTO 6300
6250 X = 55
6260 IF MID$ (B$(I),X,1) < >" " THEN X = X -1: GOTO 6260
6270 PRINT LEFT$(B$(I),X -1):B$(I) = MID$ (B$(I),X +1)
6280 IF LEN(B$(I)) <55 THEN PRINT SPC( 25);B$(I): GOTO 6300
6290 PRINT SPC( 25);: GOTO 6300
6300 PRINT : NEXT I
6310 PRINT D$;"PR#0"
6320 GOTO 100
8000 HOME
8005 FOR I = 1 TO RE%:B%(I) = 0: NEXT I
8010 GOSUB 2000
8020 GOSUB 2100
8030 FOR I = 1 TO RE%:X = I: GOSUB 2500: NEXT I
8040 GOSUB 2600
8050 FOR I = 1 TO RE%
8060 HOME : INVERSE : PRINT "WORD ";I;" OF ";RE%: NORMAL
8070 VTAB 5: INVERSE : PRINT "WORD:": NORMAL : PRINT : PRINT " ";A$(I)
8080 GOSUB 500
8090 VTAB 10: INVERSE : PRINT "MEANING:": NORMAL : PRINT : POKE 32,5: HTAB 6:ST$ = B$(I): GOSUB 605: POKE 32,0
8095 PRINT : PRINT :S$ = "SHOULD THIS BE REMOVED?": GOSUB 502: IF A$ = "Y" THEN B%(I) = 1
8100 GOSUB 500
8110 NEXT I
8200 HOME : INPUT "WHAT IS TODAY'S DATE? (MM/DD/YY) ";DA$
8210 PRINT D$;"RENAME VOCAB,VOCAB";DA$
8250 PRINT D$;"OPEN VOCAB,L150"
8260 J = 0: FOR I = 1 TO RE%
8270 IF B%(I) = 1 THEN 8300
8280 J = J +1: PRINT D$;"WRITE VOCAB,R";J
8290 PRINT A$(I): PRINT B$(I)
8300 NEXT I
8310 PRINT D$;"WRITE VOCAB,R0"
8320 PRINT J
8330 PRINT D$;"CLOSE VOCAB"
8340 GOTO 100