1 REM FIREWORKS
2 REM AUTHOR:DON SIEBER
3 REM PUBLISHED BY UPTIME
5 IF UP=1 THEN SYS 52480:SYS 8*4096+4
10 IFA=0THENA=1:LOAD"ANIM.DDL",8,1
20 IFA=1THENA=2:LOAD"DDFWORKS",8,1
30 IFA=2THENA=3:LOAD"FW5.SP",8,1
40 IFA=3THENA=4::LOAD"FWORKS.DR",8,1
50 CLR:POKE53280,0:POKE53281,9:POKE1013,96:PRINTCHR$(8)CHR$(142):FL=0
60 V=54272:POKEV+4,0:REM RESET VOICE 1
65 S=53248:REM VIC CHIP BASE
70 POKEV+24,5:REM SET VOLUME
80 PRINT"[147][149]             [158][213][192][192][192][192][192][192][192][192][192][192][192][192][201][146][129]
90 [153][163]12)" SYS(null) FIRE WORKS (null)WAITFOR
100 PRINTTAB(12)" [158][202][192][192][192][192][192][192][192][192][192][192][192][192][203][146][129]
110 [153][163]12)"              WAIT
120 PRINT:PRINTTAB(9)"(C)1987 BY DON SIEBER
130 [153]:[153]"SYS PUBLISHED BY SOFTDISK PUBLISHING, INC.
140 PRINT"   THIS IS A SHORT, NIGHT TIME
150 [153]" FIREWORKS DISPLAY.":[129]N[178]1[164]1000:[130]
160 [153]" I HOPE THAT YOU ENJOY THE SHOW.
170 PRINT:PRINTSPC(20)"SIGNED,":FORN=1TO1000:NEXT
180 PRINT"   DON SIEBER   **** FOR UPTIME ****":FORN=1TO2000:NEXT
190 PRINTTAB(13)"[158] PRESS RETURN [146]"
195 PRINTTAB(12)"OR F8 FOR UPTIME"
200 GETQ$:IFQ$="[140]" THEN 460
202 IF Q$<>CHR$(13) THEN 200
205 PRINT"[147]";
210 D=2
220 T=50
230 POKEV+24,5:REM TURN ON VOLUME
240 POKEV,0:POKEV+1,1:REM SET FREQ
250 POKEV+5,0:POKEV+6,250:REM SET ADSR
260 RESTORE:POKE53265,59:POKE53272,120:POKE56576,150
270 FORR=1TO1500:NEXT:REM DELAY BEFORE FIREWORKS
280 READS%:IFS%>PEEK(49152)THEN400:REM SCENE NUMBER
285 REM ****** SET SOUND FOR SCENE *****
290 IFS%<1THEN400
300 IFS%=5THENPOKEV+24,3:POKEV+1,1:POKEV+4,129:POKEV+4,128
310 IFS%=33THENPOKEV+24,15:POKEV+1,3:POKEV+4,129:POKEV+4,128
320 IFS%=44THENPOKEV+24,6:POKEV+1,4:POKEV+4,129:POKEV+4,128
330 IFS%=55THENPOKEV+24,3:POKEV+1,1:POKEV+4,129:POKEV+4,128
340 IFS%=63THENPOKEV+24,3:POKEV+1,1:POKEV+4,129:POKEV+4,128
350 IFS%=78THENPOKEV+24,15:POKEV+1,3:POKEV+4,129:POKEV+4,128
360 IFS%=87ANDFL=0THENPOKEV+24,12:POKEV+1,4:POKEV+4,129:POKEV+4,128
370 IFS%=>88ANDS%=<90ANDFL=0THENPOKEV+24,0:POKEV+24,15
375 REM ****** READ SPRITE PARAMETERS **
380 SD=49154+37*(S%-1):SH=INT(SD/256):SL=SD-SH*256:POKE251,SL:POKE252,SH
390 SYS948:FORN=1TOT:NEXT:GOTO280
400 D=D-1:IFD>0THEN260:POKEV+24,0:POKEV+4,0
401 FL=FL+1:IFFL=1THEN600
402 FL=FL+1:IFFL=2THEN410
405 REM ******* BACK TO NORMAL *********
406 FORP=1TO1000:NEXT
407 FORN=0TO127:FORO=0TO7:POKES+39+O,NAND15
408 POKES+1+2*O,PEEK(S+1+2*O)+1:NEXT:NEXT
410 POKE53265,27:POKE53272,21:POKE56576,151:POKE53269,0
415 POKEV+24,0:POKEV+4,0
420 PRINT"[147]      I HOPE YOU ENJOYED THE SHOW.
430 [153][163]9)"SYS PRESS R TO REPEAT WAIT"
435 [153][163]13)"F8 FOR UPTIME":[151] 198,0
440 [161]Q$
450 [139]Q$[178]"R"[167][153]"LOAD               RERUNNING":[137]700
455 [139] Q$[179][177]"RESTORE" [167] 440
460 [156]:UP[178]1:[147]"FASTBOOT",8,1
470 [131]1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
480 [131]26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45
490 [131]46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63
500 [131]64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82
510 [131]83,84,85,86,87,88,89,90,91,92,93,94
520 [131]95,96,97,98,99,100,101,102,0
600 F$[178]"FW5.DR":[151]836,255:[151]841,[195](F$)
605 [129]N[178]1[164][195](F$):[151]861[170]N,[198]([202](F$,N,1)):[130]
610 [158]828:[141]720:D[178]1:[137]220
700 FL[178]0:F$[178]"FWORKS.DR":[151]836,255:[151]841,[195](F$)
705 [129]N[178]1[164][195](F$):[151]861[170]N,[198]([202](F$,N,1)):[130]
710 [158]828:[141]720:[137]210
720 [159]15,8,15:[132]15,ST$:[160]15:[139]ST$[178]"00"[167][142]
725 [137]460