1 POKE56,64:CLR
8 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
12 SYS57812"SWEEPER.BIN",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
13 SYS57812"SWEEPER.DVC",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
14 SYS57812"SWEEPER.SFX",DV,0:POKE780,0:POKE781,0:POKE782,195:SYS65493
15 SYS57812"PATCH 9000",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
18 GOSUB100
20 GETA$:IFA$<"1"ORA$>"3"THEN20
22 POKE820,VAL(A$)-1
30 PRINT"[147][144]LOAD"CHR$(34)"SWEEPER.BS"CHR$(34)","DV
40 PRINT"RUN"
50 POKE631,13:POKE632,13:POKE198,2:END
100 PRINT"[147]     [202]OHN [211]ERAFINO'S [129][211][212][193][210] [211][215][197][197][208][197][210]
104 [153]"CONT   (null)OUR GOAL IS TO 'DIG UP' SQUARES
105 PRINT"AND FIND ALL OF THE BOMBS. [201]F A SQUARE
106 [153]"HAS A BOMB, IT BLOWS UP. RIGHT$F NOT, THE
107 PRINT"NUMBER OF BOMBS IN THE EIGHT ADJACENT
108 [153]"SQUARES IS SHOWN.
109 PRINT"   [217]OU CAN SELECT THE NUMBER OF MINES
110 [153]"(IN INCREMENTS OF 5) BY CLICKING ON THE
111 PRINT"LEFT/RIGHT ARROWS AT TOP OF THE SCREEN.
112 [153]"LENLICK ON THE FACE TO BEGIN A GAME.
113 PRINT"[195]LICK ON [195]= TO QUIT THE PROGRAM.
114 [153]" (null)ITH (null)(null)(null)(null)VAL: (null)VALASC(null) BUTTON DIGS SQUARE
115 PRINT"             [210][201][199][200][212] BUTTON TOGGLES FLAG
116 [153]" (null)ITH (null)(null)RIGHT$LEN(null): ASCRIGHT$(null)VAL DIGS SQUARE
117 PRINT"             [195][205][196][210] KEY TOGGLES FLAG
118 [153]" (null)ITH (null)VAL(null)PEEKSTR$: (null)(null)ATNLENVAL DIGS SQUARE
119 PRINT"             [195][205][196][210] KEY TOGGLES FLAG
210 [153]"  SYS(null)VAL(null)VALLEN(null)     1CONT  (null)OUSE IN (null)ORT 1
220 PRINT"  [158][201][206][208][213][212]      2[154]  [202]OYSTICK IN [208]ORT 1
230 [153]"  SYSSTR$VAL(null)RIGHT$LENVAL     3CONT  (null)EYBOARD
240 PRINT"           [159][208]RESS 1[159], 2[159] OR 3
250 [142]
10000 DV[178][194](186):N$[178]"B.SWEEPER":[159]15,DV,15,"S0:"[170]N$:[160]15:[148]N$,DV:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]9:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"(null) (null) ATN (null)   (null) (null) VAL VAL (null) VAL (null)":Z$(1)[178]"BY MID$OHN (null)ERAFINO
60040 Z$(2)="(C) 1995 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)O SUBSCRIBE CALL 1-800-594-3370."
60090 [151]214,12:[153]
60100 [129]I[178]0[164]6:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]