1 POKE 55,0:POKE 56,152:CLR
2 DV=PEEK(186):IFDV<8THENDV=8
3 PRINT CHR$(14):PRINT CHR$(8)
8 POKE 32767,13:POKE 53371,0
10 POKE53281,0:POKE53280,0:PRINT"[147][159]";:GOSUB100
11 TQ=TI
13 SYS57812"UNPACKER.98",DV,0:POKE780,0:POKE781,128:POKE782,200:SYS65493
14 SYS 57812"QS DRIVER 9800",DV,8:POKE 780,0:POKE 781,0:POKE 782,152:SYS 65493
15 SYS57812"SPRITES",DV:POKE780,0:POKE781,128:POKE 782,193:SYS65493
16 SYS 57812"Q.ASZ",DV:POKE 780,0:POKE 781,0:POKE 782,40:SYS 65493
17 IFTI<TQ+350THEN17
18 PRINT"[147]";
19 SYS51328,"INTRO.SHP",DV,224,204
20 POKE252,224:POKE253,204:SYS51459
21 DR=38912:POKE 198,0
22 SYS DR+15:SYS DR+12:TQ=TI
23 GETA$:IFA$=""AND(TI<TQ+250)THEN23
25 POKE 198,0:GOTO 300
100 FORI=1TO10:READB$(I):NEXT
110 POKE214,0:PRINT
120 FORI=1TO10:PRINT:IFI=4THENPRINT"[155]"
130 PRINTTAB(20-((LEN(B$(I))/2)))B$(I)
140 NEXT
150 RETURN
200 DATA"2001 - [193] [211]PACE [207]DYSSEY
202 [131]"(null)R IS IT?"
204 [131] "BY (null)IM (null)LK"
220 [131]"(null)PENING MUSIC IS"
230 [131]"ATNLSO (null)PRACH (null)ARATHUSTRA
232 DATA"[201]SSUE MUSIC IS
234 [131]"(null)ALES OF THE (null)IENNA (null)OODS"
240 [131]"BY MID$OHANN (null)TRAUSS
242 DATA"[212]RANSCRIBED BY [202]OSHUA [196]EROCHER
244 [131]"ATNRRANGED BY STR$AVE (null)OORMAN
300 V=53248
301 POKE V+21,0
302 FOR X=0 TO 400:NEXT
304 SYS DR,40,1
308 REM       SPRITE START LOCATIONS
309 REM
310 POKE V+0,140:POKE V+1,203:SY=204
311 POKE V+2,188:POKE V+3,203
312 POKE V+4,140:POKE V+5,128
313 POKE V+6,188:POKE V+7,128
314 POKE V+8,140:POKE V+9,170
315 POKE V+10,188:POKE V+11,170
316 POKE V+12,150:POKE V+13,66
317 POKE V+14,188:POKE V+15,66
319 REM      SPRITE COLORS
320 REM
321 POKE V+37,0:POKE V+38,11
322 POKE V+28,63:REM MULTICOLOR ON
323 POKE V+37,0:POKE V+38,11
324 POKE V+39,11:POKE V+40,11:REM SPRITE
325 POKE V+41,11:POKE V+42,11:REM COLORS
326 POKE V+43,11:POKE V+44,11
327 POKE V+45,7:POKE V+46,7
328 REM      SPRITE POINTERS 53247
329 REM
330 POKE 53244,4:POKE 53245,5
331 POKE 53242,2:POKE 53243,3
332 POKE 53240,0:POKE 53241,1
334 POKE 53246,6:POKE 53247,7
340 POKE V+29,255:POKE V+23,255
341 POKE V+21,192
347 REM
348 REM      CLEAR SPRITES
349 REM
350 FOR X=49152 TO 49533:POKE X,0:NEXT
351 POKE V+21,255
357 REM
358 REM      SPRITE PRIORITY
359 REM
360 POKE V+27,0
389 REM
390 REM BITS 11=DARK GRAY
391 REM BITS 10=BLACK
392 REM BITS 01=LIGHT GRAY
395 Z=PEEK(198):IF Z<>0 THEN GOTO 600
400 POKE 49534,112:POKE 49533,69:POKE 49532,64
401 POKE 49470,0:POKE 49469,0:POKE 49468,0
402 FOR X=0 TO 100:NEXT
403 POKE 49531,102:POKE 49530,85:POKE 49529,85:REM 116,85,85
404 POKE 49467,102:POKE 49466,69:POKE 49465,16
405 FOR X=0 TO 100:NEXT
406 POKE 49528,102:POKE 49527,85:POKE 49526,85
407 POKE 49464,85:POKE 49463,85:POKE 49462,149
408 FOR X=0 TO 100:NEXT
410 POKE 49152,170:POKE 49153,170:POKE 49154,170
411 POKE 49216,170:POKE 49217,170:POKE 49218,170
420 FOR X=49526 TO 49475 STEP -3
422 POKEX-1,102:POKEX-2,85:POKEX-3,85
424 POKE X-65,85:POKE X-66,85:POKE X-67,149
426 GOSUB 480:Z=PEEK(198):IF Z<>0 THEN GOTO 600
428 NEXT
440 FOR X=49407 TO 49347 STEP -3
442 POKE X-1,102:POKE X-2,85:POKE X-3,85
444 POKE X-65,85:POKE X-66,85:POKE X-67,149
446 GOSUB 480:Z=PEEK(198):IFZ<>0 THEN GOTO 600
448 NEXT
460 FOR X=49155 TO 49212 STEP 3
462 POKE X,149:POKE X+1,85:POKE X+2,85
464 POKE X+64,85:POKE X+65,85:POKE X+66,102
466 GOSUB 480:Z=PEEK(198):IF Z<>0 THEN GOTO 600
468 NEXT
470 GOTO 500
480 FOR Y=0 TO 90:NEXT
482 SY=SY-1:POKE V+1,SY:POKE V+3,SY
484 FOR Y=O TO100:NEXT
486 SY=SY-1:POKE V+1,SY:POKE V+3,SY
488 RETURN
500 FOR X=0 TO 300:NEXT
502 POKE V+37,11:FOR X=1 TO 10:NEXT
504 POKE V+37,12:FOR X=1 TO 10:NEXT
506 POKE V+37,15:FOR X=1 TO 10:NEXT
508 POKE V+37,7:FOR X=1 TO 10:NEXT
510 POKE V+37,1:FOR X=1 TO 10:NEXT
512 POKE V+33,1:FOR X=1 TO 10:NEXT
513 POKE V+33,11:FOR X=1 TO 10:NEXT
514 POKE V+32,1:FOR X=1 TO 10:NEXT
516 SC=PEEK(53265):POKE 53265,11:FOR X=1 TO 100:NEXT
520 POKE V+12,162:POKE V+14,180
522 POKE 53240,9:POKE 53241,8:REM CHANGE SPRITE POINTERS
524 POKE 53242,12:POKE 53243,13
526 POKE 53244,11:POKE 53245,10
530 POKE V+38,6:REM CHANGE COLORS
532 POKE V+39,1:POKE V+40,1
540 POKE V+28,60:REM 252
542 POKE V+9,86:POKE V+11,86
544 POKE V,150:POKE V+1,92
545 POKE V+2,188:POKE V+3,92
550 POKE 53265,SC:FOR X=1 TO 10:NEXT
552 POKE V+32,0:FOR X=1 TO 10:NEXT
553 POKE V+33,11:FOR X=1 TO 10:NEXT
554 POKE V+33,0:FOR X=1 TO 10:NEXT
556 X=PEEK(V)
558 POKE V+37,15:FOR X=1 TO 10:NEXT
560 POKE V+37,12:FOR X=1 TO 10:NEXT
562 POKE V+37,11:FOR X=1 TO 10:NEXT
564 POKE V+37,0:FOR X=1 TO 10:NEXT
570 P=PEEK(DR+45):Z=PEEK(198)
572 IF P<>0 OR Z<>0 THEN GOTO 570
600 REM EXIT TO PRESENTER
610 SYS DR+6:SYS DR+18
620 POKE V+21,0
622 POKE 49152,DV
625 POKE 55,0:POKE 56,160:CLR
640 DV=PEEK(49152)
650 POKE 157,0:LOAD"PRESENTER",DV
9999 END
10000 D=PEEK(186):N$="0:STAR":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END