0 ' MINEZ.100 (C) Copyright Aug., 1988 by Maximillian Pandaemonium 1 CLS:SCREEN,0:MAXFILES=1:FALSE=0:TRUE=NOTFALSE:KEY(4)OFF:KEY(8)ON:ONKEYGOSUB,,,,,,,110 2 SC=0:LV=1:LI=5:O$="*":TR$="-+=":SH$="":E$="EXTRA":XB=39:YB=6:MEM=65024:HI=10000:HS=20000 3 ES$=CHR$(27):PRINTES$"V"; 4 PRINT@280,ES$"p MINEZ by Maximillian Pandaemonium "ES$"q";:EX$=STRING$(LEN(E$),"_") 5 FORNUL=1TOVAL(RIGHT$(TIME$,2)):DUM=RND(1):NEXTNUL:GOSUB92:GOSUB90 10 Y=INT(RND(1)*(YB+1)) 11 FORX=XBTO0STEP-1 12 IFX<>XBTHENPRINT@(Y1*40)+X+1," "; 13 Q=PEEK(MEM+(Y*40)+X) 14 IFQ=32THENSC=SC+50:GOTO20ELSEIFQ=224THENSC=SC+500:GOTO20 15 P=INSTR(1,TR$,CHR$(Q)):IFP>0THENSC=SC+(1000*P):GOTO20 16 P=INSTR(1,E$,CHR$(Q)):IFP>0THENSC=SC+2500:MID$(EX$,P,1)=MID$(E$,P,1):GOTO20 19 PRINT@(Y*40)+X,ES$"p"CHR$(Q)ES$"q":SC=SC-500:LI=LI-1:IFLI=0THEN110ELSEGOTO10 20 Y1=Y:PRINT@(Y*40)+X,SH$;:GOSUB90 21 I$=INKEY$ 22 IFI$="q"ORI$="Q"ORI$=CHR$(30)THENY=Y-1 23 IFI$="a"ORI$="A"ORI$=CHR$(31)THENY=Y+1 24 IFY<0THENY=0 25 IFY>YBTHENY=YB 26 IFE$=EX$THENSC=SC+10000:HI=HI+HS:LI=LI+3:EX$=STRING$(LEN(E$),"_") 27 IFSC>=HITHENHI=HI+HS:LI=LI+1 28 NEXTX 29 LV=LV+1:SC=SC+500:GOSUB90 30 FORT=0TOYB:PRINT@(T*40),STRING$(40,32);:NEXTT 31 GOSUB92:GOTO10 90 IFSC>1000000THENBEEP:BEEP:SC=SC-1000000 91 PRINT@280,ES$"p";:PRINTUSING"Lives ##Level ###Score ###,###";LI,LV,SC;:PRINTEX$ES$"q";:RETURN 92 IFLVMOD5=FALSETHEN98 93 FORT=1TO65:A=INT(RND(1)*(XB-4)):B=INT(RND(1)*(YB+1)):PRINT@(40*B)+A,O$;:NEXTT 94 FORT=1TO5:A=INT(RND(1)*(XB-4)):B=INT(RND(1)*(YB+1)):PRINT@(40*B)+A,MID$(TR$,1,1);:NEXTT 95 A=INT(RND(1)*(XB-4)):B=INT(RND(1)*(YB+1)):PRINT@(40*B)+A,MID$(TR$,2,1); 96 IFINT(RND(1)*5)=0THENPRINT@0,MID$(E$,INT(RND(1)*LEN(E$))+1,1); 97 RETURN 98 FORU=0TO6:PRINT@U*40,"":NEXTU:PRINT@120,STRING$(40,224);:FORT=1TO19:PRINT@80+T,"";:PRINT@160+T,"";:NEXTT:PRINT@80,"";:PRINT@100,"";:PRINT@160,"";:PRINT@180,""; 99 PRINT@181,MID$(E$,INT(RND(1)*LEN(E$))+1,1);:RETURN 110 GOSUB90:PRINT@94,ES$"p GAME OVER "EQ$;:PRINT@134," F4 Replay ";:PRINT@174," F8 Menu "ES$"q";:KEY(4)ON:KEY(8)ON:ONKEYGOSUB,,,112,,,,113 111 GOTO111 112 RUN 113 KEY(4)OFF:KEY(8)OFF:CLS:MENU 114 RETURN