10 REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC.  ALL RIGHTS RESERVED
20 PRINT"[147][154]           COPYRIGHT 1988":PRINT"      COMPUTE! PUBLICATIONS, INC."
30 PRINT"         ALL RIGHTS RESERVED"
50 IFL=0THENL=1:LOAD"QUOLERUS.SPR",8,1
60 IFL=1THENL=2:LOAD"QUOLERUS.ML",8,1
70 POKE52,32:POKE56,32:CLR:GOTO460
80 SH=3:EN=0:WA=2:LE=0:NS=1:SC=0:SL=1
90 FORI=53047TO53052:POKEI,48:NEXT
100 POKE53280,0:POKE53281,0:GOTO250
110 V=53248
120 POKEV,250:POKEV+1,200:POKEV+39,1:POKE2040,199
130 POKEV+4,65:POKEV+5,150:POKEV+41,5:POKEV+23,4:POKEV+29,4
140 PRINT"";SH
150 SYS 49152
160 Z=PEEK(53278):Z=PEEK(53279)
170 SC$=""
180 FORI=53047TO53052:REM CF37-CF3C
190 SC$=SC$+CHR$(PEEK(I))
200 NEXT
210 SC=VAL(SC$):IFSC>=10000*NSTHENSH=SH+1:NS=NS+1
220 IFPEEK(53007)=16THENGOTO250
230 SH=SH-1:IFSH=0THEN460
240 GOTO110
250 LE=LE+1:POKE53031,0:POKE53058,0:REM CF27, CF42
260 IFLE>10THENSL=SL+1:LE=8:GOTO320
270 IFLE>7THENSL=3:GOTO290
280 IFLE>4THENSL=2
290 ONSLGOTO300,310,320
300 WA=2:EN=LE+2:GOTO330
310 WA=4:EN=LE-1:GOTO330
320 WA=6:EN=LE-4
330 FORI=ENTO3STEP-1
340 POKE53031,PEEK(53031)OR2^I:REM CF27
350 NEXT
360 POKE53022,WA:IFEN>=5THENPOKE53058,2^EN
370 X=1039:Y=55311:C=1:K=0
380 FORS=1TO25
390 FORI=0TOWA+1
400 POKEX+I,224:POKEY+I,C
410 NEXT
420 X=X+40:Y=Y+40
430 K=K+1:IFK>=3THENK=0:C=C+1:IFC>15THENC=1
440 NEXT
450 GOTO110
460 POKE53280,0:POKE53281,0:PRINT"[147]";
470 PRINT"[159]    [169] [223][146]   [146]  [146] [169] [223][146] [169][146]   [169] [223][146]   [223][146]  [146]  [146] [169] [223][146]"
480 PRINT"     [146]  [146]   [146]  [146]  [146]  [146]  [146]    [146]    [146]  [146]  [146]  [146]  [146]"
490 PRINT"     [146]  [146]   [146]  [146]  [146]  [146]  [146]     [146]    [146][169]  [146]  [146] [223] [223][146]"
500 PRINT"     [146][223] [146]   [146]  [146]  [146]  [146]  [146]    [146]    [146][223][223][146]  [146]  [146]    [146]"
510 PRINT"    [223] [146][223][223][146] [223] [146][169] [223] [146][169] [223] [146][169] [223] [146][169]  [146] [223] [223] [146][169] [223] [146][169]"
520 FORS=1TO2500:NEXT
530 PRINT"QUOLERUS IS BASED ON"
540 PRINT"YAR'S REVENGE"
550 PRINT"COPYRIGHT 1981 ATARI CORP."
560 PRINT"WITH PERMISSION FROM"
570 PRINT"ATARI CORPORATION."
580 PRINT"SCORE:";SC$
590 PRINT"PRESS TRIGGER TO BEGIN"
600 IFPEEK(56320)=111THENPRINT"[147]":RUN80
610 SYS 52016
620 FORS=1TO50:NEXT:GOTO600