10 LET a1=a1+.25 COPY : LET hr=INT (a1/3600): LET min=INT ((a1-hr*3600)/60): LET sec=INT (a1-hr*3600-min*60): IF min>59 THEN LET min=min-60
11 PRINT BRIGHT 1; PAPER 0; INK 7;AT vc,hc;" ";("0" AND hr<10);hr;":";("0" AND min<10);min;":";("0" AND sec<10);sec;" ": RETURN
30 LET trt=USR 61103: RETURN
40 LET trt=USR 61296: RETURN
500 PRINT AT VAL "16",VAL "11";"[Q]"
510 LET j$="": LET v=VAL "16"
520 LET i$=INKEY$: GO SUB 10
530 IF i$=CHR$ 81 THEN BEEP .5 COPY ,-20: GO TO open
540 IF i$="0" THEN BEEP .2 TO ,35: GO SUB 6000+(stage*100)
550 IF i$=CHR$ 13 THEN BEEP .05 TO ,0: GO TO sue
560 IF i$=CHR$ 12 AND LEN j$>0 THEN LET j$=j$(1 TO (LEN j$-1)): BEEP .05 TO ,0: GO SUB end: PRINT AT v,11;: GO SUB start: PRINT j$;" ";: GO SUB end: PRINT CHR$ 8;"[Q] ": GO TO 520
570 IF CODE i$<97 OR CODE i$>122 THEN GO TO 520
580 IF LEN j$>(level-1) THEN GO TO 520
590 BEEP .05 TO ,10: PRINT AT v,(11+LEN j$);" ": PRINT AT v,(11+LEN j$);: GO SUB start: LET j$=j$+i$: PRINT i$;: GO SUB end: FOR f=1 TO 3: NEXT f: PRINT "[Q]": GO TO 520
1000 LET clue=PI-PI: LET h$="COMPLETE ": LET vc=VAL "21": LET hc=VAL "11": LET u$="aeiou": LET ll=PI-PI: LET sue=VAL "1500": LET stage=PI/PI: LET hv=VAL "9": LET hh=VAL "26": LET gh=VAL "4": LET wh=VAL "4"
1030 LET graphic=VAL "4": GO SUB VAL "9790": PRINT AT VAL "8",VAL "28";"[P]";AT VAL "5",VAL "26";"[J][K][L]";AT VAL "6",VAL "26";"[M][N][O]";AT VAL "9",VAL "26";"[A][B]";AT VAL "10",VAL "26";"[C][D]"
1040 LET graphic=VAL "5": GO SUB VAL "9790": GO SUB VAL "8000"
1049 PRINT AT VAL "8",VAL "gh";"[G][H]";AT VAL "9",VAL "gh";"[I][J]";AT VAL "10",VAL "gh";"[K][L]";AT VAL "4",VAL "wh";"[A][B]";AT VAL "5",VAL "wh";"[C][D]";AT VAL "6",VAL "wh";"[E][F]"
1050 PRINT AT VAL "6",VAL "6";"[O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O]";AT VAL "10",VAL "6";"[O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O][O]"
1051 PRINT AT VAL "7",VAL "4";"[R][S]";AT VAL "11",VAL "4";"[R][S]"
1053 FOR w=PI/PI TO VAL "10": NEXT f: PRINT BRIGHT PI/PI; PAPER PI-PI; INK VAL "7";AT VAL "21",VAL "29";w
1054 IF w>1 THEN FOR f=PI/PI TO VAL "300": NEXT f
1055 FOR f=VAL "16" TO VAL "17": PRINT AT f,INT PI;" ": NEXT f
1057 LET p$="": FOR f=PI/PI TO level: LET p$=p$+" ": NEXT f
1060 FOR f=1 TO (level*2)+1: PRINT AT 12,2+f;" ";AT 13,2+f;" ";AT 14,2+f;" ": NEXT f
1070 FOR f=1 TO (level*2) STEP 2: PRINT AT 14,3+f;"[N]": NEXT f
1105 PRINT BRIGHT 1; PAPER 7;AT 19,3;" here are your consonants "
1110 FOR f=PI/PI TO VAL "100": NEXT f: LET o=INT (RND*100)+(1+vocab): LET e$=w$(o)(1 TO level)
1120 FOR f=1 TO level
1125 FOR d=1 TO 5
1130 IF e$(f)=u$(d) THEN GO TO 1150
1140 NEXT d
1145 LET p$(f)=e$(f): PRINT AT 12,2+(f*2);: GO SUB start: PRINT e$(f): GO SUB end: BEEP .03/,f
1150 NEXT f
1160 IF clue=1 THEN RETURN
1230 PRINT BRIGHT PI/PI; PAPER VAL "7";AT VAL "19",VAL "3";" now complete the word "
1400 PRINT AT VAL "16",VAL "3";: GO SUB start: PRINT "answer:": GO SUB end
1410 GO TO VAL "500"
1510 PRINT AT v,(11+LEN j$);" ";AT VAL "19",INT PI;" "
1515 IF j$<>e$ THEN GO SUB VAL "1600": GO SUB VAL "1800": NEXT w
1520 GO SUB VAL "1600": GO SUB VAL "1700": NEXT w
1600 GO SUB end: PRINT AT 12,4;: GO SUB start: FOR l=1 TO level: PRINT e$(l TO l);" ";: NEXT l: GO SUB end
1610 IF clue=1 THEN RETURN
1620 RETURN
1700 GO SUB 8500: LET graphic=5: GO SUB 9790: FOR f=1 TO 4: BEEP .01=,f*5: PRINT AT 8,gh;" [G][H]";AT 9,gh;" [I][J]";AT 10,gh;" [K][L]";AT 11,gh;" [R][S]": LET gh=gh+1: NEXT f
1720 IF gh=VAL "24" THEN LET m(1)=PI/PI: PRINT AT VAL "8",VAL "28";" "; FLASH PI/PI; PAPER VAL "7";AT VAL "8",VAL "26";m$(e(1) TO e(1)): FOR f=VAL "45" TO VAL "30" STEP -1: BEEP .03/,f: BEEP .03/,30: NEXT f: GO SUB 8800: GO TO open
1740 RETURN
1810 FOR f=1 TO 4: BEEP .01=,f*-5: PRINT AT 4,wh;" [A][B]";AT 5,wh;" [C][D]";AT 6,wh;" [E][F]";AT 7,wh;" [R][S]": LET wh=wh+1: NEXT f
1820 IF wh=VAL "24" THEN GO SUB end: BEEP .73,-15: BEEP .73,-20: BEEP .73,-25: GO SUB 8810: GO TO open
1830 RETURN
2000 LET clue=PI-PI: LET h$=" JUMBLES ": LET vc=VAL "21": LET hc=VAL "11": LET sue=VAL "2300": LET stage=VAL "2": LET ll=PI-PI: LET hv=VAL "12": LET hh=VAL "27": LET box=VAL "16"
2008 LET graphic=VAL "4": GO SUB VAL "9790": PRINT AT VAL "14",VAL "26";"[J][K][L]";AT VAL "15",VAL "26";"[M][N][O]";AT VAL "hv",VAL "hh";"[A][B]";AT hv+PI/PI,VAL "hh";"[C][D]": LET graphic=VAL "3": GO SUB VAL "9790": GO SUB VAL "8000"
2012 PRINT AT VAL "7",VAL "3";"[G][H]";AT VAL "8",VAL "3";"[I][J]";AT VAL "9",VAL "3";"[K][L]";AT VAL "8",VAL "5";"[O][O][O][O][O][O][O][O][O][O][O][R][O][O][O][O][O][O][O][O][O][O][O]";AT VAL "7",VAL "27";"[A][B]";AT VAL "8",VAL "27";"[C][D]";AT VAL "9",VAL "27";"[E][F]";AT VAL "10",VAL "2";" "
2025 FOR x=PI/PI TO VAL "20": PRINT BRIGHT PI/PI; PAPER PI-PI; INK VAL "7";AT VAL "21",VAL "29";x: LET ax=PI/PI
2027 IF x>1 THEN FOR f=PI/PI TO VAL "200": NEXT f
2030 LET o=INT (RND*100)+(1+vocab): LET e$=w$(o)(1 TO level)
2060 FOR f=1 TO (level*2)+1: PRINT AT 12,2+f;" ";AT 13,2+f;" ";AT 14,2+f;" ": NEXT f: FOR f=2 TO (level*2) STEP 2: PRINT AT 14,2+f;"[N]": NEXT f: FOR f=VAL "16" TO VAL "17": PRINT AT f,VAL "10";" ": NEXT f
2070 DIM p(level): DIM g(level+1): FOR f=1 TO level+1: LET g(f)=f: NEXT f: LET c=1: FOR b=level TO 1 STEP -1: LET a=INT (RND*b)+1: LET p(c)=g(a): IF p(1)=1 THEN GO TO 2070
2080 FOR d=a TO b: LET g(d)=g(d+1): NEXT d: LET c=c+1: NEXT b
2087 PRINT AT VAL "16",INT PI;: GO SUB start: PRINT "answer:": GO SUB end
2092 PRINT AT 12,4;: LET s$="": FOR f=1 TO level: BEEP .05 TO ,f*5: GO SUB start: PRINT e$(p(f));" ";: LET s$=s$+e$(p(f)): GO SUB end: NEXT f: IF clue=1 THEN RETURN
2095 PRINT BRIGHT PI/PI; PAPER VAL "7"; INK PI-PI;AT VAL "19",VAL "5";" What is this word? "
2100 GO TO VAL "500"
2300 PRINT AT VAL "19",VAL "5";" ";AT v,(11+LEN j$);" "
2302 IF j$<>e$ THEN FOR f=1 TO 30: NEXT f: BEEP .1 TO ,-10: FOR f=1 TO 30: NEXT f: BEEP .5 COPY ,-20: GO SUB VAL "5640": GO SUB VAL "2800": NEXT x: GO TO VAL "2830"
2304 GO SUB VAL "5640": GO SUB VAL "2700": NEXT x: GO TO VAL "2830"
2310 FOR f=1 TO level: LET p(f)=f: NEXT f: GO SUB 2700: NEXT x: GO TO 2830
2699 STOP
2700 GO SUB 8500: FOR u=PI/PI TO INT PI: BEEP .1 TO ,20: LET box=box-1: PRINT AT 7,2;"[G][H] ";AT 8,2;"[I][J][O]";AT 9,2;"[K][L] ";AT 8,box;"[R][O]": FOR f=1 TO 10: NEXT f: PRINT AT 7,2;" [G][H]";AT 8,2;" [I][J]";AT 9,2;" [K][L]"
2730 IF box=5 THEN LET m(2)=1: LET ll=1: GO SUB 5640: PRINT FLASH 1; PAPER 7;AT 8,5;m$(e(2) TO e(2)): FOR f=45 TO 30 STEP -1: BEEP .03/,f: BEEP .03/,30: NEXT f: GO SUB 8800: GO TO open
2740 FOR f=PI/PI TO VAL "30": NEXT f: NEXT u: RETURN
2800 FOR u=1 TO 3: BEEP .1 TO ,-20: PRINT AT 7,27;" [A][B]";AT 8,27;"[O][C][D]";AT 9,27;" [E][F]";AT 8,box;"[O][R]": FOR f=1 TO 20: NEXT f: PRINT AT 7,27;"[A][B] ";AT 8,27;"[C][D] ";AT 9,27;"[E][F] ": LET box=box+1
2830 IF box=26 OR x=21 THEN LET ll=1: GO SUB 5640: LET ll=0: GO SUB end: BEEP .4 TO ,-15: BEEP .4 TO ,-20: BEEP .4 TO ,-25: BEEP .4 TO ,-30: GO SUB 8810: GO TO open
2840 FOR f=PI/PI TO VAL "30": NEXT f: NEXT u: RETURN
3020 LET clue=PI-PI: LET h$=" FLASH ": LET vc=VAL "21": LET hc=VAL "11": LET ll=PI-PI: LET sue=VAL "3200": LET stage=INT PI: LET sv=VAL "5": LET sh=VAL "26": LET hv=VAL "9": LET hh=VAL "26": LET gv=VAL "8": LET gh=VAL "3": LET wv=VAL "4": LET wh=VAL "3"
3060 LET graphic=VAL "1": GO SUB VAL "9790": PRINT AT VAL "gv",VAL "gh";"[G][H]";AT gv+PI/PI,VAL "gh";"[I][J]";AT gv+2,VAL "gh";"[K][L]";AT VAL "wv",VAL "wh";"[A][B]";AT wv+PI/PI,VAL "wh";"[C][D]";AT wv+2,VAL "wh";"[E][F]"
3065 LET graphic=VAL "3": GO SUB VAL "9790": GO SUB VAL "8000"
3070 LET graphic=VAL "4": GO SUB VAL "9790": PRINT AT VAL "sv",VAL "sh";"[J][K][L]";AT sv+PI/PI,sh-1;"[P][M][N][O]";AT VAL "hv",VAL "hh";"[A][B]";AT hv+PI/PI,VAL "hh";"[C][D]": FOR f=7 TO 11 STEP 4: PRINT AT f,2;" ": NEXT f
3100 FOR x=PI/PI TO VAL "10": PRINT BRIGHT PI/PI; PAPER PI-PI; INK VAL "7";AT VAL "21",VAL "29";x: LET o=INT (RND*100)+(1+vocab): LET e$=w$(o)(1 TO level)
3105 FOR f=VAL "16" TO VAL "17": PRINT AT f,INT PI;" ": NEXT f
3110 FOR f=1 TO (level*2)+1: PRINT AT 12,2+f;" ";AT 13,2+f;" ";AT 14,2+f;" ": NEXT f: FOR f=2 TO (level*2) STEP 2: PRINT AT 14,2+f;"[R]": NEXT f
3120 PRINT BRIGHT PI/PI; PAPER VAL "7"; INK PI-PI;AT VAL "19",VAL "5";" Here is your word "
3130 FOR f=2 TO (level*2) STEP 2: PRINT AT 12,2+f;: GO SUB start: PRINT w$(o,f/2): GO SUB end: NEXT f: IF clue=1 THEN RETURN
3135 FOR f=PI/PI TO VAL "10": BEEP .05 TO ,INT (RND*40)+1: NEXT f
3140 FOR f=2 TO (level*2) STEP 2: PRINT AT 12,2+f;" ";AT 13,2+f;" ": NEXT f: IF clue=1 THEN RETURN
3145 PRINT BRIGHT PI/PI; PAPER VAL "7"; INK PI-PI;AT VAL "19",VAL "6";" What was the word ? "
3150 PRINT AT VAL "18",VAL "5";AT VAL "16",INT PI;: GO SUB start: PRINT "answer:": GO SUB end: PRINT AT VAL "16",VAL "11";"[Q]"
3160 GO TO VAL "500"
3200 PRINT AT v,(11+LEN j$);" ";AT VAL "19",VAL "5";" ": IF j$<>e$ THEN BEEP .4 TO ,-20: BEEP .4 TO ,-30: BEEP .4 TO ,-40: GO SUB 3800: GO SUB 3900: GO TO 3250
3210 GO SUB 8500: LET graphic=4: GO SUB 9790: GO SUB 3700: GO SUB 3900
3250 FOR f=PI/PI TO VAL "250": NEXT f: NEXT x
3700 LET hh=hh-4: PRINT AT sv+1,sh-1;" ";AT hv,hh;"[A][B] ";AT hv+1,hh-1;"[P][C][D] "
3710 IF hh=6 THEN LET m(3)=1: PRINT FLASH 1; PAPER 7;AT hv+1,5;m$(e(3) TO e(3)): FOR f=45 TO 30 STEP -1: BEEP .03/,f: BEEP .03/,30: NEXT f: GO SUB 8800: GO TO open
3720 RETURN
3800 LET sh=sh-4: PRINT AT hv+1,hh-1;" ";AT sv,sh;"[J][K][L] ";AT sv+1,sh-1;"[P][M][N][O] "
3810 IF sh=6 THEN GO SUB end: BEEP .4 TO ,-15: BEEP .4 TO ,-20: BEEP .4 TO ,-25: BEEP .4 TO ,-30: GO SUB 8810: GO TO open
3820 RETURN
3900 GO SUB end: PRINT AT 12,4;: GO SUB start: FOR l=1 TO level: PRINT e$(l TO l);" ";: NEXT l: GO SUB end: RETURN
3999 STOP
4000 LET clue=PI-PI: DIM r$(10): LET h$=" HANG-UP ": LET pv=VAL "11": LET gu=VAL "63": LET fu=VAL "63": LET vc=VAL "21": LET hc=VAL "11": DIM f$(PI/PI,VAL "26"): LET stage=VAL "4": LET hv=VAL "8": LET hh=VAL "16": LET gv=VAL "8": LET gh=VAL "2": LET wv=VAL "11": LET ee=VAL "4300"
4020 LET graphic=VAL "4": GO SUB VAL "9790": PRINT AT VAL "hv",VAL "hh";"[A][B]";AT hv+PI/PI,VAL "hh";"[C][D]";AT VAL "10",VAL "15";"[J][K][L]";AT VAL "11",VAL "15";"[M][N][O]": LET graphic=VAL "3": GO SUB VAL "9790": GO SUB VAL "8000"
4060 FOR f=INT PI TO VAL "13": PRINT AT VAL "f",INT PI;"";AT VAL "f",VAL "28";"": NEXT f
4065 PLOT 32,63: DRAW 15,0: PLOT 208,63: DRAW 15,0
4070 PRINT AT VAL "3",VAL "16";"[R]";AT VAL "11",VAL "4";"[G][H]";AT VAL "12",VAL "4";"[I][J]";AT VAL "13",VAL "4";"[K][L]";AT VAL "11",VAL "26";"[A][B]";AT VAL "12",VAL "26";"[C][D]";AT VAL "13",VAL "26";"[E][F]"
4100 PRINT AT VAL "4",VAL "11";"[P][P][P][P][P][P][P][P][P][P][P]";AT VAL "5",VAL "11";" [P] [P]";AT VAL "6",VAL "11";" [P] [P] ";AT VAL "7",VAL "11";" [P][P] ";AT VAL "8",VAL "11";" [P]": FOR f=VAL "9" TO VAL "12": PRINT AT f,VAL "13";"[P]": NEXT f: PRINT AT VAL "12",VAL "11";"[P][P][P][P][P][P][P][P]"
4110 PLOT 48,143: DRAW 40,0: PLOT 175,143: DRAW 32,0
4150 FOR x=PI/PI TO VAL "10": FOR f=PI/PI TO VAL "10": LET r$(f)="": NEXT f
4153 IF x>1 THEN FOR f=PI/PI TO VAL "200": NEXT f
4156 BEEP .2 TO ,VAL "15": PRINT BRIGHT PI/PI; PAPER PI-PI; INK VAL "7";AT VAL "21",VAL "29";VAL "x"
4160 LET o=INT (RND*100)+(1+vocab): LET u$=w$(o)(1 TO level)
4170 FOR f=VAL "5" TO VAL "11": PRINT AT f,VAL "20";" ": NEXT f: FOR f=VAL "18" TO VAL "19": PRINT AT f,VAL "16";" ": NEXT f
4180 FOR f=1 TO (level*2)+1: PRINT AT 14,5+f;" ";AT 15,5+f;" ";AT 16,5+f;" ": NEXT f: IF clue=1 THEN RETURN
4190 FOR f=1 TO (level*2) STEP 2: PRINT AT 16,6+f;"[N]": NEXT f
4195 PRINT AT VAL "18",VAL "5";" Letters [Q]"; BRIGHT PI/PI;AT VAL "20",VAL "7";" Choose a letter "
4205 LET f$(PI/PI)="abcdefghijklmnopqrstuvwxyz": LET tl=PI-PI: LET fl=PI-PI: LET xx=VAL "5": LET yy=VAL "14": LET uv=VAL "18": LET uh=VAL "16"
4210 LET i$=INKEY$
4212 FOR f=PI/PI TO VAL "3": NEXT f: GO SUB 10
4215 IF i$="0" THEN BEEP .2 TO ,35: GO SUB 6000+(stage*100)
4217 IF i$=CHR$ 81 THEN BEEP .5 COPY ,-20: GO TO open
4220 IF CODE i$<97 OR CODE i$>122 THEN GO TO 4210
4230 IF f$(1,CODE i$-96)="." THEN GO TO 4210
4235 LET f$(1,CODE i$-96)="."
4240 FOR f=1 TO level: IF i$=u$(f TO f) THEN BEEP .05 TO ,20: PRINT AT yy,xx+(f*2);: GO SUB start: PRINT i$: GO SUB end: LET r$(f)=i$: LET fl=1: LET tl=tl+1: IF tl=level THEN GO TO 4500
4242 NEXT f
4250 IF fl THEN LET fl=0: GO TO 4210
4260 BEEP .05 TO ,-20: PRINT AT uv,uh;: GO SUB start: PRINT i$;: GO SUB end: GO SUB ee: LET ee=ee+1: IF ee=4311 THEN GO TO 4400
4290 LET uh=uh+1: GO TO 4210
4300 PLOT 172,135: DRAW 0,-8: RETURN
4301 CIRCLE 172,118,8: RETURN
4302 PLOT 172,110: DRAW 0,-15: RETURN
4303 PLOT 172,95: DRAW -10,-15: RETURN
4304 PLOT 172,95: DRAW 10,-15: RETURN
4305 PLOT 172,102: DRAW -10,0: RETURN
4306 PLOT 172,102: DRAW 10,0: RETURN
4307 CIRCLE 169,120,2: RETURN
4308 CIRCLE 175,120,2: RETURN
4309 PLOT 172,117: DRAW 0,-2: RETURN
4310 PLOT 170,113: DRAW 4,0: RETURN
4400 PRINT AT 20,7;" ": FOR f=-8 TO -38 STEP -10: BEEP .5 COPY ,f: NEXT f
4405 FOR f=1 TO level: PRINT AT 14,(f*2)+5;: GO SUB start: PRINT u$(f TO f): GO SUB end: NEXT f: IF clue=1 THEN RETURN
4410 FOR f=VAL "10" TO PI/PI STEP -1:: BEEP .02=,f: NEXT f: LET wv=wv-2: LET gu=gu+VAL "16": PRINT AT wv,VAL "26";"[A][B]";AT wv+VAL "1",VAL "26";"[C][D]";AT wv+VAL "2",VAL "26";"[E][F]";AT wv+VAL "3",VAL "26";" ";AT wv+VAL "4",VAL "26";" ";AT wv+VAL "5",VAL "26";" ": PLOT 209,gu: DRAW 15,0
4420 IF wv=PI/PI THEN GO TO VAL "4800"
4430 LET ee=VAL "4300": NEXT x: GO TO VAL "4800"
4500 PRINT AT VAL "20",VAL "7";" ": GO SUB VAL "8500"
4515 FOR f=PI/PI TO VAL "10": BEEP .02=,f: NEXT f: LET pv=pv-2: LET fu=fu+VAL "16": PRINT AT pv,VAL "4";"[G][H]";AT pv+VAL "1",VAL "4";"[I][J]";AT pv+VAL "2",VAL "4";"[K][L]";AT pv+VAL "3",VAL "4";" ";AT pv+VAL "4",VAL "4";" ";AT pv+VAL "5",VAL "4";" ": PLOT 32,fu: DRAW 15,0
4520 IF pv=PI/PI THEN GO TO VAL "4700"
4530 LET ee=VAL "4300": NEXT x: GO TO VAL "4700"
4700 LET m(4)=1: PRINT FLASH PI/PI; PAPER VAL "7";AT INT PI,VAL "6";m$(e(4) TO e(4)): PRINT AT INT PI,VAL "16";" ": FOR f=VAL "45" TO VAL "30" STEP -1: BEEP .03/,f: BEEP .03/,VAL "30": NEXT f: GO SUB VAL "8800": GO TO open
4800 GO SUB end: PRINT AT INT PI,VAL "16";" [R]": GO SUB VAL "8810": GO TO open
5000 LET clue=PI-PI: LET h$=" CRACK-IT ": LET vc=VAL "21": LET hc=VAL "11": LET ll=PI-PI: DIM y$(1,5): LET d$="skate": LET sue=VAL "5600": LET stage=VAL "5": LET hv=VAL "7": LET hh=VAL "25": LET gv=VAL "8": LET gh=VAL "2": LET wv=VAL "8": LET wh=VAL "19"
5010 LET graphic=VAL "4": GO SUB VAL "9790": PRINT AT VAL "9",VAL "24";"[J][K][L]";AT VAL "10",VAL "24";"[M][N][O]";AT VAL "hv",VAL "hh";"[A][B]";AT hv+1,VAL "hh";"[C][D]": LET graphic=VAL "3": GO SUB VAL "9790": GO SUB VAL "8000"
5020 PRINT AT PI/PI,VAL "11";"[R]"
5030 PRINT AT VAL "gv",VAL "gh";"[G][H]";AT gv+PI/PI,VAL "gh";"[I][J]";AT gv+2,VAL "gh";"[K][L]";AT VAL "wv",VAL "wh";"[A][B]";AT wv+PI/PI,VAL "wh";"[C][D]";AT wv+2,VAL "wh";"[E][F]";AT VAL "11",VAL "2";" "
5040 PRINT AT 4,10;"[P][P][P]";AT 5,9;"[P][P][P][P][P]";AT 6,8;"[P][P][P][P][P][P][P]";AT 7,7;"[P][P][P][P][P][P][P][P][P]";AT 8,6;"[P][P][P][P][P][P][P][P][P][P][P]";AT 9,5;"[P][P][P][P][P][P][P][P][P][P][P][P][P]";AT 10,4;"[P][P][P][P][P][P][P][P][P][P][P][P][P][P][P]"
5100 FOR f=1 TO (level*2)+1: PRINT AT 12,2+f;" ";AT 13,2+f;" ";AT 14,2+f;" ": NEXT f
5110 FOR f=1 TO (level*2) STEP 2: PRINT AT 14,3+f;"[N]": NEXT f
5115 PRINT BRIGHT PI/PI; PAPER VAL "2"; INK VAL "7";AT VAL "18",VAL "2";" abcdefghijklmnopqrstuvwxyz ": GO SUB end
5120 FOR w=PI/PI TO VAL "10": PRINT BRIGHT PI/PI; PAPER PI-PI; INK VAL "7";AT VAL "21",VAL "29";w; PAPER VAL "5";AT VAL "13",VAL "23";" ";AT VAL "14",VAL "23";" "
5200 LET ran=INT (RND*VAL "3")+PI/PI
5210 LET o=INT (RND*100)+(1+vocab): LET e$=w$(o)(1 TO level): DIM v$(1,level)
5215 LET ug=PI-PI
5220 FOR f=1 TO level: LET cd=CODE e$(f TO f): LET cd=cd-ran: IF cd<97 THEN LET cd=cd+26
5240 LET v$(1,f)=CHR$ cd: BEEP .03/,f*5: PRINT AT 12,2+(f*2);: GO SUB start: PRINT v$(1,f): GO SUB end: NEXT f: IF clue=1 THEN RETURN
5245 FOR f=1 TO 5: LET dd=CODE d$(f TO f): LET dd=dd-ran: IF dd<97 THEN LET dd=dd+26
5246 LET y$(1,f)=CHR$ dd: NEXT f
5250 PRINT BRIGHT 1;AT 12,23;" CLUE: "; PAPER 7; INK 0;AT 13,23;" ";y$(1);" ";AT 14,23;" ";d$;" "
5400 PRINT AT VAL "16",INT PI;: GO SUB start: PRINT "answer:": GO SUB end
5505 PRINT BRIGHT PI/PI; PAPER VAL "7";AT VAL "20",VAL "6";" What is the word ? ": BEEP .5 COPY ,PI-PI
5506 GO TO VAL "500"
5600 PRINT AT v,(11+LEN j$);" ";AT VAL "20",VAL "6";" "
5610 IF j$=e$ THEN FOR a=1 TO 2:: GO SUB 5700: NEXT a
5620 IF j$<>e$ THEN BEEP .5 COPY ,-10: BEEP .5 COPY ,-20: BEEP .5 COPY ,-30: FOR g=1 TO 10: NEXT g: FOR g=1 TO 2: GO SUB 5800: NEXT g
5642 GO SUB end: PRINT AT 12,4;: GO SUB start: FOR l=1 TO level: PRINT e$(l TO l);" ";: NEXT l: GO SUB end: IF clue=1 THEN RETURN
5645 IF stage=VAL "2" THEN RETURN
5650 FOR f=PI/PI TO VAL "150": NEXT f
5665 FOR f=1 TO (level*2): PRINT AT 12,2+f;" ";AT 13,2+f;" ": NEXT f
5680 FOR f=VAL "16" TO VAL "17": PRINT AT f,VAL "11";" ": NEXT f
5690 NEXT w
5700 GO SUB 8500: BEEP .05 TO ,20: LET gv=gv-1: PRINT AT gv,gh;" [G][H]";AT gv+1,gh;" [I][J]";AT gv+2,gh;" [K][L]";AT gv+3,gh;" ": LET gh=gh+1
5720 IF gv=1 THEN LET m(5)=1: PRINT AT 1,11;" "; FLASH 1; PAPER 7;AT 2,11;m$(e(5) TO e(5)): FOR f=45 TO 30 STEP -1: BEEP .03/,f: BEEP .03/,30: NEXT f: GO SUB 8800: GO TO open
5730 RETURN
5800 BEEP .05 TO ,0: LET wv=wv-1: LET wh=wh-1: PRINT AT wv,wh;"[A][B] ";AT wv+1,wh;"[C][D] ";AT wv+2,wh;"[E][F] ";AT wv+3,wh+1;" "
5820 FOR f=PI/PI TO VAL "75": NEXT f
5840 IF wv=1 OR w=11 THEN GO SUB end: BEEP .4 TO ,-15: BEEP .4 TO ,-20: BEEP .4 TO ,-25: BEEP .4 TO ,-30: GO SUB 8810: GO TO open
5850 RETURN
5999 STOP
6100 FOR f=1 TO level: IF p$(f)<>" " THEN NEXT f: RETURN
6105 LET clue=PI/PI: LET a1=a1+VAL "30": GO SUB VAL "6710"
6110 FOR f=1 TO level: IF p$(f)=" " THEN PRINT AT 12,2+(f*2);: GO SUB start: PRINT e$(f): GO SUB end: LET p$(f)=e$(f): BEEP .03/,f: GO TO VAL "6130"
6120 NEXT f
6130 LET clue=PI-PI: RETURN
6200 IF ax>level-1 THEN RETURN
6205 LET a1=a1+VAL "15": GO SUB VAL "6710"
6210 FOR e=1 TO level: IF p(e)=ax THEN LET s$="": LET g=p(ax): LET p(ax)=ax: LET p(e)=g: LET c=1: FOR f=2 TO (level*2) STEP 2: PRINT AT 12,2+f;: BEEP .05 TO ,c*5: GO SUB start: PRINT e$(p(c)): LET s$=s$+e$(p(c)): LET c=c+1: GO SUB end: NEXT f
6220 NEXT e: LET ax=ax+1: LET clue=PI-PI: RETURN
6300 LET ver=VAL "12": LET hor=VAL "2": LET clue=1: GO SUB VAL "6700": GO SUB VAL "3130": GO SUB VAL "6800": LET clue=PI-PI: RETURN
6400 LET clue=PI/PI: LET a1=a1+VAL "30": GO SUB VAL "6710"
6410 FOR f=1 TO level: IF r$(f)=" " THEN LET i$=u$(f): GO TO VAL "6430"
6420 NEXT f
6430 LET clue=PI-PI: RETURN
6500 IF ug=level THEN RETURN
6510 LET clue=PI/PI: LET a1=a1+VAL "15": GO SUB VAL "6710"
6520 LET ug=ug+1: PRINT AT 12,2+(ug*2);: GO SUB start: PRINT e$(ug): GO SUB end: BEEP .03/,ug*3
6530 LET clue=PI-PI: RETURN
6600 LET clue=PI/PI: GO SUB VAL "6700"
6610 FOR f=1 TO 5: PRINT AT 6,10+(f*2);: GO SUB start: PRINT m$((f) TO (f)): GO SUB end: NEXT f
6620 GO SUB VAL "7030": LET clue=PI-PI: RETURN
6700 LET a1=a1+VAL "120"
6710 PRINT FLASH PI/PI; BRIGHT PI/PI; PAPER VAL "7"; INK PI-PI;AT vc,hc;" ";("0" AND hr<10);hr;":";("0" AND min<10);min;":";("0" AND sec<10);sec;" ": FOR f=PI/PI TO VAL "20": BEEP .02=,20: NEXT f: GO SUB 10: RETURN
6800 FOR f=PI/PI TO VAL "30": NEXT f: FOR f=1 TO (level*2)+1: PRINT AT ver,hor+f;" ";AT ver+1,hor+f;" ": NEXT f: RETURN
7000 LET h$=" CREATURE ": LET clue=PI-PI: LET ace=PI/PI: LET twit=PI-PI: LET wr=PI-PI: CLS : LET graphic=INT PI: GO SUB 9790: GO SUB 8000
7010 PRINT AT VAL "2",VAL "4";: GO SUB start: PRINT "Re-arrange these letters": GO SUB end: PRINT AT VAL "4",VAL "6";: GO SUB start: PRINT "to find the creature": GO SUB end
7020 FOR f=VAL "6" TO VAL "7": PRINT AT f,VAL "10";" ": NEXT f: PRINT AT VAL "8",VAL "10";" [N] [N] [N] [N] [N] "
7027 PRINT AT VAL "10",VAL "7";" Press '0' for help "
7030 FOR f=1 TO 5: PRINT AT 6,10+(f*2);: GO SUB start: PRINT m$(e(f) TO e(f)): GO SUB end: NEXT f: IF clue=1 THEN RETURN
7035 FOR f=12 TO 13: PRINT AT f,10;" ": NEXT f: PRINT AT 14,10;" [N] [N] [N] [N] [N] ";AT 12,12;"[Q]"
7040 PRINT AT 18,5;"[G][H]";AT 19,5;"[I][J]";AT 20,5;"[K][L]";AT 18,21;"[A][B]";AT 19,21;"[C][D]";AT 20,21;"[E][F]"
7050 LET graphic=4: GO SUB 9790: PRINT AT 18,9;"[A][B]";AT 19,9;"[C][D]";AT 20,9;"▛▜";AT 19,24;"[J][K][L]";AT 20,24;"[M][N][O]"
7060 LET j$="": LET v=12
7070 LET i$=INKEY$: GO SUB 10
7075 IF i$="0" THEN BEEP .2 TO ,35: GO SUB 6600
7080 IF i$=CHR$ 13 AND LEN j$=5 THEN BEEP .05 TO ,0: GO TO 7200
7090 IF i$=CHR$ 12 AND LEN j$>0 THEN LET j$=j$(1 TO (LEN j$-1)): BEEP .05 TO ,0: GO SUB end: PRINT AT v,14+(LEN j$*2);" ": PRINT AT v,12+(LEN j$*2);: GO SUB start: PRINT " ": GO SUB end: PRINT AT v,12+(LEN j$*2);"[Q]": GO TO 7070
7100 IF CODE i$<97 OR CODE i$>122 THEN GO TO 7070
7110 IF LEN j$>4 THEN GO TO 7070
7120 BEEP .05 TO ,10: PRINT AT v,12+(LEN j$*2);" ";AT v,12+(LEN j$*2);: GO SUB start: LET j$=j$+i$: PRINT i$: GO SUB end: FOR f=1 TO 3: NEXT f: PRINT AT v,12+(LEN j$*2);"[Q]": GO TO 7070
7125 PRINT AT VAL "12",VAL "22";" "
7200 IF j$=m$ THEN GO TO 7500
7205 LET wr=wr+1: IF wr=1 THEN BEEP .5 COPY ,-15: BEEP .5 COPY ,-30: PRINT AT 16,3;" Wrong... One more chance ": PRINT AT 12,10;" [Q] ";AT 13,10;" ": GO TO 7060
7210 LET twit=1: PRINT AT 16,3;" ";AT 12,22;" ";AT 12,12;: GO SUB start: FOR l=PI/PI TO 5: PRINT m$(l TO l);" ";: BEEP .5 COPY ,-(l*8): NEXT l: GO SUB end: FOR f=1 TO 200: NEXT f: GO SUB 7630: LET x$=" Morgana says ~A frog, poor Henry shall remain... Unless you care to try again... Hee hee hee~": GO SUB 8870: GO TO 9791
7500 PRINT AT VAL "16",INT PI;" ": LET hv=VAL "18": LET hh=VAL "9": FOR l=PI/PI TO INT PI: GO SUB 8500: NEXT l: LET graphic=4: GO SUB 9790
7510 PRINT AT VAL "17",VAL "8";" ";AT VAL "18",VAL "8";" [A][B] ";AT VAL "19",VAL "8";" [C][D] ";AT VAL "20",VAL "8";" ▛▜ ": FOR f=PI/PI TO VAL "50": NEXT f
7520 FOR f=39 TO 8 STEP -1: BEEP .05 TO ,f: BEEP .05 TO ,39: BORDER INT (f/5): PLOT FLASH 0; INK 5;64,f: DRAW FLASH 0; INK 5;32,0: NEXT f: BORDER 5
7530 LET graphic=6: GO SUB 9790: PRINT BRIGHT PI/PI;AT VAL "17",VAL "8";" ";AT VAL "18",VAL "8";" [A][B] ";AT VAL "19",VAL "8";" [C][D] ";AT VAL "20",VAL "8";" [E][F] "
7630 FOR f=VAL "2" TO INT PI: PRINT PAPER VAL "2"; INK VAL "7";AT f,VAL "5";" ": NEXT f: PRINT AT 2,4;: GO SUB start: PRINT " Henry's Hall Of Fame ": GO SUB end
7635 IF twit=1 THEN GO TO VAL "7655"
7637 LET score=INT a1: FOR f=LEN b$+1 TO 10: LET b$=b$+".": NEXT f
7640 FOR f=1 TO 5: IF score<a(f) THEN FOR g=5 TO (f+1) STEP -1: LET a$(g)=a$(g-1): LET a(g)=a(g-1): NEXT g: LET a$(f)=b$: LET a(f)=score: GO TO 7655
7650 NEXT f
7655 FOR f=4 TO 15: PRINT BRIGHT 1; PAPER 7;AT f,5;" ": NEXT f
7680 FOR f=1 TO 5: LET hr=INT (a(f)/3600): LET min=INT ((a(f)-hr*3600)/60): LET sec=INT (a(f)-hr*3600-min*60): IF min>59 THEN LET min=min-60
7690 PRINT AT 4+(f*2),6;: GO SUB start: PRINT a$(f);" ";("0" AND hr<10);hr;":";("0" AND min<10);min;":";("0" AND sec<10);sec: GO SUB end: NEXT f
7700 IF twit=1 THEN RETURN
7800 LET x$=" Henrietta says... ~Thank you so much "+b$+", for helping me to save Henry. If you press any key, you can listen to the world famous symphony - Henry's Concerto. ~": GO SUB 8875
7980 LET trt=USR 61305
7990 LET trt=USR 61317: IF INKEY$="" THEN GO TO 7990
7999 FOR f=PI/PI TO VAL "50": NEXT f: GO TO VAL "9791"
8010 PRINT AT 0,0;" [M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M] [M][M][M] [M][M][M] [M][M][M] [M][M][M]"
8020 PRINT BRIGHT PI/PI; PAPER PI-PI; INK VAL "7";AT PI-PI,PI-PI;" CASTLE SPELLALOT ";AT PI-PI,VAL "32"-LEN h$;h$
8030 FOR f=3 TO 18: PRINT AT f,0;"[M][M]";AT f,30;"[M][M]": NEXT f: PRINT AT 19,0;"[M][M][M] [M][M][M] [M][M][M] [M][M][M] [M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M][M]"
8035 IF ace=PI/PI THEN LET vc=VAL "21": LET hc=VAL "11": GO SUB 10: RETURN
8037 IF stage<VAL "5" THEN PRINT AT PI/PI,VAL "6";" Press '0' for help "
8038 IF stage=VAL "5" THEN PRINT AT PI/PI,VAL "17";" Press '0' ";AT VAL "2",VAL "17";" for help "
8040 PRINT BRIGHT 1; PAPER 0; INK 7;AT 21,0;" Level:";level-4;" ": GO SUB 10: PRINT BRIGHT 1; PAPER 0; INK 7;AT 21,23;" Word: ": RETURN
8510 LET graphic=4: GO SUB 9790: FOR f=1 TO 2: PRINT AT hv-1,hh;"[E][F]";AT hv,hh;"[G][H]";AT hv+1,hh;" [I]": BEEP .03/,-28: FOR g=1 TO 3: NEXT g: PRINT AT hv-1,hh;" ";AT hv,hh;"[A][B]";AT hv+1,hh;"[C][D]": BEEP .03/,-28: FOR g=1 TO 10: NEXT g: NEXT f: LET graphic=3: GO SUB 9790: RETURN
8802 LET x$=" Henrietta says... ~Well done, you have found the letter "+m$(e(stage) TO e(stage))+"~": GO TO 8870
8810 LET num=INT (RND*4)+1: GO TO 8810+num
8811 LET x$=" Morgana says... ~I'm so pretty... Pretty horrible... Frog's legs , Bat's wings... What a bellyfull... Hee hee hee.~": GO TO 8870
8812 LET x$=" Morgana says... ~I like children... Just like you... Coated in batter... And served with stew... Hee hee hee.~": GO TO 8870
8813 LET x$=" Morgana says... ~Look into my cauldron... What do you see... Little boys and girls... Getting ready for tea... Hee hee hee.~": GO TO 8870
8814 LET x$=" Morgana says... ~Children... They're so soft and sweet... But I prefer them sour... When I'm ready to eat... Hee hee hee.~": GO TO 8870
8870 LET x$=x$+" Press any key to continue, "+b$+" - "
8875 PRINT #0;" "
8880 IF NOT CODE INKEY$ THEN LET trt=USR 61831
8890 BEEP .05 TO ,20: RETURN
9790 LET addr=62000+(graphic-1)*152: POKE 23675,addr-256*INT (addr/256): POKE 23676,INT (addr/256): RETURN
9791 BORDER VAL "5": PAPER VAL "5": INK PI-PI: CLS
9792 FOR f=PI-PI TO PI/PI: PRINT AT VAL "f",VAL "7";" ": NEXT f: PRINT AT PI-PI,VAL "8";: GO SUB VAL "30": PRINT "Load New Words ?": GO SUB VAL "40": PRINT AT VAL "4",VAL "10";" YES NO "
9793 IF INKEY$="n" THEN BEEP PI/PI,VAL "10": GO TO VAL "9812"
9794 IF INKEY$="y" THEN BEEP .05 TO ,PI-PI: PRINT AT VAL "4",VAL "8";" YES ";AT VAL "6",VAL "8";" ARE YOU SURE ? ";AT VAL "8",VAL "10";" YES NO ": GO TO VAL "9796"
9795 GO TO VAL "9793"
9796 FOR f=PI/PI TO VAL "10": NEXT f
9797 IF INKEY$="n" THEN BEEP .05 TO ,PI-PI: GO TO VAL "9791"
9798 IF INKEY$="y" THEN GO TO VAL "9800"
9799 GO TO VAL "9797"
9800 BEEP .05 TO ,VAL "6": PRINT AT VAL "6",PI-PI;" Type in the name of your word- list, press <ENTER> and load in your new selection from tape. ": FOR f=VAL "9" TO VAL "12": PRINT AT f,PI-PI,,: NEXT f
9801 PRINT AT VAL "12",PI-PI;" Word-List Name: "
9802 LET b$="": PRINT AT VAL "12",VAL "18";"-------"
9803 LET i$=INKEY$: IF i$="" THEN GO TO VAL "9803"
9804 IF i$=CHR$ 13 THEN BEEP .05 TO ,0: GO TO VAL "9809"
9805 IF i$=CHR$ 12 THEN BEEP .05 TO ,-10: GO TO VAL "9802"
9806 IF CODE i$<VAL "32" OR CODE i$>VAL "122" THEN GO TO VAL "9803"
9807 IF LEN b$<VAL "7" THEN LET b$=b$+i$: PRINT AT VAL "12",VAL "18";b$: BEEP .05 TO ,VAL "10": FOR f=PI/PI TO VAL "5": NEXT f
9808 GO TO VAL "9803"
9809 PRINT PAPER VAL "6";AT VAL "16",PI-PI,,;AT VAL "16",PI-PI;" Searching for ";b$;" on tape.";AT VAL "17",PI-PI;" If no word-list of this name is found, then press <BREAK> and re-load. "
9811 RANDOMIZE USR 15619: REM : LOAD b$ DATA w$()
9812 IF w$(531)<>"TERMINATED" THEN PRINT AT VAL "21",PI-PI;" ERROR: LOAD IN NEW WORDS AGAIN ": FOR f=PI/PI TO VAL "200": NEXT f: GO TO VAL "9791"
9816 CLS : LET clue=PI-PI: LET open=VAL "9860"
9817 DIM e(5): DIM j(6): FOR f=1 TO 6: LET j(f)=f: NEXT f: LET c=1: FOR b=5 TO 1 STEP -1: LET a=INT (RND*b)+1: LET e(c)=j(a): IF e(1)=1 THEN GO TO 9817
9818 FOR d=a TO b: LET j(d)=j(d+1): NEXT d: LET c=c+1: NEXT b
9819 DIM m(5): LET mm=INT (RND*30)+VAL "501": LET m$=w$(mm)(1 TO 5): LET start=VAL "30": LET end=VAL "40": LET graphic=PI/PI: GO SUB VAL "9790": LET stage=PI-PI
9820 LET ace=PI-PI: LET a1=-.25 COPY
9821 CLS : PRINT PAPER 2; INK 7;AT 2,1;" ";AT 3,1;" ": PRINT AT 2,2;: GO SUB start: PRINT "The Cast"
9822 PRINT : PRINT "Morgana": PRINT : PRINT "Henrietta": PRINT : PRINT "Henry": PRINT : PRINT "Cedric": GO SUB end
9823 LET graphic=1: GO SUB 9790: PRINT AT 5,10;"[A][B]";AT 6,8;"[Q] [C][D]";AT 7,10;"[E][F]";AT 9,12;"[G][H]";AT 10,10;"[Q] [I][J]";AT 11,12;"[K][L]": LET graphic=4: GO SUB 9790: PRINT AT 14,6;"[Q] [A][B]";AT 15,8;"[C][D]";AT 18,7;"[Q] [J][K][L]";AT 19,9;"[M][N][O]": LET graphic=2: GO SUB 9790
9825 PRINT AT 0,16;"[A][B][B][B][B][B][B][B][B][B][B][B][B][B][D] [C][B][B][B][B][B][B][B][B][B][B][B][B][B][B][D]"
9826 FOR a=2 TO 19: PRINT AT a,16;"[I][E] ": NEXT a
9827 PRINT AT 20,16;"[F][G][H][H][H][H][H][H][H][H][H][H][H][H][H][H]"
9828 PRINT AT 4,19;: GO SUB start: PRINT "Henrietta's": GO SUB end: PRINT AT 6,22;: GO SUB start: PRINT "Book": GO SUB end: PRINT AT 8,23;: GO SUB start: PRINT "of": GO SUB end: PRINT AT 10,21;: GO SUB start: PRINT "Spells": GO SUB end
9829 PRINT AT 13,18;"11-14+ years";AT 17,18;"© T.R.Tulloch";AT 18,24;"&";AT 19,20;"Scetlander"
9830 PRINT #0;" Press any key ": LET trt=USR 60700
9832 LET trt=USR 60712: IF INKEY$="" THEN GO TO 9832
9834 LET graphic=1: GO SUB 9790: CLS : GO SUB start: PRINT "Henrietta's Book of Spells": GO SUB end: PRINT "[S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S]"
9835 PRINT " Following their earlier adventures, Henry and Henrietta have been married happily for two weeks."
9836 PRINT " However, almost inevitably,Henry's inquisitive nature led him to Castle Spellalot - home of Morgana the Morbid!"
9837 PRINT " There followed a briefexchange of views, where points were raised and opinions freely expressed. As a result, Henry isnow a fat frog!"
9838 PRINT " Help Henrietta find the letters which make a magic word and restore Henry to his former good-looking self."
9840 PRINT AT VAL "21",PI-PI;" Type in your name "
9841 LET b$="": PRINT AT VAL "21",VAL "20";"----------"
9842 LET i$=INKEY$: IF i$="" THEN GO TO VAL "9842"
9843 IF i$=CHR$ 13 THEN GO TO VAL "9848"
9844 IF i$=CHR$ 12 THEN BEEP .05 TO ,-10: GO TO VAL "9841"
9845 IF CODE i$<VAL "32" OR CODE i$>VAL "122" THEN GO TO VAL "9842"
9846 IF LEN b$<VAL "10" THEN LET b$=b$+i$: PRINT AT VAL "21",VAL "20";b$: BEEP .05 TO ,VAL "10": FOR f=PI/PI TO VAL "5": NEXT f
9847 GO TO VAL "9842"
9848 IF CODE b$(1)>96 AND CODE b$(1)<123 THEN LET b$(1)=CHR$ (CODE b$(1)-32)
9850 BEEP .05 TO ,PI-PI: PRINT AT VAL "21",PI-PI;"Select length of words:(5 to 9) "
9851 LET i$=INKEY$: IF i$<"5" OR i$>"9" THEN GO TO VAL "9851"
9852 BEEP .05 TO ,0: LET level=VAL i$: PRINT PAPER VAL "2"; INK VAL "7";AT VAL "21",VAL "23";level;" letters"
9854 FOR f=PI/PI TO VAL "10": NEXT f: LET vocab=(level-5)*100
9856 LET x$=" Press any key to open the book "+b$+" - If you dare !!! ": GO SUB VAL "8875"
9858 FOR f=VAL "40" TO VAL "30" STEP -1: BEEP .03/,VAL "f": BEEP .03/,VAL "30": NEXT f
9860 CLS
9864 LET pop=0: LET graphic=2: GO SUB 9790: PRINT AT 0,15;"[K][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][D]"
9866 PRINT AT 1,0;"[J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J]": FOR a=2 TO 19: PRINT AT a,0;"[J] [J]": NEXT a
9868 PRINT AT 20,0;"[J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J][J]"
9869 PLOT 126,167: DRAW 0,-159: PRINT AT 2,1;: GO SUB start: PRINT "This book": GO SUB end: PRINT AT 4,1;: GO SUB start: PRINT "belongs to": GO SUB end
9870 PRINT AT 6,1;: GO SUB start: PRINT b$: GO SUB end
9871 PLOT 14,97: DRAW INK 7;83,0: DRAW INK 7;0,-11: DRAW INK 7;-83,0: DRAW INK 7;0,11
9872 LET vc=VAL "10": LET hc=VAL "2": GO SUB VAL "10"
9874 PRINT PAPER 2; INK 7;AT 14,1;" CAPS/SHIFT";AT 15,1;"pressed with";AT 17,1;"Q:Quit Chapter";AT 18,1;"N:New Game"
9875 PRINT AT 2,16;: GO SUB start: PRINT "Contents": GO SUB end: PRINT PAPER 2; INK 7;AT 2,26;"Magic";AT 3,25;"Letters";AT 6,16;"Complete";AT 9,16;"Jumbles";AT 12,16;"Flash";AT 15,16;"Hang-Up";AT 18,16;"Crack-It"
9876 FOR f=132 TO 32 STEP -24: PLOT 220,f: DRAW 16,0: DRAW 0,-16: DRAW -16,0: DRAW 0,16: NEXT f
9878 FOR f=1 TO 5: IF m(f)=1 THEN PRINT FLASH 1; PAPER 7; INK 0;AT (f*3)+3,28;m$(e(f) TO e(f))
9879 NEXT f
9880 IF m(1)=1 THEN IF m(2)=1 THEN IF m(3)=1 THEN IF m(4)=1 THEN IF m(5)=1 THEN LET x$=" Using the magic letters, you must now spell the name of a creature that lives in Morgana's garden...": GO SUB 8870: GO TO 7000
9881 PRINT BRIGHT PI/PI;AT VAL "21",PI-PI;"<SPACE> move bar : <ENTER> play "
9882 LET my=VAL "6": LET ch=PI/PI: LET i$="": GO TO VAL "9891"
9884 LET i$=INKEY$: IF i$<>" " AND i$<>CHR$ 13 AND i$<>CHR$ 78 THEN GO TO 9884
9891 LET mx=my
9892 IF i$=CHR$ 78 THEN GO TO 9950
9893 IF i$=CHR$ 13 THEN BEEP .05 TO ,10: CLS : GO TO ch*1000
9894 IF i$=" " THEN LET my=my+3: LET ch=ch+1: IF my>18 THEN LET my=6: LET ch=1
9895 IF m(ch)=1 THEN LET pop=1: LET ch=ch+1: LET my=my+3: IF my>18 THEN LET my=6: LET ch=1
9896 IF pop=1 THEN LET pop=0: GO TO 9895
9897 BEEP .05 TO ,20: PRINT OVER 1; PAPER 2; INK 7;AT mx,16;" "
9898 PRINT OVER 1; BRIGHT 1; PAPER 7;AT my,16;" ": GO TO 9884
9899 RETURN
9950 BEEP .05 TO ,0: PRINT AT VAL "21",PI-PI;" New Game ? Y N "
9960 IF INKEY$="y" THEN BEEP PI/PI,VAL "5": GO TO VAL "9791"
9965 IF INKEY$="n" THEN BEEP .05 TO ,VAL "10": PRINT BRIGHT PI/PI;AT VAL "21",PI-PI;"<SPACE> move bar : <ENTER> play ": GO TO VAL "9884"
9970 GO TO VAL "9960"
9996 RANDOMIZE : POKE VAL "23606",VAL "24": POKE VAL "23607",VAL "245": GO TO VAL "9791"
49463..................................................▝ RETURN COPY BEEP NOT arrow apron alley apple alarm ankle amber bully brush brick block beach broom break cruel chair crown cabin chest chalk cloud drown drive daisy dream dance drink dress earth elbow empty enjoy frost flour field flame fence fight fruit grape
26482y glass glove group heart hurry happy heavy honey house jelly knife knock lemon light large laugh magic match metal money mouth music nurse noise punch paint plane party penny prize paste quick robot round river ruler salad sword spade scarf shake shape sleep slate taste train table thick thumb truck uncle verse wrist waste watch water wheel young zebra advice afraid amount animal badger ballet beauty belong cactus camera centre colour defeat danger decide digest edible effort either employ famine family female friend garden gentle garage gossip hollow handle health honest icicle import insect injury jacket jungle jumble junior kennel kettle knight kitten lawyer length lesson listen muscle magnet manage meadow middle nimble narrow nature needle notice object occupy office orange puzzle parade pencil phrase picnic quaint quarry quench quaver rodent ramble reason rotate rumour system salmon school search signal tunnel tablet tennis throat toilet umpire unique urgent useful vacant vacuum vanish vapour walnut warren weapon winter yellow zodiac academy address average apology arrange balcony bicycle between bonfire buffalo cabinet cabbage canteen caravan collect deliver diagram diamond dungeon drought dentist fashion feature forward furnish general garbage gallery genuine garment husband harvest hostage hammock isolate invalid include jealous journey justice knuckle kitchen lantern library luggage leisure leather measles mermaid message measure majesty novelty nursery naughty neglect nourish observe officer orchard opinion pendant prepare padlock plumber poverty passage quarrel quarter quality reflect romance release routine regular session sheriff skipper segment shallow soldier surgery tremble trigger tantrum theatre tragedy thunder uniform vinegar valiant variety verdict victory without weather whisper whistle whimper yoghurt affluent announce asteroid approach audition antelope bracelet barbecue brochure bachelor boundary business currency carousel carriage charcoal collapse carnival dominate delicate dynamite dissolve domestic dandruff enormous exchange epilogue elephant electric familiar fraction function flattery fortress garrison graphite gruesome gorgeous generous hesitate hospital heptagon hedgehog inspired ignorant illusion infinite junction juvenile jeopardy kangaroo lavender lollipop language literate location luscious mountain material marzipan multiply migraine national nitrogen nuisance occasion omelette operator organism persuade platform peculiar physical parallel question relation ridicule reckless register receiver reindeer squirrel sabotage shepherd scramble tentacle toboggan trousers transfer thorough umbrella ultimate universe violence vicinity volatile vacation wardrobe withdraw wishbone auxiliary advantage aeroplane architect asparagus butterfly barometer barricade beautiful behaviour culminate captivate celebrate champagne coastline duplicate deficient delicious dimension dormitory eccentric education efficient equipment favourite flammable frequency furniture gymnastic gentleman generator geography gratitude harmonica hibernate holocaust hydraulic identical illogical incentive indignant jewellery knowledge librarian limousine liquorice lifeguard lubricate machinery magnitude moustache manoeuvre margarine moonlight municipal negotiate narrative necessity neighbour nocturnal nostalgia obedience obnoxious officiate orchestra punctuate publicity permanent parachute paragraph penetrate prosecute quotation retaliate reservoir rebellion recipient redundant reinforce religious speculate sacrifice sanctuary satirical satellite sensitive tarantula tarpaulin technique telegraph turquoise upholster vaccinate valentine vegetable venerable vengeance voluntary wonderful xylophone whale shark eagle horse zebra skunk camel koala panda otter mouse tiger hyena snail sheep moose robin raven chick corgi flies cobra bison goose llama adder stork heron sloth snake TERMINATED
