10 REM Ghouls Cheat - PIAS 7 5.25" disc
   20 REM by David Bradforth
   30 REM This program is FREEWARE!
   40 :
   50 MODE7
   60 PRINT
   70 FORN=1 TO 2
   80 PRINTCHR$141;CHR$157 "Ghouls Cheat"
   90 NEXT N
  100 PRINT
  110 PRINT "Insert Play It Again, Sam 7 disc and    press any key."
  120 VDU23;8202;0;0;0;
  130 A$=GET$
  140 CLS
  150 PRINT
  160 FORN=1 TO 2
  170 PRINTCHR$141;CHR$157 "Ghouls Cheat"
  180 NEXT N
  190 PRINT
  200 PRINT "„Please Select which level you wish to„„„start on."
  210 PRINT
  220 PRINT "1‚....ƒSpectres Lair"
  230 PRINT "2‚....ƒHorrid Hall"
  240 PRINT "3‚....ƒSpiders Parlour"
  250 PRINT "4‚....ƒDeath Tower"
  260 PRINT
  270 PRINT "I Would Like To Start On Level         ƒ:";
  280 INPUT ""A$
  290 IFA$="1" THEN PROCone
  300 IFA$="2" THEN PROCtwo
  310 IFA$="3" THEN PROCthree
  320 IFA$="4" THEN PROCfour
  330 GOTO140
  340 END
  350 :
  360 DEFPROCone
  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
  390 END
  400 ENDPROC
  410 :
  420 DEFPROCtwo
  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
  450 END
  460 ENDPROC
  470 :
  480 DEFPROCthree
  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
  510 END
  520 ENDPROC
  530 :
  540 DEFPROCfour
  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
  570 END
  580 ENDPROC