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