10REM Ghouls Cheat - PIAS 7 5.25" dis c 20REM by David Bradforth 30REM This program is FREEWARE! 40: 50MODE7 60PRINT 70FORN=1 TO 2 80PRINTCHR$141;CHR$157 " Ghouls Cheat " 90NEXT N 100PRINT 110PRINT "Insert Play It Again, Sam 7 disc and press any key." 120VDU23;8202;0;0;0; 130A$=GET$ 140CLS 150PRINT 160FORN=1 TO 2 170PRINTCHR$141;CHR$157 " Ghouls Cheat " 180NEXT N 190PRINT 200PRINT " Please Select which level y ou wish to start on." 210PRINT 220PRINT " 1 .... Spectres Lair" 230PRINT " 2 .... Horrid Hall" 240PRINT " 3 .... Spiders Parlour" 250PRINT " 4 .... Death Tower" 260PRINT 270PRINT " I Would Like To Start On Le vel :"; 280INPUT ""A$ 290IFA$="1" THEN PROCone 300IFA$="2" THEN PROCtwo 310IFA$="3" THEN PROCthree 320IFA$="4" THEN PROCfour 330GOTO140 340END 350: 360DEFPROCone 370*KEY 0 *INIT|M*LOAD GCode|M*RUN G2| MPAGE=&2200|MO.|M49P.TAB(0,5);:COLOUR 3: GCOL0,1::ON SC GOSUB 1000,1050,1100,1150 |MRUN|M 380*FX138,0,128 390END 400ENDPROC 410: 420DEFPROCtwo 430*KEY 0 *INIT|M*LOAD GCode|M*RUN G2| MPAGE=&2200|MO.|M49P.TAB(0,5);:COLOUR 3: GCOL0,1::ON SC GOSUB 1050,1100,1150|MRUN |M 440*FX138,0,128 450END 460ENDPROC 470: 480DEFPROCthree 490*KEY 0 *INIT|M*LOAD GCode|M*RUN G2| MPAGE=&2200|MO.|M49P.TAB(0,5);:COLOUR 3: GCOL0,1::ON SC GOSUB 1100,1150|MRUN|M 500*FX138,0,128 510END 520ENDPROC 530: 540DEFPROCfour 550*KEY 0 *INIT|M*LOAD GCode|M*RUN G2| MPAGE=&2200|MO.|M49P.TAB(0,5);:COLOUR 3: GCOL0,1::ON SC GOSUB 1150|MRUN|M 560*FX138,0,128 570END 580ENDPROC