1 REM*The Eddie Demo* 2 REM*By Andrew Weston* 3 REM*Finished 5/9/93* 4 REM***************** 10 MODE5 20 H%=&2000:HIMEM=&2000 30 PROCSU 40 PROCinf("LOAD "+f$) 50 PROCcolourdef 60 REPEAT READ f%,q% 70 IFf%=0RESTORE:READf%,q% 80 PROCA(f%):PROCw(q%*10) 90 UNTIL FALSE 100 END 110 DEF PROCSU 120 VDU23;8202;0;0;0; 130 f$="SPR1" 140 VDU5:GCOL0,7:MOVE 10,695:PRINT"IRON MAIDEN" 150 GCOL0,1:MOVE10,690:PRINT"IRON MAIDEN" 160 GCOL0,2:MOVE 125,550:PRINT"EDDIE" 170 VDU4 180 ENDPROC 190 DEFPROCA(f%) 200 A%=&6700 210 LOCAL A%,I%,J%,Y% 220 Y%=FNa(f%) 230 A%=&6900 240 FORAC%=1TO4 250 FORC%=0TO63STEP4 260 A%!C%=Y%!C% 270 NEXT 280 A%=A%+&140:Y%=Y%+&40 290 NEXT 300 ENDPROC 310 DEFFNa(f%)=H%+(f%-1)*&100 320 DEFPROCcolourdef:VDU23,1,0;0;0;0;19,3,4;0; 330 VDU19,2,3;0;:ENDPROC 340 DEFPROCw(LT%)LT%=TIME+LT%:REPEATUNTILTIME>LT%:ENDPROC 350 DEFPROCinf($&700)LOCALX%,Y%:Y%=7:CALL&FFF7:ENDPROC 360 ENDPROC 370 DATA1,1,2,1,3,1,4,1,5,1,6,1,7,2,8,2,9,2,10,2 380 DATA8,2,9,2,10,2,9,2,8,2,9,2,10,2,9,2,8,2 390 DATA 0,0