Notes

Disk info for 447a_Basics_of_Spelling_Skills.dsk:

File Name: 3d0g_447a_Basics_of_Spelling_Skills/447a_Basics_of_Spelling_Skills.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 9984
Used Space (bytes): 133376
Physical Size (KB): 140
Free Space (KB): 9
Used Space (KB): 130
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 39
Used Sectors: 521
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 447a_Basics_of_Spelling_Skills.dsk:

3d0g_447a_Basics_of_Spelling_Skills/447a_Basics_of_Spelling_Skills.dsk DISK VOLUME #254
A 003 HELLO
A 006 MAIN
* B 003 CHAIN
* B 003 RBOOT
* B 005 RLOAD
* R 012 HRCG
* B 005 ASCII.SET
A 055 LESSON-1-6
A 054 LESSON-7-12
A 063 LESSON-13-18
A 056 LESSON-19-24
A 052 LESSON-25-30
A 049 LESSON-31-36
T 057 GRAPHICS
B 034 BOS
DOS 3.3 format; 9,984 bytes free; 133,376 bytes used.

Text found in 447a_Basics_of_Spelling_Skills.dsk/CHAIN.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 20 85 03 20 A6 03 A9 07 85 8F A5 69 A6 6A 85 9D .. &.). ..%i&j..
$000010 86 9E E4 6C D0 04 C5 6B F0 05 20 7E 02 F0 F3 85 ..dlP.Ek p. ~.ps.
$000020 9F 86 A0 A9 03 85 8F A5 9F A6 A0 E4 6E D0 07 C5 .. )...% .& dnP.E
$000030 6D D0 03 4C E0 02 85 9D 86 9E A0 00 B1 9D AA C8 mP.L`... .. .1.*H
$000040 B1 9D 08 C8 B1 9D 65 9F 85 9F C8 B1 9D 65 A0 85 1..H1.e. ..H1.e .
$000050 A0 28 10 D3 8A 30 D0 C8 B1 9D A0 00 0A 69 05 65 (.S.0PH 1. ..i.e
$000060 9D 85 9D 90 02 E6 9E A6 9E E4 A0 D0 04 C5 9F F0 .....f.& .d P.E.p
$000070 BA 20 88 02 F0 F3 B1 9D 30 46 C8 B1 9D 10 41 C8 : ..ps1. 0FH1..AH
$000080 B1 9D F0 3C C8 B1 9D AA C8 B1 9D 85 9C 86 9B C5 1.p5!.<5
$000160 69 95 42 CA F0 EF A0 00 20 2C FE 6C AE 03 18 B5 i.BJpo . ,~l...5
$000170 00 65 9D 95 71 E8 B5 00 65 9E 95 71 60 AD 00 E0 .e..qh5. e..q`-.`
$000180 A0 0B C9 4C F0 02 A0 17 A2 0B B9 B8 03 9D AC 03 .ILp. . ".98..,.
$000190 88 CA 10 F6 60 6C AC 03 6C B2 03 6C B0 03 6C B4 .J.v`l,. l2.l0.l4
$0001A0 03 6C B6 03 00 00 00 00 00 00 00 00 00 00 00 00 .l6..... ........
$0001B0 65 D6 D2 D7 FB DA 5C DB 84 E4 9A D3 65 0E D4 0F eVRW{Z\[ .d.Se.T.
$0001C0 FC 12 5F 13 7B 1C 9A 0B .. .. .. .. .. .. .. .. |._.{...
** END **

Text found in 447a_Basics_of_Spelling_Skills.dsk/HELLO.bas:

5 REM BASICS OF SPELLING DEVELOPED BY SOFTWARE INTERPHASE
6 HOME : POKE 103,1: POKE 104,64: POKE 16384,0: POKE 49234,1
7 HTAB 5: VTAB 11: PRINT "AMERICAN EDUCATIONAL SOFTWARE": HTAB 12: VTAB 13: PRINT "PROUDLY PRESENTS";
9 DIM W$(5,12),Q$(100): NORMAL : PRINT
10 ADRS = 0:D$ = CHR$(4): PRINT D$;"BLOAD RBOOT": CALL 520
20 ADRS = USR(0),"HRCG": CALL ADRS
25 HGR : POKE 49234,0
30 IB$ = CHR$(15) + CHR$(1): PRINT IB$; CHR$(19)
40 D$ = CHR$(4): PRINT : PRINT D$;"BLOAD BOS, A$2000"
45 HTAB 19: VTAB 18
50 GET A$: PRINT
100 PRINT D$;"BLOAD CHAIN, A520": CALL 520"MAIN"

Text found in 447a_Basics_of_Spelling_Skills.dsk/LESSON-1-6.bas:

5 CALL ADRS +3: PRINT CHR$(16); CHR$(1);"1";
7 IB$ = CHR$(15) + CHR$(1): PRINT IB$; CHR$(19)
10 DATA "MAP",WIN,RIM,BAG,MAD,LOT,NUT,LAD,TIN,MUD
11 DATA "PAN",POP,SAD,NAP,FAN,BIT,DEN,FED,HID,CUB
12 DATA "YET",TIP,LAP,FIT,GAS,NET,BUD,RUG,RIP,LIP
13 DATA "FLAG",SPOT,FLAT,TRY,STAR,SNAP,TRIP,CROP,PLUS,GRAB
14 DATA "LAND",LOST,END,SAND,MUST,LEFT,HUNT,FELT,DUST,SOFT
15 DATA "WORDS TO SAY","USING WORDS","WORDS IN ACTION","FUN WITH WORDS","REVIEW TEST"
16 DATA "WORDS TO WRITE","MY WORDS","FUN WITH WORDS","TEST"
17 DATA " "
20 DATA "BAD",PIN,SAD,RAG,POT,BAG,RIM,MAP,LAD,CAP,PEN,LID,RUB,TOP,RED,PAN,POP,SAD,NAP,BIT,FED,CUB,CUB,NAP,SAD,FAN,PAN
22 DATA "TAP",HIT,RIP,BUT,YES,LID,GAP,TIP,DUG,PET,TR,FL,SP,CR,ST,HOT,CRY,US,CAB,CAR
24 DATA "STAR",LAD,FED,SAD,SOFT,RIP,TRIP,TRY,FAN,PLUS,GAS,LOST
26 DATA "HAND",BELT,TENT,RAFT,GHOST,3,1,1,2,3
30 DATA "2R",2L,1B,1N,1G
35 DATA "BCFMRTV",CHLMST,BCDFHLMP,CGLMRSTZ,FHKLPSTW
50 PRINT CHR$(16);
100 RESTORE
110 LE = LE -0:NW = 10
120 FOR I = 1 TO 5: FOR J = 1 TO 10: READ W$(I,J): NEXT J,I
130 FOR I = 1 TO 2: FOR J = 1 TO 5: READ T$(J,I): NEXT J,I
140 FOR I = 1 TO 69: READ Q$(I): NEXT I
150 FOR I = 1 TO 5: READ S$(I): NEXT I
155 FOR I = 1 TO 5: READ R$(I): NEXT I
200 ON LE GOTO 1000,2000,3000,4000,5000,6000
210 PRINT CHR$(16);: PRINT "INVALID LESSON CHOICE.": STOP
1000 LE = 1: ON SL GOTO 1100,1300,1500,1700,1900
1010 GOTO 210
1100 GOSUB 8000: GOSUB 8020:SL = 2
1300 GOSUB 8050
1310 PRINT "TYPE THE SPELLING WORD THAT NAMES EACH PICTURE.";
1315 N = 3:V1 = 18
1320 R = 1:XX = 22:YY = 80: GOSUB 9100
1325 X = 5:Y = V1: GOSUB 9010: IF C$ < >"NUT" THEN GOSUB 8410: GOTO 1325
1327 HTAB 3: VTAB V1 +2: PRINT "CORRECT!";
1330 R = 2:XX = 120:YY = 75: GOSUB 9100
1335 X = 18:Y = V1: GOSUB 9010: IF C$ < >"BAG" THEN GOSUB 8410: GOTO 1335
1337 HTAB 16: VTAB V1 +2: PRINT "CORRECT!";
1340 R = 4:XX = 190:YY = 75: GOSUB 9100
1345 X = 30:Y = V1: GOSUB 9010: IF C$ < >"MAP" THEN GOSUB 8410: GOTO 1345
1347 HTAB 28: VTAB V1 +2: PRINT "CORRECT!";
1350 GOSUB 8100:SL = 3
1500 GOSUB 8050
1510 VTAB 7: PRINT "HERE ARE SOME WORDS. TYPE ONE OF YOUR SPELLING WORDS THAT RHYMES WITH EACH OF THESE WORDS.";
1515 W = 0: GOSUB 1520: GOTO 1560
1520 N = 5:H = 14:V = 9
1525 FOR I = 1 TO 5: VTAB V +(I *2): HTAB H: PRINT Q$(I +W);" ";: HTAB H +5: GOSUB 8400: NEXT I
1530 FOR I = 1 TO 5
1531 Y = V +(I *2):X = H +5: GOSUB 9010
1532 GOSUB 8300
1535 IF (FL = 0) AND ( RIGHT$(Q$(I +W),2) = RIGHT$(C$,2)) THEN HTAB H +13: PRINT "CORRECT!";: GOTO 1550
1536 GOSUB 8410: GOTO 1531
1550 NEXT I
1555 RETURN
1560 GOSUB 8100:SL = 4
1700 GOSUB 8050
1710 PRINT "TYPE THE SPELLING WORD THAT NAMES THINGSIN THIS PICTURE.";
1715 XX = 26:YY = 90:R = 50: GOSUB 9100
1720 H = 21:V = 12:N = 5
1725 FOR I = 1 TO 3: VTAB V +(I *2): HTAB H: PRINT I;". ";: FOR K = 1 TO N: PRINT CHR$(95);: NEXT K,I
1730 FOR I = 1 TO 3:Y = I *2 +V:X = H +3
1731 GOSUB 9010: IF (C$ = "LAD") OR (C$ = "BAG") OR (C$ = "MAD") THEN 1740
1734 GOSUB 8410: GOTO 1731
1740 FOR K = 1 TO I: IF D$(K) = C$ THEN GOSUB 8410: GOTO 1731
1743 NEXT K
1745 D$(I +1) = C$: HTAB H +8: VTAB Y: PRINT "CORRECT!";: NEXT I: GOSUB 8100:SL = 5
1900 GOSUB 8200
1950 SL = 1
2000 LE = 2: ON SL GOTO 2100,2300,2500,2700,2900
2010 GOTO 210
2100 GOSUB 8000: GOSUB 8020:SL = 2
2300 GOSUB 8050
2310 PRINT "TYPE THE SPELLING WORD THAT RHYMES WITH EACH OF THESE WORDS.";
2315 W = 9: GOSUB 1520: GOSUB 8100:SL = 3
2500 GOSUB 8050
2510 PRINT "HERE ARE SOME OF YOUR SPELLING WORDS. TYPE A THREE LETTER WORD THAT RHYMES WITH EACH OF THEM.";
2520 N = 3:H = 14:V = 10:W = 15
2525 FOR I = 1 TO 5: VTAB V +(I *2): HTAB H: PRINT Q$(I +W);" ";: FOR J = 1 TO N: PRINT CHR$(95);: NEXT J,I
2530 FOR I = 1 TO 5
2533 Y = V +(I *2):X = 5 +H: GOSUB 9010
2535 FOR K = 1 TO LEN(R$(I)):D$ = MID$ (R$(I),K,1) + RIGHT$(Q$(I +W),2): IF D$ = C$ THEN HTAB H +13: PRINT "CORRECT!";: GOTO 2550
2536 NEXT K
2540 GOSUB 8410: GOTO 2533
2550 NEXT I: GOSUB 8100:SL = 4
2700 GOSUB 8050
2710 VTAB 7: PRINT "TYPE 5 SPELLING WORDS THAT END WITH A 'D' OR A 'P'.";
2720 V = 9:H = 13
2722 N = 4
2725 FOR I = 1 TO 5: VTAB V +(I *2): HTAB H: PRINT I;". ";: GOSUB 8400: NEXT I
2730 FOR I = 1 TO 5
2732 X = H +3:Y = V +(I *2): GOSUB 9010: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 2732
2733 IF ( RIGHT$(C$,1) = "D") OR ( RIGHT$(C$,1) = "P") THEN 2735
2734 GOSUB 8410: GOTO 2732
2735 FOR K = 1 TO I: IF D$(K) = C$ THEN GOSUB 8410: GOTO 2732
2737 NEXT K: HTAB H +11: VTAB V +I *2: PRINT "CORRECT!";
2745 D$(I +1) = C$: NEXT I: GOSUB 8100:SL = 5
2900 GOSUB 8200
2950 SL = 1
3000 LE = 3: ON SL GOTO 3100,3300,3500,3700,3900
3010 GOTO 210
3100 GOSUB 8000: GOSUB 8020:SL = 2
3300 GOSUB 8050
3310 PRINT "TYPE A SPELLING WORD THAT BEGINS WITH THE LETTERS R, L, B, N, AND G. TYPE THE WHOLE WORD.";
3320 H = 10:V = 10:N = 5
3325 FOR I = 1 TO 5: HTAB H: VTAB V +(I *2):A = VAL(S$(I)): PRINT RIGHT$(S$(I),1);": ";
3330 HTAB H +6: GOSUB 8400: NEXT I
3340 FOR I = 1 TO 5
3345 Y = V +(I *2):X = H +6: GOSUB 9010
3350 GOSUB 8300: IF (FL = 0) AND ( LEFT$(C$,1) = RIGHT$(S$(I),1)) THEN HTAB H +14: VTAB V +(I *2): PRINT "CORRECT!";: GOTO 3360
3355 GOSUB 8410: GOTO 3345
3360 NEXT I: GOSUB 8100:SL = 3
3500 GOSUB 8050
3510 PRINT "CHANGE THE FIRST OR LAST LETTER OF EACH WORD TO MAKE A SPELLING WORD. DO NOT CHANGE THE VOWELS.";
3520 V = 11:H = 5:N = 4:W = 27
3525 FOR I = 1 TO 10 STEP 2: HTAB H: VTAB V +I: PRINT Q$(I +W);" ";: GOSUB 8400: HTAB 25: PRINT Q$(I +1 +W);" ";: GOSUB 8400: NEXT I
3530 FOR I = 1 TO 10 STEP 2:Y = V +I:X = H +5
3533 GOSUB 9010: HTAB X +5: VTAB Y: GOSUB 8300: IF FL = 1 THEN 3537
3535 IF ( LEFT$(C$,2) = LEFT$(Q$(I +W),2)) OR ( RIGHT$(C$,2) = RIGHT$(Q$(I +W),2)) THEN PRINT "RIGHT!";: GOTO 3540
3537 GOSUB 8410: GOTO 3533
3540 X = 30: GOSUB 9010
3543 HTAB X +5: VTAB Y: GOSUB 8300: IF FL = 1 THEN 3547
3545 IF ( LEFT$(C$,2) = LEFT$(Q$(I +1 +W),2)) OR ( RIGHT$(C$,2) = RIGHT$(Q$(I +1 +W),2)) THEN PRINT "RIGHT!";: GOTO 3550
3547 GOSUB 8410: GOTO 3540
3550 NEXT I: GOSUB 8100:SL = 4
3700 GOSUB 8050
3710 VTAB 7: PRINT "USE YOUR SPELLING WORDS TO FILL IN THESEPUZZLES. THE LETTERS IN THE BOXES WILL HELP YOU. TYPE THE WHOLE WORD.";
3715 N = 4:R = 6: GOSUB 9300:P2 = 1: HCOLOR= 2:YY = 64:XX = 0:C1 = 0
3720 GOSUB 9400: FOR K = 1 TO A: GOSUB 9500: FOR X = X1 TO X2 STEP 2:X3 = (X *7) +3: HPLOT X3 +XX,(Y1 *8) +4 +YY TO X3 +XX,(Y2 *8) +4 +YY: NEXT X
3730 FOR Y = Y1 TO Y2 STEP 2:Y3 = (Y *8) +4: HPLOT XX +(X1 *7) +3,Y3 +YY TO XX +(X2 *7) +3,Y3 +YY: NEXT Y,K
3735 GOSUB 9400: FOR K = 1 TO A: GOSUB 9500:X1 = (X1 *7) +3:X2 = (X2 *7) +3 +XX:Y1 = (Y1 *8) +4:Y2 = (Y2 *8) +4 +YY: GOSUB 9190: NEXT K
3740 FL = 1: FOR H = 1 TO 6: GOSUB 3800: NEXT H:FL = 0: FOR H = 1 TO 8: GOSUB 3800: NEXT H
3750 IF C1 = 0 THEN HTAB 1: VTAB 21: PRINT "GOOD JOB ";N$;"!";
3760 GOSUB 8100:SL = 5: GOTO 3900
3800 GOSUB 9400:D = A: GOSUB 9400:X3 = A: GOSUB 9400:Y3 = A: GOSUB 9400:L = A:W$ = MID$ (A$,P2,L)
3801 X5 = X3 +1:Y5 = Y3 +7:P2 = P2 +L
3802 IF D = 1 THEN X5 = X5 -2:Y5 = Y5 +2
3803 X6 = X5:Y6 = Y5: IF FL = 1 THEN 3810
3804 HCOLOR= 1: GOSUB 3850
3805 HTAB 1: VTAB 21: PRINT CHR$(6);:X = 9:Y = 22: HTAB 1: VTAB Y: PRINT "ANSWER: ": GOSUB 9010: IF C$ < >W$ THEN GOSUB 8410:C1 = C1 +1: GOTO 3805
3810 FOR I = 1 TO L: IF D = 1 THEN X5 = X5 +2
3812 IF D = 2 THEN Y5 = Y5 +2
3815 HTAB X5: VTAB Y5: PRINT MID$ (W$,I,1);: FOR G = 1 TO 150: NEXT G,I
3820 HCOLOR= 0: GOSUB 3850: RETURN
3850 X3 = X6:Y3 = Y6: FOR I = 1 TO L: IF D = 1 THEN X3 = X3 +2
3853 IF D = 2 THEN Y3 = Y3 +2
3860 X1 = (X3 -2) *7 +5:Y1 = (Y3 -2) *8 +6:X2 = X3 *7 +1:Y2 = Y3 *8 +2
3865 HPLOT X1,Y1 TO X2,Y1 TO X2,Y2 TO X1,Y2 TO X1,Y1: NEXT I: RETURN
3900 GOSUB 8200
3950 SL = 1
4000 LE = 4: ON SL GOTO 4100,4300,4500,4700,4900
4010 GOTO 210
4100 GOSUB 8000:WW = 1: GOSUB 8020:WW = 0:SL = 2
4300 GOSUB 8050
4310 PRINT "TYPE THE SPELLING WORD THAT BEGINS WITH THESE LETTERS. TYPE THE WHOLE WORD.";
4315 N = 4:H = 10:V = 9:W = 37
4320 FOR I = 1 TO 5: HTAB H: VTAB V +I *2: PRINT Q$(W +I);": ";: GOSUB 8400: NEXT I
4325 FOR I = 1 TO 5:X = H +4:Y = V +I *2
4330 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 4330
4335 IF LEFT$(C$,2) < >Q$(W +I) THEN GOSUB 8410: GOTO 4330
4340 HTAB H +11: VTAB Y: PRINT "CORRECT!";: NEXT I: GOSUB 8100:SL = 3
4500 GOSUB 8050
4510 PRINT "WHAT WORD AM I?": PRINT "WHAT SPELLING WORD RHYMES WITH:";
4520 W = 42: GOSUB 1520: GOSUB 8100:SL = 4
4700 GOSUB 8050
4710 VTAB 7: PRINT "HELP BOS MAKE SPELLING WORDS. USE THE LETTERS ABOVE THE BLINKING LINE.";
4715 XX = 99:YY = 99:R = 16: GOSUB 9100:R = 17: GOSUB 9100
4720 R = 23: GOSUB 9300:P2 = 1: FOR I = 1 TO 10: GOSUB 9400:X = A: GOSUB 9400:Y = A: GOSUB 9400:N = A: HTAB X: VTAB Y: PRINT MID$ (A$,P2,N);: HTAB X: VTAB Y +2: GOSUB 8400:P2 = P2 +(2 *N): NEXT I
4725 P2 = 1: FOR I = 1 TO 10: GOSUB 9400:X = A: GOSUB 9400:Y = A +2: GOSUB 9400:N = A:E$ = MID$ (A$,P2 +N,N):P2 = P2 +(2 *N)
4730 GOSUB 9010: IF C$ < >E$ THEN GOSUB 8410: GOTO 4730
4735 HTAB 14: VTAB 23: PRINT "CORRECT ";N$;"!";: FOR J = 1 TO 1000: NEXT J: VTAB Y -2: HTAB X: PRINT SPC( N);: VTAB Y: HTAB X: PRINT SPC( N);: VTAB 23: HTAB 14: PRINT SPC( 24);
4740 NEXT I: GOSUB 8100:SL = 5
4900 GOSUB 8200
4950 SL = 1
5000 LE = 5: ON SL GOTO 5100,5300,5500,5700,5900
5010 GOTO 210
5100 GOSUB 8000: GOSUB 8020:SL = 2
5300 GOSUB 8050
5305 VTAB 7
5310 PRINT "TYPE A SPELLING WORD THAT ENDS WITH THE SAME CONSONANT BLEND AS THE PICTURE WORD.";
5315 V1 = 19:X = 3:XX = 5:YY = 74:R = 20:N = 4
5320 Y = V1:U$ = "HAND": GOSUB 5395
5330 X = 13:XX = 80:R = 19:U$ = "TENT": GOSUB 5395
5335 X = 23:XX = 155:R = 18:U$ = "GHOST":N = 5: GOSUB 5395
5340 X = 33:XX = 206:R = 13:U$ = "BELT":YY = 97: GOSUB 5395
5350 GOSUB 8100:SL = 3: GOTO 5500
5395 GOSUB 9100
5400 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 5400
5405 IF RIGHT$(U$,2) < > RIGHT$(C$,2) THEN GOSUB 8410: GOTO 5400
5410 HTAB X -2: VTAB V1 +2: PRINT "CORRECT!";: RETURN
5500 GOSUB 8050
5510 PRINT "TYPE THE RIGHT SPELLING WORD FOR EACH SENTENCE.";
5515 V = 12:N = 4
5520 HTAB 1: VTAB V: PRINT "JOE ";: GOSUB 8400: PRINT " GO TO SCHOOL TODAY. (MUST,SOFT)"
5522 PRINT "MY ";: GOSUB 8400: PRINT " HAND IS DIRTY. (LEFT,DUST)": PRINT
5524 PRINT "DEBBIE ";: GOSUB 8400: PRINT " HER COAT. (LOST,SAND)": PRINT
5526 PRINT "THE RAIN WILL ";: GOSUB 8400: PRINT " SOON. (LAND,END)": PRINT
5528 PRINT "THE CHAIR IS VERY ";: GOSUB 8400: PRINT ".(SOFT,HUNT)":
5530 X = 5:Y = V:B$ = "MUST": GOSUB 5600
5532 X = 4:Y = V +2:B$ = "LEFT": GOSUB 5600
5534 X = 8:Y = V +4:B$ = "LOST": GOSUB 5600
5536 X = 15:Y = V +6:B$ = "END": GOSUB 5600
5538 X = 19:Y = V +8:B$ = "SOFT": GOSUB 5600
5550 GOSUB 8100:SL = 4: GOTO 5700
5600 GOSUB 9010: IF C$ < >B$ THEN GOSUB 8410: HTAB X: VTAB Y: PRINT CHR$(11);B$; CHR$(12);" ";: RETURN
5610 HTAB 18: VTAB 10: PRINT "CORRECT!";: FOR K = 1 TO 1000: NEXT K: HTAB 18: VTAB 10: PRINT SPC( 10);: RETURN
5700 GOSUB 8050
5705 VTAB 7
5710 PRINT "THESE WORDS END WITH A CONSONANT BLEND. TYPE ALL THE SPELLING WORDS THAT END WITH SAME SOUND AS THE WORD GIVEN.";
5715 N = 5:V = 11:W = 59:H = 1
5720 FOR I = 1 TO 5: HTAB H +(I -1) *8: VTAB V: PRINT Q$(W +I);: FOR K = 1 TO VAL(Q$(64 +I)): HTAB H +(I -1) *8: VTAB V +1 +K *2: GOSUB 8400: NEXT K,I
5730 FOR I = 1 TO 5: FOR K = 1 TO VAL(Q$(64 +I)):X = H +(I -1) *8:Y = V +1 +K *2
5735 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 5735
5740 IF RIGHT$(Q$(W +I),2) < > RIGHT$(C$,2) THEN GOSUB 8410: GOTO 5735
5745 FOR J = 1 TO K: IF D$(J) = C$ THEN GOSUB 8410: GOTO 5735
5747 NEXT J
5748 HTAB 10: VTAB 16: PRINT "CORRECT!";: FOR G = 1 TO 1000: NEXT G: HTAB 10: PRINT SPC( 10);
5750 D$(K +1) = C$: NEXT K: FOR J = 1 TO 7:D$(J) = "": NEXT J,I
5760 GOSUB 8100:SL = 5
5900 GOSUB 8200
5950 SL = 1
6000 LE = 6: ON SL GOTO 6100,6300,6500,6700
6010 GOTO 210
6100 GOSUB 8000: VTAB 3: HTAB 1
6110 PRINT "HERE ARE THE WORDS YOU HAVE LEARNED.";
6115 GOSUB 6120: GOTO 6130
6120 FOR I = 1 TO 5: FOR J = 1 TO 10: HTAB (I *8) -7
6125 VTAB 4 +J: PRINT W$(I,J);: NEXT J,I
6127 RETURN
6130 FOR I = 1 TO 5: FOR J = 1 TO 10
6135 VTAB 4 +J: HTAB (I *8) -7: PRINT CHR$(9);W$(I,J); CHR$(14);
6140 VTAB 18: HTAB 1: PRINT SPC( 255): VTAB 18: HTAB 1: PRINT "TYPE IN THE WORD THAT IS WHITE."
6145 PRINT : INPUT A$
6150 IF A$ = W$(I,J) THEN HTAB 15: VTAB 20: PRINT "CORRECT!";: FOR K = 1 TO 1200: NEXT K: GOTO 6160
6155 GOSUB 8270: FOR K = 1 TO 500: NEXT K: GOSUB 8271
6157 GOTO 6140
6160 VTAB 4 +J: HTAB (I *8) -7: PRINT W$(I,J);: NEXT J,I
6180 GOSUB 8100
6300 GOSUB 8000
6310 HTAB 1: VTAB 3: PRINT "HERE ARE YOUR WORDS FROM LESSONS 1-5.";
6315 GOSUB 6120
6320 HTAB 1: VTAB 16: PRINT "TYPE THE FIVE SPELLING WORDS YOU ALWAYS SPELL RIGHT.";
6330 FOR K = 1 TO 5:X = (K -1) *8 +1:Y = 19:N = 4
6335 GOSUB 9010: GOSUB 6400: IF FL = 1 THEN 6335
6337 NEXT K
6340 HTAB 1: VTAB 16: PRINT CHR$(6);
6350 HTAB 1: VTAB 16: PRINT "TYPE THE FIVE SPELLING WORDS THAT ARE HARD FOR YOU TO SPELL.";
6360 FOR K = 1 TO 5:X = (K -1) *8 +1:Y = 19:N = 4
6370 GOSUB 9010: GOSUB 6400: IF FL = 1 THEN 6370
6375 NEXT K
6380 GOSUB 8100:SL = 3: GOTO 6500
6400 FL = 0: FOR I = 1 TO 5: FOR J = 1 TO 10: IF W$(I,J) = C$ THEN RETURN
6410 NEXT J,I: GOSUB 8410:FL = 1: RETURN
6500 GOSUB 8000
6510 HTAB 1: VTAB 3:C1 = 1: FOR I = 3 TO 33 STEP 10: FOR J = 3 TO 5: HTAB I: VTAB J: PRINT Q$(47 +C1);:C1 = C1 +1: IF C1 >12 THEN GOSUB 8053: GOTO 6518
6515 NEXT J,I
6518 VTAB 7
6520 PRINT N$;", HELP THE AIRPLANE LAND.": PRINT "TYPE THE CORRECT WORD FOR EACH BLANK.";
6525 H1 = -4:V1 = 11:N = 4:R = 5: GOSUB 9300
6530 B$ = "TYPE THE SPELLING WORD THAT MEANS BOY.": GOSUB 6600
6532 B$ = "TYPE THE SPELLING WORD THAT MEANS NOT HAPPY.": GOSUB 6600
6534 B$ = "TYPE THE SPELLING WORD WHICH MEANS TO TEAR SOMETHING.": GOSUB 6600
6536 B$ = "TYPE A SPELLING WORD THAT RHYMES WITH CRY.": GOSUB 6600
6538 B$ = "TYPE A SPELLING WORD THAT BEGINS WITH THE SAME CONSONANT BLEND AS PLANE.": GOSUB 6600
6540 B$ = "TYPE A SPELLING WORD THAT ENDS WITH THE SAME CONSONANT BLEND AS GHOST.": GOSUB 6600
6550 VTAB 20: HTAB 1: PRINT CHR$(6);: GOSUB 8100:SL = 4: GOTO 6700
6600 VTAB 20: HTAB 1: PRINT CHR$(6);B$;
6610 H1 = H1 +6:V1 = V1 +1:X = H1:Y = V1:Z = Z +2
6615 GOSUB 9010: IF C$ < >Q$(47 +Z) THEN GOSUB 8410: GOTO 6615
6620 XX = (H1 *7) -3:YY = (V1 -4) *8: GOSUB 9103
6650 RETURN
6700 GOSUB 8000: VTAB 3: HTAB 1
6710 PRINT "HAVE SOMEONE SAY YOUR SPELLING WORDS TO YOU. TYPE EACH WORD AFTER THE NUMBER. THERE ARE 50 WORDS."
6712 PRINT "IF YOU SPELL A WORD WRONG, THE COMPUTER WILL SHOW YOU HOW TO SPELL IT RIGHT. TYPE IT AGAIN."
6715 C1 = 0:FK = 0
6720 P = LE: FOR LE = 1 TO 5: VTAB 9: HTAB 1: PRINT CHR$(6);
6725 N1 = (LE -1) *10
6730 GOSUB 8210: NEXT LE:LE = P
6735 PRINT CHR$(16);: HTAB 1: VTAB 12: PRINT "LOADING LESSON 7";
6740 LE = 7:SL = 1
6750 PRINT : PRINT CHR$(4);"BLOAD CHAIN, A520": CALL 520"LESSON-7-12"
8000 PRINT CHR$(16);" UNIT BLESSON ";LE;" ";
8002 I = 1: IF INT(LE/6) = LE/6 THEN I = 2
8004 PRINT T$(SL,I);: RETURN
8020 HTAB 1: VTAB 3: PRINT "HERE ARE YOUR SPELLING WORDS. SAY THEM. IF YOU CANNOT SAY A WORD, ASK FOR HELP."
8021 IF WW = 1 THEN PRINT "THESE WORDS BEGIN WITH TWO CONSONANTS. YOU HEAR THE SOUND OF BOTH CONSONANTS. YOU HEAR THEM TOGETHER. THIS IS CALLED ACONSONANT BLEND.";
8022 IF WW = 1 THEN V = 9:H = 9: GOTO 8025
8023 V = 6:H = 9
8025 A = INT(NW/2): FOR I = 1 TO A: VTAB V +(I *2): HTAB H: PRINT W$(LE,I);: HTAB H +20: PRINT W$(LE,I +A);: NEXT I
8027 GOSUB 8100: RETURN
8050 GOSUB 8000: HTAB 1: VTAB 3:C1 = 1: FOR I = 3 TO 33 STEP 10: FOR J = 3 TO 5
8051 HTAB I: VTAB J: PRINT W$(LE,C1);:C1 = C1 +1: IF C1 >NW THEN 8053
8052 NEXT J,I
8053 HCOLOR= 6: HPLOT 3,9 TO 268,9 TO 268,47 TO 3,47 TO 3,9: HPLOT 4,10 TO 267,10 TO 267,46 TO 4,46 TO 4,10
8054 HPLOT 5,11 TO 266,11 TO 266,45 TO 5,45 TO 5,11: HPLOT 6,12 TO 265,12 TO 265,44 TO 6,44 TO 6,12
8056 HTAB 1: VTAB 8: RETURN
8100 HTAB 1: VTAB 22: PRINT "PRESS M FOR MENU.";
8110 HTAB 1: VTAB 23: PRINT "PRESS THE RETURN KEY TO GO ON.";
8115 IF FK = 1 THEN VTAB 21: HTAB 1: PRINT "PRESS W TO SEE WORD LIST.";
8120 GET A$: IF A$ = CHR$(13) THEN FK = 0: RETURN
8130 IF A$ = "M" THEN 8150
8135 IF FK = 1 THEN VTAB 2: HTAB 1: PRINT CHR$(6);: GOSUB 6120:FK = 0: GOTO 8100
8140 GOTO 8120
8150 D$ = CHR$(4): PRINT : PRINT D$;"BLOAD CHAIN, A520": CALL 520"MAIN"
8200 GOSUB 8000: HTAB 1: VTAB 3: PRINT "HAVE SOMEONE SAY YOUR SPELLING WORDS TO YOU. TYPE EACH WORD AFTER THE NUMBER.";
8201 PRINT
8203 PRINT "IF YOU SPELL A WORD WRONG, THE COMPUTER WILL SHOW YOU HOW TO SPELL IT. TYPE IT AGAIN."
8207 C1 = 0:N1 = 0
8210 H = 3:V = 8:A = INT(NW/2):H1 = 10:N = 4
8212 FOR I = 1 TO A: VTAB V +(I *2): HTAB H: PRINT I +N1;".";: HTAB H +19
8213 PRINT I +A +N1;".";: NEXT I
8215 FOR I = 1 TO A
8218 X = H +4:Y = V +(I *2): VTAB Y: HTAB H: PRINT I +N1;".";: GOSUB 9010
8220 IF C$ < >W$(LE,I) THEN GOSUB 8410: HTAB H +H1: VTAB V +(I *2): PRINT W$(LE,I);: GOTO 8218
8222 HTAB H +10: VTAB V +(I *2): PRINT "RIGHT!";
8223 C1 = C1 +1
8225 NEXT I
8228 V = 8:H = 22:H1 = 9
8230 FOR I = A +1 TO NW
8234 HTAB H:V1 = (I -A) *2: VTAB V +V1:X = H +4:Y = V +V1: GOSUB 9010
8235 IF C$ < >W$(LE,I) THEN GOSUB 8410: HTAB H +H1: VTAB V +V1: PRINT W$(LE,I);: GOTO 8234
8238 C1 = C1 +1
8240 HTAB H +H1: VTAB V +V1: PRINT "RIGHT!";
8245 NEXT I
8250 GOSUB 8100: RETURN
8270 HCOLOR= 6: GOTO 8275
8271 HCOLOR= 0
8275 HPLOT 200,170 TO 208,170 TO 208,190 TO 200,190 TO 200,170
8278 HPLOT 212,170 TO 220,170 TO 220,190 TO 212,190 TO 212,170
8280 HPLOT 224,190 TO 224,170 TO 232,170 TO 232,178 TO 224,178
8281 HPLOT 244,170 TO 236,170 TO 236,180 TO 244,180 TO 244,190 TO 236,190
8285 HPLOT 248,170 TO 248,185: HPLOT 248,188 TO 248,190
8290 RETURN
8300 REM CHECK IF SPELLING WORD
8310 FL = 0: FOR K1 = 1 TO NW: IF C$ = W$(LE,K1) THEN RETURN
8320 NEXT K1:FL = 1: RETURN
8400 FOR K1 = 1 TO N: PRINT CHR$(95);: NEXT K1: RETURN
8410 GOSUB 8270: FOR K1 = 1 TO 1000: NEXT K1: GOSUB 8271: RETURN
9000 REM TEXT EDITOR
9001 REM X,Y ARE HTAB,VTAB VARIABLES
9002 REM N IS MAXIMUM # OF CHARS.
9003 REM C$ IS CHARACTER STRING
9010 C = 95:C$ = "":M = 1
9015 VTAB Y: HTAB X: FOR I1 = M TO N: PRINT CHR$(95);: NEXT I1: VTAB Y: HTAB X
9020 GET A1$: IF A1$ = CHR$(13) THEN 9070
9025 IF A1$ = CHR$(8) THEN 9050
9027 IF ASC(A1$) <32 THEN 9020
9030 IF M >N THEN 9020
9035 PRINT A1$;:C$ = C$ +A1$:M = M +1: GOTO 9020
9050 IF LEN(C$) = 0 THEN 9020
9052 IF LEN(C$) = 1 THEN C$ = "":M = 1: PRINT A1$; CHR$(C);A1$;: GOTO 9020
9055 C$ = LEFT$(C$, LEN(C$) -1): PRINT A1$;
9060 PRINT CHR$(C);A1$;:M = M -1: GOTO 9020
9070 IF LEN(C$) = 0 THEN 9020
9075 FOR I1 = M TO N: PRINT " ";: NEXT I1
9080 M = M -1: RETURN
9100 GOSUB 9300
9103 P2 = 1
9104 GOSUB 9400:U = A: GOSUB 9400:V = A: IF U = 0 THEN CO = V: GOTO 9120
9105 X1 = U:Y1 = V
9110 ON CO GOSUB 9150,9160,9170,9180,9190,9200,9210,9220
9115 GOTO 9104
9120 IF (V = 2) OR (V = 3) THEN GOSUB 9400:Y = A: GOTO 9104
9122 IF V = 1 GOTO 9110
9125 IF (V = 4) OR (V = 5) THEN GOSUB 9400:X2 = A +XX: GOSUB 9400:Y2 = A +YY: GOTO 9104
9130 IF V = 6 THEN GOSUB 9400:X2 = A: GOSUB 9400:Y2 = A: GOTO 9104
9135 IF V = 9 THEN RETURN
9140 GOTO 9104
9150 GOSUB 9400: HCOLOR= A: RETURN
9160 HPLOT XX +X1,YY +Y TO XX +Y1,YY +Y:Y = Y +1: RETURN
9170 HPLOT XX +Y,YY +X1 TO XX +Y,YY +Y1:Y = Y +1: RETURN
9180 X1 = X1 +XX:Y1 = Y1 +YY: HPLOT X1,Y1 TO X2,Y1 TO X2,Y2 TO X1,Y2 TO X1,Y1: RETURN
9190 X1 = X1 +XX:Y1 = Y1 +YY: FOR I = Y1 TO Y2 STEP SGN(Y2 -Y1): HPLOT X1,I TO X2,I: NEXT I: RETURN
9200 HPLOT X2 +XX,Y2 +YY TO X1 +XX,Y1 +YY:X2 = X1:Y2 = Y1: RETURN
9210 GOSUB 9400:R = A: GOSUB 9400:H = A *.1: GOSUB 9250: RETURN
9220 GOSUB 9400:I = A: GOSUB 9400:H = A *.1: FOR R = 1 TO I: GOSUB 9250: NEXT R: RETURN
9250 FOR A = 0 TO 3.2 STEP .05:X = INT((R * COS(A) +X1) *H):Y = INT(R * SIN(A)) +Y1
9260 HPLOT X +XX,Y +YY
9270 X = INT((R * COS( -A) +X1) *H):Y = INT(R * SIN( -A) +Y1)
9280 HPLOT X +XX,Y +YY
9290 NEXT A: RETURN
9300 D$ = CHR$(4): PRINT
9310 PRINT D$;"OPEN GRAPHICS, L255": PRINT D$;"READ GRAPHICS, R";R
9320 INPUT A$:A$ = A$: PRINT D$;"CLOSE GRAPHICS"
9330 RETURN
9400 A = ASC( MID$ (A$,P2,1)) -64:P2 = P2 +1: RETURN
9500 GOSUB 9400:X1 = A: GOSUB 9400:Y1 = A: GOSUB 9400:X2 = A: GOSUB 9400:Y2 = A: RETURN

Text found in 447a_Basics_of_Spelling_Skills.dsk/LESSON-13-18.bas:

5 CALL ADRS +3: PRINT CHR$(16); CHR$(1);"1";: POKE 49234,0
7 IB$ = CHR$(15) + CHR$(1): PRINT IB$; CHR$(19)
10 DATA "TODAY",DOING,FATHER,CANDY,ALONG,PAPER,NEVER,BETTER,HUNDRED,MEETING
11 DATA "CUTTING",SHIPPING,SETTING,PLANNING,DIGGING,HOPPING,SITTING,GETTING,HITTING,STEPPING
12 DATA "COMING",MAKING,GIVING,LIVING,SMOKING,LIKING,SKATING,USING,WAKING,DANCING
13 DATA "WEEKS",WALKS,YEARS,PLANTS,DRESSES,BOXES,GLASSES,MISSES,WATCHES,FISHES
14 DATA "COOKIES",STORIES,CRIES,PENNIES,FLIES,BUNNIES,PARTIES,PUPPIES,SKIES,DRIES
15 DATA "WORDS TO SAY","USING WORDS","WORDS IN ACTION","FUN WITH WORDS","REVIEW TEST"
16 DATA "WORDS TO WRITE","MY WORDS","FUN WITH WORDS","TEST"
17 DATA " "
20 DATA "DANDY",LEVER,LETTER,CANDY,NEVER,BETTER,GETS,SETS,HITS,STEPPED,PLANNED,HOPS,SHIPS,CUTS,SITS
22 DATA "FITTING",JIGGING,SKIPPING,PETTING,CANNING,PUTTING,LETTING,WCMGUD,USE,WAKE,SKATE,GIVE,DANCE
24 DATA "WEEK",YEAR,GLASS,MISS,WATCH,S,S,ES,ES,ES,RABBITS,CLOUDY,POEMS,SUGAR,DOGS,BUNNIES,SKIES,STORIES,COOKIES,PUPPIES
26 DATA "FATHER",USING,STORIES,COOKIES,FLIES,GLASSES,BOXES,PLANNING,ALONG,HOPPING,DANCING,NEVER
28 DATA "HIKING",JOKING,RATING,TAKING,PRANCING
30 DATA "FISHES",STORIES,BUNNIES,PLANTS,PUPPIES,CANDY,GLASSES,PARTIES,PAPER,WALKS
50 PRINT CHR$(16);
100 RESTORE
110 LE = LE -12:NW = 10
120 FOR I = 1 TO 5: FOR J = 1 TO 10: READ W$(I,J): NEXT J,I
130 FOR I = 1 TO 2: FOR J = 1 TO 5: READ T$(J,I): NEXT J,I
140 FOR I = 1 TO 75: READ Q$(I): NEXT I
200 ON LE GOTO 1000,2000,3000,4000,5000,6000
210 PRINT CHR$(16);: PRINT "INVALID LESSON CHOICE.": STOP
1000 LE = 1: ON SL GOTO 1100,1300,1500,1700,1900
1010 GOTO 210
1100 GOSUB 8000: GOSUB 8020:SL = 2
1300 GOSUB 8050
1307 VTAB 7
1310 PRINT "MAKE THESE CHANGES TO FIT ONE OF YOUR SPELLING WORDS. TYPE THE WHOLE WORD."
1315 N = 6:V = 10
1320 E$ = "CHANGE THE L IN LETTER TO B. ":F$ = "BETTER": GOSUB 1400
1322 E$ = "CHANGE THE E IN ALONE TO G. ":F$ = "ALONG": GOSUB 1400
1324 E$ = "CHANGE THE L IN LEVER TO N. ":F$ = "NEVER": GOSUB 1400
1326 E$ = "ADD ING TO THE END OF DO.":F$ = "DOING": GOSUB 1400
1328 E$ = "ADD HER TO THE END OF FAT.":F$ = "FATHER": GOSUB 1400
1330 GOSUB 8100:SL = 3: GOTO 1500
1400 HTAB 1: VTAB V: PRINT E$;:X = 32:Y = V
1410 GOSUB 9010: IF C$ < >F$ THEN GOSUB 8410: GOTO 1410
1420 HTAB 1: VTAB V +1: PRINT "CORRECT!";
1425 FOR K = 1 TO 1000: NEXT K: HTAB 1: VTAB V +1: PRINT SPC( 10);
1430 V = V +2: RETURN
1500 GOSUB 8050
1510 PRINT "TYPE THE SPELLING WORDS THAT RHYME WITH THESE WORDS."
1515 N = 7:V = 10:H = 10
1520 FOR I = 1 TO 3: VTAB (I *2) +V: HTAB H: PRINT Q$(I);: HTAB H +7: GOSUB 8400: NEXT I
1530 FOR I = 1 TO 3:Y = (I *2) +V:X = H +7
1535 GOSUB 9010: IF C$ < >Q$(I +3) THEN GOSUB 8410: GOTO 1535
1540 VTAB Y: HTAB H +15: PRINT "CORRECT!";: NEXT I
1545 HTAB 1: VTAB 21: PRINT "PRESS RETURN TO GO ON.";: GET A$
1550 HTAB 1: VTAB 8: PRINT CHR$(6);"TYPE THE TWO SPELLING WORDS THAT END WITH ING."
1560 H = 15:V = 10: FOR I = 1 TO 2:X = H:Y = V +(I *2)
1565 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 1565
1567 IF RIGHT$(C$,3) < >"ING" THEN GOSUB 8410: GOTO 1565
1570 HTAB H +9: VTAB Y: PRINT "CORRECT!";: NEXT I
1580 GOSUB 8100:SL = 4
1700 GOSUB 8050
1710 VTAB 7: PRINT "HERE IS A CROSSWORD PUZZLE. USE YOUR SPELLING WORDS TO FILL IN THE BLANKS."
1715 R = 12: GOSUB 9300:P2 = 1: HCOLOR= 2:YY = 64:XX = 0:N = 7
1720 GOSUB 9400: FOR K = 1 TO A: GOSUB 9500: FOR X = X1 TO X2 STEP 2:X3 = (X *7) +3: HPLOT X3 +XX,(Y1 *8) +4 +YY TO X3 +XX,(Y2 *8) +4 +YY: NEXT X
1730 FOR Y = Y1 TO Y2 STEP 2:Y3 = (Y *8) +4: HPLOT XX +(X1 *7) +3,Y3 +YY TO XX +(X2 *7) +3,Y3 +YY: NEXT Y,K
1735 GOSUB 9400: FOR K = 1 TO A: GOSUB 9500:X1 = (X1 *7) +3:X2 = (X2 *7) +3 +XX:Y1 = (Y1 *8) +4:Y2 = (Y2 *8) +4 +YY: GOSUB 9190: NEXT K
1740 B$ = "THE WORD THAT MEANS THIS DAY": GOSUB 1800
1742 B$ = "RHYMES WITH BELONG": GOSUB 1800
1744 B$ = "ONE MORE THAN 99.": GOSUB 1800
1746 B$ = "SOMETHING TO WRITE ON": GOSUB 1800
1748 B$ = "OPPOSITE OF MOTHER": GOSUB 1800
1750 B$ = "RHYMES WITH EVER": GOSUB 1800
1752 B$ = "RHYMES WITH CHEWING": GOSUB 1800
1754 B$ = "SOMETHING SWEET TO EAT": GOSUB 1800
1760 HTAB 1: VTAB 21: PRINT CHR$(6);: GOSUB 8100:SL = 5: GOTO 1900
1800 GOSUB 9400:D = A: GOSUB 9400:X3 = A: GOSUB 9400:Y3 = A: GOSUB 9400:L = A:W$ = MID$ (A$,P2,L)
1801 X5 = X3 +1:Y5 = Y3 +7:P2 = P2 +L
1802 IF D = 1 THEN X5 = X5 -2:Y5 = Y5 +2
1803 X6 = X5:Y6 = Y5
1804 HCOLOR= 1: GOSUB 1850
1805 HTAB 1: VTAB 21: PRINT CHR$(6);B$;:X = 1:Y = 23: GOSUB 9010: IF C$ < >W$ THEN GOSUB 8410: GOTO 1805
1810 FOR I = 1 TO L: IF D = 1 THEN X5 = X5 +2
1812 IF D = 2 THEN Y5 = Y5 +2
1815 HTAB X5: VTAB Y5: PRINT MID$ (W$,I,1);: FOR G = 1 TO 150: NEXT G,I
1820 HCOLOR= 0: GOSUB 1850: RETURN
1850 X3 = X6:Y3 = Y6: FOR I = 1 TO L: IF D = 1 THEN X3 = X3 +2
1853 IF D = 2 THEN Y3 = Y3 +2
1860 X1 = (X3 -2) *7 +5:Y1 = (Y3 -2) *8 +6
1863 X2 = X3 *7 +1:Y2 = Y3 *8 +2
1865 HPLOT X1,Y1 TO X2,Y1 TO X2,Y2 TO X1,Y2 TO X1,Y1: NEXT I: RETURN
1900 GOSUB 8200:SL = 1
2000 LE = 2: ON SL GOTO 2100,2300,2500,2700,2900
2010 GOTO 210
2100 GOSUB 8000: GOSUB 8020:SL = 2
2300 GOSUB 8050
2310 PRINT "TYPE YOUR SPELLING WORDS THAT HAVE TT INTHEM."
2315 N = 8:V = 10:H = 10:S = 5:U$ = "TTING": GOSUB 2320
2316 HTAB 1: VTAB 22: PRINT CHR$(6);"PRESS RETURN TO GO ON.";: GET A$: HTAB 1: VTAB 8: PRINT CHR$(6);"NOW TYPE THE SPELLING WORDS THAT HAVE PPIN THEM."
2317 S = 3:U$ = "PPING": GOSUB 2320: GOSUB 8100:SL = 3: GOTO 2500
2320 FOR I = 1 TO S: HTAB H: VTAB V +(I *2): GOSUB 8400: NEXT I
2325 FOR I = 1 TO S:X = H:Y = V +(I *2)
2330 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 2330
2335 IF RIGHT$(C$,5) < >U$ THEN GOSUB 8410: GOTO 2330
2340 D$(I +1) = C$: FOR K = 1 TO I: IF D$(K) = C$ THEN GOSUB 8410: GOTO 2330
2345 NEXT K: HTAB H +10: VTAB Y: PRINT "CORRECT!";: NEXT I
2350 FOR I = 1 TO 6:D$(I) = "": NEXT I
2360 RETURN
2500 GOSUB 8050
2510 PRINT "YOU ADD LETTERS TO A BASE TO GET A NEW WORD. BUY IS THE BASE WORD FOR BUYING. FIT IS THE BASE WORD FOR FITTING.": PRINT : PRINT "TRY IT!"
2511 HTAB 9: VTAB 12: PRINT "TYPE THE BASE WORD ON THE LINE."
2512 VTAB 16: HTAB 1: PRINT "WHAT IS THE BASE WORD FOR GETTING? ";:N = 4:X = 36:Y = 16: GOSUB 9010
2513 IF C$ < >"GET" THEN GOSUB 8410: GOTO 2512
2514 HTAB 1: VTAB 18: PRINT "CORRECT!"
2515 VTAB 22: HTAB 1: PRINT "PRESS RETURN TO GO ON WITH LESSON.";: GET A$
2518 HTAB 1: VTAB 8: PRINT CHR$(6);
2520 VTAB 8: HTAB 1: PRINT "TYPE A SPELLING WORD FOR EACH WORD THAT HAS THE SAME BASE WORD."
2525 N = 8:W = 7:V = 9:H = 10
2530 FOR I = 1 TO 5: HTAB H:Y = V +(I *2): VTAB Y: PRINT Q$(W +I);: HTAB H +8: GOSUB 8400: NEXT I
2535 FOR I = 1 TO 5:X = H +8:Y = V +(I *2)
2540 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 2540
2545 IF LEFT$(C$,3) < > LEFT$(Q$(W +I),3) THEN GOSUB 8410: GOTO 2540
2550 HTAB H +19: VTAB Y: PRINT "CORRECT!";: NEXT I: GOSUB 8100:SL = 4
2700 GOSUB 8050
2710 PRINT "CHANGE THE BIG LETTERS TO MAKE SPELLING WORDS. TYPE THE WHOLE WORD."
2715 N = 8:V = 9:H = 7:W = 15
2720 FOR I = 1 TO 5: HTAB H: VTAB V +(I *2): PRINT Q$(W +I);: HTAB H +10: GOSUB 8400: NEXT I
2725 FOR I = 1 TO 5:X = H +10:Y = V +(I *2)
2730 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 2730
2735 IF RIGHT$(C$,6) < > RIGHT$(Q$(W +I),6) THEN GOSUB 8410: GOTO 2730
2740 HTAB H +20: VTAB Y: PRINT "CORRECT!";: NEXT I: GOSUB 8100:SL = 5
2900 GOSUB 8200:SL = 1
3000 LE = 3: ON SL GOTO 3100,3300,3500,3700,3900
3010 GOTO 210
3100 GOSUB 8000: GOSUB 8020:SL = 2
3300 GOSUB 8050
3310 PRINT "HERE ARE SOME LETTERS. TYPE ONE OF YOUR SPELLING WORDS THAT BEGINS WITH THE LETTER."
3315 N = 7:V = 9:H = 8:W = 23
3320 FOR I = 1 TO 5: HTAB H: VTAB V +(I *2): PRINT MID$ (Q$(W),I,1);: HTAB H +2: GOSUB 8400: NEXT I
3325 FOR I = 1 TO 5:X = H +2:Y = V +(I *2)
3330 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 3330
3335 IF LEFT$(C$,1) < > MID$ (Q$(W),I,1) THEN GOSUB 8410: GOTO 3330
3340 HTAB H +11: VTAB Y: PRINT "CORRECT!";: NEXT I: GOSUB 8100:SL = 3
3500 GOSUB 8050
3510 PRINT "TO ADD ING TO A WORD WITH A SILENT E, DROP THE E AND THEN ADD THE ING. EACH SPELLING WORD HAS A BASE WORD.": PRINT "SKATE IS A BASE WORD FOR SKATING."
3511 N = 6
3513 VTAB 16: HTAB 1: PRINT "WHAT IS THE BASE WORD FOR LIKING?";:X = 35:Y = 16: GOSUB 9010: IF C$ < >"LIKE" THEN GOSUB 8410: GOTO 3513
3514 VTAB 18: HTAB 1: PRINT "CORRECT!"
3515 VTAB 23: HTAB 1: PRINT "PRESS RETURN TO GO ON WITH LESSON.";: GET A$
3517 HTAB 1: VTAB 7: PRINT CHR$(6);"HERE ARE THE BASE WORDS FOR YOUR WORDS. TYPE A SPELLING WORD FOR EACH BASE WORD."
3520 N = 8:W = 23:V = 9:H = 10
3525 FOR I = 1 TO 5: HTAB H: VTAB V +(I *2): PRINT Q$(W +I);: HTAB H +7: GOSUB 8400: NEXT I
3530 FOR I = 1 TO 5:X = H +7:Y = V +(I *2)
3535 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 3535
3540 IF LEFT$(Q$(W +I),2) < > LEFT$(C$,2) THEN GOSUB 8410: GOTO 3535
3545 HTAB H +16: VTAB Y: PRINT "CORRECT!";: NEXT I: GOSUB 8100:SL = 4
3700 GOSUB 8050
3710 VTAB 7: PRINT "DECORATE THE TREE. TYPE THE SPELLING WORD THAT RHYMES WITH EACH OF THESE WORDS.";
3715 R = 21:XX = 112:YY = 78: GOSUB 9100:N = 7:H = 1:V = 19:W = 1
3720 B$ = "CHOOSING":U$ = "USING":X1 = 20:Y1 = 16: GOSUB 3800
3722 B$ = "HIKING":U$ = "LIKING":X1 = 22:Y1 = 16: GOSUB 3800
3724 B$ = "HUMMING":U$ = "COMING":X1 = 20:Y1 = 14: GOSUB 3800
3725 FOR I = 1 TO 5:X = H +10:Y = V +(I *2)
3726 B$ = "PRANCING":U$ = "DANCING":X1 = 22:Y1 = 14: GOSUB 3800
3728 B$ = "RATING":U$ = "SKATING":X1 = 21:Y1 = 12: GOSUB 3800
3730 GOSUB 8100:SL = 5: GOTO 3900
3735 IF RIGHT$(Q$(W +I),5) < > RIGHT$(C$,5) THEN GOSUB 8410: GOTO 3730
3750 NEXT I: GOSUB 8100:SL = 5
3800 HTAB H: VTAB V: PRINT CHR$(6);B$;:X = 10:Y = V
3810 GOSUB 9010: IF C$ < >U$ THEN GOSUB 8410: GOTO 3810
3820 HTAB X1: VTAB Y1: PRINT CHR$(9);W; CHR$(14);:W = W +1: RETURN
3900 GOSUB 8200:SL = 1
4000 LE = 4: ON SL GOTO 4100,4300,4500,4700,4900
4010 GOTO 210
4100 GOSUB 8000: GOSUB 8020:SL = 2
4300 GOSUB 8050
4310 PRINT "TYPE THE SPELLING WORDS THAT END WITH ES"
4315 N = 8:H = 13:V = 9
4320 FOR I = 1 TO 5: HTAB H: VTAB V +I *2: GOSUB 8400: NEXT I
4325 FOR I = 1 TO 5:X = H:Y = V +I *2
4330 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 4330
4335 IF RIGHT$(C$,2) < >"ES" THEN GOSUB 8410: GOTO 4330
4336 FOR K = 1 TO I: IF D$(K) = C$ THEN GOSUB 8410: GOTO 4330
4337 NEXT K
4338 D$(I +1) = C$
4340 HTAB H +10: VTAB Y: PRINT "CORRECT!";: NEXT I: GOSUB 8100:SL = 3
4350 FOR I = 1 TO 6:D$(I) = "": NEXT I
4500 GOSUB 8050
4507 VTAB 7
4510 PRINT "ADD S OR ES TO THESE WORDS. MAKE SPELLING WORDS."
4511 PRINT "EXAMPLE: DRESS + ES = DRESSES"
4515 N = 2:H = 10:V = 9:W = 28
4520 FOR I = 1 TO 5: HTAB H: VTAB V +I *2: PRINT Q$(W +I);: HTAB H +7: PRINT "+";: HTAB H +9: GOSUB 8400: NEXT I
4525 FOR I = 1 TO 5:X = H +9:Y = V +I *2
4530 GOSUB 9010: IF C$ < >Q$(33 +I) THEN GOSUB 8410: GOTO 4530
4535 HTAB H +12: VTAB Y: PRINT "= ";Q$(W +I);C$;: NEXT I: GOSUB 8100:SL = 4
4700 GOSUB 8050
4710 VTAB 7: PRINT "SOME OF YOUR SPELLING WORDS ARE ON THESESIGNS. FIND THEM. TYPE THE RIGHT WORDS ON THE BLANKS."
4715 YY = 77:XX = 23:R = 48: GOSUB 9100:XX = 157:P2 = 1: GOSUB 9104:N = 7:V = 19:H = 6
4720 HTAB 5: VTAB 11: PRINT "FOR SALE";: HTAB 5: VTAB 13: PRINT "DRESSES";: HTAB 5: VTAB 14: PRINT "WATCHES";
4722 HTAB 24: VTAB 11: PRINT " WANTED";: HTAB 24: VTAB 13: PRINT "GLASSES";: HTAB 24: VTAB 14: PRINT "IN BOXES";
4725 FOR I = 1 TO 4: HTAB (I -1) *9 +3: VTAB V: GOSUB 8400: NEXT I
4730 FOR I = 1 TO 4:X = (I -1) *9 +3:Y = V
4735 GOSUB 9010: IF (C$ = "DRESSES") OR (C$ = "WATCHES") OR (C$ = "GLASSES") OR (C$ = "BOXES") THEN 4750
4740 GOSUB 8410: GOTO 4735
4750 FOR K = 1 TO I: IF D$(K) = C$ THEN 4740
4755 NEXT K
4760 D$(I +1) = C$: HTAB X: VTAB Y +2: PRINT "RIGHT!";: NEXT I: GOSUB 8100:SL = 5
4900 GOSUB 8200:SL = 1
5000 LE = 5: ON SL GOTO 5100,5300,5500,5700,5900
5010 GOTO 210
5100 GOSUB 8000: GOSUB 8020:SL = 2
5300 GOSUB 8050
5310 PRINT "TYPE YOUR SPELLING WORDS THAT BEGIN WITHP."
5315 U$ = "P":H = 10:V = 9:S = 3:N = 8: GOSUB 5400
5320 HTAB 1: VTAB 23: PRINT "PRESS RETURN TO GO ON WITH LESSON.";: GET A$
5325 VTAB 8: HTAB 1: PRINT "NOW TYPE YOUR SPELLING WORDS THAT BEGIN WITH C AND S."
5330 H = 2:V = 12: HTAB 1: VTAB 10:S = 2: PRINT CHR$(6);: HTAB 5: VTAB 11: PRINT "C";:U$ = "C": GOSUB 5405
5340 H = 22:V = 12:U$ = "S": HTAB 26: VTAB 11: PRINT "S";: GOSUB 5405
5350 GOSUB 8100:SL = 3: GOTO 5500
5400 HTAB 1: VTAB 10: PRINT CHR$(6);
5405 FOR I = 1 TO S: HTAB H: VTAB V +I *2: GOSUB 8400: NEXT I: FOR I = 1 TO S:X = H:Y = V +I *2
5410 GOSUB 9010:A$ = C$: GOSUB 8300: IF FL = 1 THEN GOSUB 8410: GOTO 5410
5420 IF LEFT$(C$,1) < >U$ THEN GOSUB 8410: GOTO 5410
5425 FOR K = 1 TO I: IF D$(K) = C$ THEN GOSUB 8410: GOTO 5410
5427 NEXT K
5430 D$(I +1) = C$: HTAB H +9: VTAB Y: PRINT "CORRECT