5 SK=54272:V=53248:IT=0:GOTO50
6 REM ****** WRITING SOUND *******
7 :
10 POKESK+24,15:POKESK+1,10:POKESK+6,240
12 POKESK+4,23:POKESK+6,0:POKESK+4,0:RETURN
14 REM ****** SOUND        *******
15 POKESK+24,15:POKESK+1,130:POKESK+5,9:POKESK+15,30
16 POKESK+4,21:POKESK+4,20:RETURN
18 REM ****** CLEAR ANSWER *******
19 :
20 FORI=0TO23:SL=1347:CL=55619:POKESL+I,32:POKESL+I+40,32:NEXTI:RETURN
30 REM ******* RIGHT SOUND *********
31 :
35 X$="CORRECT":SL=1036:FORI=1TO17:POKE55307+I,7:POKE55307+I+40,3:NEXT:GOSUB500
37 FORL=0TO24:POKESK+L,0:NEXT:POKESK+1,130:POKESK+5,9:POKESK+15,30
40 POKESK+24,15:FORL=1TO16:POKESK+4,21:FORT=1TO100:NEXT:POKESK+4,20
41 FORI=1TO20:NEXT:POKE53281,L:NEXT:POKESK+24,0:FORI=0TO14:SL=1036
42 POKESL+I,32:POKESL+I+40,32:NEXTI:RETURN
43 REM ******* WRONG SOUND **********
44 :
45 X$="WRONG":SL=1036:FORI=0TO10:POKE55307+I,2:POKE55307+I+40,2:NEXT:GOSUB500
46 POKE53281,2:POKESK+24,15:POKESK+5,15:POKESK+6,16:POKESK+1,6:POKESK,0
47 POKESK+4,33:FORN=1TO300:NEXTN:POKESK+4,32:POKE53281,0:X$="":FORTY=1TO100
48 NEXTTY:FORI=0TO10:SL=1036:POKESL+I,32:POKESL+I+40,32:NEXTI:RETURN
50 PRINT"[147]             PLEASE WAIT...."
55 RB=108:DIMQ$(RB):FORI=1TORB:READQ$(I):NEXT
60 DATA APPLE,HAMBURGER,CANDY CANE,BALL,SNAKE,BIRD,BEE,FISH,GRAPES,CAKE
61 DATA AIRPLANE,LOLLIPOP,ICE CREAM,KEY,SAILBOAT,SUN,SHOE,LEAF,FLAG,ELEPHANT
62 DATA FIRE,BOTTLE,BALLOON,CALCULATOR,CUP,HAMMER,SQUARE,HEART,ARROW,CANDLE
63 DATA ROCKET,RING,BELL,PIE,COOKIE,SCISSORS,FOOTPRINT,TOOTHBRUSH,BRICK
64 DATA KNIFE,FLOWER,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,JOYSTICK
65 DATA TEETH,LIPS,CAR,TURTLE,SNOWMAN,BUTTERFLY,MATCH,PLANT,RAINBOW,CLOUD,HAND
66 DATA BAT,TANK,CANNON,FROG,SNAIL,SPIDER,CLOCK,CHAIN,TRUCK,BOOT,CORN,WINDMILL
67 DATA HOUSE,LAMP,TRUMPET,MUSHROOM,PENGUIN,LION,CLOWN,SEAL,MITTENS,IGLOO,SHELL
68 DATA MARBLE,UMBRELLA,BANANA,MOON,HELICOPTER,PRESENT,LADDER,GUITAR,MAGNET
69 DATA HAT,TIE,SOCK,KITE,RABBIT,FEATHER,WAGON,BED,CHAIR,TABLE,GUN,LIGHT BULB
70 DATA WRENCH,BOMB
90 REM ****** DEFINE CHARACTERS *****
91 :
100 DIMT(100):DIMN(100):PRINTCHR$(8):G=54272:W=0
110 POKE646,1:FORJ=0TO15:READT(J):NEXT
120 DATA 0,3,12,15,48,51,60,63,192,195,204,207,240,243,252,255
200 G=53248:GN=12288
220 POKE56333,127:POKE1,51:FORQ=0TO1023:POKEGN+Q,PEEK(G+Q):NEXT
240 POKE1,55:POKE56333,129:POKE53272,29
300 POKE13312,0
310 POKE53265,27:POKE53270,200:POKE53277,20:POKE56576,151
320 FORR=0TO212STEP8:B1=12288+R:B2=13312+4*R
330 FORI=0TO4STEP4:FORK=0TO3:J=PEEK(B1+K+I):N=B2+2*(K+I)+1
340 X1=T((JAND240)/16):X2=T(JAND15)
345 POKEN,X1:POKEN+1,X1:POKEN+16,X2:POKEN+17,X2:NEXTK,I,R
350 REM :::::::MAIN ROUTINE ::::::::
360 PRINTCHR$(147)
400 POKEV+21,0:X$="SPELLER":SL=1036:FORI=1TO17:POKE55307+I,7:POKE55307+I+40,6
401 NEXT:GOSUB500:GOSUB1000
402 GOSUB560
405 X$="ABCDEFGHIJKLMN":SL=1545:FORI=0TO39:POKE55817+I,3:NEXT:GOSUB500
407 X$="OPQRSTUVWXYZ":SL=1665:FORI=1TO24:POKE55936+I,3:NEXTI:POKESL+I+40,82
408 POKESL-1+I+40,82:GOSUB500
420 NS=SL+40:POKE210,INT(NS/256):POKE209,NS AND 255:GOTO710
500 FORP=1TOLEN(X$):L=(ASC(MID$(X$,P,1))-64)*4+128
510 IFL=0THEN550
530 POKESL+G,0:POKESL+1+G,0:POKESL+40+G,0:POKESL+41+G,0
540 POKESL,L:POKESL+1,L+2:POKESL+40,L+1:POKESL+41,L+3
550 SL=SL+2:NEXT:RETURN
555 REM ******* PRINT BORDER *******
560 PRINT"":FORT=1TO17:PRINT"[158]  ";:NEXTT
565 FORT=1TO9:PRINT"[158]  "TAB(36)"[158]  ":NEXTT
570 PRINT"[145]":FORT=1TO19:PRINT"[158]  ";:NEXTT
575 PRINT"":FORT=1TO17:PRINT"[158]  ";:NEXTT
580 FORT=1TO6:PRINT"[158]  "TAB(36)"[158]  ":NEXTT
585 FORT=1TO19:PRINT"[158]  ";:NEXTT
590 PRINT"[145][145][145][145][145][145]":PRINT"[151][213][192][192][192][192][192][201][213][192][192][192][192][192][192][201][213][192][192][192][192][192][201]"
595 PRINT"[194]ENTER[151][194][194]ERASE [151][194][194]MENU[151] [194]"
597 PRINT"[151][202][192][192][192][192][192][203][194]LETTER[151][194][202][192][192][192][192][192][203]"
600 PRINT"[151]       [202][192][192][192][192][192][192][203]      "
605 PRINT""
610 T=27:PRINTTAB(T)"[207]";:FORI=1TO7:PRINT"[183]";:NEXT:PRINT"[208]"
615 FORI=1TO6:PRINTTAB(T)"[180]       [170]":NEXT:PRINTTAB(T)"[204]";:FORI=1TO7
620 PRINT"[175]";:NEXT:PRINT"[186]":GOSUB1160:RETURN
700 REM ::::: MAIN ROUTINE PT.2 :::::
710 IFIT=0THENPOKE2047,13:FORN=0TO62:READQ:POKE832+N,Q:NEXT:IT=1
712 POKEV+46,7:PO=28:B=65:POKEV+14,PO
715 POKEV+15,150:POKEV+28,1:GOSUB900:POKEV+21,129
726 DATA000,000,000,000,000,000,000,000
727 DATA000,031,255,248,016,000,008,016
728 DATA000,008,016,000,008,016,000,008
729 DATA016,000,008,016,000,008,016,000
730 DATA008,016,000,008,016,000,008,016
731 DATA000,008,016,000,008,016,000,008
732 DATA016,000,008,016,000,008,016,000
733 DATA008,016,000,008,031,255,248,000
735 SL=1347:CL=55619:C=0:GOTO 800
740 POKE2047,13:JV=PEEK(56320):FR=JVAND16:JV=15-(JVAND15)
745 IFFR<>16THENGOSUB10:C=C+1:RETURN
750 IF JV=8 THENPO=PO+16:B=B+1:POKEV+14,PO:GOSUB15
752 IFA=1ANDJV=1 THENPOKEV+15,150:A=0:B=B-14 :GOSUB15
755 IF JV=4 THENPO=PO-16:B=B-1:POKEV+14,PO:GOSUB15
757 IFA=0ANDJV=2 THENPOKEV+15,174:A=1:B=B+14:JV=0:GOSUB15
760 IFPO>=240THENA=1:PO=28:POKEV+14,PO:POKEV+15,174
765 IFA=1ANDPO>=225THENA=0:B=65:PO=28:POKEV+14,PO:POKEV+15,150
770 IFPO<=27ANDA=0THENPO=220:A=1:B=91:POKEV+14,PO:POKEV+15,174
772 IFPO<=27ANDA=1THENPO=236:A=0:B=78:POKEV+14,PO:POKEV+15,150
774 IFA=1ANDJV=2THENGOSUB1175:B=65:FORX=1TO1:NEXT:A=0
790 GOTO 740
794 REM ******* SPELL IT *********
795 :
800 GOSUB740:IFB=91THENX$=CHR$(32):N(C)=32:GOTO815
805 X$=CHR$(B):N(C)=B
815 IFC>11THENC=11:GOTO800
817 FORI=0TO2:POKECL+I,1:POKECL+40+I,1:NEXTI:GOSUB500:S=SL+2:CL=CL+2
820 GOTO800
848 REM ******* ERASE A CHARACTER ****
849 :
850 IFC<=0THENRETURN:   CL=55619:SL=1347:C=0:GOTO860
855 CL=CL-2:SL=SL-2:C=C-1
860 FORI=0TO2:POKESL+I,32:POKESL+40+I,32:NEXT:RETURN
868 REM **CHECK IF SPELLING IS RIGHT**
869 :
870 FORI=1TOC
875 E$=E$+CHR$(N(I)):NEXTI
890 IFE$<>G$THENGOSUB45:GOSUB20:GOSUB920
895 IFE$=G$THENGOSUB35
896 E$="":C=0:GOSUB20:GOSUB900:POKEV+21,129:RETURN
900 R=INT(RND(.)*RB)+1:X$=Q$(R):G$=X$:POKEV+21,128
905 POKE2040,14:OPEN2,8,2,"0:"+X$+",P,R":FORN=0TO62
910 INPUT#2,D:POKE896+N,D:NEXT:INPUT#2,C0,C1,C2,C3:POKEV+39,C2:POKEV+37,C1
915 POKEV+38,C3:CLOSE2:POKEV+0,252:POKEV+1,80:POKEV+23,1:POKEV+29,1:RETURN
917 REM **** TELL CORRECT ANSWER *****
918 :
920 X$=Q$(R):SL=1347:CL=55619:Y=LEN(X$):GOSUB500:FORJ=1TO5:FORI=0TO(Y*2)
925 POKECL+I,0:POKECL+I+40,0:NEXTI:FORK=1TO160:NEXTK:FORI=0TO(Y*2)
930 POKECL+I,1:POKECL+I+40,2:NEXTI:NEXTJ
935 JV=PEEK(56320):FR=JVAND16
940 IFFR<>16THENRETURN
945 GOTO935
998 REM :::::::: OPTIONS ::::::::
999 :
1000 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]":POKE53280,0
1002 POKE53281,12:X$="MENU":SL=1225:FORI=1TO14:POKE55496+I,7
1005 POKE55496+I+40,7:NEXT:PRINT"[163][163][163][163][163][163][163][163]"
1010 GOSUB500
1015 X$="S":PRINT"PELL IT":SL=1385:FORI=1TO2:POKE55656+I,6
1020 POKE55656+I+40,6:NEXT:GOSUB500
1025 X$="V":PRINT"IEW  IT  (TUTORIAL)":SL=1505:FORI=1TO2
1030 POKE55776+I,6:POKE55776+I+40,6:NEXT:GOSUB500
1035 X$="Q":PRINT"UIT":SL=1625:FORI=1TO2:POKE55896+I,6
1036 POKE55896+I+40,6:NEXT:GOSUB500
1042 VD=0:XX=1435:CY=55707:POKEXX,31:POKECY,7
1045 JV=PEEK(56320):FR=JVAND16:JV=15-(JVAND15)
1050 IFFR<>16THENGOSUB10:GOTO1080
1051 IFXX=1675THENP=1
1055 IFJV=2ANDP=1THENP=0:POKEXX,32:GOSUB15:   GOTO1042
1060 IFJV=2THENPOKECY,12:CY=CY+120:XX=XX+120:POKEXX,31:POKECY,7:VD=VD+1:GOSUB15
1075 FORI=1TO10:NEXTI:GOTO1045
1080 IFVD=0THENPRINT"[147]":POKE53281,0:RETURN
1082 IFVD=1THENPOKE53281,0:GOTO1100
1084 IFVD=2THEN60000
1098 REM ******** VIEW IT **********
1099 :
1100 POKEV+14,0:PRINT"[147][150]SELECT ENTER TO CONTINUE"
1101 POKEV+28,1:PRINT"[150]SELECT MENU FOR OPTIONS":GOSUB560
1103 SL=1347:CL=55618:GOSUB900:POKEV+21,129:FORI=1TO(LEN(X$)*2):POKECL+I,7
1105 POKECL+I+40,7:NEXTI:GOSUB500:POKEV+15,220:POKEV+14,70:K=0
1107 JV=PEEK(56320):FR=JVAND16:JV=15-(JVAND15)
1110 IFFR<>16THENGOSUB10:GOTO1125
1119 IFJV=4 THENPOKEV+14,70:K=0
1121 IFJV=8 THENPOKEV+14,190:K=1
1123 GOTO1107
1125 IFK=0 THEN GOSUB20:GOTO1103
1129 IFK=1 THENPRINT"[147]":GOTO400
1160 OPEN2,8,2,"0:POINTER,P,R":FORN=0TO62:INPUT#2,D
1162 POKE960+N,D:NEXT:CLOSE2:POKE2047,15:RETURN
1175 PL=70:POKEV+14,PL:POKEV+15,220:POKE2047,15
1180 JV=PEEK(56320):FR=JVAND16:JV=15-(JVAND15)
1181 IFFR<>16THENGOSUB10:GOSUB2010
1182 IFPL>=195ANDK=0THENPL=190:POKEV+14,PL:K=1
1185 IFPL=<65THENPL=70:POKEV+14,PL
1187 IFJV=1THENPOKEV+14,28:POKEV+15,150:POKE2047,13:PO=28:RETURN
1190 IFJV=4 THENPL=PL-60:POKEV+14,PL
1192 IFJV=8 THENPL=PL+60:K=0:POKEV+14,PL
2000 GOTO1180
2010 IFPL=70 THEN GOSUB870
2012 IFPL=130 THENGOSUB850
2014 IFPL=190 THENPRINT"[147]":GOTO400
2018 RETURN
60000 PRINT"[151] ARE YOU SURE YOU WANT TO QUIT?  (Y/N)"
60002 GETA$:IFA$<>"Y"ANDA$<>"N"THEN60002
60004 IFA$="N"THENRUN
60008 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 PRINT"[147]":IFER<>63THENEND
60020 POKE53272,21:LOAD"HELLO CONNECT",8