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