home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 134
/
134.d81
/
b.sweeper
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
48 lines
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]