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