0 GOTO2
1 POKE211,25:POKE214,21:SYS58732:PRINTA1$:PRINTSPC(25)A2$:POKE211,25:POKE214,23:SYS58732:PRINTA3$"":RETURN
2 POKE53280,0:POKE53281,0:POKE650,128:LE$="              ":PRINT"";:XX=2:YY=2:POKE53272,19:POKE832,255:POKE833,0:POKE834,0:FORI=835TO850STEP3:POKEI,129:POKEI+1,0:POKEI+2,0:NEXT:POKE853,255:FORI=854TO835+64:POKEI,0:NEXT:POKE2040,13:POKE2041,13:PRINT"[147][152]
3 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";:A$[178]"(null)VERIFYCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEPRINT#(null)              (null)":[129]I[178]1[164]19:[153]A$;:[130]:[153]"(null)VERIFYCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSEPRINT#-TANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";:[129]I[178]1[164]3:[153]A$;:[130]:[153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,12
4 [150][165]X(X)[178]X[172]8[170]24:[150][165]Y(Y)[178]Y[172]8[170]50:X0[178]53248:Y0[178]X0[170]1:X1[178]Y0[170]1:Y1[178]X1[170]1:[151]X0[170]39,1:[151]X0[170]40,1:[151]X0[170]27,0:[151]X0,[165]X(1):[151]Y0,[165]Y(1):[151]X1,[165]X(25):[151]Y1,[165]Y(2):[151]X0[170]21,3:[134]OB$(56),S(10,31,1):[131]"PRINT#ATN","PRINTPEEK","PRINTLEN","PRINTSTR$","PRINTVAL","PRINTASC","PRINTCHR$","PRINTLEFT$","PRINTRIGHT$","PRINTMID$","PRINT(null)","(null)","(null)","(null)
5 DATA"[158][207]","[154][208]","[158][209]","[155][210]","[150][211]","[212]","[213]","[214]","[215]","[216]","[159][217]","[151][218]","[129][219]","[129][220]","[255]","[223]","[150][165]","[155][162]","[152][181]","[151][161]","[152][182]","[175]","[151][163]","[152][184]","[152][183]","[156][168]","[164]","[156][169]","[192][193][157][157][129][194][195][146]","[149][196][197][157][157][198][199][146]","[155][200][201][157][157][202][203][146]","[129][204][205][157][157][206][207][146]","[150][208][209][157][157][210][211][146]","[212][213][157][157][151][214][215][146]","[159][216][217][157][157][218][219][146]
6 [131]"DEF(null)(null)CMDCMDPRINT#(null)(null)WAIT","POKECLOSEWAIT","POKEGETWAIT","POKENEWWAIT","POKETAB(WAIT","POKETOWAIT","POKEFNWAIT":[129]I[178]1[164]56:[135]OB$(I):[130]:C[178]1:X[178]1:Y[178]1:[153]""OB$(36);
7 [153]"";:[129]I[178]0[164]5:[153]:[153][166]25);:[129]J[178]1[164]7:[153]OB$(I[172]7[170]J)" ";:[130]:[130]:[153]:[153][166]25);:[129]I[178]43[164]46:[153]OB$(I)"ON";:[130]:[153]:[153][166]25)"";:[129]I[178]47[164]50:[153]OB$(I)"ON";:[130]:[153]"ONONON"[163]37);:[129]I[178]51[164]56:[153]OB$(I)[202]("543210",I[171]50,1)"CMDCMD";:[130]:[139]CL[179][177]0[167][153]"ONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDLEVEL"CL
8 A1$[178]LE$:A2$[178]"<CONTH> FOR HELP":A3$[178]LE$:[141]1
9 [151]X0[170]21,1:[139]C[177]42[137]15
10 [151]X0[170]23,0:[151]X0[170]29,0:Q[178](C[173]7[171][181](C[173]7))[172]7[171]1:[139]Q[178][171]1[167]Q[178]6
11 P[178][165]X(25[170]2[172]Q):[139]P[177]255[167][151]X0[170]16,2:[137]13
12 [151]X0[170]16,0
13 [151]X1,P[175]255:[151]Y1,[165]Y(2[170]2[172]([181]((C[171]1)[173]7))):[139][194](X1)[178]255[167][151]X1,0
14 [137]22
15 [139]C[177]50[137]21
16 D[178]C[171]42:Q[178](D[173]4[171][181](D[173]4))[172]4[171]1:[139]Q[178][171]1[167]Q[178]3
17 P[178][165]X(25[170]3[172]Q):[151]X0[170]23,3:[151]X0[170]29,3:[139]P[177]255[167][151]X0[170]16,2:[137]19
18 [151]X0[170]16,0
19 [151]X1,P[175]255:[151]Y1,[165]Y(14[170]3[172]([181]((D[171]1)[173]4))):[139][194](X1)[178]255[167][151]X1,0
20 [137]22
21 [151]X0[170]16,2:[151]X1,[165]X(37)[171]256:[151]Y1,[165]Y(C[171]37):[151]X0[170]23,0:[151]X0[170]29,0
22 [151]X0,[165]X(X):[151]Y0,[165]Y(Y):[151]X0[170]21,3
23 [151]198,0:[146]198,1:[161]A$:[139]A$[178]"ON"[176]A$[178]""[176]A$[178]""[176]A$[178]"CMD"[137]40
24 [139]A$[179][177]":"[175]A$[179][177]";"[175]A$[179][177]"@"[175]A$[179][177]"/"[137]30
25 [139]A$[178]"@"[175]Y[177]1[167]Y[178]Y[171]1:[137]22
26 [139]A$[178]"/"[175]Y[179]23[167]Y[178]Y[170]1:[137]22
27 [139]A$[178]":"[175]X[177]1[167]X[178]X[171]1:[137]22
28 [139]A$[178]";"[175]X[179]23[167]X[178]X[170]1:[137]22
29 [137]23
30 [139]X[178]XX[175]Y[178]YY[167]23
31 [139]A$[179][177]"
"[167]35
32 [139]C[177]42[175]C[179]51[167][139](X[178]23[176]Y[178]23)[167]23
33 [151]211,X:[151]214,Y:[158]58732:[153]OB$(C);:[139]C[179][177]36[137]23
34 [151]211,XX:[151]214,YY:[158]58732:[153]"VERIFYCLOSE";:XX[178]X:YY[178]Y:A1$[178]"NEW STARTING":A2$[178]"POSITION    ":A3$[178]"SET.  ":[141]1:[129]I[178]1[164]500:[130]:A1$[178]LE$:A2$[178]LE$:A3$[178]LE$:[129]I[178]1[164]1000:[130]:[141]1:[137]23
35 [139]A$[179][177]" "[167]38
36 [151]211,X:[151]214,Y:[158]58732:[139]C[179]43[176]C[177]50[176]X[177]22[176]Y[177]22[167][153]"VERIFYCLOSE";:[137]23
37 [153]"VERIFYCLOSECLOSECMDCMDCLOSECLOSE":[137]23
38 [139]A$[179]"0"[176]A$[177]"5"[137]48
39 C[178]51[170](5[171][197](A$)):[137]9
40 [139]C[177]50[167]C[178]1:[137]9
41 [139]A$[178]""[175]C[179]50[167]C[178]C[170]1:[137]9
42 [139]A$[178]"CMD"[175]C[177]1[167]C[178]C[171]1:[137]9
43 [139]A$[178]""[175]C[179]43[167]C[178]C[170]7:[137]9
44 [139]A$[178]""[175]C[179]47[167]C[178]C[170]4:[137]9
45 [139]A$[178]"ON"[175]C[177]46[167]C[178]C[171]4:[137]9
46 [139]A$[178]"ON"[175]C[177]7[167]C[178]C[171]7:[137]9
47 [137]23
48 [139]A$[179][177]"D"[167]72
49 [139][194](1024[170]X[170]40[172]Y)[178]89[167]51
50 A1$[178]"THIS IS NOT":A2$[178]"A SWITCH.     ":A3$[178]LE$:[141]1:[129]I[178]1[164]500:[130]:[137]8
51 S1[178][171]1:[129]I[178]0[164]10:[139](S(I,0,0)[178]X)[175](S(I,0,1)[178]Y)[167]S1[178]I
52 [130]I:[139]S1[178][171]1[167]54
53 A1$[178]"SWITCH IS AL-":A2$[178]"READY DEFINED.":A3$[178]LE$:[141]1:[129]I[178]1[164]500:[130]:A1$[178]LE$:A2$[178]LE$:[141]1:[137]72
54 S1[178]S:S[178]S[170]1:[139]S1[177]10[167]S[178]10:[137]72
55 A1$[178]"DEFINE SWITCH ":A2$[178]LE$:A3$[178]"NUMBER"[170][196](S1):[141]1:S(S1,0,0)[178]X:S(S1,0,1)[178]Y:[129]I[178]1[164]1500:[130]:AK[178]1:A1$[178]LE$:A2$[178]LE$:A3$[178]LE$:[141]1
56 A1$[178]"ACTION"[170][196](AK):[137]58
57 A2$[178]"DEFINITION    ":A3$[178]"DONE.         ":[141]1:[129]I[178]1[164]1000:[130]:A1$[178]LE$:A2$[178]LE$:A3$[178]LE$:[141]1:[137]9
58 A2$[178]"SOURCE FIELD? ":[139]AK[177]1[167]A3$[178]"<SPC>=END.":[141]1:[137]66
59 A3$[178]LE$:[141]1:[137]66
60 [151]198,0:[146]198,1:[161]A$:[139]A$[178]"@"[175]Y[177]1[167]Y[178]Y[171]1
61 [139]A$[178]"/"[175]Y[179]23[167]Y[178]Y[170]1
62 [139]A$[178]";"[175]X[179]23[167]X[178]X[170]1
63 [139]A$[178]":"[175]X[177]1[167]X[178]X[171]1
64 [151]X0,[165]X(X):[151]Y0,[165]Y(Y):[139]A$[178]"
"[176](A$[178]" "[175]AK[177]1)[167][142]
65 [137]60
66 [141]60:[139]A$[178]" "[175]AK[178]1[167]68
67 [139]A$[178]" "[137]57
68 S(S1,AK,0)[178]1024[170]X[170]40[172]Y:A2$[178]"DESTINATION   ":A3$[178]"FIELD?       ":[141]1
69 [141]60:[139]A$[178]" "[137]69
70 S(S1,AK,1)[178]1024[170]X[170]40[172]Y:AK[178]AK[170]1:[151]X0[170]27,0:[139]AK[178]31[167]57
71 [137]56
72 [139]A$[179][177]"LOAD"[167]77
73 A1$[178]"WANT DO DELETE":A2$[178]"EVERYTHING   ":A3$[178]"(Y/N)?":[141]1
74 [151]198,0:[146]198,1:[161]A$:[139]A$[178]"Y"[167][138]
75 [139]A$[178]"N"[137]8
76 [137]74
77 [139]A$[178]""[167]C[178]1:X[178]1:Y[178]1:[137]9
78 [139]A$[179][177]"S"[167]93
79 A1$[178]LE$:A2$[178]LE$:A3$[178]LE$:[141]1:TE$[178]"L'NUMBER:":IX[178]25:IY[178]21:BS[178]0:LE[178]3:[141]122:F$[178]I$:LN[178][197](F$):[139]LN[179]36[137]81
80 A1$[178]"MAX 35 LEVELS":A2$[178]"PER DISK!":A3$[178]"<SPACE>":[141]1:[151]198,0:[146]198,1:[137]8
81 [139]LN[179]1[137]8
82 [139]I$[178]""[167]92
83 CL[178]LN:[159]1,8,15,"S:LEVEL"[170]F$:[160]1:K[178]0:A1$[178]"CHOOSE COLOR  ":A2$[178]"FOR COMMENT   ":A3$[178]"LINES.        ":[141]1:[151]X0[170]21,0:[141]138:[129]IY[178]1[164]19:TE$[178]"":IX[178]24:LE[178]14:BS[178]1:[141]122:[130]:[129]I[178]1[164]19:[151]1063[170]40[172]I,93:[151]55335[170]40[172]I,12:[130]:A1$[178]LE$:A2$[178]LE$:A3$[178]LE$:[141]1
84 [159]1,8,8,"LEVEL"[170]F$[170]",P,W":[157]1:[158]49155:[161]A$:[152]1,"
":[151]1024[170]XX[170]40[172]YY,111:[151]55296[170]XX[170]40[172]YY,1:[153]"";:A2$[178]"...CHECKING...":A1$[178]LE$:A3$[178]LE$:[141]1:[151]X0[170]21,1:[129]Y[178]1[164]23:[129]X[178]1[164]23:[151]X0,[165]X(X):[151]Y0,[165]Y(Y):Z[178][194](1024[170]X[170]40[172]Y):[139]Z[178]98[167]K[178]K[170]1
85 [139]Z[178]95[167]OU[178]1024[170]X[170]40[172]Y
86 [130]X,Y:[151]X0[170]21,0:X[178]1:Y[178]1:[151]X0,[165]X(X):[151]Y0,[165]Y(Y):[152]1,S:[139]S[178]0[167]90
87 A1$[178]"SAVING        ":A2$[178]"SWITCHES...   ":A3$[178]LE$:[141]1:[129]I[178]1[164]1000:[130]:[161]A$:[129]I[178]0[164]S[171]1:AK[178]0:[151]211,25:[151]214,23:[158]58732:[153]I;
88 [152]1,S(I,AK,0)"
"S(I,AK,1):AK[178]AK[170]1:[129]J[178]1[164]100:[130]:[139]S(I,AK,0)[179][177]0[167]88
89 [152]1,0:[130]I
90 [152]1,K:[152]1,OU:[152]1,XX:[152]1,YY:A1$[178]LE$:A2$[178]LE$:A3$[178]LE$:[141]1:[152]1,I:[152]1,LN:[152]1,"EDI":[137]91
91 A1$[178]LE$:A2$[178]LE$:A3$[178]LE$:[141]1:[160]1
92 [129]I[178]1[164]1500:[130]:A1$[178]LE$:A2$[178]LE$:A3$[178]LE$:[141]1:[141]130:[151]X0[170]21,3:[137]7
93 [139]A$[179][177]"L"[167]104
94 A1$[178]LE$:A2$[178]LE$:A3$[178]LE$:[141]1:TE$[178]"L'NUMBER:":IX[178]25:IY[178]21:BS[178]0:LE[178]3:[141]122:F$[178]I$:[139]I$[178]""[167]103
95 A1$[178]"L'NUMBER: ":A2$[178]"LOADING...":A3$[178]LE$:[141]1:CL[178][197](I$):[139]S[178]11[167]S[178]10
96 [129]I[178]0[164]S[170]1:[129]J[178]0[164]30:[129]K[178]0[164]1:S(I,J,K)[178]0:[130]K,J,I:[159]1,8,8,"LEVEL"[170]F$[170]",P,R":[158]51715:[158]51712:[132]1,S:[139]S[178]0[167]101
97 AK[178]0:[129]I[178]0[164]S[171]1
98 [132]1,J:[139]J[178]0[167]AK[178]0:[137]100
99 S(I,AK,0)[178]J:[132]1,S(I,AK,1):AK[178]AK[170]1:[137]98
100 [130]I
101 [132]1,K,OU,XX,YY,T,I,A$:[160]1:[139]A$[178]"EDI"[137]103:[143]"
102 FORI=1TO3:A1$=LE$:A2$=LE$:A3$=LE$:GOSUB1:FORJ=1TO200:NEXT:A1$="YOU MAY ONLY":A2$="EDIT YOUR":A3$="OWN LEVELS.":GOSUB1:FORJ=1TO50:NEXTJ,I:FORI=1TO1500:NEXT:RUN
103 FORI=1TO1500:NEXT:A1$=LE$:A2$=LE$:A3$=LE$:GOSUB1:GOSUB130:GOTO7
104 IFA$<>"+"ANDA$<>"-"GOTO111
105 A=55296+X+40*Y:IFA$<>"+"GOTO108
106 I=PEEK(A):IFI<255THENPOKEA,I+1
107 GOTO22
108 IFA$<>"-"GOTO111
109 I=PEEK(A):IFI>0THENPOKEA,I-1
110 GOTO22
111 IFA$<>"X"GOTO132
112 S1=-1:FORI=0TOS:IF(S(I,0,0)=X)AND(S(I,0,1)=Y)THENS1=I
113 NEXTI:IFS1<>-1THEN119
114 A1$="WANT DO DELETE":A2$="ALL SWITCHES":A3$="(Y/N)?":GOSUB1
115 POKE198,0:WAIT198,1:GETA$:IFA$="Y"GOTO118
116 IFA$="N"GOTO8
117 GOTO115
118 A1$="DELETING ALL  ":A2$="SWITCH DEFI-  ":A3$="NITIONS.      ":GOSUB1:FORI=0TO10:FORJ=0TO31:FORK=0TO1:S(I,J,K)=0:NEXTK,J,I:S=0:A1$=LE$:A2$=LE$:A3$=LE$:GOSUB1:GOTO22
119 A1$="DELETING DEF. ":A2$="FOR SWITCH    ":A3$="NUMBER"+STR$(S1):GOSUB1:IFS1=10THEN121
120 FORI=S1TO9:FORJ=0TO31:FORK=0TO1:S(I,J,K)=S(I+1,J,K):NEXTK,J,I
121 FORJ=0TO31:FORK=0TO1:S(10,J,K)=0:NEXTK,J:A1$=LE$:A2$=LE$:A3$=LE$:GOSUB1:S=S-1:GOTO22
122 POKE214,IY:POKE211,IX:SYS58732:I$="":PRINTTE$"";:P=0
123 POKE204,0:POKE198,0:WAIT198,1:GETX$:POKE207,0:POKE204,1:PRINT" [157]";:IFP>0ANDASC(X$)=20THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157] [157]";:P=P-1:GOTO123
124 IFASC(X$)=13THENRETURN
125 IFP=LETHEN123
126 IFBS=0THENIFX$<"0"ORX$>"9"THEN123
127 IFBS=1THENIFX$<" "OR(X$>""ANDX$<"[160]")THEN123
128 PRINTX$;:I$=I$+X$:P=P+1:IFX$<>CHR$(34)GOTO123
129 PRINTCHR$(34)"[157] [157]";:GOTO123
130 FORI=1TO19:POKE214,I:POKE211,25:SYS58732:PRINTLE$;:NEXT:RETURN
131 POKE214,R:POKE211,25:SYS58732:PRINTA$:RETURN
132 IFA$<>"H"GOTO22
133 POKEX0+21,1:GOSUB130:A1$=LE$:A2$="   <SPACE>!   ":A3$=LE$:GOSUB1:R=1:A$="<[154]CRSR>ICON":GOSUB131:R=18:A$="     SWITCHES)":GOSUB131:R=3:A$="<[154]RET> SET   ":GOSUB131:R=16:A$="    EVERYTHING":GOSUB131:R=6:A$="<[154]D> DEFINE  ":GOSUB131
134 R=13:A$="    FINITION":GOSUB131:R=8:A$="    (AT CUR-":GOSUB131:R=11:A$="<[154]X> DELETE   ":GOSUB131:R=10:A$="    TION)":GOSUB131:R=9:A$="    SOR POSI- ":GOSUB131:R=12:A$="    SWITCH DE-":GOSUB131:R=7:A$="    SWITCH    ":GOSUB131:R=15:A$="<[154]CLR> DELETE":GOSUB131
135 R=4:A$="<[154]SPC> DELETE  ":GOSUB131:R=17:A$="     (LEVEL,":GOSUB131:R=2:A$="<[154]@:;/>FIELD":GOSUB131:POKE198,0:WAIT198,1:GETA$:GOSUB130:R=18:A$="":GOSUB131:R=2:A$="   LING FIELDS":GOSUB131:R=16:A$="CHEERS!":GOSUB131:R=8:A$="TO THE DOKU-":GOSUB131
136 R=10:A$="FOR FURTHER":GOSUB131:R=4:A$="<[154]S> SAVE":GOSUB131:R=9:A$="MENTATION":GOSUB131:R=11:A$="INFORMATION.":GOSUB131:R=5:A$="<[154]L> LOAD":GOSUB131:R=13:A$="":GOSUB131:R=14:A$="":GOSUB131:R=15:A$="":GOSUB131:R=7:A$="PLEASE REFER":GOSUB131:R=17:A$="":GOSUB131
137 R=1:A$="<[154]1-5> CRUMB-":GOSUB131:R=12:A$="TION.":GOSUB131:POKE198,0:WAIT198,1:GETA$:A2$=LE$:GOSUB1:GOSUB130:POKEX0+21,3:GOTO7
138 GOSUB130:FORI=1TO2000:NEXT:F=1:A2$=LE$:A3$="<[154]+,[154]-,[154]RET>    ":FF$="BLK WHT RED CYN PUR GRN BLU YEL ORNGBRN LREDDGRYMGRYLGRNLBLULGRY":FC$="[144][159][156][158][129][149][150][151][152][153][154][155]
139 A1$[178]"PRINT#COLOR: "[170][202](FC$,F,1)[170][202](FF$,(F[171]1)[172]4[170]1,4)[170]" ":[141]1
140 [151]198,0:[146]198,1:[161]A$:[139]A$[178]"
"[167][153][202](FC$,F,1);:[137]144
141 [139]A$[178]"+"[167]F[178]F[170]1[170](F[177]15):[137]139
142 [139]A$[178]"-"[167]F[178]F[171]1[171](F[179]2):[137]139
143 [137]140
144 A1$[178]"NOW ENTER  ":A2$[178]"COMMENTS.   ":A3$[178]LE$:[137]1