10 POKE53280,0:POKE53281,0:PRINTCHR$(14)
20 PRINT"[147][158]        [213]NLIMITED [204]IVES? ([217]/[206])"
30 GETZ$:IFZ$=""THEN30
40 IFZ$="Y"THENPOKE8784,173:GOTO70
50 IFZ$="N"THENPOKE8784,206:GOTO70
60 GOTO30
70 PRINT" [206]EVER [204]OSE [196]OUBLE [212]ONGUE/[202]UMPS? ([217]/[206])"
80 GETZ$:IFZ$=""THEN80
90 IFZ$="Y"THENPOKE5213,169:POKE5214,1:GOTO120
100 IFZ$="N"THENPOKE5213,169:POKE5214,0:GOTO120
110 GOTO80
120 PRINT"        [213]NLIMITED [200]EARTS? ([217]/[206])"
130 GETZ$:IFZ$=""THEN130
140 IFZ$="Y"THENPOKE5188,173:POKE5196,173:GOTO170
150 IFZ$="N"THENPOKE5188,206:POKE5196,206:GOTO170
160 GOTO130
170 PRINT"   00=[194]LACK   05=[199]REEN   10=[204]GT [210]ED"
180 PRINT"   01=[215]HITE   06=[194]LUE    11=[199]RAY 1"
190 PRINT"   02=[210]ED     07=[217]ELLOW  12=[199]RAY 2"
200 PRINT"   03=[195]YAN    08=[207]RANGE  13=[204]GT [199]REEN"
210 PRINT"   04=[208]URPLE  09=[194]ROWN   14=[204]GT [194]LUE"
220 PRINTSPC(25)"15=[199]RAY 3"
230 INPUT"[158]   [194]UG [195]OLOR? (00-15/00=[206]ORMAL)";A
240 IFA<0ORA>15THEN230
250 POKE4277,169:POKE4278,A
260 FORX=4279TO4290:READZ:POKEX,Z:NEXT
270 DATA141,44,208,141,45,208,141,46,208,234,169,00
280 INPUT"      [211]TARTING [204]EVEL (1-8)";S
290 IFS<1ORS>8THEN280
300 POKE10208,S-1
310 SYS4096