Notes

Disk info for Elementary_Volume_7_v1.0_1981_MECC_US.do:

File Name: a2_Elementary_Volume_7_v1.0_1981_MECC_US/Elementary_Volume_7_v1.0_1981_MECC_US.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 25600
Used Space (bytes): 117760
Physical Size (KB): 140
Free Space (KB): 25
Used Space (KB): 115
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 100
Used Sectors: 460
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Elementary_Volume_7_v1.0_1981_MECC_US.do:

a2_Elementary_Volume_7_v1.0_1981_MECC_US/Elementary_Volume_7_v1.0_1981_MECC_US.do DISK VOLUME #254
* A 021 HELLO
* A 015 CATERPILLAR
* A 011 TRAIN
* A 015 A IS FOR APPLE
* A 014 PICTURES
* A 014 WORDS
* A 014 SHAPES
* A 009 SMILE
* A 016 WUZZLE
* A 016 SPACESHIP
* A 024 TEACHER SELECTIONS
* B 034 LOGO
* B 011 HELLO-TAB
* B 010 BPRTS
* B 020 NEWALPH2
B 005 ZETA-INFO
* B 006 SOUNDS-CHARS
* B 016 SOUNDS-TAB1
* B 019 SOUNDS-TAB2
* B 017 CONT-SHAPE.SH
* B 011 WORDS-TAB
* B 013 CONT-SHAPE/COLOR.SH2
* B 014 NUM-LOW
* B 016 NUM-HIGH
* B 017 NUM-EXT
* B 016 SHIPS
T 002 WORDS FILE
DOS 3.3 format; 25,600 bytes free; 117,760 bytes used.

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/A IS FOR APPLE.bas:

100 REM COPYRIGHT 1981 MECC
110 REM NAME: A IS FOR APPLE 8/20/81
120 REM AUTHOR: MIKE FISH
205 HIMEM: 22016
210 IF PEEK(1023) < >123 THEN TEXT
215 NORMAL : HOME
220 SPEED= 255: ROT= 0: SCALE= 1: POKE -16302,0
230 D$ = CHR$(13) + CHR$(4)
240 PRINT D$;"NOMON I,C,O"
250 HOME
1000 REM START OF MAIN PROGRAM
1010 PRINT D$"BLOAD ZETA-INFO"
1013 X(1) = 45:Y(1) = 15:X(2) = 45:Y(2) = 130:X(3) = 218:Y(3) = 15:X(4) = 218:Y(4) = 130
1015 PRINT D$"BLOAD SOUNDS-CHARS"
1020 P1 = PEEK(828):P2 = PEEK(829):NP = PEEK(827):CA = 0: IF PEEK(800) = 2 THEN CA = 26
1023 X(1) = 45:Y(1) = 15:X(2) = 45:Y(2) = 130:X(3) = 218:Y(3) = 15:X(4) = 218:Y(4) = 130:D$ = CHR$(13) + CHR$(4): POKE 232,0: POKE 233,64
1030 IF P1 = 0 THEN NU(1) = 0:NU(2) = NP:CN = 2: GOTO 1100
1040 IF P2 = 0 THEN NU(2) = 0:NU(1) = NP:CN = 1: GOTO 1100
1050 NU(1) = INT( RND(1) *(NP +1)): IF NU(1) >P1 THEN 1050
1060 NU(2) = NP -NU(1): IF NU(2) >P2 THEN 1050
1065 CN = INT( RND(1) *2) +1: IF NU(1) = 0 AND CN = 1 THEN CN = 2
1067 IF NU(2) = 0 AND CN = 2 THEN CN = 1
1070 FOR TR = 1 TO 2
1100 PRINT D$"BLOAD SOUNDS-TAB"CN
1105 IF TR = 1 THEN HGR : POKE -16302,0
1110 FOR MK = 1 TO NU(CN)
1120 NN = INT( RND(1) *13) +1:RN = NN: IF CN = 1 AND RN >6 THEN RN = RN +7
1130 IF CN = 2 THEN RN = RN +6: IF RN >13 THEN RN = RN +7
1140 PK = PEEK(RN +800): IF PEEK(800) < >PK AND PK < >3 THEN 1120
1150 CF = 0: IF CN = 2 THEN CF = 13
1155 POKE RN +800, PEEK(RN +800) +3
1160 RESTORE : FOR G = 1 TO RN: READ NM$,XM,YM,CM$(1),CM$(2),CM$(3): NEXT
1170 CALL 62450: HCOLOR= 3
1175 HPLOT 31,6 TO 31,5 TO 248,5 TO 248,6 TO 249,6 TO 249,164 TO 248,164 TO 248,165 TO 31,165 TO 31,164 TO 30,164 TO 30,6: HPLOT 32,7 TO 32,6 TO 247,6 TO 247,7 TO 248,7 TO 248,163 TO 247,163 TO 247,164 TO 32,164 TO 32,163 TO 31,163 TO 31,6
1178 SCALE= 1: DRAW NN AT XM,YM
1180 POKE 232,163: POKE 233,27: SCALE= 2: FOR G = 1 TO 4:CH(G) = 0: NEXT :CH( INT( RND(1) *4) +1) = RN: HCOLOR= 7
1190 FOR G = 1 TO 4: IF CH(G) < >0 THEN 1200
1195 CH(G) = INT( RND(1) *26) +1: FOR I = 1 TO 3: IF ASC(CM$(I)) -64 = CH(G) THEN FL = 1
1196 NEXT : FOR I = 1 TO 4: IF (I < >G) AND (CH(I) = CH(G)) THEN FL = 1
1198 NEXT I: IF FL = 1 THEN FL = 0: GOTO 1195
1200 GOSUB 32000
1220 FOR J = -1 TO 1: DRAW CH(G) +CA AT X(G) +J,Y(G): NEXT : DRAW CH(G) +CA AT X(G),Y(G) +1
1225 NEXT
1227 POKE -16304,0:C1 = 0
1230 IF C1 >1 THEN 1300
1233 POKE -16368,0: GET A$:A = ASC(A$) -64: IF A = -37 THEN 21000
1234 IF A <1 OR A >26 THEN 1233
1235 C1 = C1 +1:FL = 0: FOR G = 1 TO 4: IF A = CH(G) THEN FL = G
1240 NEXT : IF CH(FL) = RN THEN 1300
1250 IF FL = 0 THEN 1230
1260 HCOLOR= 5:X = X(FL):Y = Y(FL): HPLOT X -4,Y -3 TO X +19,Y +24 TO X +20,Y +24 TO X -3,Y -3: HPLOT X -4,Y +24 TO X +19,Y -3 TO X +20,Y -3 TO X -3,Y +24: GOTO 1230
1300 HCOLOR= 0: FOR G = 1 TO 4: IF CH(G) < >RN THEN FOR DY = -3 TO 27: HPLOT X(G) -4,Y(G) +DY TO X(G) +20,Y(G) +DY: NEXT
1310 NEXT G
1320 HCOLOR= 3: SCALE= 1:X = 141 - INT(( LEN(NM$) *11)/2): FOR G = 1 TO LEN(NM$): DRAW ASC( MID$ (NM$,G,1)) -64 +CA AT X,141:X = X +11: NEXT
1330 IF (MK < >NU(CN)) OR (TR = 2) THEN FOR G = 1 TO 3000: NEXT
1340 POKE 232,0: POKE 233,64
9000 NEXT : IF CN = 1 THEN CN = 2: GOTO 9020
9010 CN = 1
9020 IF NU(CN) >0 THEN NEXT
9030 IF CN = 1 THEN CN = 2: GOTO 9050
9040 CN = 1
9050 FOR G = 1 TO 3000: NEXT
21000 REM
21005 HGR
21010 TEXT : HOME : PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"IN#0"
21020 VTAB 10: PRINT "WOULD YOU LIKE TO TRY": PRINT : CALL -868: PRINT "AGAIN (YES OR NO) ?";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN PRINT : PRINT : PRINT "PRESS Y OR N.": GOTO 21020
21030 HOME : IF Z$ = "N" THEN 21050
21035 CLEAR
21040 FOR G = 801 TO 826: IF PEEK(G) >3 THEN POKE G, PEEK(G) -3
21045 NEXT : HGR : POKE -16302,0: GOTO 1020
21050 IF PEEK(1023) < >123 THEN END
21053 POKE 232,0: POKE 233,64: SCALE= 1
21055 HCOLOR= 3: IF CN = 1 THEN DRAW 1 AT 154,107: GOTO 21060
21057 DRAW 14 AT 154,107
21060 POKE -16304,0: PRINT : PRINT CHR$(4)"RUN HELLO"
30000 REM USER WRITTEN SUBROUTINES
32000 X = 45:Y = 15: IF G >2 THEN X = 218
32010 IF G = 2 OR G = 4 THEN Y = 130
32020 RETURN
50000 REM USER DATA
50010 DATA APPLE,154,107,F,T,P,BED,102,82,C,-,-,CAR,97,94,A,S,T,DOG,133,99,A,C,P,ELEPHANT,170,84,A,-,-,FISH,132,92,G,-,-
50020 DATA GATE,129,87,O,F,D,HOUSE,122,107,B,C,-,IGLOO,128,96,-,-,-,JET,67,92,A,P,S,KITE,122,71,-,-,-,LAMP,130,59,-,-,-,MONKEY,109,82,A,C,G
50030 DATA NET,118,71,B,F,S,OCTOPUS,147,80,S,A,M,PIG,104,93,A,H,S,QUEEN,141,76,L,W,P,RABBIT,109,87,A,B,E,SUN,135,66,C,F,-,TREE,141,65,C,P,F
50040 DATA UMBRELLA,138,77,-,-,-,VASE,143,105,G,B,-,WAGON,110,79,C,T,-,XYLOPHONE,90,82,L,M,I,YARN,118,94,S,B,-,ZEBRA,121,91,H,P,A
60000 REM MECC SUPPORTED DATA

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/CATERPILLAR.bas:

1 REM PROGRAM: CATERPILLAR
2 REM LAST UPDATED: 6/17/81
3 IF PEEK(1023) < >123 THEN TEXT : HOME
5 PL$ = CHR$(13) + CHR$(4)
10 FOR G = 1 TO 9: READ XW(G),YW(G),LL(G): NEXT G
43 PRINT PL$"NOMONC,I,O": HOME : PRINT PL$"BLOAD NEWALPH2": POKE 232,0: POKE 233,64: ROT= 0: SCALE= 1: HCOLOR= 3: SPEED= 255
44 CK = 0
45 FOR LL = 1 TO 10: HOME : HGR : POKE -16302,0
46 HCOLOR= 3:T1 = 0:T2 = 9:F2 = 0:F1 = 0:J1 = -1
47 FOR MD = 1 TO 1000: NEXT MD
50 Z = INT( RND(1) *4) +1:Z2 = INT( RND(1) *22) +1:X = 35:Y = 90: SCALE= 2: FOR G = 0 TO 4: IF G = Z THEN SCALE= 3: DRAW 145 AT X -1,Y -15: DRAW 145 AT X,Y -16: SCALE= 2:X9 = X:Y9 = Y -15: GOTO 58
54 FOR W1 = 0 TO 4: DRAW G +Z2 +26 AT X +W1,Y -15: NEXT
58 X = X +50: NEXT G: POKE -16368,0
59 SCALE= 1
60 X = PEEK( -16384): IF X > = 127 THEN 70
64 GOSUB 8000:F2 = F2 +1: IF F2 >1050 THEN F2 = 0: IF T1 <1 THEN T1 = T1 +1
68 GOTO 60
70 X = X -128: POKE -16368,0: IF X = 27 THEN 21000
71 IF X <65 OR X >90 THEN T1 = T1 +1: GOTO 64
72 IF X -64 < >Z +Z2 THEN T1 = T1 +1: GOTO 64
75 HCOLOR= 3
80 SCALE= 2: FOR W1 = 0 TO 2: DRAW Z +Z2 +26 AT X9 +W1,Y9: NEXT W1: SCALE= 1: FOR W1 = 1 TO 1000: NEXT W1
85 IF T1 >1 THEN NEXT LL: GOTO 21000
130 HOME : HGR : POKE -16302,0: FOR MD = 1 TO 300 -CK *25: NEXT MD:CK = CK +1: IF CK >1 THEN 500
140 K2 = INT( RND(1) *200) +50:L2 = INT( RND(1) *156) +25:DK = SQR((K2 -25) ^2 +(L2 -98) ^2)
150 OK = DK/5
160 MK = (K2 -25)/OK:NK = (L2 -98)/OK
170 FOR GK = 1 TO OK: HCOLOR= 3: DRAW 110 AT K2,L2: DRAW 111 AT K2,L2: DRAW 112 AT K2,L2
180 FOR KG = 1 TO 5: NEXT KG
190 HCOLOR= 0: DRAW 110 AT K2,L2: DRAW 111 AT K2,L2: DRAW 112 AT K2,L2:K2 = K2 -MK:L2 = L2 -NK: NEXT GK
193 HCOLOR= 3: DRAW 110 AT 25,98: DRAW 111 AT 25,98: DRAW 112 AT 25,98
195 FOR GK = 1 TO 400: NEXT GK: HCOLOR= 0: DRAW 112 AT 25,98: HCOLOR= 3: DRAW 113 AT 25,98
197 FOR GK = 1 TO 1500: NEXT GK
200 NEXT LL: GOTO 21000
500 POKE -16303,0: HCOLOR= 3: DRAW 110 AT 25,98: DRAW 111 AT 25,98: DRAW 112 AT 25,98: HCOLOR= 7
502 IF CK = 2 THEN 510
503 FOR KJ = 1 TO CK -2: HCOLOR= 7: DRAW 108 AT XW(KJ),YW(KJ): HCOLOR= CH(KJ): DRAW 109 AT XW(KJ),YW(KJ)
505 HCOLOR= 7: DRAW LL(KJ) AT XW(KJ),YW(KJ): NEXT KJ
510 POKE -16304,0
1000 RX = INT( RND(1) *7) +1: IF RX >4 THEN 3000
1010 IF RX = 1 THEN SY = 19:SX = INT( RND(1) *184) +10: GOTO 1060
1020 IF RX = 2 THEN SX = 10:SY = INT( RND(1) *37) +19: GOTO 1060
1030 IF RX = 3 THEN SX = 10:SY = INT( RND(1) *41) +128
1040 IF RX = 4 THEN SY = 165:SX = INT( RND(1) *184) +10
1050 TY = INT( RND(1) *41) +128: GOTO 1070
1060 TY = INT( RND(1) *37) +19
1070 TX = INT( RND(1) *61) +210
1080 DK = SQR((TX -SX) ^2 +(TY -SY) ^2):OK = DK/16:MK = (SX -TX)/OK:NK = (SY -TY)/OK
1090 HK = 0:IK = 1: FOR GK = 1 TO OK:HK = HK +IK: IF HK = 4 OR HK = 0 THEN IK = IK * -1:HK = HK +2 *IK
1095 HCOLOR= 3: DRAW 108 AT SX,SY: DRAW 116 +HK AT SX,SY: HCOLOR= 0
2000 FOR KG = 1 TO 5: NEXT KG: DRAW 108 AT SX,SY: DRAW 116 +HK AT SX,SY:SX = SX -MK:SY = SY -NK: NEXT GK
2010 GOTO 3010
3000 TX = INT( RND(1) *61) +210:TY = INT( RND(1) *148) +19
3010 DK = SQR((XW(CK -1) -TX) ^2 +(YW(CK -1) -TY) ^2):OK = DK/16:MK = (TX -XW(CK -1))/OK:NK = (TY -YW(CK -1))/OK
3020 HK = 0:IK = 1: FOR GK = 1 TO OK:HK = HK +IK: IF HK = 4 OR HK = 0 THEN IK = IK * -1:HK = HK +2 *IK
3030 HCOLOR= 3: DRAW 108 AT TX,TY: DRAW 113 +HK AT TX,TY: HCOLOR= 0
3040 FOR KG = 1 TO 5: NEXT KG: DRAW 108 AT TX,TY: DRAW 113 +HK AT TX,TY:TX = TX -MK:TY = TY -NK: NEXT GK
3050 HCOLOR= 7: DRAW 108 AT XW(CK -1),YW(CK -1):CH(CK -1) = INT( VAL( MID$ ("1256", INT( RND(1) *4) +1,1))): HCOLOR= CH(CK -1)
3060 DRAW 109 AT XW(CK -1),YW(CK -1)
3070 HCOLOR= 7: DRAW LL(CK -1) AT XW(CK -1),YW(CK -1)
3080 HCOLOR= 0: DRAW 112 AT 25,98: HCOLOR= 7: DRAW 113 AT 25,98
7500 FOR G = 1 TO 1500: NEXT G,LL
7510 IF CK <10 THEN 21000
7515 FOR K = 1 TO 10
7520 CH = CH(9): FOR G = 9 TO 2 STEP -1:CH(G) = CH(G -1): NEXT G:CH(1) = CH: FOR G = 1 TO 9: HCOLOR= CH(G): DRAW 109 AT XW(G),YW(G): HCOLOR= 7: DRAW LL(G) AT XW(G),YW(G): FOR MD = 1 TO 10: NEXT MD,G,K
7999 GOTO 21000
8000 IF T1 < >1 THEN 8200
8040 IF T2 = 1 THEN 8200
8050 HCOLOR= 3:X5 = 10: FOR G = 1 TO 26: IF G < >Z +Z2 THEN DRAW G AT G *10,130
8060 NEXT G:T2 = 1
8200 IF T1 <1 THEN RETURN
8500 F1 = F1 +1: IF F1 <15 THEN RETURN
8510 X1 = 144: HCOLOR= 0: DRAW 144 AT (Z +Z2) *10,130: IF T1 >1 THEN X1 = Z2 +Z
8530 J1 = J1 * -1: IF J1 = 1 THEN HCOLOR= 3: DRAW X1 AT (Z +Z2) *10,130:F1 = 0: RETURN
8540 HCOLOR= 0: DRAW X1 AT (Z +Z2) *10,130:F1 = 0: RETURN
8999 END
21000 REM MENU-END OF PROGRAM
21005 HGR
21010 TEXT : HOME : PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"IN#0"
21020 VTAB 10: PRINT "WOULD YOU LIKE TO TRY": PRINT : CALL -868: PRINT "AGAIN (YES OR NO) ?";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN PRINT : PRINT : PRINT "PRESS Y OR N.": GOTO 21020
21030 HOME : IF Z$ = "Y" THEN 44
21040 IF PEEK(1023) < >123 THEN END
21045 HGR : HCOLOR= 3: POKE -16302,0: DRAW 110 AT 141,103: DRAW 111 AT 141,103: DRAW 113 AT 141,103
21050 PRINT : PRINT CHR$(4)"RUN HELLO"
30000 DATA 44,102,116,63,100,115,82,98,114,101,100,115,120,103,116,139,105,115,157,102,114,175,99,115,193,101,116

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/HELLO.bas:

