10 ONERRORPRINT" aaahhhhhhhh! at lin
e"ERL
20CLS
30 *FX9
40 PRINTTAB(1,12)CHR$(130)CHR$(141)CH
R$(157)" Ghost Busters!"
50 PRINTTAB(1,13)CHR$(130)CHR$(141)CH
R$(157)" Ghost Busters!"
60 PRINTTAB(3,15)" Who are you goner
call....."
70*FX10,20
80 PRINTTAB(16,17)" GHOST BUSTERS!!!
"
90VDU23;8202;0;0;0
100CLS
110*FX229,1
120*FX4,1
130GOTO190
140*VOICE <ML>
150*U. <2> H +OO Y UH G +o N UH K *OR
L
160*VOICE <MH>
170*U.<1+> # G +O S T B *u S T +ER Z
180*SYNC
190TIME=0
200DIMV(3)
210ENVELOPE1,1,0,0,0,0,0,0,126,-2,-2,0
,126,126
220ENVELOPE2,1,0,0,0,0,0,0,126,-1,-1,0
,126,126
230V(1)=-8:V(2)=-8:V(3)=-8
240DIMA$(3)
250Z=1
260FORC=ZTO29
270IFC=6THENV(1)=1:V(2)=1:V(3)=1
280IFC=22THENV(1)=2:V(2)=2:V(3)=2
290READA$(1),A$(2),A$(3)
300T=TIME-12
310FORA=1TO16
320T=T+12
330FORB%=1TO3
340N$=MID$(A$(B%),A,1)
350IFN$=" "ORN$=""THEN420
360IFN$="!"THEN500
370N%=4*ASCN$-331
380IFN$="*"V%=0ELSEV%=V(B%):N%=0
390N%=4*ASCN$-331
400IFB%=3ANDN%<0SOUND&11,0,N%+187,255:
SOUND&10,V%,3,255:GOTO420
410SOUND&14-B%,V%,N%,-1
420NEXT
430REPEATUNTILTIME>T+12
440NEXT
450NEXT
460RESTORE
470FORA%=1TO9*3:READA$:NEXTA%
480V(1)=1:V(2)=1:V(3)=1
490Z=10:GOTO260
500*FX 15
510PRINT
520END
530DATA ][^][^][^][^][^
540DATA S [
550DATA G O
560DATA ][^][^][^][^][^
570DATA Z Y
580DATA N M
590DATA ][^][^][^][^][^
600DATA X b
610DATA L V
620DATA *][^][^][^][^][^
630DATA ^
640DATA R
650DATA ][^][^][^][^][^
660DATA ^
670DATA R
680DATA ` ` * i * h *
690DATA Z Z * d * d *
700DATA G G JKN Q Q L L
710DATA ` ` * i * h *
720DATA Z Z * d * d *
730DATA G G JKN Q Q L L
740DATA ` ` * i * h *
750DATA Z Z * d * d *
760DATA G G JKN Q Q L L
770DATA ` ` * i i h *
780DATA Z Z * d d d *
790DATA G G JKN Q Q L L
800DATA * kko k m i *
810DATA * d *
820DATA G G JKN Q Q L L
830DATA * kkkki k *
840DATA * d *
850DATA G G JKN Q Q L L
860DATA * kko k m i *
870DATA * d *
880DATA G G JKN Q Q L L
890DATA * kkkki m k *
900DATA * d * h *
910DATA G G JKN Q Q L L
920DATA ` ` * i * h *
930DATA Z Z * d * d *
940DATA G G JKN Q Q L L
950DATA ` ` * i * h *
960DATA Z Z * d * d *
970DATA G G JKN Q Q L L
980DATA ` ` * i * h *
990DATA Z Z * d * d *
1000DATA G G JKN Q Q L L
1010DATA ` ` * i i h *
1020DATA Z Z * d d d *
1030DATA G G JKN Q Q L L
1040DATA ` ` * i * h *
1050DATA Z Z * d * d *
1060DATA G G JKN Q Q L L
1070DATA ` ` * i * h *
1080DATA Z Z * d * d *
1090DATA G G JKN Q Q L L
1100DATA ` ` * i * h *
1110DATA Z Z * d * d *
1120DATA G G JKN Q Q L L
1130DATA ` ` * i i h f
1140DATA Z Z * d d d *
1150DATA G G JKN Q Q L L
1160DATA n k* n k* n k
1170DATA *
1180DATA S ` S `
1190DATA * n k* n k ijk
1200DATA * Z Z Z Z Z
1210DATA Q Q Q Q Q
1220DATA n k* n k* n k
1230DATA *
1240DATA P ½ P ½
1250DATA * n k* n k ijk
1260DATA * X X X X X
1270DATA L * L L L L
1280DATA r n* r n* r n
1290DATA n k* n k* n k
1300DATA S ` S `
1310DATA * r n* r n n
1320DATA * n k* n k ijk
1330DATA Q Z Q Q Q Q
1340DATA r n* r n* r n
1350DATA n k* n k* n k
1360DATA P ½ P ½
1370DATA * r n* r n n
1380DATA * n k* n k ijk
1390DATA L X L L L L