10IF PAGE<>&1100 THEN PAGE=&1100:CHAI N"R.EDANIM" 20MODE1:VDU23;8202;0;0;0;:PROCsetup 30XORD=&70:YORD=&72:WIDE=&74:HIGH=&75 :SDAT=&76:SPTE=&903:SPMV=&900:W%=50:H%=5 0:HIMEM=&20FF 40*LOAD R.EDSPR 2100 50K%=0:C%=0:PROCSPR(K%,C%,0) 60FORI%=65TO39STEP-1:C%=C%+1:IFC%>=4T HENC%=0:FORJ%=0TO35:NEXT 70*FX19 80PROCSPR(I%,C%,1) 90IFC%=1ORC%=3THENSOUND0,-10,7,2:SOUN D1,-1,90,1.5 100FORJ%=1TO600:NEXT:K%=I%:NEXT:GCOL0, 1:Y%=625:FORJ%=1TO3000:NEXT 110FORS%=1TO5:FORD%=1TO4:SOUND0,-15,7, 1:SOUND1,-1,100,1:NEXT 120FORX%=580TO180STEP-100 130MOVEX%-10,Y%:PLOT5,X%,Y%:MOVEX%+10, Y%:PLOT5,X%+20,Y%:MOVEX%+30,Y%:PLOT5,X%+ 40,Y%:MOVEX%+50,Y%:PLOT5,X%+60,Y%:MOVEX% -10,Y% 140*FX19 150PLOT7,X%+60,Y%:NEXT, 160VDU23,255,0,24,90,255,255,90,24,0:F ORA%=9TO16:PRINTTAB(0,A%)SPC(8):NEXT:SOU ND0,-10,6,20:VDU5:FORA%=0TO250:X%=RND(20 0):Y%=504+(RND(250)):GCOL3,2:MOVEX%,Y%:V DU255:NEXT:VDU4 170VDU5:FORA%=0TO450:X%=RND(200):Y%=50 4+(RND(250)):GCOL0,0:MOVEX%,Y%:VDU255:NE XT:VDU4:FORA%=8TO16:PRINTTAB(0,A%)SPC(8) :NEXT 180K%=0:C%=0:FORI%=39TO0STEP-1:C%=C%+1 :IFC%>=4THENC%=0:FORJ%=0TO35:NEXT 190*FX19 200PROCSPR(I%,C%,1) 210IFC%=1ORC%=3THENSOUND0,-10,7,2:SOUN D1,-1,90,1.5 220FORJ%=1TO600:NEXT:K%=I%:NEXT:COLOUR 3:PROCend 230DEFPROCSPR(A%,B%,F%) 240X%=A%*16:Y%=665 250IF C%=0 EDDATA=&2100 260IF C%=1 EDDATA=&2358 270IF C%=2 EDDATA=&2616 280IF C%=3 EDDATA=&2874 290!XORD=Y%*&10000+X%:!WIDE=W%+256*H%+ &10000*EDDATA 300IF F%=0 CALL SPTE ELSE CALL SPMV 310ENDPROC 320DEF PROCsetup:COLOUR2 330VDU 23,251,255,66,36,24,24,36,66,25 5,23,252,129,195,165,153,153,165,195,129 ,19,7,6,0,0,0,0 340PRINTTAB(1,9)STRING$(4,CHR$(251)):F ORA%=10TO16:PRINTTAB(1,A%)STRING$(4,CHR$ (252)):NEXT 350VDU5:MOVE500,900:GCOL0,2:PRINT"E D 2 0 9":MOVE508,908:PRINT"E D 2 0 9":MO VE508,900:PRINT"E D 2 0 9":MOVE500,908 360PRINT"E D 2 0 9":GCOL0,0:MOVE504,9 04:PRINT"E D 2 0 9":MOVE490,895:GCOL0,1 :PRINT"```````````":VDU4:COLOUR1 370FORX%=0TO39:PRINTTAB(X%,17);:VDU251 :NEXT:FORR%=18TO22:PRINT CHR$(252);SPC(9 );CHR$(252);SPC(9);CHR$(252);SPC(9);CHR$ (252):NEXT:FORX%=0TO39:PRINTTAB(X%,23);: VDU251:NEXT 380FORR%=23TO27:PRINTSPC(5);CHR$(252); SPC(9);CHR$(252);SPC(9);CHR$(252);SPC(9) ;CHR$(252):NEXT:FORX%=0TO39:PRINTTAB(X%, 29);:VDU251:NEXT:COLOUR3:PRINTTAB(20,18) ;" ";TAB(15,19);"OmniConsumer";TAB(17,20 );"Products";TAB(20,21);" " 390GCOL0,2:MOVE470,445:DRAW870,445:DRA W870,330:DRAW470,330:DRAW470,445 400MOVE480,330:DRAW480,290:MOVE490,290 :DRAW490,330:MOVE850,330:DRAW850,290:MOV E840,290:DRAW840,330 410ENDPROC 420DEFPROCend:G=GET:VDU 22,7:PRINTTAB( 8,2);"Thank You For Watching";TAB(4,4);" This Demonstration, Inspired By";TAB(14, 6);"The Film.." 430PRINTTAB(0,12);CHR$(141);CHR$(134); CHR$(157);CHR$(132);TAB(13);"R O B O C O P";TAB(0,13);CHR$(141);CHR$(134);CHR$(1 57);CHR$(132);TAB(13,13);"R O B O C O P" ;TAB(13,20);CHR$(129);"Written By";TAB(1 2,22);CHR$(131);"Duncan Lilly" 440END