100 REM COPYRIGHT 1981 MECC
110 REM NAME: HELLO VERSION:6/16/81
120 REM AUTHOR: MIKE FISH
130 REM LANGUAGE: APPLESOFT (FP)
200 REM INITIALIZATION
205 HIMEM: 8192
206 HOME : HCOLOR= 3
207 POKE 232,0: POKE 233,64
210 NORMAL : ROT= 0: SCALE= 1
220 SPEED= 255
230 D$ = CHR$(13) + CHR$(4)
240 PRINT D$;"NOMON I,C,O"
245 HOME
250 IF PEEK(1023) = 123 THEN 950
300 TEXT : HOME : HGR : POKE -16302,0: TEXT : PRINT D$"BLOAD LOGO": POKE -16304,0: POKE -16368,0:C1 = 0
950 GOSUB 22000
960 IF PEEK(1023) = 123 THEN 1000
970 IF PEEK( -16384) >127 THEN CH = PEEK( -16384) -128: POKE -16368,0: IF CH = 27 OR CH = 32 THEN 1000
980 C1 = C1 +1: IF C1 <200 THEN 970
1000 POKE 1023,123: CALL 62450: POKE -16297,0: TEXT :U1 = 0
1007 HPLOT 0,1 TO 1,1 TO 1,0 TO 70,0 TO 70,12 TO 71,12 TO 71,13 TO 208,13 TO 208,12 TO 209,12 TO 209,0 TO 70,0 TO 278,0 TO 278,1 TO 279,1 TO 279,164 TO 278,164 TO 278,165 TO 1,165 TO 1,164 TO 0,164 TO 0,1
1008 POKE -16302,0: POKE -16304,0:ZT$ = "^ELEMENTARY ^VOLUME 7":ZX = 73:ZY = 18: GOSUB 22230
1010 Q = 28:R = 38: GOSUB 31000:ZT$ = "1 ^CATERPILLAR":ZX = 57:ZY = 50: GOSUB 22230:Q = 6:R = 69: GOSUB 31000:ZT$ = "2 ^TRAIN":ZX = 57:ZY = 82: GOSUB 22230
1020 Q = 26:R = 102: GOSUB 31000:ZT$ = "3 ^A IS FOR":ZX = 57:ZY = 108: GOSUB 22230:ZT$ = "^APPLE":ZX = 71:ZY = 117: GOSUB 22230:Q = 2:R = 108: GOSUB 31000
1025 ZT$ = "4 ^PICTURES":ZX = 57:ZY = 144: GOSUB 22230:Q = 6:R = 148: GOSUB 31000: HPLOT 4,141 TO 50,141 TO 50,142 TO 51,142 TO 51,162 TO 50,162 TO 50,163 TO 4,163 TO 4,162 TO 3,162 TO 3,142 TO 4,142
1030 ZT$ = "5 ^WORDS":ZX = 57:ZY = 165: GOSUB 22230
1040 Q = 153:R = 15: GOSUB 31000:ZT$ = "6 ^SHAPES":ZX = 200:ZY = 50: GOSUB 22230:Q = 177:R = 70: GOSUB 31000:ZT$ = "7 ^SMILE":ZX = 200:ZY = 82: GOSUB 22230
1050 Q = 176:R = 90: GOSUB 31000:ZT$ = "8 ^WUZZLE":ZX = 200:ZY = 113: GOSUB 22230:Q = 162:R = 123: GOSUB 31000:ZT$ = "9 ^SPACESHIP":ZX = 200:ZY = 144: GOSUB 22230
1055 ZT$ = "^PRESS ^X^D^X FOR DESCRIPTIONS^Y":ZX = 40:ZY = 185: GOSUB 22230
1060 ZX = 87:ZY = 200:ZT$ = "^WHICH NUMBER^Z"
1070 GOSUB 22230
2000 REM INPUT ONE NUMBER ON HGR SCREEN
2005 POKE -16368,0
2010 GET U$:U = ASC(U$): IF U = 27 THEN 21300
2015 IF U = 1 THEN HGR : TEXT : POKE 1023,123: HOME : VTAB 12: HTAB 12: PRINT "TEACHER SELECTIONS": PRINT D$"RUN TEACHER SELECTIONS"
2017 IF U = 68 THEN 3000
2020 IF U <49 OR U >57 THEN 2010
2025 U = U -48
2029 ZZ = RND( -( PEEK(79) *256 + PEEK(78)))
2030 HCOLOR= 0: HPLOT 0,0: CALL 62454: HCOLOR= 3: FOR G = 1 TO U: READ F$: NEXT : IF U <9 THEN FOR G = 1 TO 9 -U: READ G$: NEXT
2040 FOR G = 1 TO U: READ Q,R: NEXT :U1 = U -1: GOSUB 31000: PRINT D$"RUN "F$
3000 CALL 19712: VTAB 1
3005 Q = 34:R = 25:U1 = 0: GOSUB 31000
3010 HTAB 11: PRINT "^CATERPILLAR": HTAB 14: PRINT "^A DRILL ON THE UPPER": HTAB 14: PRINT "CASE ALPHABET."
3020 Q = 15:R = 60: GOSUB 31000: PRINT : HTAB 11: PRINT "^TRAIN": HTAB 14: PRINT "^A DRILL ON THE LOWER": HTAB 14: PRINT "CASE ALPHABET."
3030 Q = 34:R = 105: GOSUB 31000: PRINT : HTAB 11: PRINT "^A IS FOR ^APPLE": HTAB 14: PRINT "^A DRILL ON THE INITIAL": HTAB 14: PRINT "LETTER USED TO SPELL": HTAB 14: PRINT "A PICTURED WORD."
3040 Q = 11:R = 121: GOSUB 31000: PRINT : HTAB 11: PRINT "^PICTURES": HTAB 14: PRINT "^A CONCENTRATION TYPE": HTAB 14: PRINT "OF MEMORY GAME USING": HTAB 14: PRINT "PICTURES.": GOSUB 20500
3045 PRINT : PRINT : PRINT
3050 Q = 10:R = 40: GOSUB 31000: VTAB 4: HTAB 11: PRINT "^WORDS": HTAB 14: PRINT "^A CONCENTRATION TYPE OF": HTAB 14: PRINT "MEMORY GAME USING WORDS."
3060 Q = 8:R = 68: GOSUB 31000: PRINT : HTAB 11: PRINT "^SHAPES": HTAB 14: PRINT "^A CONCENTRATION TYPE OF": HTAB 14: PRINT "MEMORY GAME USING COLORED": HTAB 14: PRINT "GEOMETRIC SHAPES. ^A COLOR": HTAB 14: PRINT "TELEVISION IS REQUIRED."
3070 Q = 32:R = 144: GOSUB 31000: PRINT : HTAB 11: PRINT "^SMILE": HTAB 14: PRINT "^A DRILL ON COUNTING": HTAB 14: PRINT "IDENTICAL OBJECTS"
3071 HTAB 14: PRINT "USING THE NUMBERS 1 - 9."
3075 GOSUB 20500: PRINT
3080 Q = 32:R = 34: GOSUB 31000: PRINT : HTAB 11: PRINT "^WUZZLE": HTAB 14: PRINT "^A DRILL ON COUNTING": HTAB 14: PRINT "IDENTICAL OBJECTS IN A": HTAB 14: PRINT "GROUP OF MIXED SHAPES."
3085 PRINT
3090 Q = 15:R = 94: GOSUB 31000: VTAB 9: HTAB 11: PRINT "^SPACESHIP": HTAB 14: PRINT "^A DRILL ON ADDITION OF": HTAB 14: PRINT "TWO GROUPS OF IDENTICAL": HTAB 14: PRINT "OBJECTS USING SUMS OF": HTAB 14: PRINT "ONE THROUGH TEN."
3095 GOSUB 20500
3100 HOME : PRINT CHR$(29): HGR : POKE -16304,0: GOTO 1000
11000 END
20000 REM MECC SUPPORTED SUBROUTINES
20500 VTAB 21: HTAB 7: PRINT "^PRESS " CHR$(34);: POKE 251,1: PRINT "SPACE BAR" CHR$(34);: POKE 251,0: PRINT " TO CONTINUE";
20510 POKE -16368,0
20520 ZC = PEEK( -16384): IF ZC < >141 AND ZC < >160 THEN 20520
20530 POKE -16368,0: PRINT CHR$(12);: RETURN
20600 VTAB 24: HTAB 7: PRINT "PRESS " CHR$(34)"SPACE BAR" CHR$(34)" TO CONTINUE.";: GOTO 20510
21300 HGR : TEXT : HOME
21303 POKE 1023,0
21305 VTAB 10: HTAB 1: PRINT "DO YOU WANT TO RUN ANOTHER": PRINT : PRINT "DISKETTE";: CALL -868: INPUT VX$:VX$ = LEFT$(VX$,1)
21310 IF VX$ = "Y" THEN HOME : VTAB 10: HTAB 9: PRINT "INSERT THE NEW DISKETTE.": GOSUB 20600: HOME : GOTO 21350
21315 IF VX$ < >"N" THEN 21305
21320 TEXT : HOME : POKE 1023,0: SPEED= 255
21325 END
21350 A = PEEK(999) + PEEK(1000) *256
21355 B = PEEK(A) + PEEK(A +1) *256
21360 CS = PEEK(B +1)/16
21370 IF CS <1 OR CS >7 THEN CS = 6
21380 PRINT : PRINT CHR$(4)"PR#"CS
21390 END
22000 POKE 232,0: POKE 233,64: POKE 230,32
22005 PRINT D$"BLOAD HELLO-TAB":ZH = 7:ZW = 7:ZA = 1
22006 PRINT D$"BLOAD BPRTS"
22015 RETURN
22220 REM WRITE ON HGR SCREEN
22230 ZY = ZY -15
22240 FOR ZZ = 1 TO LEN(ZT$):ZS$ = MID$ (ZT$,ZZ,1):ZC = 0: IF ZS$ = "^" THEN ZC = -26:ZZ = ZZ +1:ZS$ = MID$ (ZT$,ZZ,1)
22245 IF ZS$ = " " THEN 22270
22250 ZS = ASC(ZS$):ZS = ZS -38: IF ZS >10 AND ZS <20 THEN ZS = ZS -4
22260 DRAW ZS +ZC AT ZX,ZY
22270 ZX = ZX +7: NEXT : RETURN
30000 REM USER WRITTEN SUBROUTINES
31000 U1 = U1 +1: ON U1 GOTO 31010,31020,31030,31040,31050,31060,31070,31080,31090
31010 FOR G = 53 TO 55: DRAW G AT Q,R: NEXT : RETURN
31020 DRAW 56 AT Q,R: RETURN
31030 DRAW 63 AT Q,R: RETURN
31040 DRAW 61 AT Q,R -3:A1 = Q +1:B1 = R +1:A2 = Q +49:B2 = R +29: GOSUB 42000: RETURN
31050 DRAW 59 AT Q,R: HPLOT Q -2,R -7 TO Q +44,R -7 TO Q +44,R -6 TO Q +45,R -6 TO Q +45,R +14 TO Q +44,R +14 TO Q +44,R +15 TO Q -2,R +15 TO Q -2,R +14 TO Q -3,R +14 TO Q -3,R -6 TO Q -2,R -6: RETURN
31060 DRAW 62 AT Q,R:A1 = Q +3:B1 = R +6:A2 = Q +44:B2 = R +29: GOSUB 42000: RETURN
31070 DRAW 53 AT Q,R: DRAW 60 AT Q -2,R -2: RETURN
31080 DRAW 57 AT Q,R: RETURN
31090 DRAW 58 AT Q,R: RETURN
42000 HPLOT A1 +1,B1 +1 TO A1 +1,B1 TO A2 -1,B1 TO A2 -1,B1 +1 TO A2,B1 +1 TO A2,B2 -1 TO A2 -1,B2 -1 TO A2 -1,B2 TO A1 +1,B2 TO A1 +1,B2 -1 TO A1,B2 -1 TO A1,B1 +1: RETURN
50000 REM USER DATA
50010 DATA CATERPILLAR,TRAIN,A IS FOR APPLE,PICTURES,WORDS,SHAPES,SMILE,WUZZLE,SPACESHIP
59000 DATA 141,103,117,102,140,103,115,77,120,91,117,75,141,103,140,92,122,96
60000 REM MECC SUPPORTED DATA

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/PICTURES.bas:

