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