10  REM Mine Sweeper
   20  REM by Carl Wheat 12/9/93
   30  REM For Public Domain
   40  :
   50  MODE5:VDU19,2,6;0;23;8202;0;0;0;
   60  *LOAD SCREEN FFFF5800
   70  PROCstart:K$=GET$
   80  IF K$="Y" MODE4:PROCinst:MODE5
   90  PROCinit
  100  IF K%=72 OR K$="H" PROChigh
  110  REPEAT:PROCsetup:REPEAT:REPEAT
  120  IF P%=0 K%=GET:TIME=0
  130  IF P%<>0 K%=INKEY(10) ELSE P%=1
  140  PROCclock
  150  IF K%=88 OR K%=90 OR K%=58 OR K%=47 PROCmove
  160  UNTIL K%=77 OR K%=32 OR T%=999
  170  IF K%=32 AND D%=0 PROCpress
  180  IF K%=77 PROCflag
  190  IF T%=999 D%=2
  200  IF Z%=0 AND H%<>40 D%=3
  210  IF G%=256 AND H%=40 D%=4
  220  UNTIL D%<>0:PROCend
  230  PROCreplay:UNTIL B%=8
  240  MODE7:END
  250  :
  260  DEFPROCquit
  270  I%=B%:B%=8:A%=18:PROCring(1)
  280  REPEAT:K%=INKEY(10):PROCclock
  290  IF K%=90 PROCring(2):B%=I%:A%=16:UNTIL A%=16:ENDPROC
  300  UNTIL K%=32:D%=5:ENDPROC
  310  :
  320  DEFPROCreplay
  330  VDU4,28,17,31,19,15,12,5
  340  PROCbox(1134,452,100,350,1)
  350  MOVE 1152,776:PRINT QUIT$
  360  PROCbox(1134,60,100,350,1)
  370  MOVE 1152,384:PRINT PLAY$
  380  B%=1:A%=18:PROCring(1):*FX21,0
  390  REPEAT:K%=GET
  400  IF K%=58 PROCring(2):B%=8
  410  IF K%=47 PROCring(2):B%=1
  420  PROCring(1):UNTIL K%=32
  430  PROCsquare:ENDPROC
  440  :
  450  DEFPROCmove
  460  PROCring(2):MOVE FNx,FNy+8
  470  IF M%(A%,B%)>10 AND M%(A%,B%)<19:GCOL0,1:PRINT;M%(A%,B%)-10
  480  IF M%(A%,B%)>18 PRINT F$
  490  IF K%=90 A%=A%-1:IF A%<1 A%=1
  500  IF K%=88 A%=A%+1:IF A%>16PROCquit
  510  IF K%=47 B%=B%-1:IF B%<1 B%=1
  520  IF K%=58 B%=B%+1:IF B%>16 B%=16
  530  IF D%=0 PROCring(1):*FX21,0
  540  ENDPROC
  550  :
  560  DEFPROCring(C%):GCOL0,C%
  570  MOVE FNx,FNy:PRINT R$:ENDPROC
  580  :
  590  DEFPROCpress
  600  IF M%(A%,B%)=0 AND F%=0 PROCfill
  610  IF M%(A%,B%)>9 ENDPROC
  620  PROCsquare
  630  IF M%(A%,B%)=19 PRINT E$:D%=1:ENDPROC
  640  GCOL0,1:PRINT;M%(A%,B%)-10
  650  G%=G%+1:ENDPROC
  660  :
  670  DEFPROCflag
  680  IF M%(A%,B%)>9 ENDPROC
  690  PROCsquare:PRINT F$:Z%=Z%-1
  700  IF M%(A%,B%)<>19 M%(A%,B%)=20 ELSE H%=H%+1
  710  DEFPROCleft
  720  IF Z%DIV10=0 PROCnum(10,1180,200) ELSE PROCnum(Z%DIV10,1180,200)
  730  PROCnum(Z%MOD10,1220,200)
  740  G%=G%+1:ENDPROC
  750  :
  760  DEFPROCfill:I%=A%:J%=B%:F%=1
  770  FOR A%=I%-1 TO I%+1
  780  FOR B%=J%-1 TO J%+1
  790  IF A%>0 AND A%<17 AND B%>0 AND B%<17 PROCpress
  800  NEXT B%,A%
  810  A%=I%:B%=J%:F%=0
  820  PROCmove:ENDPROC
  830  :
  840  DEFPROCend
  850  VDU4:PRINT P$(D%):VDU5
  860  IF D%=4 AND T%<C%(8):PROChigh
  870  IF A%=18:PROCsquare
  880  FOR B%=1 TO 16:FOR A%=1 TO 16
  890  IF M%(A%,B%)=9:PROCsquare:PRINTM$
  900  IF M%(A%,B%)=20 MOVE FNx+8,FNy+8:PRINT X$
  910  NEXT A%,B%:ENDPROC
  920  :
  930  DEFPROChigh
  940  IF Q%=1 K%=INKEY(500)
  950  GCOL0,130:CLG:N$="":Y%=0
  960  IF Q%=0 GOTO 1000
  970  FOR X%=1 TO 8
  980  IF T%<C%(X%) C%(0)=C%(X%):N$(0)=N$(X%):C%(X%)=T%:N$(X%)=N$:T%=C%(0):N$=N$(0):IF Y%=0 Y%=X%
  990  NEXT
 1000  PROCbox(108,172,1100,740,0)
 1010  PROCbox(108,168,1100,740,0)
 1020  MOVE 360,980:PRINT"BEST TIMES"
 1030  PROCbox(100,164,1100,740,1)
 1040  PROCbox(100,160,1100,740,1)
 1050  MOVE 352,976:PRINT"BEST TIMES"
 1060  FOR X%=1 TO 8:J%=920-80*X%
 1070  PROCnum(C%(X%)DIV100,1100,J%)
 1080  PROCnum(C%(X%)DIV10MOD10,1140,J%)
 1090  PROCnum(C%(X%)MOD10,1180,J%)
 1100  MOVE -440,J%-16:PRINT X%
 1110  MOVE 300,J%-20:PRINT N$(X%):NEXT
 1120  IF Q%=0:MOVE220,100:PRINT"PRESS ANY KEY":K%=GET:ENDPROC
 1130  VDU19,3,9;0;
 1140  PROCbox(260,848-80*Y%,700,84,3)
 1150  MOVE180,100:PRINT"ENTER YOUR NAME"
 1160  MOVE 300,900-80*Y%:GCOL0,1
 1170  K%=0:REPEAT:L%=GET:PRINT CHR$L%;
 1180  IF L%=127 K%=K%-1 ELSE K%=K%+1
 1190  N$(Y%)=N$(Y%)+CHR$L%
 1200  UNTIL L%=13 OR K%>9:VDU19,3,6;0;
 1210  MOVE220,100:PRINT"PRESS ANY KEY"
 1220  FILE=OPENOUT("SCORES")
 1230  FOR X%=1 TO 8
 1240  PRINT# FILE,N$(X%),C%(X%)
 1250  NEXT:CLOSE# FILE
 1260  K%=GET:CLG:VDU19,3,7;0;:ENDPROC
 1270  :
 1280  DEFPROCsquare:GCOL0,2
 1290  MOVE FNx+16,FNy-32:PLOT0,60,0
 1300  PLOT81,-60,52:PLOT81,60,0
 1310  PROCbox(FNx+12,FNy-32,64,56,0)
 1320  IF A%=18 ENDPROC
 1330  M%(A%,B%)=M%(A%,B%)+10
 1340  MOVE FNx,FNy+8:ENDPROC
 1350  :
 1360  DEFPROCsetup:T%=18:V%=1:W%=0:Q%=0
 1370  Z%=RND(-TIME):Z%=0:TIME=0
 1380  GCOL0,130:CLG
 1390  VDU28,4,31,18,30
 1400  VDU19,0,6;0;19,3,6;0;19,1,0;0;
 1410  VDU4:COLOUR 130:CLS
 1420  COLOUR 1:PRINT"Please Wait":VDU5
 1430  PROCnum(1,1200,88)
 1440  FOR Y%=128 TO 968 STEP 56
 1450  FOR X%=64 TO 1024 STEP 64
 1460  MOVE X%,Y%:PRINT B$
 1470  PROCcountdown:NEXT X%,Y%
 1480  FOR X%=0 TO 17:FOR Y%=0 TO 17
 1490  M%(X%,Y%)=0
 1500  PROCcountdown:NEXT Y%,X%
 1510  REPEAT:X%=RND(16):Y%=RND(16)
 1520  IF M%(X%,Y%)=0M%(X%,Y%)=9:Z%=Z%+1
 1530  PROCcountdown:UNTIL Z%=40
 1540  FOR X%=1 TO 16:FOR Y%=1 TO 16
 1550  IF M%(X%,Y%)<>9 PROCcount
 1560  PROCcountdown:NEXT Y%,X%
 1570  VDU19,0,0;0;19,3,7;0;19,1,1;0;
 1580  PROCnum(10,1240,88):VDU4,12,5
 1590  REPEAT:A%=RND(16):B%=RND(16)
 1600  UNTIL M%(A%,B%)=0:PROCring(1)
 1610  PROCbox(1110,890,140,80,1)
 1620  VDU23,140,251,33,33,33,33,33,35,0
 1630  VDU23,141,162,54,42,34,34,34,162,0
 1640  VDU23,142,240,128,128,192,128,128,240,0
 1650  MOVE1104,868
 1660  PRINT CHR$140+CHR$141+CHR$142
 1670  PROCbox(1110,130,140,80,1)
 1680  VDU23,140,244,132,132,228,132,132,135,0
 1690  VDU23,141,49,74,74,122,74,74,73,0
 1700  VDU23,142,136,84,16,200,68,84,136,0
 1710  MOVE 1100,100
 1720  PRINT CHR$140+CHR$141+CHR$142
 1730  PROCbox(1134,452,100,350,1)
 1740  MOVE 1152,776:PRINT QUIT$
 1750  D%=0:G%=-1:H%=0:P%=0:Q%=1
 1760  PROCleft:*FX21,0
 1770  T%=0:V%=0:W%=0:ENDPROC
 1780  :
 1790  DEFPROCbox(X%,Y%,L%,H%,V%)
 1800  GCOL0,V%:PLOT4,X%,Y%
 1810  PLOT1,L%,0:PLOT1,0,H%
 1820  PLOT1,-L%,0:PLOT1,0,-H%
 1830  ENDPROC
 1840  :
 1850  DEFPROCcount:N%=0
 1860  FOR J%=Y%-1 TO Y%+1
 1870  FOR I%=X%-1 TO X%+1
 1880  IF M%(I%,J%)=9 N%=N%+1
 1890  NEXT I%,J%
 1900  M%(X%,Y%)=N%:ENDPROC
 1910  :
 1920  DEFFNx=A%*64-16
 1930  DEFFNy=B%*56+52
 1940  :
 1950  DEFPROCinit
 1960  VDU19,2,6;0;5,23;8202;0;0;0;
 1970  DIM M%(17,17),A$(10),P$(5):F%=0
 1980  VDU23,48,0,0,0,0,0,0,0,0
 1990  VDU23,49,0,2,6,2,2,2,2,7
 2000  VDU23,50,0,6,9,9,1,2,4,15
 2010  VDU23,51,0,6,9,1,6,1,9,6
 2020  VDU23,52,0,16,16,18,18,31,2,2
 2030  VDU23,53,0,14,8,14,1,1,9,6
 2040  VDU23,54,0,6,8,8,14,9,9,6
 2050  VDU23,55,0,15,1,1,2,2,4,4
 2060  VDU23,56,0,6,9,9,6,9,9,6
 2070  VDU23,129,0,0,15,15,0,0,0,0
 2080  VDU23,130,0,0,0,0,0,0,0,6
 2090  VDU23,131,0,0,1,1,1,1,1,1
 2100  VDU23,132,0,0,8,8,8,8,8,8
 2110  VDU23,133,8,8,8,8,8,8,0,0
 2120  VDU23,134,1,1,1,1,1,1,0,0
 2130  VDU23,135,0,0,0,0,15,15,0,0
 2140  VDU23,136,6,0,0,0,0,0,0,0
 2150  VDU23,137,15,15,15,15,15,15,15,15
 2160  VDU23,138,0,1,3,3,3,3,3,3
 2170  VDU23,139,3,3,3,63,127,255,0,0
 2180  VDU23,143,0,65,34,20,8,20,34,65
 2190  VDU23,249,4,21,14,14,21,4,0,0
 2200 VDU23,250,255,254,252,192,192,192,192,192,23,251,192,192,192,192,128,0,0,0
 2210  VDU23,252,6,9,9,9,6,0,0,0
 2220  VDU23,253,4,4,4,4,4,4,14,14
 2230  VDU23,254,0,2,3,2,0,0,0,0
 2240  VDU23,255,0,0,0,4,21,14,31,31
 2250  R$=CHR$252:D$=CHR$10:L$=CHR$8
 2260  F$=CHR$18+CHR$0+CHR$0+CHR$253+CHR$8+CHR$18+CHR$0+CHR$1+CHR$254
 2270  E$=CHR$18+CHR$0+CHR$0+CHR$255+CHR$8+CHR$18+CHR$0+CHR$1+CHR$249
 2280  M$=CHR$18+CHR$0+CHR$0+CHR$255
 2290  X$=CHR$18+CHR$0+CHR$1+CHR$143
 2300  B$=CHR$18+CHR$0+CHR$3+CHR$250+L$+CHR$10+CHR$251+CHR$18+CHR$0+CHR$0+L$+CHR$139+L$+CHR$11+CHR$138
 2310  QUIT$="Q"+L$+D$+D$+"U"+L$+D$+D$+"I"+L$+D$+D$+"T"+L$+D$+D$+B$
 2320  PLAY$="P"+L$+D$+D$+"L"+L$+D$+D$+"A"+L$+D$+D$+"Y"+L$+D$+D$+B$
 2330  RT$=L$+CHR$131:LT$=L$+CHR$132
 2340  LB$=L$+CHR$133:RB$=L$+CHR$134
 2350  TT$=L$+CHR$129:BB$=L$+CHR$135
 2360  MM$=L$+CHR$130+D$+L$+CHR$136
 2370  P$(1)="You are Dead"
 2380  P$(2)="Out of Time"
 2390  P$(3)="Out of Flags"
 2400  P$(4)=" Well Done"
 2410  P$(5)="  You Quit"
 2420  A$(0)=TT$+LT$+RT$+D$+LB$+RB$+BB$
 2430  A$(1)=RT$+D$+RB$
 2440  A$(2)=TT$+RT$+MM$+LB$+BB$
 2450  A$(3)=TT$+RT$+MM$+RB$+BB$
 2460  A$(4)=LT$+RT$+MM$+RB$
 2470  A$(5)=TT$+LT$+MM$+RB$+BB$
 2480  A$(6)=TT$+LT$+MM$+LB$+RB$+BB$
 2490  A$(7)=TT$+RT$+D$+RB$
 2500  A$(8)=TT$+RT$+LT$+MM$+RB$+BB$+LB$
 2510  A$(9)=TT$+LT$+RT$+MM$+RB$
 2520  A$(10)=L$+CHR$137+D$+L$+CHR$137+CHR$11:ENDPROC
 2530  :
 2540  DEFPROCclock
 2550  IF T%=TIME DIV100 ENDPROC
 2560  T%=TIME DIV100
 2570  IF W%<>T%DIV100 W%=T%DIV100:PROCnum(W%,1160,960)
 2580  IF V%<>(T%DIV10)MOD10 V%=(T%DIV10)MOD10:PROCnum(V%,1200,960)
 2590  PROCnum(T%MOD10,1240,960):ENDPROC
 2600  :
 2610  DEFPROCcountdown
 2620  IF W%=T%-(TIME)DIV100 ENDPROC
 2630  W%=T%-(TIME)DIV100
 2640  PROCnum(W%MOD10,1240,88)
 2650  IF V%=10 OR (W%DIV10)MOD10=1 ENDPROC
 2660  V%=10:PROCnum(V%,1200,88):ENDPROC
 2670  :
 2680  DEFPROCnum(N%,I%,J%)
 2690  MOVE I%,J%:GCOL0,2:PRINT A$(10);
 2700  IF N%=10 ENDPROC
 2710  IF Q%=0 GCOL0,1 ELSE GCOL0,0
 2720  PRINT A$(N%):ENDPROC
 2730  :
 2740  DEFPROCstart:DIM N$(8),C%(8):Q%=0
 2750  FILE=OPENIN("SCORES")
 2760  FOR X%=1 TO 8
 2770  INPUT# FILE,N$(X%),C%(X%)
 2780  NEXT:CLOSE# FILE
 2790  ENDPROC
 2800  :
 2810  DEFPROCinst:VDU23;8202;0;0;0;
 2820  VDU19,0,6;0;19,1,0;0;
 2830  PRINT'SPC(14)"INSTRUCTIONS"
 2840  PRINTSPC(14)"____________"
 2850  PRINT'" You are the Captain of a Mine-sweeping"'" vessel, and your mission is to quickly"'" clear an active mine field."
 2860  PRINT'" There are 40 mines hidden in the area,  and  you have 40 flags  to mark  these  mines in the field with."
 2870  PRINT'" Use these keys to move the red circle."
 2880  PRINT'SPC(8)"Z - LEFT"SPC(7)"X - RIGHT"'SPC(8)": - UP"SPC(9)"/ - DOWN"
 2890  PRINT'SPC(4)"press SPACE - to clear a square"
 2900  PRINT'SPC(4)"press M - to mark a mined square"
 2910  PRINT'"  The number on a cleared square shows"'"  the number of mines that are next to"'"  that  square, including  diagonally."
 2920  PRINT"  There are no mines  next to  cleared"'"  squares that are blank."'"  Attempt to clear a mined  square and"'"  you will be blown up."
 2930  PRINT'SPC(3)"=>  PRESS H TO SEE HIGH SCORES  <="
 2940  PRINTSPC(3)"==>     OR ANY KEY TO PLAY.    <==":K%=GET:ENDPROC