1 REM COPYRIGHT 1981 MECC
2 REM PROGRAM:PICTURES 8/25/81
3 REM AUTHORS: MIKE FISH/ROCHESTER SCHOOLS
9 IF PEEK(1023) < >123 THEN TEXT
10 HOME : POKE 232,0: POKE 233,64: ROT= 0: SCALE= 1: HCOLOR= 3
12 NORMAL : SPEED= 255
14 HIMEM: 8192
20 D$ = CHR$(13) + CHR$(4): PRINT D$"NOMONC,I,O": HOME : PRINT D$"BLOAD CONT-SHAPE.SH"
25 DIM X(20),Y(20),S(20),C(20)
27 GOSUB 30000: HOME : HGR
30 FOR G = 3 TO 120 STEP 39: FOR T = 4 TO 224 STEP 55:C = C +1:X(C) = T:Y(C) = G: NEXT T,G
35 HPLOT 1,1 TO 1,0 TO 278,0 TO 278,1 TO 279,1 TO 279,158 TO 278,158 TO 278,159 TO 1,159 TO 1,158 TO 0,158 TO 0,1
40 FOR G = 1 TO 20: DRAW 1 AT X(G),Y(G): DRAW 3 AT X(G),Y(G): DRAW G +3 AT X(G) +21,Y(G) +13: NEXT
50 IF PY = 1 THEN VTAB 21: PRINT FP$;: HTAB 41 - LEN(SP$): PRINT SP$
99 C = 1
100 FOR I = 1 TO 10
110 X = RND(1) *20:X = INT(X) +1
120 IF S(X) < >0 THEN 110
130 S(X) = I +34
140 X = INT( RND(1) *20) +1
150 IF S(X) < >0 THEN 140
160 S(X) = I +34
180 NEXT I
260 FS$ = "<---TURN ":SS$ = " TURN--->"
280 POKE 34,22: POKE -16304,0
285 IF PY = 0 THEN 300
290 FOR G = 1 TO INT( RND(1) *10) +10: VTAB 21: HTAB 15: PRINT FS$: FOR T = 1 TO 75: NEXT : VTAB 21: HTAB 15: PRINT SS$: FOR T = 1 TO 75: NEXT T,G:FP = 0:SP = 1: IF RND(1) >.5 THEN VTAB 21: HTAB 15: PRINT FS$:SP = 0:FP = 1
300 HOME : POKE -16304,0
310 VTAB 23: HTAB 12: GOSUB 14000:W = A:FB = A:B1 = A: GOSUB 12000: VTAB 23: HTAB 19: PRINT "AND ";: GOSUB 14000:W = A:FB = 0:B2 = A: GOSUB 12000
315 C2 = C2 +1
320 B3 = S(B1) *100 +C(B1)
322 B4 = S(B2) *100 +C(B2)
323 VTAB 24: HTAB 14: IF B3 < >B4 THEN 400
330 PRINT "*** ";: FLASH : SPEED= 10: PRINT "MATCH";: SPEED= 255: NORMAL : PRINT " ***";
335 FOR G = 1 TO 2500: NEXT
345 HCOLOR= 0: DRAW 2 AT X(B1),Y(B1): DRAW 2 AT X(B2),Y(B2): HCOLOR= 3:S(B1) = 0:S(B2) = S(B1)
346 IF PY = 0 THEN 360
350 VTAB 22: IF FP = 1 THEN S1 = S1 +1: HTAB S1: PRINT "*": GOTO 360
355 IF SP = 1 THEN S2 = S2 +1: HTAB 41 -S2: PRINT "*"
360 C1 = C1 +1: IF C1 = 10 THEN 1000
370 GOTO 300
400 VTAB 24: HTAB 14: PRINT "- NO MATCH -";: FOR G = 1 TO 3000: NEXT
405 HCOLOR= 0: DRAW 2 AT X(B1),Y(B1): DRAW 2 AT X(B2),Y(B2)
410 HCOLOR= 3: DRAW 3 AT X(B1),Y(B1): DRAW 3 AT X(B2),Y(B2): DRAW B1 +3 AT X(B1) +21,Y(B1) +13: DRAW B2 +3 AT X(B2) +21,Y(B2) +13
415 VTAB 21: HTAB 15: IF PY = 0 THEN 300
420 IF FP = 1 THEN FP = 0:SP = 1: PRINT SS$: GOTO 440
430 IF SP = 1 THEN SP = 0:FP = 1: PRINT FS$
440 GOTO 300
1000 HGR : TEXT : HOME : IF PY = 0 THEN 1500
1020 VTAB 10: PRINT FP$"'S SCORE IS "S1".": PRINT : PRINT SP$"'S SCORE IS "S2".": PRINT : IF S1 = S2 THEN PRINT "IT'S A TIE GAME!": GOTO 2000
1030 IF S1 >S2 THEN PRINT FP$;
1040 IF S2 >S1 THEN PRINT SP$;
1045 PRINT " IS THE WINNER!"
1050 GOTO 2000
1500 VTAB 11: HTAB 15: PRINT "IT TOOK YOU": PRINT : HTAB 16: PRINT C2" TRIES.": VTAB 9: HTAB 13: PRINT "***************": FOR G = 1 TO 5: VTAB G +9: HTAB 13: PRINT "*";: HTAB 27: PRINT "*": NEXT : VTAB 15: HTAB 13: PRINT "***************"
2000 VTAB 24: CALL -868: HTAB 8: POKE -16368,0: PRINT "PRESS ";: INVERSE : PRINT "SPACE BAR";: NORMAL : PRINT " TO GO ON.";
2005 IF PEEK( -16384) <128 THEN 2005
2010 HOME : GOTO 21000
11000 Z = INT( RND(1) * LEN(A$)/2) *2 +1:Q = VAL( MID$ (A$,Z,2)): IF N = 9 AND LEN(A$) = 2 THEN RETURN
11005 IF Z = 1 THEN A$ = MID$ (A$,3, LEN(A$) -2): RETURN
11010 IF Z = LEN(A$) -1 THEN A$ = LEFT$(A$,Z -1): RETURN
11020 A$ = LEFT$(A$,Z -1) + MID$ (A$,Z +2, LEN(A$) -Z -1): RETURN
12000 HCOLOR= 0: DRAW 2 AT X(W),Y(W)
12010 IF W = 0 OR S(W) = 0 THEN 12100
12015 HCOLOR= 3
12020 DRAW S(W) AT X(W),Y(W)
12100 HCOLOR= 3: RETURN
14000 PRINT "BOX ";: FLASH : PRINT "?"; CHR$(8);: POKE -16368,0
14010 GET A$: IF A$ > = "A" AND A$ < = "T" THEN 14018
14012 IF ASC(A$) = 27 THEN HGR : TEXT : HOME : NORMAL : GOTO 21000
14013 IF ASC(A$) = 13 THEN 14010
14015 FOR R = 1 TO 20:R1 = PEEK( -16336): NEXT : GOTO 14010
14018 IF FB = ASC(A$) -64 THEN 14015
14019 IF S( ASC(A$) -64) <34 THEN 14015
14020 NORMAL : PRINT A$" ";
14050 A = ASC(A$) -64: RETURN
21000 REM MENU-END OF PROGRAM
21005 HGR : POKE -16368,0
21010 TEXT : HOME : PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"IN#0"
21020 VTAB 10: PRINT "WOULD YOU LIKE TO TRY": PRINT : CALL -868: PRINT "AGAIN (YES OR NO) ?";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN PRINT : PRINT : PRINT "PRESS Y OR N.": GOTO 21020
21030 HOME : IF Z$ = "Y" THEN CLEAR : GOTO 25
21040 IF PEEK(1023) < >123 THEN END
21045 HGR : POKE -16302,0: HCOLOR= 3: DRAW 38 AT 117,76
21047 HPLOT 120,80 TO 120,79 TO 162,79 TO 162,80 TO 163,80 TO 163,108 TO 162,108 TO 162,109 TO 120,109 TO 120,108 TO 119,108 TO 119,80
21050 PRINT : PRINT CHR$(4)"RUN HELLO"
30000 CALL 62450: HOME : TEXT : VTAB 12: PRINT "ARE THERE TWO PLAYERS?";
30005 VTAB 12: HTAB 24: GET YN$: IF ASC(YN$) = 27 THEN 21000
30010 IF YN$ < >"Y" AND YN$ < >"N" THEN VTAB 13: PRINT : PRINT "PRESS Y OR N.": GOTO 30005
30020 PY = 1: IF YN$ = "N" THEN PY = 0: RETURN
30030 HOME : VTAB 5: PRINT "PRESS THE " CHR$(34)"RETURN" CHR$(34)" KEY AFTER YOUR NAME:": VTAB 10: INPUT "1. PLAYER'S NAME? ";FP$: IF LEN(FP$) >12 THEN FP$ = LEFT$(FP$,12)
30040 PRINT : PRINT : INPUT "2. PLAYER'S NAME? ";SP$: IF LEN(SP$) >12 THEN SP$ = LEFT$(SP$,12)
30050 IF FP$ = "" THEN FP$ = "FIRST PLAYER"
30060 IF SP$ = "" THEN SP$ = "SECOND PLAYER"
30070 RETURN

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/SHAPES.bas:

1 REM COPYRIGHT 1981 MECC
2 REM PROGRAM: SHAPES 8/25/81
3 REM AUTHORS: MIKE FISH/ROCHESTER SCHOOLS
9 IF PEEK(1023) < >123 THEN TEXT
10 HOME : POKE 232,0: POKE 233,64: ROT= 0: SCALE= 1: HCOLOR= 3
12 NORMAL : SPEED= 255
14 HIMEM: 8192
20 D$ = CHR$(13) + CHR$(4): PRINT D$"NOMONC,I,O": HOME : PRINT D$"BLOAD CONT-SHAPE/COLOR.SH2"
25 DIM X(20),Y(20),S(20),C(20)
27 GOSUB 30000: HOME : HGR
30 FOR G = 3 TO 120 STEP 39: FOR T = 4 TO 224 STEP 55:C = C +1:X(C) = T:Y(C) = G: NEXT T,G
35 HPLOT 1,1 TO 1,0 TO 278,0 TO 278,1 TO 279,1 TO 279,158 TO 278,158 TO 278,159 TO 1,159 TO 1,158 TO 0,158 TO 0,1
40 FOR G = 1 TO 20: DRAW 1 AT X(G),Y(G): DRAW 3 AT X(G),Y(G): DRAW G +3 AT X(G) +21,Y(G) +13: NEXT
45 VTAB 21
50 IF PY = 1 THEN VTAB 21: PRINT FP$;: HTAB 41 - LEN(SP$): PRINT SP$
99 FOR C = 1 TO 5 STEP 4
100 FOR I = 1 TO 5
110 X = RND(1) *20:X = INT(X) +1
120 IF S(X) < >0 THEN 110
130 S(X) = I +34
135 C(X) = C
140 X = INT( RND(1) *20) +1
150 IF S(X) < >0 THEN 140
160 S(X) = I +34
170 C(X) = C
180 NEXT I
190 NEXT C
260 FS$ = "<---TURN ":SS$ = " TURN--->"
280 POKE 34,22: POKE -16304,0
285 IF PY = 0 THEN 300
290 FOR G = 1 TO INT( RND(1) *10) +10: VTAB 21: HTAB 15: PRINT FS$: FOR T = 1 TO 75: NEXT : VTAB 21: HTAB 15: PRINT SS$: FOR T = 1 TO 75: NEXT T,G:FP = 0:SP = 1: IF RND(1) >.5 THEN VTAB 21: HTAB 15: PRINT FS$:SP = 0:FP = 1
300 HOME : POKE -16304,0
310 VTAB 23: HTAB 12: GOSUB 14000:W = A:FB = A:B1 = A: GOSUB 12000: VTAB 23: HTAB 19: PRINT "AND ";: GOSUB 14000:W = A:FB = 0:B2 = A: GOSUB 12000
315 C2 = C2 +1
320 B3 = S(B1) *100 +C(B1)
322 B4 = S(B2) *100 +C(B2)
323 VTAB 24: HTAB 14: IF B3 < >B4 THEN 400
330 PRINT "*** ";: FLASH : SPEED= 75: PRINT "MATCH";: SPEED= 255: NORMAL : PRINT " ***";
335 FOR G = 1 TO 2000: NEXT
345 HCOLOR= 0: DRAW 2 AT X(B1),Y(B1): DRAW 2 AT X(B2),Y(B2): HCOLOR= 3:S(B1) = 0:S(B2) = S(B1)
346 IF PY = 0 THEN 360
350 VTAB 22: IF FP = 1 THEN S1 = S1 +1: HTAB S1: PRINT "*": GOTO 360
355 IF SP = 1 THEN S2 = S2 +1: HTAB 41 -S2: PRINT "*"
360 FOR G = 1 TO 999: NEXT :C1 = C1 +1: IF C1 = 10 THEN 1000
370 GOTO 300
400 VTAB 24: HTAB 14: PRINT "- NO MATCH -";: FOR G = 1 TO 3000: NEXT
405 HCOLOR= 0: DRAW 2 AT X(B1),Y(B1): DRAW 2 AT X(B2),Y(B2)
410 HCOLOR= 3: DRAW 3 AT X(B1),Y(B1): DRAW 3 AT X(B2),Y(B2): DRAW B1 +3 AT X(B1) +21,Y(B1) +13: DRAW B2 +3 AT X(B2) +21,Y(B2) +13
415 VTAB 21: HTAB 15: IF PY = 0 THEN 300
420 IF FP = 1 THEN FP = 0:SP = 1: PRINT SS$: GOTO 440
430 IF SP = 1 THEN SP = 0:FP = 1: PRINT FS$
440 GOTO 300
1000 HGR : TEXT : HOME : IF PY = 0 THEN 1500
1020 VTAB 10: PRINT FP$"'S SCORE IS "S1".": PRINT : PRINT SP$"'S SCORE IS "S2".": PRINT : IF S1 = S2 THEN PRINT "IT'S A TIE GAME!": GOTO 2000
1030 IF S1 >S2 THEN PRINT FP$;
1040 IF S2 >S1 THEN PRINT SP$;
1045 PRINT " IS THE WINNER!"
1050 GOTO 2000
1500 VTAB 11: HTAB 15: PRINT "IT TOOK YOU": PRINT : HTAB 16: PRINT C2" TRIES.": VTAB 9: HTAB 13: PRINT "***************": FOR G = 1 TO 5: VTAB G +9: HTAB 13: PRINT "*";: HTAB 27: PRINT "*": NEXT : VTAB 15: HTAB 13: PRINT "***************
2000 VTAB 24: CALL -868: POKE -16368,0: HTAB 8: PRINT "PRESS ";: INVERSE : PRINT "SPACE BAR";: NORMAL : PRINT " TO GO ON.";
2005 IF PEEK( -16384) <128 THEN 2005
2010 POKE -16368,0: HOME : GOTO 21000
11000 Z = INT( RND(1) * LEN(A$)/2) *2 +1:Q = VAL( MID$ (A$,Z,2)): IF N = 9 AND LEN(A$) = 2 THEN RETURN
11005 IF Z = 1 THEN A$ = MID$ (A$,3, LEN(A$) -2): RETURN
11010 IF Z = LEN(A$) -1 THEN A$ = LEFT$(A$,Z -1): RETURN
11020 A$ = LEFT$(A$,Z -1) + MID$ (A$,Z +2, LEN(A$) -Z -1): RETURN
12000 HCOLOR= 0: DRAW 2 AT X(W),Y(W)
12010 IF W = 0 OR S(W) = 0 THEN 12100
12015 HCOLOR= C(W)
12020 DRAW S(W) AT X(W),Y(W)
12030 DRAW S(W) AT X(W) +1,Y(W)
12100 HCOLOR= 3: RETURN
14000 PRINT "BOX ";: FLASH : PRINT "?"; CHR$(8);: POKE -16368,0
14010 GET A$: IF A$ > = "A" AND A$ < = "T" THEN 14018
14012 IF ASC(A$) = 27 THEN HGR : TEXT : HOME : NORMAL : GOTO 21000
14013 IF ASC(A$) = 13 THEN 14010
14015 FOR R = 1 TO 20:R1 = PEEK( -16336): NEXT : GOTO 14010
14018 IF FB = ASC(A$) -64 THEN 14015
14019 IF S( ASC(A$) -64) <34 THEN 14015
14020 NORMAL : PRINT A$" ";
14050 A = ASC(A$) -64: RETURN
21000 REM MENU-END OF PROGRAM
21005 HGR
21010 TEXT : HOME : PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"IN#0"
21020 VTAB 10: PRINT "WOULD YOU LIKE TO TRY": PRINT : CALL -868: PRINT "AGAIN (YES OR NO) ?";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN PRINT : PRINT : PRINT "PRESS Y OR N.": GOTO 21020
21030 HOME : IF Z$ = "Y" THEN CLEAR : RESTORE : GOTO 25
21040 IF PEEK(1023) < >123 THEN END
21045 HGR : POKE -16302,0: HCOLOR= 3: DRAW 35 AT 117,76
21047 HPLOT 120,82 TO 120,81 TO 160,81 TO 160,82 TO 161,82 TO 161,105 TO 160,105 TO 160,106 TO 120,106 TO 120,105 TO 119,105 TO 119,82
21050 PRINT : PRINT CHR$(4)"RUN HELLO"
30000 CALL 62450: HOME : TEXT : VTAB 12: PRINT "ARE THERE TWO PLAYERS?";
30005 HTAB 24: VTAB 12: GET YN$: IF ASC(YN$) = 27 THEN 21000
30010 IF YN$ < >"Y" AND YN$ < >"N" THEN VTAB 13: PRINT : PRINT "PRESS Y OR N.": GOTO 30005
30020 PY = 1: IF YN$ = "N" THEN PY = 0: RETURN
30030 HOME : VTAB 5: PRINT "PRESS THE " CHR$(34)"RETURN" CHR$(34)" KEY AFTER YOUR NAME:": VTAB 10: INPUT "1. PLAYER'S NAME? ";FP$: IF LEN(FP$) >12 THEN FP$ = LEFT$(FP$,12)
30040 PRINT : PRINT : INPUT "2. PLAYER'S NAME? ";SP$: IF LEN(SP$) >12 THEN SP$ = LEFT$(SP$,12)
30050 IF FP$ = "" THEN FP$ = "FIRST PLAYER"
30060 IF SP$ = "" THEN SP$ = "SECOND PLAYER"
30070 RETURN

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/SMILE.bas:

