10 REM"GHOSTBUSTERS  Demonstration
   20 REM"…_________________________
   30 REM
   40 REM"ƒThis Demonstration By
   50 REM"†Duncan Lilly  -  DJL Software
   60 REM
   70 REM"„Released Into The
   80 REM"„Public Domain 12th November
   90 REM"„1990.
  100 :
  110 MODE 5
  120 VDU 23;8202;0;0;0;0;
  130 *LOAD G.G-LOGO
  140 PROCoutline("GH STBUSTERS",8,.3,3,0) 
  150 VDU 23,224,0,234,74,78,74,74,74,0
  160 VDU 23,225,0,234,138,206,196,132,228,0
  170 VDU 23,226,0,187,170,59,50,42,43,0
  180 VDU 23,227,0,138,10,14,10,10,138,0
  190 VDU 23,228,0,238,138,206,140,138,234,0
  200 VDU 23,229,0,227,129,193,129,129,225,0
  210 VDU 23,230,0,144,40,40,40,40,16,0
  220 VDU 23,231,0,100,138,78,42,42,202,0
  230 VDU 23,232,0,174,168,172,168,168,78,0
  240 VDU 23,233,0,58,18,19,18,18,18,0
  250 VDU 23,234,0,184,160,176,160,160,184,0
  260 VDU 23,235,0,137,138,138,170,170,81,0
  270 VDU 23,236,0,58,170,186,178,170,43,0
  280 VDU 23,237,0,48,40,40,40,40,176,0
  290 VDU 23,250,60,102,227,145,137,199,102,60
  300 VDU 23,251,12,12,28,110,247,56,16,0
  310 PRINTTAB(3,31);:VDU 224,225,226,227,228,229,230,231,232,233,234,235,236,237
  320 VDU 5
  330 MOVE 385,1016
  340 GCOL 0,1
  350 VDU 250
  360 MOVE 385,1016
  370 GCOL 0,3
  380 VDU 251
  390 LET X%=RND(1000)+2:LET Z%=8
  400 LET Y%=RND(900)+50:LET A%=4
  410 GCOL 3,1
  420 MOVE X%,Y%
  430 VDU250
  440 FORR=1 TO 30:NEXT
  450 MOVE X%,Y%
  460 *FX19
  470 VDU 250
  480 GCOL 0,3
  490 IF X%<8 OR X%>1200 THEN LET Z%=-Z%
  500 IF Y%<34 OR Y%>1016 THEN LET A%=-A%
  510 LET X%=X%+Z%
  520 LET Y%=Y%+A%
  530 GOTO 410
  540 DEF PROCoutline(text$,x,y,c1,c2)
  550 gx=x*32:gy=1024-(y*32):VDU 5
  560 GCOL 0,c1
  570 MOVE gx-8,gy:PRINT text$
  580 MOVE gx+8,gy:PRINT text$
  590 MOVE gx,gy-4:PRINT text$
  600 MOVE gx,gy+4:PRINT text$
  610 MOVE gx-8,gy-4:PRINT text$
  620 MOVE gx+8,gy-4:PRINT text$
  630 MOVE gx+8,gy+4:PRINT text$
  640 MOVE gx-8,gy+4:PRINT text$
  650 GCOL 0,c2:MOVE gx,gy:PRINT text$
  660 VDU 4:ENDPROC