start tok64 d64-mnkeao
0 GOTO3
1 PRINT"{black}please insert spd-006":POKE198,.:WAIT198,1:POKE198,.:GOTO3
2 PRINT"{black}please change side":POKE198,.:WAIT198,1:POKE198,.
3 POKE53281,15:POKE53280,12:PRINT"{black}{clear}{space*15}{reverse on}{blue}spd-006
4 PRINT"{red}{cm a}{sh asterisk*37}{cm s}
5 PRINT"{sh -} {reverse on}{blue}{space*12}main menu{space*14}{red}{reverse off} {sh -}"
6 PRINT"{red}{cm z}{sh asterisk*37}{cm x}{black}
7 OPEN1,8,0,"$0":FORi=1TO26:GET#1,a$:NEXT:GET#1,d$,a$:CLOSE1:s=ASC(a$)-65
8 IFd$<>"g"ORs<>1ANDs<>2THEN1
9 a$="{black}":b$="{white}":IFs=1THENa$="{white}":b$="{black}"
10 PRINTa$"{down}on side a:",b$"on side b:"
11 PRINTa$"1.ponzo tutor 1",b$"1.micros 'n chips 1
12 PRINTa$"2.ponzo tutor 2",b$"2.micros 'n chips 2
13 PRINTa$"3.ponzo tutor 3",b$"3.micros 'n chips 3
14 PRINTa$"4.ponzo tutor 4",b$"4.micros 'n chips 4
15 PRINTa$"5.ponzo tutor 5",b$"5.micros 'n chips 5
16 PRINTa$"6.ponzo tutor 6",b$"6.micros 'n chips 6
17 PRINTa$"7.ponzo tutor 7",b$"7.micros 'n chips 7
18 PRINTa$"8.sprite tutor 1
19 PRINT"9.sprite tutor 2
20 PRINT"a.typing tutor
21 PRINT"b.buttermon
22 PRINT"{white}{down}press {reverse on}space bar{reverse off} to change side
23 PRINT"{down}{blue}enter your choice.
24 POKE198,.:WAIT198,1:GETa$:IFa$=" "THEN2
25 ONsGOTO26,31
26 IFa$<"1"ORa$>"9"ANDa$<"a"ORa$>"b"THEN24
27 FORi=1TO(VAL(a$)-10*(a$="a")-11*(a$="b"))*2-1:READp$:NEXT
28 PRINT"{clear}{down*2}load"CHR$(34)p$CHR$(34)",8,1"t$
29 PRINT"{down*4}run{left*3}";:IFa$="b"THENPRINT"new:rem starta med sys5{0*4}
30 POKE198,2:POKE631,13:POKE632,13:PRINT"{home}";:END
31 IFa$<"1"ORa$>"7"THEN24
32 FORi=1TOVAL(a$)*2:READp$:NEXT:t$="{delete*2}":GOTO28
33 DATAp*,mi*,ponzo tutor-2*,micros'nchips2*
34 DATAponzo tutor-3*,micros'nchips3*,ponzo tutor-4*,micros'nchips4*
35 DATAponzo tutor-5*,micros'nchips5*,ponzo tutor-6*,micros'nchips6*
36 DATAponzo tutor-7*,micros'nchips7*,s*,,sprites tut-2*,,t*,,b*
stop tok64
(bastext 1.0)