1 REM NUMERAL 6/18/81
15 SPEED= 255
20 DIM SH(20)
300 IF PEEK(1023) < >123 THEN TEXT : HOME
350 HCOLOR= 3: SCALE= 1: ROT= 0:DI$ = CHR$(13) + CHR$(4)
360 PRINT DI$"NOMONC,I,O": HOME
390 PRINT DI$"BLOAD NUM-LOW,A4870": PRINT DI$"BLOAD NUM-HIGH"
395 HIMEM: 22016
400 HOME : HGR : POKE -16302,0
450 FOR G7 = 1 TO 20:SH(G7) = 0: NEXT
1000 FOR JJ = 1 TO 9:NO(JJ) = JJ: NEXT
1002 FOR JJ = 1 TO 9:RN = INT( RND(1) *(10 -JJ)) +1:J = NO(RN):NO(RN) = NO(10 -JJ)
1003 POKE 232,6: POKE 233,19:J = J +10: POKE -16302,0
1010 X = INT( RND(1) *20) +1
1015 IF SH(X) = 1 THEN 1010
1020 J1 = J -10:SH(X) = 1
1022 RESTORE : FOR G7 = 1 TO X: READ XI,YI,ZI: NEXT G7
1025 IF ZI = 0 THEN 1010
1027 AI = (280 -6 *ZI)/5
1030 J1 = J -10: IF J1 >5 THEN J1 = 5
1035 FOR G7 = 1 TO J1: FOR H7 = 279 -AI TO G7 *ZI +(G7 -1) *AI STEP -30: HCOLOR= 3: DRAW X +9 AT H7,XI
1036 FOR I7 = 1 TO 3: NEXT I7
1040 HCOLOR= 0: DRAW X +9 AT H7,XI: NEXT H7: HCOLOR= 3: DRAW X +9 AT G7 *ZI +(G7 -1) *AI,XI: NEXT G7
1049 IF J -10 <6 THEN 1280
1050 J1 = J -15
1055 FOR G7 = 1 TO J1: FOR H7 = 279 -AI TO G7 *ZI +(G7 -1) *AI STEP -30: HCOLOR= 3: DRAW X +9 AT H7,YI
1056 FOR I7 = 1 TO 3: NEXT I7
1060 HCOLOR= 0: DRAW X +9 AT H7,YI: NEXT H7: HCOLOR= 3: DRAW X +9 AT G7 *ZI +(G7 -1) *AI,YI: NEXT G7
1270 HCOLOR= 7
1280 FOR X9 = 1 TO 9
1282 X1 = X9 -1:X1 = X1 *30 +5
1284 SCALE= 3
1286 IF X9 = 8 THEN SCALE= 1:X1 = X1 +4
1288 FOR Z = 0 TO 1: FOR Y = 1 TO 5: DRAW X9 AT X1 +Y,135 +Z: NEXT : NEXT
1289 NEXT X9: SCALE= 1
1290 POKE -16368,0: GET A$
1295 IF ASC(A$) = 27 THEN 21000
1300 IF VAL(A$) <1 OR VAL(A$) >9 THEN 1290
1301 IF VAL(A$) = J -10 THEN 1305
1302 XJ = ( VAL(A$) -1) *30 +4: HCOLOR= 5: HPLOT XJ,135 TO XJ +29,161 TO XJ +28,161 TO XJ,136: HPLOT XJ,160 TO XJ +29,135 TO XJ +29,136 TO XJ +1,161
1304 GOTO 1290
1305 POKE 232,0: POKE 233,64
1310 HGR : POKE -16302,0:J = J -10
1315 HCOLOR= 3: HPLOT 1,1 TO 1,0 TO 278,0 TO 278,1 TO 279,1 TO 279,190 TO 278,190 TO 278,191 TO 1,191 TO 1,190 TO 0,190 TO 0,1
1320 DRAW 10 AT 15,100
1330 FOR T = 1 TO 3
1340 DRAW J AT 180,150
1350 FOR N = 1 TO 300: NEXT
1360 HCOLOR= 0: DRAW J AT 180,150: HCOLOR= 3
1370 FOR S = 1 TO 100: NEXT
1380 NEXT T
1390 DRAW J AT 180,150
1400 FOR L = 1 TO 1000: NEXT L
1410 HCOLOR= 0: HPLOT 0,0: CALL 62454: HCOLOR= 3:J = J +10
1420 NEXT JJ
1521 REM END OF PROGRAM
21000 REM MENU-END OF PROGRAM
21005 HGR : POKE 232,0: POKE 233,64
21010 TEXT : HOME : PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"IN#0"
21020 VTAB 10: PRINT "WOULD YOU LIKE TO TRY": PRINT : CALL -868: PRINT "AGAIN (YES OR NO) ?";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN PRINT : PRINT : PRINT "PRESS Y OR N.": GOTO 21020
21030 HOME : IF Z$ = "Y" THEN HGR : HCOLOR= 3: ROT= 0: SCALE= 1: POKE -16302,0: GOTO 450
21040 IF PEEK(1023) < >123 THEN END
21045 HCOLOR= 3: HGR : POKE -16302,0: DRAW 10 AT 78,92
21050 PRINT : PRINT CHR$(4)"RUN HELLO"
35000 REM SPACE BAR ROUTINE
35010 VTAB 24: CALL -868: HTAB 7: POKE -16368,0
35020 PRINT "PRESS ";: INVERSE : PRINT "SPACE BAR";: NORMAL : PRINT " TO CONTINUE";: WAIT -16384,128
35026 POKE -16368,0
35030 HTAB 1: CALL -868: RETURN
40000 DATA 40,80,13,60,105,20,50,105,16,55,105,10,50,100,12,50,100,7,55,115,19,65,115,14,30,90,16,55,105,15,35,95,4,0,0,0,35,80,25,0,0,0,0,0,0,45,110,22,0,0,0,15,75,15,35,85,18,50,95,13

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/SOUNDS-CHARS.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 34 00 6C 00 88 00 A2 00 B9 00 CD 00 E5 00 F9 00 4.l...". 9.M.e.y.
$000010 0F 01 26 01 34 01 43 01 5D 01 68 01 81 01 9B 01 ..&.4.C. ].h.....
$000020 B0 01 C3 01 E0 01 FD 01 16 02 23 02 33 02 43 02 0.C.`.}. ..#.3.C.
$000030 55 02 6B 02 7A 02 8C 02 A1 02 B5 02 C9 02 E4 02 U.k.z... !.5.I.d.
$000040 F5 02 06 03 21 03 32 03 3B 03 48 03 5D 03 69 03 u...!.2. ;.H.].i.
$000050 7E 03 8E 03 9E 03 B5 03 CC 03 DB 03 EF 03 FC 03 ~.....5. L.[.o.|.
$000060 0B 04 18 04 27 04 39 04 4C 04 5D 04 49 71 0E 0E ....'.9. L.].Iq..
$000070 0E 3E 3F 3F 3F 2F 2D 2D 2D 35 36 36 DF DB 1B 24 .>???/-- -566_[.$
$000080 24 24 0C 0C 0C 0C 1E 00 36 36 36 36 36 2D 2D 2D $$...... 66666---
$000090 0C 0C E4 1C 3F 3F 3F 2D 2D 2D 0C 0C E4 1C 3F 3F ..d.???- --..d.??
$0000A0 2F 00 09 2D 2D 0E 0E 26 1C 1C 3F 3F 1E 1E 36 36 /..--..& ..??..66
$0000B0 36 0E 0E 2D 2D 0C 0C 34 00 36 36 36 36 36 2D 2D 6..--..4 .66666--
$0000C0 2D 0C 0C 24 24 24 1C 1C 3F 3F 3F 05 00 2D 2D 2D -..$$$.. ???..---
$0000D0 2D 3F 3F 3F 3F 36 36 2E 2D 2D 3F 3F 37 36 36 2D -????66. --??766-
$0000E0 2D 2D 2D 07 00 2D 2D 2D 2D 3F 3F 3F 3F 36 36 2E ---..--- -????66.
$0000F0 2D 2D 3F 3F 37 36 36 04 00 09 2D 2D 75 1C 3F 3F --??766. ..--u.??
$000100 F7 1E 36 36 36 0E 0E 2D 2D 65 24 24 3F 2F 00 36 w.666..- -e$$?/.6
$000110 36 2E 2D 2D 2D 3D 3F 3F 3F 37 36 36 4D 49 09 24 6.---=?? ?766MI.$
$000120 24 24 24 24 06 00 09 2D 2D 3F 36 36 36 36 36 2D $$$$...- -?66666-
$000130 3F 3F 05 00 49 49 09 36 36 36 36 1E 1E 3F 3F 1C ??..II.6 666..??.
$000140 1C 34 00 36 36 36 36 36 24 0C 0C 0C 0C 0C 0C 0C .4.66666 $.......
$000150 0C 1E 1E 1E 1E 1E 0E 0E 0E 0E 0E 1C 00 36 36 36 ........ .....666
$000160 36 36 2D 2D 2D 2D 07 00 36 36 36 36 36 24 24 24 66----.. 66666$$$
$000170 24 24 0E 0E 0E 0E 0C 0C 0C 0C 36 36 36 36 36 04 $$...... ..66666.
$000180 00 36 36 36 36 36 24 24 24 24 24 36 26 75 0E 0E .66666$$ $$$6&u..
$000190 0E 0E 0E 0E 26 24 24 24 24 34 00 09 2D 2D 0E 0E ....&$$$ $4..--..
$0001A0 36 36 36 1E 1E 3F 3F 1C 1C 24 24 24 0C 0C 2D 00 666..??. .$$$..-.
$0001B0 2D 2D 2D 0E 0E F6 1E 3F 3F 3F 36 36 26 24 24 24 ---..v.? ??66&$$$
$0001C0 24 34 00 09 2D 2D 0E 0E 36 36 36 1E 1E 0C 1C 1C $4..--.. 666.....
$0001D0 0E 0E 0E 1C 1E 3F 3F 1C 1C 24 24 24 0C 0C 2D 00 .....??. .$$$..-.
$0001E0 2D 2D 2D 0E 0E F6 1E 3F 77 0E 0E 0E 0E 1C 1C 1C ---..v.? w.......
$0001F0 1C 1C 3F 37 36 36 24 24 24 24 24 06 00 09 2D 2D ..?766$$ $$$...--
$000200 0E 0E 1C 1C 3F 3F 1E 1E 76 0E 2D 2D 0E 0E F6 1E ....??.. v.--..v.
$000210 3F 3F 1C 1C 0E 00 2D 2D 2D 2D 3F 3F 36 36 36 36 ??....-- --??6666
$000220 36 04 00 36 36 36 36 0E 0E 2D 2D 0C 0C 24 24 24 6..6666. .--..$$$
$000230 24 06 00 36 36 36 0E 0E 0E 0E 0C 0C 0C 0C 24 24 $..666.. ......$$
$000240 24 06 00 36 36 36 36 76 0C 0C 0C 0E 0E 0E 0C 24 $..6666v .......$
$000250 24 24 24 34 00 76 0E 0E 0E 14 0E 0E 0E 0E FE DB $$$4.v.. ......~[
$000260 DB 64 0C 0C 0C 0C 0C 0C 0C 34 00 76 0E 0E 0E 36 [d...... .4.v...6
$000270 36 26 24 24 0C 0C 0C 0C 34 00 2D 2D 2D 2D F6 1E 6&$$.... 4.----v.
$000280 1E 1E 1E 1E 1E 1E 2E 2D 2D 2D 3D 00 92 92 0C 0C .......- --=.....
$000290 2D 0E 0E 25 34 36 36 26 3C 1E 1E 3F 1C 1C 24 0C -..%466& <..?..$.
$0002A0 00 36 36 36 36 36 24 64 0C 0C 2D 0E 0E 36 1E 1E .66666$d ..-..6..
$0002B0 3F 1C 1C 07 00 92 92 0C 0C 2D 2D 0E 1C 3F 3F 1E ?....... .--..??.
$0002C0 1E 36 0E 0E 2D 2D 0C 1E 00 92 92 0C 0C 2D 0E 0E .6..--.. .....-..
$0002D0 25 24 24 34 36 36 36 36 26 3C 1E 14 1E 3F 1C 1C %$$46666 &<...?..
$0002E0 24 0C 0C 00 92 92 0C 0C 2D 75 0E 3E 3F 3F 3F 76 $....... -u.>???v
$0002F0 0E 2D 2D 07 00 92 2A 2D 3D 37 36 36 26 24 24 24 .--...*- =766&$$$
$000300 64 0C 2D 0E 1C 00 92 92 0C 0C 2D 0E 0E 25 34 36 d.-..... ..-..%46
$000310 36 36 F6 3F E7 0E 2D 65 24 24 F7 1E 3F 1C 1C 24 66v?g.-e $$w.?..$
$000320 00 36 36 36 66 0C 0C 2D 0E 0E 36 36 DF DB 23 24 .666f..- ..66_[#$
$000330 24 00 49 91 16 36 36 26 36 04 00 49 49 12 16 36 $.I..66& 6..II..6
$000340 36 36 36 1E 3F E7 0E 00 36 36 36 36 36 24 64 0C 666.?g.. 66666$d.
$000350 0C 0C 0C 1E 1E 1E 0E 0E 0E 0E 0E 1C 00 49 91 12 ........ .....I..
$000360 24 24 36 36 36 36 36 04 00 92 32 36 36 26 24 0C $$66666. ..266&$.
$000370 0C 0C 0E 36 36 26 24 64 0C 0E 36 36 26 00 92 32 ...66&$d ..66&..2
$000380 36 36 26 24 0C 0C 0C 2D 0E 0E 36 36 04 00 92 92 66&$...- ..66....
$000390 0C 0C 2D 75 0E 36 1E 1E 3F E7 1C 24 0C 00 92 32 ..-u.6.. ?g.$...2
$0003A0 36 36 36 36 24 24 24 0C 0C 0C 2D 0E 0E 36 1E 1E 6666$$$. ..-..6..
$0003B0 3F 1C 1C 07 00 92 92 0C 0C 2D 0E 0E 25 34 36 36 ?....... .-..%466
$0003C0 36 36 24 24 3C 1E 1E 3F 1C 1C 24 00 92 32 2E 0C 66$$<..? ..$..2..
$0003D0 0C 2D 75 1C 3F F7 1E 37 36 26 00 92 12 0C 2D 2D .-u.?w.7 6&....--
$0003E0 75 1C 3F 3F F7 76 2D 2D 75 F6 3F 3F E7 0E 00 49 u.??wv-- uv??g..I
$0003F0 36 3F 2D 2D 3F 36 36 36 76 65 1E 00 92 32 36 76 6?--?666 ve...26v
$000400 0E 2D 0C 0C 25 24 34 36 36 26 00 92 32 36 0E 0E .-..%$46 6&..26..
$000410 0E 14 65 0C 0C 24 34 00 92 32 36 36 66 0C 0C 75 ..e..$4. .266f..u
$000420 0E 0E 24 24 24 06 00 92 72 0E 0E 75 0E 0E DC DB ..$$$... r..u..\[
$000430 9B 0C 0C 0C 65 0C 0C 1E 00 92 32 36 76 0E 2D 0C ....e... ..26v.-.
$000440 0C 25 24 34 36 36 36 F6 3F E7 0E 00 92 2A 2D 2D .%$4666v ?g...*--
$000450 2D 1E 1E 1E 1E 1E 1E 2F 2D 2D 2D 07 00 .. .. .. -....../ ---..
** END **

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/SPACESHIP.bas:

1 REM COPYRIGHT 1981 MECC
2 REM PROGRAM: SPACESHIP 6/18/81
10 IF PEEK(1023) < >123 THEN TEXT
15 HOME : SPEED= 255
350 HCOLOR= 3: SCALE= 1: ROT= 0:D$ = CHR$(13) + CHR$(4): PRINT D$"NOMONC,I,O": HOME
353 PRINT D$"BLOAD SHIPS"
355 NZ = 4:NY = 10
356 HGR : POKE -16302,0
357 DIM SH(20)
360 POKE 232,0: POKE 233,64
395 HIMEM: 22016
400 HOME
410 FOR G = 1 TO 80: READ A: NEXT : FOR G = 768 TO 784: READ A: POKE G,A: NEXT
440 D4 = 0: FOR M1 = 1 TO 9
450 FOR G7 = 1 TO 20:SH(G7) = 0: NEXT
460 FOR GT = 1 TO 2
470 NB(GT) = INT( RND(1) *5) +1
480 NEXT : IF NB(1) +NB(2) = 10 THEN 460
1000 FOR JJ = 1 TO 9:NO(JJ) = JJ: NEXT
1002 FOR JJ = 1 TO 9:RN = INT( RND(1) *(10 -JJ)) +1:J = NO(RN):NO(RN) = NO(10 -JJ)
1003 J = J +10: POKE -16302,0
1010 X = INT( RND(1) *20) +1
1015 IF SH(X) = 1 THEN 1010
1020 J1 = J -10:SH(X) = 1
1022 RESTORE : FOR G7 = 1 TO X: READ XI,YI,WI,SO: NEXT
1025 IF XI = 0 THEN 1010
1030 J1 = NB(1)
1034 WI = WI +2
1035 FOR G7 = 1 TO J1: FOR H7 = 279 -WI -SO TO (G7 -1) *WI +SO STEP -30: HCOLOR= 3: DRAW X +9 AT H7,XI
1040 HCOLOR= 0: DRAW X +9 AT H7,XI: NEXT H7: HCOLOR= 3: DRAW X +9 AT (G7 -1) *WI +SO,XI: NEXT
1045 AS = J1:YS = 35: GOSUB 9000
1050 J1 = NB(2): FOR XS = 1 TO 500: NEXT
1055 FOR G7 = 1 TO J1: FOR H7 = 279 -WI -SO TO (G7 -1) *WI +SO STEP -30: HCOLOR= 3: DRAW X +9 AT H7,YI
1056 FOR I7 = 1 TO 3: NEXT I7
1060 HCOLOR= 0: DRAW X +9 AT H7,YI: NEXT H7: HCOLOR= 3: DRAW X +9 AT (G7 -1) *WI +SO,YI: NEXT
1070 AS = J1:YS = 80: GOSUB 9000: FOR XS = 1 TO 200: NEXT
1080 HPLOT 240,88 TO 240,102: HPLOT 230,95 TO 250,95: HPLOT 230,112 TO 279,112
1200 T8 = -1:T7 = 45: POKE -16368,0
1210 A1 = PEEK( -16384):T7 = T7 +1: IF A1 >127 THEN 1300
1220 IF T7 <50 THEN 1210
1230 T8 = T8 * -1: HCOLOR= 3: IF T8 = -1 THEN HCOLOR= 0
1240 AS = 30:YS = 118: GOSUB 9000:T7 = 0: IF T8 = -1 THEN T7 = 38
1250 GOTO 1210
1300 POKE -16368,0
1310 A1 = A1 -176: IF A1 = -21 THEN HOME : HGR : TEXT : GOTO 21000
1315 IF A1 <1 OR A1 >9 THEN 1210
1320 HCOLOR= 0:AS = 30:YS = 118: GOSUB 9000:AS = A1: HCOLOR= 7: GOSUB 9000
1330 IF A1 = NB(1) +NB(2) THEN 1500
1340 FOR XS = 1 TO 500: NEXT : FOR XS = 5 TO 0 STEP -5: HCOLOR= XS: HPLOT 257,115 TO 279,146 TO 278,146 TO 257,116: HPLOT 257,146 TO 279,115 TO 279,116 TO 258,146: IF XS = 5 THEN FOR SX = 1 TO 1000: NEXT
1345 NEXT
1350 HCOLOR= 0: GOSUB 9000:T7 = 45:T8 = -1:BT = BT +1: IF BT <2 THEN POKE -16368,0: GOTO 1210
1355 FOR XS = 1 TO 500: NEXT
1360 BT = 0:AS = NB(1) +NB(2):YS = 118: HCOLOR= 3: GOSUB 9000: FOR XS = 1 TO 500: NEXT : HCOLOR= 0: GOSUB 9000: FOR XS = 1 TO 500: NEXT : HCOLOR= 3: GOSUB 9000: FOR XS = 1 TO 2000: NEXT
1370 HOME : HGR : GOTO 6000
1500 AS = NB(1): HCOLOR= 3:XS = 50:BT = 0:YS = 150: GOSUB 9005
1505 D4 = D4 +1
1510 HPLOT 92,156 TO 92,170: HPLOT 82,163 TO 102,163
1520 AS = NB(2):XS = 120: GOSUB 9005
1530 HPLOT 155,157 TO 170,157 TO 170,158 TO 155,158: HPLOT 155,168 TO 170,168 TO 170,169 TO 155,169
1540 AS = NB(1) +NB(2):XS = 190: GOSUB 9005
1550 FOR XS = 1 TO 2000: NEXT : HCOLOR= 0: HPLOT 0,0: CALL 62454:T9 = T9 +1
1555 HOME : TEXT
1560 HCOLOR= 3: FOR XS = 1 TO 30: HPLOT INT( RND(1) *280), INT( RND(1) *192): NEXT : HPLOT 1,1 TO 1,0 TO 278,0 TO 278,1 TO 279,1 TO 279,190 TO 278,190 TO 278,191 TO 1,191 TO 1,190 TO 0,190 TO 0,1
1565 IF T9 = 1 THEN POKE -16304,0: FOR XS = 1 TO 500: NEXT : DRAW 31 AT 5,90: GOTO 1610
1570 FOR GK = 1 TO T9 -1: DRAW 30 +GK AT 5,90: NEXT
1580 POKE -16304,0: FOR XS = 1 TO 1000: NEXT : IF T9 = 3 THEN 3000
1600 DRAW 32 AT 5,90
1610 FOR XS = 1 TO 2000: NEXT : HCOLOR= 0: HPLOT 0,0: CALL 62454: GOTO 6000
3000 HCOLOR= 0: DRAW 34 AT 22,106: HCOLOR= 3: DRAW 33 AT 5,90: FOR XS = 1 TO 999: NEXT
3005 X1 = 115:Y1 = 36:W1 = 67/NY:V1 = 110/NY: IF RND(1) >.5 THEN W1 = W1 * -1:Y1 = 170
3007 FOR C = 1 TO NY: HCOLOR= 3: DRAW 36 AT X1,Y1: FOR D = 1 TO 3: NEXT : HCOLOR= 0: DRAW 36 AT X1,Y1:X1 = X1 +V1:Y1 = Y1 +W1: NEXT : HCOLOR= 3: DRAW 36 AT 225,103: IF D4 = 9 THEN 3500
3008 HCOLOR= 5:FX = 236:FY = 102: GOSUB 3009: GOTO 3015
3009 V1 = (FX -27)/NZ:V2 = (FX -51)/NZ:W1 = (FY -88)/NZ:W2 = (FY -127)/NZ: CALL 768
3010 X1 = 27:Y1 = 88:X2 = 51:Y2 = 127: FOR C = 1 TO NZ +1
3011 HPLOT 27,88 TO X1,Y1: HPLOT 51,127 TO X2,Y2:X1 = X1 +V1:Y1 = Y1 +W1:X2 = X2 +V2:Y2 = Y2 +W2: NEXT
3012 RETURN
3015 HCOLOR= 0: GOSUB 3009
3020 FOR G = 1 TO 2: HCOLOR= 5: DRAW 36 AT 225,103: HCOLOR= 3: DRAW 36 AT 225,103:ZZ = PEEK( -16336): NEXT : HCOLOR= 0: DRAW 36 AT 225,103
3030 FOR C = 37 TO 41: FOR D = 1 TO 4: HCOLOR= VAL( MID$ ("3560",D,1)): DRAW C AT 267,103: FOR E = 1 TO 2:ZZ = PEEK( -16336): NEXT E,D,C
3040 T9 = 0: GOTO 1610
3500 POKE 772,200: CALL 768: POKE 772,136:SX = -3.033:SY = .83333:TX = 224:TY = 86: GOSUB 35100
3510 POKE 772,200: CALL 768: POKE 772,136:SX = -3.866:SY = .3333:TX = 224:TY = 86: GOSUB 35100: GOTO 3008
6000 NEXT M1
6010 HGR : TEXT : HOME
6020 GOTO 21000
8999 END
9000 XS = 259
9005 SCALE= 3: IF AS = 8 THEN SCALE= 1:XS = XS +4
9010 FOR GS = 0 TO 2: DRAW AS AT GS +XS,YS: NEXT : IF AS < >30 THEN DRAW AS AT XS +1,YS +1
9020 SCALE= 1: RETURN
21000 REM MENU-END OF PROGRAM
21005 HGR
21010 TEXT : HOME : PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"IN#0"
21020 VTAB 10: PRINT "WOULD YOU LIKE TO TRY": PRINT : CALL -868: PRINT "AGAIN (YES OR NO) ?";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN PRINT : PRINT : PRINT "PRESS Y OR N.": GOTO 21020
21030 HOME : IF Z$ = "Y" THEN CLEAR : RESTORE : GOTO 355
21040 IF PEEK(1023) < >123 THEN END
21045 HGR : POKE 232,0: POKE 233,64: HCOLOR= 3: POKE -16302,0: FOR G = 31 TO 33: DRAW G AT 102,75: NEXT
21050 PRINT : PRINT CHR$(4)"RUN HELLO"
35100 FOR G = 1 TO 30: HCOLOR= 3: DRAW 35 AT TX,TY: FOR G1 = 1 TO 10: NEXT : HCOLOR= 0: DRAW 35 AT TX,TY:TX = TX +SX:TY = TY +SY: NEXT
35110 HCOLOR= 3: DRAW 35 AT TX,TY:FX = TX:FY = TY: HCOLOR= 5: GOSUB 3009: HCOLOR= 0: GOSUB 3009: DRAW 35 AT TX,TY
35120 RETURN
40000 DATA 50,90,40,0,60,105,31,0,50,105,36,0,60,108,43,0,60,105,41,0,0,0,0,0,60,110,30,7,70,115,39,0,30,85,45,16,55,102,37,9,0,0,0,0,0,0,0,0,38,83,39,23,0,0,0,0,0,0,0,0
40010 DATA 45,105,32,21,0,0,0,0,15,70,37,8,35,85,35,5,55,99,41,1
50000 DATA 162,0,138,168,136,208 ,253,238,48,192,232,232,234,232,208,242,96

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/TEACHER SELECTIONS.bas:

210 NORMAL : HOME : PRINT CHR$(12)
215 HIMEM: 19711
220 SPEED= 255:D$ = CHR$(13) + CHR$(4): PRINT D$"NOMONC,I,O": PRINT D$"BRUN BPRTS"
500 CL$ = CHR$(12): PRINT CL$: VTAB 6: PRINT "^WOULD YOU LIKE TO:": PRINT : PRINT SPC( 5)"1) ^EDIT THE LIST OF LETTERS": PRINT SPC( 8)"FOR THE PROGRAM " CHR$(34);: POKE 251,1: PRINT "A IS FOR APPLE" CHR$(34): POKE 251,0
510 PRINT SPC( 5)"2) ^EDIT THE WORD LIST": PRINT SPC( 8)"FOR THE PROGRAM " CHR$(34);: POKE 251,1: PRINT "WORDS" CHR$(34): POKE 251,0: PRINT : PRINT "^WHICH ONE WOULD YOU LIKE";
520 POKE -16368,0: INPUT CH$:CH = VAL(CH$): IF CH <1 OR CH >2 THEN 500
1010 PRINT CL$: VTAB 8: PRINT "^WOULD YOU LIKE TO USE:": PRINT : PRINT " 1) ^UPPER CASE CHARACTERS": PRINT : PRINT " 2) ^LOWER CASE CHARACTERS": PRINT : PRINT "^WHICH ONE WOULD YOU LIKE";
1020 POKE -16368,0: INPUT A$:A = VAL(A$): IF A <1 OR A >2 THEN 1010
1025 IF CH = 2 THEN 10000
1028 PRINT CL$D$"BLOAD ZETA-INFO": PRINT CL$: HCOLOR= 3
1029 DIM F%(26),G%(26)
1030 HPLOT 36,5 TO 36,4 TO 229,4 TO 229,5 TO 230,5 TO 230,91 TO 229,91 TO 229,92 TO 36,92 TO 36,91 TO 35,91 TO 35,5
1040 D1 = 0: FOR J = 1 TO 3: FOR K = 1 TO 9:D1 = D1 +1: IF D1 <27 THEN F%(D1) = 10 +(11 *(J -1)):G%(D1) = K +1: VTAB G%(D1): HTAB F%(D1) -3:H = D1: GOSUB 31000
1045 NEXT K,J
1050 HTAB 1: VTAB 13: PRINT "^PRESS:": PRINT SPC( 5)"'^Y' TO USE THAT LETTER": PRINT SPC( 5)"'^N' TO NOT USE THAT LETTER"
1055 PRINT SPC( 9)"TO BACK UP IN THE LIST": PRINT SPC( 9)"TO MOVE FORWARD IN THE LIST"
1060 POKE 32,0: POKE 33,40: PRINT : PRINT "^PRESS '^R^E^T^U^R^N' WHEN DONE.": PRINT "^PRESS '^E^S^C' TO END WITHOUT CHANGING.";
1070 FOR G = 0 TO 3: HPLOT 42 +G,139 +G: HPLOT 42 +G,139 -G: HPLOT 52 -G,147 +G: HPLOT 52 -G,147 -G: NEXT : HPLOT 42,139 TO 52,139: HPLOT 42,147 TO 52,147
1075 IF CH = 2 THEN 10050
1080 POKE -16368,0:TB = 1:TT = 1:NU = 1:T1 = 39
1090 U = PEEK( -16384): IF U >128 THEN 2000
1092 T1 = T1 +1: IF T1 <30 THEN 1090
1095 TT = TT * -1: VTAB G%(NU): HTAB F%(NU) -1: IF TT = 1 THEN PRINT " " CHR$(8);
1098 IF TT = -1 THEN PRINT ">"
1099 T1 = 1: GOTO 1090
2000 POKE -16368,0:U = U -128: IF U = 27 THEN 21000
2010 IF U < >8 AND U < >21 AND U < >13 AND U < >78 AND U < >89 THEN 1092
2020 VTAB G%(NU): HTAB F%(NU): PRINT CHR$(8);: IF U = 89 THEN PRINT " " CHR$(8)"Y";:J = A: GOSUB 33000: GOTO 4000
2030 IF U = 78 THEN PRINT " " CHR$(8)"N":J = 0: GOSUB 33000: GOTO 4000
2040 IF U = 13 THEN 5000
2050 IF U = 21 THEN 4000
3000 NU = NU -1: IF NU = 0 THEN NU = 26
3020 T1 = 39:TT = 1: VTAB G%(NU): HTAB F%(NU) -1: PRINT ">": GOTO 1090
4000 NU = NU +1: IF NU = 27 THEN NU = 1
4020 GOTO 3020
5000 LM = 0: FOR G = 801 TO 826: IF A = 1 AND PEEK(G) = 1 THEN LM = LM +1
5002 IF A = 2 AND PEEK(G) = 2 THEN LM = LM +1
5003 IF PEEK(G) = 3 THEN LM = LM +1
5004 NEXT :FY = 105:SY = 183: IF LM <1 THEN GOSUB 32000: VTAB 15: HTAB 1: PRINT "^YOU MUST HAVE AT LEAST ONE LETTER": PRINT "TO TEST WITH...": GOSUB 20500:FY = 125:SY = 145: GOSUB 32000: GOTO 1050
5005 GOSUB 32000: VTAB 15: HTAB 1: PRINT "^ARE ALL ENTRIES CORRECT";: INPUT F$:F$ = LEFT$(F$,1): IF F$ < >"Y" AND F$ < >"N" THEN FY = 125:SY = 135: GOTO 5005
5006 FY = 125:SY = 135: GOSUB 32000
5010 IF F$ = "N" THEN 1050
5015 FY = 115:SY = 145
5020 VTAB 14: PRINT "^HOW MANY PROBLEMS WOULD YOU LIKE": PRINT : PRINT "EACH STUDENT TO DO";: INPUT G$:LN = VAL(G$): IF LN <1 OR LN >LM THEN GOSUB 32000: VTAB 20: HTAB 1: PRINT "^THE NUMBER MUST BE FROM 1 TO "LM".": GOTO 5020
5030 GOSUB 40000: POKE 827,LN:C1 = 0:C2 = 0: FOR G = 801 TO 806: IF A = PEEK(G) OR PEEK(G) = 3 THEN C1 = C1 +1
5040 NEXT : FOR G = 814 TO 820: IF A = PEEK(G) OR PEEK(G) = 3 THEN C1 = C1 +1
5050 NEXT : FOR G = 807 TO 813: IF A = PEEK(G) OR PEEK(G) = 3 THEN C2 = C2 +1
5060 NEXT : FOR G = 821 TO 826: IF A = PEEK(G) OR PEEK(G) = 3 THEN C2 = C2 +1
5070 NEXT : POKE 828,C1: POKE 829,C2: POKE 800,A:EC = 1: ONERR GOTO 15000
5080 PRINT D$"BSAVE ZETA-INFO,A800,L30": GOTO 21035
10000 PRINT CL$D$"OPEN WORDS FILE": PRINT D$"READ WORDS FILE": INPUT B7: FOR G = 1 TO 10: INPUT WD$(G): NEXT : PRINT D$"CLOSE WORDS FILE"
10010 IF CA = 2 THEN B7 = 64
10020 PRINT CL$: HCOLOR= 3: HPLOT 35,13 TO 35,12 TO 244,12 TO 244,13 TO 245,13 TO 245,100 TO 244,100 TO 244,101 TO 35,101 TO 35,100 TO 34,100 TO 34,13
10025 GOSUB 36000
10030 FOR G = 1 TO 2: FOR H = 1 TO 5: HTAB 9 +(G -1) *15: IF G *H = 10 THEN HTAB 23
10035 VTAB 3 +(H -1) *2: PRINT (G -1) *5 +H": "WD$((G -1) *5 +H): NEXT H,G: POKE 251,0
10040 VTAB 13: PRINT "^ENTER:": PRINT SPC( 6)"^WORDS AT A CURRENT LINE BEING": PRINT SPC( 6)"POINTED TO BY '>'.": GOTO 1055
10050 PO = 1:FL = 1:TM = 30: POKE -16368,0:VT = 3:HT = 11
10055 GOSUB 36000
10060 U = PEEK( -16384): IF U >128 THEN 10100
10070 TM = TM +1: IF TM <30 THEN 10060
10080 FL = FL * -1: VTAB VT: HTAB HT: IF FL = -1 THEN PRINT ">"
10090 IF FL = 1 THEN PRINT CHR$(20)" "
10095 TM = 1: GOTO 10060
10100 POKE -16368,0:U = U -128: IF U = 27 THEN 21000
10110 IF U < >8 AND U < >21 AND U < >13 AND (U <65 OR U >90) THEN 10070
10115 IF U <65 OR U >90 THEN 10200
10117 GOSUB 36000
10120 WT$ = CHR$(U): HTAB HT: VTAB VT: PRINT ">";: FOR G = 1 TO 6: PRINT CHR$(20)" ";: NEXT : HTAB HT +1: PRINT WT$ CHR$(20)"<"
10130 GET NX$: IF NX$ = CHR$(8) AND LEN(WT$) = 1 THEN HTAB HT: VTAB VT: PRINT "> ";: HTAB HT +1: PRINT WD$(PO);:FL = 1:TM = 30: GOTO 10060
10140 IF NX$ = CHR$(27) THEN 21000
10150 IF NX$ = CHR$(13) THEN WD$(PO) = WT$: VTAB VT: HTAB HT +1 + LEN(WT$): PRINT CHR$(20)" ": GOTO 10210
10160 IF NX$ = CHR$(8) THEN VTAB VT: HTAB HT + LEN(WT$): PRINT CHR$(20)"<" CHR$(20)" ":WT$ = LEFT$(WT$, LEN(WT$) -1): GOTO 10130
10170 IF NX$ <"A" OR NX$ >"Z" THEN 10130
10180 IF LEN(WT$) >5 THEN PRINT "": GOTO 10130
10190 HTAB 1 +HT + LEN(WT$): VTAB VT: PRINT CHR$(20)NX$ CHR$(20)"<":WT$ = WT$ +NX$: GOTO 10130
10200 POKE 251,0: IF U < >21 THEN 10300
10210 PO = PO +1: GOSUB 39000: GOTO 10060
10300 IF U = 8 THEN PO = PO -1: GOSUB 39000: GOTO 10060
10400 IF U < >13 THEN 10060
10450 FY = 105:SY = 191: HTAB HT: VTAB VT: PRINT CHR$(20)" "
10500 GOSUB 32000:F1 = 0: FOR G = 1 TO 9: FOR H = G +1 TO 10: IF WD$(G) = WD$(H) THEN F1 = 1
10510 NEXT H,G: IF F1 = 0 THEN 10600
10520 VTAB 15: PRINT "^NONE OF THE WORDS IN THE LIST SHOULD": PRINT : PRINT "BE THE SAME..."
10530 GOSUB 20500:FY = 125:SY = 155: GOSUB 32000: GOTO 10040
10600 VTAB 15: PRINT "^ARE ALL ENTRIES CORRECT";: INPUT YN$:YN$ = LEFT$(YN$,1): IF YN$ < >"Y" AND YN$ < >"N" THEN FY = 125:SY = 140: GOSUB 32000: GOTO 10600
10605 IF YN$ = "N" THEN FY = 125:SY = 140: GOSUB 32000: GOTO 10040
10607 GOSUB 40000: POKE 34,15:EC = 2: ONERR GOTO 15000
10610 PRINT D$"OPEN WORDS FILE": PRINT D$"WRITE WORDS FILE": PRINT A: FOR G = 1 TO 10: PRINT WD$(G): NEXT : PRINT D$"CLOSE WORDS FILE": GOTO 21035
15000 ER = PEEK(222): PRINT CL$: VTAB 9: IF ER = 4 THEN PRINT "^REMOVE THE WRITE PROTECT STICKER.": GOTO 15200
15100 PRINT "^MAKE SURE THE DISK IS INSERTED": PRINT : PRINT "PROPERLY."
15200 GOSUB 20500: GOSUB 40000: ON EC GOTO 5080,10610
19999 GOTO 19999
20500 VTAB 21: HTAB 5: PRINT "^PRESS " CHR$(34);: POKE 251,1: PRINT "SPACE BAR" CHR$(34);: POKE 251,0: PRINT " TO CONTINUE."
20510 GET ZZ$: IF ZZ$ < >" " AND ZZ$ < > CHR$(13) THEN 20510
20520 FY = 179:SY = 191: GOSUB 32000: RETURN
21000 PRINT CL$: HOME : POKE 251,0
21020 VTAB 10: PRINT "^WOULD YOU LIKE TO TRY": PRINT : PRINT SPC( 40): VTAB 12:: INPUT "AGAIN (YES OR NO) ?";Z$:Z$ = LEFT$(Z$,1): IF Z$ < >"Y" AND Z$ < >"N" THEN 21020
21030 PRINT CL$: IF Z$ = "Y" THEN CLEAR :D$ = CHR$(13) + CHR$(4): GOTO 500
21035 PRINT D$"PR#0": PRINT D$"IN#0": HOME : POKE 216,0
21040 IF PEEK(1023) < >123 THEN TEXT : HOME : END
21050 PRINT CHR$(4)"RUN HELLO"
31000 IF A = 1 THEN PRINT "^";
31010 PRINT CHR$(H +64)": ";:H1 = PEEK(800 +H): IF A = 1 AND H1 = 1 THEN PRINT "Y";: RETURN
31020 IF H1 = 2 AND A = 2 THEN PRINT "Y";: RETURN
31025 IF H1 = 3 THEN PRINT "Y";: RETURN
31030 PRINT "N";: RETURN
32000 HCOLOR= 0: FOR OO = FY TO SY: HPLOT 0,OO TO 279,OO: NEXT :FR = FRE(0): HCOLOR= 3: RETURN
33000 J1 = PEEK(800 +NU): IF J1 = 0 THEN J2 = J: GOTO 33200
33010 IF J1 = 3 THEN 33100
33030 IF (J1 = 1 AND J = 2) OR (J1 = 2 AND J = 1) THEN J2 = 3: GOTO 33200
33040 IF J1 = J THEN J2 = J: GOTO 33200
33050 IF A = 1 THEN J2 = (J1 -1) *2: GOTO 33200
33060 J2 = ABS(J1 -2): GOTO 33200
33100 IF J = 1 OR J = 2 THEN J2 = 3: GOTO 33200
33110 J2 = 1: IF A = 1 THEN J2 = 2
33200 POKE 800 +NU,J2: RETURN
36000 IF A = 1 THEN POKE 251,1
36010 RETURN
39000 HTAB HT: VTAB VT: PRINT CHR$(20)" ": IF PO = 0 THEN PO = 10
39005 IF PO = 11 THEN PO = 1
39010 HT = 11: IF PO >5 THEN HT = 26
39020 OP = PO: IF OP >5 THEN OP = OP -5
39030 VT = 2 *OP +1: HTAB HT: VTAB VT: PRINT ">": RETURN
40000 PRINT CL$: VTAB 11: PRINT "^ONE MOMENT, PLEASE...": RETURN

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/TRAIN.bas:

1 REM PROGRAM: TRAIN
2 REM LAST UPDATE: 6/18/81
3 IF PEEK(1023) < >123 THEN TEXT : HOME
5 PL$ = CHR$(13) + CHR$(4)
7 PRINT PL$"NOMONC,I,O": HOME : PRINT PL$"BLOAD NEWALPH2": POKE 232,0: POKE 233,64: ROT= 0: SCALE= 1: HCOLOR= 3: SPEED= 255
35 CK = 0
42 FOR LL = 1 TO 10
45 HOME : HGR : POKE -16302,0
46 HCOLOR= 3:T1 = 0:T2 = 9:F2 = 0:F1 = 0:J1 = -1
50 Z = INT( RND(1) *4) +1:Z2 = INT( RND(1) *22) +1:X = 35:Y = 90: SCALE= 2: FOR G = 0 TO 4: IF G = Z THEN SCALE= 3: DRAW 145 AT X -1,Y -13: DRAW 145 AT X,Y -14: SCALE= 2:X9 = X:Y9 = Y -15: GOTO 58
54 FOR W1 = 0 TO 2: DRAW G +Z2 +52 AT X +W1,Y -15: NEXT W1
58 X = X +50: NEXT G: POKE -16368,0
59 SCALE= 1
60 X = PEEK( -16384): IF X > = 127 THEN 70
64 GOSUB 8000:F2 = F2 +1: IF F2 >1050 THEN F2 = 0: IF T1 <1 THEN T1 = T1 +1
68 GOTO 60
70 X = X -128: POKE -16368,0: IF X = 27 THEN 21000
71 IF X <65 OR X >90 THEN T1 = T1 +1: GOTO 64
72 IF X -64 < >Z +Z2 THEN T1 = T1 +1: GOTO 64
75 HCOLOR= 3
80 SCALE= 2: FOR W1 = 0 TO 2: DRAW Z +Z2 +52 AT X9 +W1,Y9: NEXT W1: SCALE= 1: FOR W1 = 1 TO 300: NEXT W1
120 FOR MD = 1 TO 300: NEXT MD
123 IF T1 >1 THEN NEXT LL: GOTO 21000
125 HOME : HGR : TEXT : POKE -16302,0
130 HCOLOR= 3: HPLOT 0,105 TO 279,105 TO 279,106 TO 0,106: IF CK = 0 THEN 500
133 CO = 0: IF CK = 9 THEN Z2 = Z2 -1
135 FOR KG = CK TO 1 STEP -1:CH(KG) = Z +Z2 +78 -CO:CO = CO +1: NEXT KG
140 DRAW 120 AT 1,100: IF CK = 1 THEN 1000
150 FOR GK = 1 TO CK -1: DRAW 121 AT 23 *GK +14,100
153 DX = 0
155 IF CH(GK) = 85 OR CH(GK) = 88 OR CH(GK) = 94 OR CH(GK) = 95 OR CH(GK) = 103 THEN DX = -3
170 IF CH(GK) >78 THEN DRAW CH(GK) AT 23 *GK +25,91 +DX
200 NEXT GK
210 GOTO 1000
500 POKE -16304,0: FOR MD = 241 TO 1 STEP -8: HCOLOR= 3: DRAW 120 AT MD,100: FOR TF = 1 TO 25: NEXT TF: HCOLOR= 0: DRAW 120 AT MD,100: NEXT MD: HCOLOR= 3: DRAW 120 AT 1,100
550 GOTO 7000
1000 POKE -16304,0: FOR HA = 1 TO 300: NEXT HA: IF CK = 9 THEN 3000
1003 BY = 0
1005 IF CH(CK) = 85 OR CH(CK) = 88 OR CH(CK) = 94 OR CH(CK) = 95 OR CH(CK) = 103 THEN BY = -3
1010 FOR JK = 241 TO 23 *CK +14 STEP -4: HCOLOR= 3: DRAW 121 AT JK,100: DRAW CH(CK) AT JK +11,91 +BY
1020 FOR LK = 1 TO 10: NEXT LK
1030 HCOLOR= 0: DRAW 121 AT JK,100: DRAW CH(CK) AT JK +11,91 +BY: NEXT JK
1040 HCOLOR= 3: DRAW 121 AT 23 *CK +14,100: DRAW CH(CK) AT 23 *CK +25,91 +BY
1050 GOTO 7000
3000 FOR JK = 230 TO 221 STEP -3: HCOLOR= 3: DRAW 122 AT JK,100: FOR LK = 1 TO 10: NEXT LK
3010 HCOLOR= 0: DRAW 122 AT JK,100: NEXT JK: HCOLOR= 3: DRAW 122 AT 221,100
7000 CK = CK +1
7010 FOR MD = 1 TO 1000: NEXT MD,LL
7020 FOR MD = 1 TO 1000: NEXT MD: GOTO 21000
8000 IF T1 < >1 THEN 8200
8040 IF T2 = 1 THEN 8200
8050 HCOLOR= 3:X5 = 10: FOR G = 1 TO 26: IF G < >Z +Z2 THEN DRAW G AT G *10,130
8060 NEXT G:T2 = 1
8200 IF T1 <1 THEN RETURN
8500 F1 = F1 +1: IF F1 <15 THEN RETURN
8510 X1 = 144: HCOLOR= 0: DRAW 144 AT (Z +Z2) *10,130: IF T1 >1 THEN X1 = Z2 +Z
8530 J1 = J1 * -1: IF J1 = 1 THEN HCOLOR= 3: DRAW X1 AT (Z +Z2) *10,130:F1 = 0: RETURN
8540 HCOLOR= 0: DRAW X1 AT (Z +Z2) *10,130:F1 = 0: RETURN
21000 REM MENU-END OF PROGRAM
21005 HGR
21010 TEXT : HOME : PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"IN#0"
21020 VTAB 10: PRINT "WOULD YOU LIKE TO TRY": PRINT : CALL -868: PRINT "AGAIN (YES OR NO) ?";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN PRINT : PRINT : PRINT "PRESS Y OR N.": GOTO 21020
21030 HOME : IF Z$ = "Y" THEN 35
21040 IF PEEK(1023) < >123 THEN END
21045 HGR : POKE -16302,0: HCOLOR= 3: DRAW 120 AT 117,102
21050 PRINT : PRINT CHR$(4)"RUN HELLO"

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/WORDS-TAB.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4B 00 9A 00 48 01 62 04 C4 04 E0 04 FA 04 11 05 K...H.b. D.`.z...
$000010 25 05 3D 05 51 05 67 05 7E 05 8C 05 9B 05 B5 05 %.=.Q.g. ~.....5.
$000020 C0 05 D9 05 F3 05 08 06 1B 06 38 06 55 06 6E 06 @.Y.s... ..8.U.n.
$000030 A3 07 B2 07 BF 07 CB 07 D6 07 E4 07 F0 07 FC 07 #.2.?.K. V.d.p.|.
$000040 09 08 12 08 1B 08 2B 08 32 08 42 08 51 08 5C 08 ......+. 2.B.Q.\.
$000050 68 08 77 08 86 08 93 08 9B 08 A4 08 AE 08 BB 08 h.w..... ..$...;.
$000060 C7 08 D0 08 7B 06 88 06 95 06 A2 06 AF 06 BB 06 G.P.{... .."./.;.
$000070 C6 06 D6 06 E0 06 E5 06 ED 06 FB 06 01 07 0D 07 F.V.`.e. m.{.....
$000080 17 07 22 07 30 07 3D 07 46 07 53 07 5C 07 66 07 ..".0.=. F.S.\.f.
$000090 71 07 7D 07 8C 07 98 07 DB 08 32 36 36 36 36 36 q.}..... [.266666
$0000A0 36 36 36 36 36 36 36 36 36 36 36 76 2D 2D 2D 2D 66666666 666v----
$0000B0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$0000C0 2D 2D 2D 2D 65 24 24 24 24 24 24 24 24 24 24 24 ----e$$$ $$$$$$$$
$0000D0 24 24 24 24 24 24 1C 3F 3F 3F 3F 3F 3F 3F 3F 3F $$$$$$.? ????????
$0000E0 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 37 ???????? ???????7
$0000F0 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 66666666 66666666
$000100 36 25 2E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 6%.----- --------
$000110 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 25 2F 24 24 24 24 -------- --%/$$$$
$000120 24 24 24 24 24 24 24 24 24 24 24 24 3C 26 3F 3F $$$$$$$$ $$$$<&??
$000130 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ???????? ????????
$000140 3F 3F 3F 3F 3F 37 07 00 52 49 2D 2D 2D 2D 2D 2D ?????7.. RI------
$000150 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000160 2E 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F .??????? ????????
$000170 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$000180 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000190 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$0001A0 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$0001B0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$0001C0 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$0001D0 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$0001E0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$0001F0 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$000200 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$000210 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000220 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$000230 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$000240 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000250 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$000260 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$000270 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000280 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$000290 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$0002A0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$0002B0 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$0002C0 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$0002D0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$0002E0 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$0002F0 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$000300 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000310 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$000320 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$000330 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000340 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$000350 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$000360 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000370 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$000380 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$000390 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$0003A0 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$0003B0 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$0003C0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$0003D0 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$0003E0 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$0003F0 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000400 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$000410 3F 3F 3F 3F 3F 3F 3F 3F 37 2D 2D 2D 2D 2D 2D 2D ???????? 7-------
$000420 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000430 35 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 5??????? ????????
$000440 3F 3F 3F 3F 3F 3F 3F 3F 2F 2E 2D 2D 2D 2D 2D 2D ???????? /.------
$000450 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -------- --------
$000460 05 00 92 4A 49 49 91 51 8A 36 36 36 36 36 36 36 ...JII.Q .6666666
$000470 36 36 35 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 25 665----- -------%
$000480 25 24 24 24 24 24 24 24 24 3C 3C 3F 3F 3F 3F 3F %$$$$$$$ $< $000490 3F 3F 3F 3F 3F 3F 3F 36 36 36 36 36 36 36 36 36 ???????6 66666666
$0004A0 35 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 25 25 24 24 5------- ----%%$$
$0004B0 24 24 24 24 24 3C 3C 3F 3F 3F 3F 3F 3F 3F 3F 3F $$$$$< $0004C0 3F 3F 3E 00 49 71 0E 0E 0E 3E 3F 3F 3F 2F 2D 2D ??>.Iq.. .>???/--
$0004D0 2D 35 36 36 DF DB 1B 24 24 24 0C 0C 0C 0C 1E 00 -566_[.$ $$......
$0004E0 36 36 36 36 36 2D 2D 2D 0C 0C E4 1C 3F 3F 3F 2D 66666--- ..d.???-
$0004F0 2D 2D 0C 0C E4 1C 3F 3F 2F 00 09 2D 2D 0E 0E 26 --..d.?? /..--..&
$000500 1C 1C 3F 3F 1E 1E 36 36 36 0E 0E 2D 2D 0C 0C 34 ..??..66 6..--..4
$000510 00 36 36 36 36 36 2D 2D 2D 0C 0C 24 24 24 1C 1C .66666-- -..$$$..
$000520 3F 3F 3F 05 00 2D 2D 2D 2D 3F 3F 3F 3F 36 36 2E ???..--- -????66.
$000530 2D 2D 3F 3F 37 36 36 2D 2D 2D 2D 07 00 2D 2D 2D --??766- ---..---
$000540 2D 3F 3F 3F 3F 36 36 2E 2D 2D 3F 3F 37 36 36 04 -????66. --??766.
$000550 00 09 2D 2D 75 1C 3F 3F F7 1E 36 36 36 0E 0E 2D ..--u.?? w.666..-
$000560 2D 65 24 24 3F 2F 00 36 36 2E 2D 2D 2D 3D 3F 3F -e$$?/.6 6.---=??
$000570 3F 37 36 36 4D 49 09 24 24 24 24 24 06 00 09 2D ?766MI.$ $$$$...-
$000580 2D 3F 36 36 36 36 36 2D 3F 3F 05 00 49 49 09 36 -?66666- ??..II.6
$000590 36 36 36 1E 1E 3F 3F 1C 1C 34 00 36 36 36 36 36 666..??. .4.66666
$0005A0 24 0C 0C 0C 0C 0C 0C 0C 0C 1E 1E 1E 1E 1E 0E 0E $....... ........
$0005B0 0E 0E 0E 1C 00 36 36 36 36 36 2D 2D 2D 2D 07 00 .....666 66----..
$0005C0 36 36 36 36 36 24 24 24 24 24 0E 0E 0E 0E 0C 0C 66666$$$ $$......
$0005D0 0C 0C 36 36 36 36 36 04 00 36 36 36 36 36 24 24 ..66666. .66666$$
$0005E0 24 24 24 36 26 75 0E 0E 0E 0E 0E 0E 26 24 24 24 $$$6&u.. ....&$$$
$0005F0 24 34 00 09 2D 2D 0E 0E 36 36 36 1E 1E 3F 3F 1C $4..--.. 666..??.
$000600 1C 24 24 24 0C 0C 2D 00 2D 2D 2D 0E 0E F6 1E 3F .$$$..-. ---..v.?
$000610 3F 3F 36 36 26 24 24 24 24 34 00 09 2D 2D 0E 0E ??66&$$$ $4..--..
$000620 36 36 36 1E 1E 0C 1C 1C 0E 0E 0E 1C 1E 3F 3F 1C 666..... .....??.
$000630 1C 24 24 24 0C 0C 2D 00 2D 2D 2D 0E 0E F6 1E 3F .$$$..-. ---..v.?
$000640 77 0E 0E 0E 0E 1C 1C 1C 1C 1C 3F 37 36 36 24 24 w....... ..?766$$
$000650 24 24 24 06 00 09 2D 2D 0E 0E 1C 1C 3F 3F 1E 1E $$$...-- ....??..
$000660 76 0E 2D 2D 0E 0E F6 1E 3F 3F 1C 1C 0E 00 2D 2D v.--..v. ??....--
$000670 2D 2D 3F 3F 36 36 36 36 36 04 00 92 0C 75 0E 24 --??6666 6....u.$
$000680 36 36 24 3E 1E E7 34 00 36 36 36 24 0C 0C 75 36 66$>.g4. 666$..u6
$000690 1E E7 1C 04 00 92 0C 2D 0E 1C 3F 1E 36 0E 2D 0C .g.....- ..?.6.-.
$0006A0 1E 00 49 31 36 36 26 F7 E7 24 0C 2D 0E 36 00 92 ..I166&w g$.-.6..
$0006B0 22 0C 2D 0E 3E 3F 37 0E 2D 07 00 92 2D 27 64 75 ".-.>?7. -...-'du
$0006C0 1C F7 36 36 26 00 92 0C 2D 0E 36 26 F7 E7 24 36 .w66&... -.6&wg$6
$0006D0 0E 4D F6 3F 05 00 36 36 36 24 0C 0C 75 36 26 00 .Mv?..66 6$..u6&.
$0006E0 89 16 36 26 00 49 B2 36 36 1E 3F 05 00 36 36 36 ..6&.I26 6.?..666
$0006F0 24 2D 0C 0C 1E 1E 0E 0E 1C 1C 00 09 36 36 36 04 $-...... ....666.
$000700 00 92 36 26 24 0C 0E 26 0C 0E 36 26 00 12 36 36 ..6&$..& ..6&..66
$000710 24 2C 0C 75 36 26 00 92 0C 2D 0E 36 1E 3F 1C 24 $,.u6&.. .-.6.?.$
$000720 06 00 12 36 36 36 24 2C 0E 65 24 1C 3F 1E 06 00 ...666$, .e$.?...
$000730 92 0C 75 36 36 0E 1C 24 F7 1C 24 06 00 12 36 36 ..u66..$ w.$...66
$000740 24 2C 0C 75 1C 00 92 0C 2D 3D 3F 1E 0E 2D 0E 1E $,.u.... -=?..-..
$000750 3F 2F 00 09 36 36 36 24 24 3D 2F 00 12 36 76 65 ?/..666$ $=/..6ve
$000760 0C 24 36 36 04 00 12 36 0E 0E 1C 0E 0C 0C 24 06 .$66...6 ......$.
$000770 00 12 36 36 0C 0C 0E 0E 24 24 26 06 00 12 0E 0E ..66.... $$&.....
$000780 0E 0E 1C 1C 1E 1E 0C 0C 0C 0C 1E 00 12 36 76 65 ........ .....6ve
$000790 0C 24 36 36 F6 3F 05 00 12 2D 2D 1E 1E 1E 1E 2D .$66v?.. .--....-
$0007A0 2D 07 00 09 0E 0E 36 36 24 3C 3F 37 36 24 24 0C -.....66 $ $0007B0 1E 00 36 36 36 2D 65 E4 3F 2D 0C E4 3F 37 00 49 ..666-ed ?-.d?7.I
$0007C0 0E 1C 3F 1E 36 36 0E 2D 0C 1E 00 36 36 36 2D 65 ..?.66.- ...666-e
$0007D0 24 24 1C 3F 37 00 2D 2D 3F 3F 36 2E 2D 3F 37 36 $$.?7.-- ??6.-?76
$0007E0 2D 2D 07 00 2D 2D 3F 3F 36 2E 2D 3F 37 36 04 00 --..--?? 6.-?76..
$0007F0 29 2D 3F F7 36 36 0E 2D 25 3C 05 00 36 36 36 24 )-?w66.- %<..666$
$000800 2C 2D 25 24 36 36 36 04 00 09 3D 2F 36 36 36 2F ,-%$666. ..=/666/
$000810 3D 00 49 31 36 36 1E 3F 1C 0E 00 36 36 36 24 2C =.I166.? ...666$,
$000820 0C 0C 0C 1E 1E 1E 0E 0E 0E 14 00 36 36 36 2D 2D ........ ...666--
$000830 07 00 36 36 36 24 24 24 0E 0E 26 0C 0C 36 36 36 ..666$$$ ..&..666
$000840 24 00 36 36 36 24 24 24 76 0E 0E 0E 26 24 24 34 $.666$$$ v...&$$4
$000850 00 29 75 36 36 1E 3F 1C 24 24 0C 00 36 36 36 24 .)u66.?. $$..666$
$000860 24 24 2D 75 F6 3F 37 00 29 75 36 DE 0E 0E 1C 0C $$-uv?7. )u6^....
$000870 16 1F E7 24 24 4C 00 36 36 36 24 24 24 2D 75 F6 ..g$$L.6 66$$$-uv
$000880 3F 0E 0E 0E 1C 00 29 75 1C 3F 1E 76 2D 0E F6 3F ?.....)u .?.v-.v?
$000890 1C 0E 00 2D 2D 3F 36 36 36 04 00 36 36 76 2D 0C ...--?66 6..66v-.
$0008A0 24 24 34 00 36 36 0E 0E 0C 0C 24 24 06 00 36 36 $$4.66.. ..$$..66
$0008B0 36 0C 0C 34 0E 0E 24 24 24 06 00 76 0E 0E 0E FE 6..4..$$ $..v...~
$0008C0 1B 64 0C 0C 0C 34 00 76 0E 36 26 24 0C 0C 34 00 .d...4.v .6&$..4.
$0008D0 2D 2D F6 1E 1E 1E 2E 2D 1D 3D 00 .. .. .. .. .. --v....- .=.
** END **

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/WORDS.bas:

1 REM COPYRIGHT 1981 MECC
2 REM PROGRAM: WORDS 8/25/81
3 REM AUTHORS: MIKE FISH/ROCHESTER SCHOOLS
9 IF PEEK(1023) < >123 THEN TEXT
10 HOME : POKE 232,0: POKE 233,64: ROT= 0: SCALE= 1: HCOLOR= 3
12 NORMAL : SPEED= 255
14 HIMEM: 8192
20 D$ = CHR$(13) + CHR$(4): PRINT D$"NOMONC,I,O": HOME : PRINT D$"BLOAD WORDS-TAB"
23 PRINT D$"OPEN WORDS FILE": PRINT D$"READ WORDS FILE": INPUT CA:CA = (CA -1) *26: FOR G = 1 TO 10: INPUT TX$(G): NEXT : PRINT D$"CLOSE WORDS FILE"
25 DIM X(20),Y(20),S(20)
27 PY = 0: GOSUB 30000: HOME : HGR
30 FOR G = 3 TO 120 STEP 39: FOR T = 4 TO 224 STEP 55:C = C +1:X(C) = T:Y(C) = G: NEXT T,G
35 HPLOT 1,1 TO 1,0 TO 278,0 TO 278,1 TO 279,1 TO 279,158 TO 278,158 TO 278,159 TO 1,159 TO 1,158 TO 0,158 TO 0,1
40 FOR G = 1 TO 20: DRAW 1 AT X(G),Y(G): DRAW 3 AT X(G),Y(G): DRAW G +3 AT X(G) +21,Y(G) +13: NEXT
50 IF PY = 1 THEN VTAB 21: PRINT FP$;: HTAB 41 - LEN(SP$): PRINT SP$
100 FOR I = 1 TO 10: FOR DG = 1 TO 2
110 X = INT( RND(1) *20) +1
120 IF S(X) < >0 THEN 110
130 S(X) = I
180 NEXT DG,I
260 FS$ = "<---TURN ":SS$ = " TURN--->"
280 POKE 34,22: POKE -16304,0
285 IF PY = 0 THEN 300
290 FOR G = 1 TO INT( RND(1) *10) +10: VTAB 21: HTAB 15: PRINT FS$: FOR T = 1 TO 75: NEXT : VTAB 21: HTAB 15: PRINT SS$: FOR T = 1 TO 75: NEXT T,G:FP = 0:SP = 1: IF RND(1) >.5 THEN VTAB 21: HTAB 15: PRINT FS$:SP = 0:FP = 1
300 HOME : POKE -16304,0
310 VTAB 23: HTAB 12: GOSUB 14000:W = A:FB = A:B1 = A: GOSUB 12000: VTAB 23: HTAB 19: PRINT "AND ";: GOSUB 14000:W = A:FB = 0:B2 = A: GOSUB 12000
315 C2 = C2 +1
320 B3 = S(B1)
322 B4 = S(B2)
323 VTAB 24: HTAB 14: IF B3 < >B4 THEN 400
330 PRINT "*** ";: FLASH : SPEED= 75: PRINT "MATCH";: SPEED= 255: NORMAL : PRINT " ***";
335 FOR G = 1 TO 2000: NEXT
345 HCOLOR= 0: DRAW 2 AT X(B1),Y(B1): DRAW 2 AT X(B2),Y(B2): HCOLOR= 3:S(B1) = 0:S(B2) = S(B1)
346 IF PY = 0 THEN 360
350 VTAB 22: IF FP = 1 THEN S1 = S1 +1: HTAB S1: PRINT "*": GOTO 360
355 IF SP = 1 THEN S2 = S2 +1: HTAB 41 -S2: PRINT "*"
360 FOR G = 1 TO 999: NEXT :C1 = C1 +1: IF C1 = 10 THEN 1000
370 GOTO 300
400 VTAB 24: HTAB 14: PRINT "- NO MATCH -";: FOR G = 1 TO 3000: NEXT
405 HCOLOR= 0: DRAW 2 AT X(B1),Y(B1): DRAW 2 AT X(B2),Y(B2)
410 HCOLOR= 3: DRAW 3 AT X(B1),Y(B1): DRAW 3 AT X(B2),Y(B2): DRAW B1 +3 AT X(B1) +21,Y(B1) +13: DRAW B2 +3 AT X(B2) +21,Y(B2) +13
415 VTAB 21: HTAB 15: IF PY = 0 THEN 300
420 IF FP = 1 THEN FP = 0:SP = 1: PRINT SS$: GOTO 440
430 IF SP = 1 THEN SP = 0:FP = 1: PRINT FS$
440 GOTO 300
1000 HGR : TEXT : HOME : IF PY = 0 THEN 1500
1020 VTAB 10: PRINT FP$"'S SCORE IS "S1".": PRINT : PRINT SP$"'S SCORE IS "S2".": PRINT : IF S1 = S2 THEN PRINT "IT'S A TIE GAME!": GOTO 2000
1030 IF S1 >S2 THEN PRINT FP$;
1040 IF S2 >S1 THEN PRINT SP$;
1045 PRINT " IS THE WINNER!"
1050 GOTO 2000
1500 VTAB 11: HTAB 15: PRINT "IT TOOK YOU": PRINT : HTAB 16: PRINT C2" TRIES.": VTAB 9: HTAB 13: PRINT "***************": FOR G = 1 TO 5: VTAB G +9: HTAB 13: PRINT "*";: HTAB 27: PRINT "*": NEXT : VTAB 15: HTAB 13: PRINT "***************
2000 VTAB 24: CALL -868: POKE -16368,0: HTAB 8: PRINT "PRESS ";: INVERSE : PRINT "SPACE BAR";: NORMAL : PRINT " TO GO ON.";
2005 IF PEEK( -16384) <128 THEN 2005
2010 POKE -16368,0: HOME : GOTO 21000
11000 Z = INT( RND(1) * LEN(A$)/2) *2 +1:Q = VAL( MID$ (A$,Z,2)): IF N = 9 AND LEN(A$) = 2 THEN RETURN
11005 IF Z = 1 THEN A$ = MID$ (A$,3, LEN(A$) -2): RETURN
11010 IF Z = LEN(A$) -1 THEN A$ = LEFT$(A$,Z -1): RETURN
11020 A$ = LEFT$(A$,Z -1) + MID$ (A$,Z +2, LEN(A$) -Z -1): RETURN
12000 HCOLOR= 0: DRAW 2 AT X(W),Y(W)
12010 IF W = 0 OR S(W) = 0 THEN 12100
12012 TX$ = TX$(S(W))
12015 HCOLOR= 3
12020 XS = 27 - INT(( LEN(TX$)/2) *7) +X(W): FOR HD = 1 TO LEN(TX$): DRAW ASC( MID$ (TX$,HD,1)) +CA -41 AT XS,Y(W) +15:XS = XS +7: NEXT
12100 HCOLOR= 3: RETURN
14000 PRINT "BOX ";: FLASH : PRINT "?"; CHR$(8);: POKE -16368,0
14010 GET A$: IF A$ > = "A" AND A$ < = "T" THEN 14018
14012 IF ASC(A$) = 27 THEN HGR : TEXT : HOME : NORMAL : GOTO 21000
14013 IF ASC(A$) = 13 THEN 14010
14015 FOR R = 1 TO 20:R1 = PEEK( -16336): NEXT : GOTO 14010
14018 IF FB = ASC(A$) -64 THEN 14015
14019 IF S( ASC(A$) -64) = 0 THEN 14015
14020 NORMAL : PRINT A$" ";
14050 A = ASC(A$) -64: RETURN
21000 REM MENU-END OF PROGRAM
21005 HGR
21010 TEXT : HOME : PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"IN#0"
21020 VTAB 10: PRINT "WOULD YOU LIKE TO TRY": PRINT : CALL -868: PRINT "AGAIN (YES OR NO) ?";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN PRINT : PRINT : PRINT "PRESS Y OR N.": GOTO 21020
21030 HOME : IF Z$ = "Y" THEN RESTORE : FOR G = 1 TO 20:S(G) = 0: NEXT :S1 = 0:S2 = 0:C1 = 0:C2 = 0:C = 0: GOTO 27
21040 IF PEEK(1023) < >123 THEN END
21045 HGR : POKE -16302,0: HCOLOR= 3:W = 1:X(1) = 114:Y(1) = 67: DRAW 1 AT 114,67:S(1) = 1:TX$(1) = "WORDS":CA = 0: GOSUB 12000
21050 PRINT : PRINT CHR$(4)"RUN HELLO"
30000 CALL 62450: HOME : TEXT : VTAB 12: PRINT "ARE THERE TWO PLAYERS?";
30005 HTAB 24: VTAB 12
30007 GET YN$: IF ASC(YN$) = 27 THEN 21000
30010 IF YN$ < >"Y" AND YN$ < >"N" THEN VTAB 13: PRINT : PRINT "PRESS Y OR N.": GOTO 30005
30020 PY = 1: IF YN$ = "N" THEN PY = 0: RETURN
30030 HOME : VTAB 5: PRINT "PRESS THE " CHR$(34)"RETURN" CHR$(34)" KEY AFTER YOUR NAME:": VTAB 10: INPUT "1. PLAYER'S NAME? ";FP$: IF LEN(FP$) >12 THEN FP$ = LEFT$(FP$,12)
30040 PRINT : PRINT : INPUT "2. PLAYER'S NAME? ";SP$: IF LEN(SP$) >12 THEN SP$ = LEFT$(SP$,12)
30050 IF FP$ = "" THEN FP$ = "FIRST PLAYER"
30060 IF SP$ = "" THEN SP$ = "SECOND PLAYER"
30070 RETURN

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/WUZZLE.bas:

100 REM COPYRIGHT 1981 MECC
101 REM PROGRAM: COLBER 6/18/81
105 IF PEEK(1023) < >123 THEN TEXT
107 POKE 232,0: POKE 233,64: HCOLOR= 3: ROT= 0: SCALE= 1
205 HIMEM: 22016
220 HOME : SPEED= 255
230 D$ = CHR$(13) + CHR$(4)
240 PRINT D$;"NOMON I,C,O"
250 HOME : PRINT D$"BLOAD NUM-EXT"
1000 FOR G = 1 TO 10:PO(G) = 0: NEXT
1002 T4 = 0:T9 = 0
1010 NU(1) = INT( RND(1) *9) +1
1015 NU(2) = INT( RND(1) *(10 -NU(1))) +1: IF NU(1) +NU(2) >10 THEN 1015
1016 SH(1) = INT( RND(1) *15) +10
1017 SH(2) = INT( RND(1) *15) +10: IF SH(2) = SH(1) THEN 1017
1018 IF SH(1) = 11 OR SH(2) = 11 THEN 1016
1020 FOR G = 1 TO 2: FOR H = 1 TO NU(G)
1030 N = INT( RND(1) *10) +1: IF PO(N) >0 THEN 1030
1040 PO(N) = G: NEXT H,G
1050 RESTORE : FOR G = 1 TO 15: READ X1,Y1: FOR H = 1 TO 2: IF SH(H) = G +9 THEN X1(H) = X1:Y1(H) = Y1
1060 NEXT H,G
1065 HOME : HGR : HCOLOR= 3: POKE -16302,0
1067 HPLOT 1,1 TO 1,0 TO 278,0 TO 278,1 TO 279,1 TO 279,130 TO 278,130 TO 278,131 TO 1,131 TO 1,130 TO 0,130 TO 0,1
1070 FOR G = 1 TO 10: READ X(G),Y(G): IF PO(G) = 0 THEN 1090
1080 DRAW SH(PO(G)) AT X(G) +X1(PO(G)),Y(G) +Y1(PO(G))
1090 NEXT
2000 FOR M = 1 TO 2: IF M = 2 AND M5 = 10 THEN 3999
2002 IF M = 2 THEN FOR D = 1 TO 500: NEXT
2005 HCOLOR= 3: DRAW 25 AT 1,160: DRAW SH(M) AT 128 +X1(M),165 +Y1(M): DRAW 26 AT 166,160
2010 T1 = 0
2020 GOSUB 15000: HCOLOR= 7: DRAW A AT 180,160: IF A = NU(M) THEN 3000
2030 FOR W = 1 TO 1500: NEXT : HCOLOR= 5: HPLOT 169,152 TO 198,180: HPLOT 169,180 TO 198,152: FOR W = 1 TO 1500: NEXT : HCOLOR= 0: DRAW A AT 180,160: HPLOT 169,152 TO 198,180: HPLOT 169,180 TO 198,152
2040 T1 = T1 +1: IF T1 <3 THEN 2020
2050 FOR W = 1 TO 300: NEXT : FOR D = 0 TO 1: HCOLOR= 3: DRAW NU(M) AT 180,160: FOR W = 1 TO 500 +D *1500: NEXT : HCOLOR= 0: DRAW NU(M) AT 180,160: FOR W1 = 1 TO 300 * ABS(NU -1): NEXT W1,D: GOTO 3960
3000 FOR D = 1 TO 500: NEXT : GOSUB 18000: ROT= 0: HCOLOR= 3: DRAW 27 AT 232,165: FOR D = 1 TO 999: NEXT
3005 IF T1 >0 THEN 3900
3500 ON INT( RND(1) *4) +1 GOTO 3550,3600,3650,3700
3550 FOR G = 1 TO 5: FOR C = 0 TO 3: HCOLOR= 3: ROT= 16 *C: DRAW 27 AT 232,165: FOR D = 1 TO 25: NEXT : HCOLOR= 0: DRAW 27 AT 232,165: NEXT C,G: GOTO 3900
3600 FOR C = 1 TO 2: FOR D = 0 TO 4: HCOLOR= 3: DRAW 27 AT 232,165 -5 *D: FOR D4 = 1 TO D ^2: NEXT : HCOLOR= 0: DRAW 27 AT 232,165 -D *5: NEXT
3610 FOR D = 3 TO 0 STEP -1: HCOLOR= 3: DRAW 27 AT 232,165 -D *5: FOR D4 = 1 TO D ^2: NEXT : HCOLOR= 0: DRAW 27 AT 232,165 -D *5: NEXT D,C: GOTO 3900
3650 HCOLOR= 0: DRAW 27 AT 232,165: FOR G = 1 TO 15:X1 = INT( RND(1) *66) +201:Y1 = INT( RND(1) *30) +145: HCOLOR= 3: DRAW 27 AT X1,Y1: HCOLOR= 0: DRAW 27 AT X1,Y1: NEXT : GOTO 3900
3655 GOTO 3900
3700 FOR D = 1 TO 3: FOR W = 29 TO 34: HCOLOR= 3: DRAW W AT 222,166: FOR W1 = 1 TO 20: NEXT : HCOLOR= 0: DRAW W AT 222,166: NEXT W,D
3900 HCOLOR= 3: ROT= 0: DRAW 27 AT 232,165: FOR G = 1 TO 999: NEXT : HCOLOR= 0: DRAW 27 AT 232,165: GOSUB 18000
3910 FOR D = 1 TO 500: NEXT
3960 IF M = 1 AND T1 >1 THEN M = 2
3970 M5 = M5 +1: IF M = 2 THEN HCOLOR= 0: HPLOT 0,0: CALL 62454: GOTO 3999
3980 HCOLOR= 0: DRAW 25 AT 1,160: DRAW SH(M) AT 128 +X1(M),165 +Y1(M): DRAW 26 AT 166,160: DRAW A AT 180,160
3999 NEXT M
4000 IF M5 <10 THEN 1000
4010 FOR D = 1 TO 1000: NEXT : GOTO 21000
9999 END
15000 A = 0: POKE -16368,0
15005 IF T1 >0 THEN 15100
15010 GOSUB 15900: IF A = 0 THEN 15010
15020 RETURN
15100 IF T1 < >1 THEN 15200
15105 T2 = 40:T9 = 0
15110 T2 = T2 +1: GOSUB 15900: IF A < >0 THEN RETURN
15115 IF FL = 1 AND T2 <130 THEN 15110
15116 FL = 0
15120 IF T2 >50 THEN GY = M: HCOLOR= 0: GOSUB 15999: FOR DP = 1 TO 150: NEXT : HCOLOR= 3: GOSUB 16000:T2 = 0:CT = CT +1: IF CT = NU(M) THEN FL = 1
15130 GOTO 15110
15195 T2 = 70
15200 IF T4 = 1 THEN 15010
15210 HCOLOR= 0:GY = 1: IF M = 1 THEN GY = 2
15220 FOR DP = 1 TO NU(GY): GOSUB 15999: NEXT :T4 = 1: GOTO 15010
15900 U = PEEK( -16384): IF U <128 THEN RETURN
15905 POKE -16368,0: IF U = 155 THEN 21000
15910 U = U -176: IF U <1 OR U >9 THEN RETURN
15920 A = U: RETURN
15999 T9 = T9 +1
16000 IF T9 >10 THEN T9 = 1
16005 IF PO(T9) < >GY THEN 15999
16010 DRAW SH(GY) AT X(T9) +X1(GY),Y(T9) +Y1(GY): RETURN
18000 FOR D7 = 0 TO 3: HCOLOR= 3: ROT= D7 *16: DRAW 28 AT 232,165: HCOLOR= 0: DRAW 28 AT 232,165: NEXT : ROT= 0: RETURN
20000 END
20500 REM SPACE-BAR ROUTINE
20505 ZH = PEEK(36):ZV = PEEK(37): FOR ZZ = 1 TO 200: NEXT ZZ
20508 VTAB 24: HTAB 7: POKE -16368,0
20515 PRINT "PRESS ";: INVERSE : PRINT "SPACE BAR";: NORMAL : PRINT " TO CONTINUE";
20520 ZC = PEEK( -16384): IF ZC < >141 AND ZC < >160 THEN 20520
20530 POKE -16368,0: HTAB 7: PRINT " ";: VTAB 21: PRINT : VTAB ZV +1: HTAB ZH +1: RETURN
21000 REM MENU-END OF PROGRAM
21005 HGR
21010 TEXT : HOME : PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"IN#0"
21020 VTAB 10: PRINT "WOULD YOU LIKE TO TRY": PRINT : CALL -868: PRINT "AGAIN (YES OR NO) ?";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN PRINT : PRINT : PRINT "PRESS Y OR N.": GOTO 21020
21030 HOME : IF Z$ = "Y" THEN CLEAR : GOTO 1000
21040 IF PEEK(1023) < >123 THEN END
21045 HGR : POKE 232,0: POKE 233,64: HCOLOR= 3: POKE -16302,0: DRAW 27 AT 140,94
21050 PRINT : PRINT CHR$(4)"RUN HELLO"
50000 DATA -20,6,0,0,-18,13,-24,18,-19,13,-23,9,-9,17,-20,24,-6,-8,-10,9,-24,8,-28,-6,4,-10,-12,-8,-18,7
50010 DATA 35,30,35,80,89,54,89,105,140,30,140,80,192,54,192,105,247,30,247,80

Text found in Elementary_Volume_7_v1.0_1981_MECC_US.do/ZETA-INFO.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 01 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 ........ ........
$000010 03 03 03 03 03 03 03 03 03 03 03 03 0D 0D .. .. ........ ......
** END **