home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 134 / 134.d81 / b.sweeper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  48 lines
  1. 1 poke56,64:clr
  2. 8 dv=peek(186):ifdv<8thendv=8
  3. 10 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 12 sys57812"sweeper.bin",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 13 sys57812"sweeper.dvc",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  6. 14 sys57812"sweeper.sfx",dv,0:poke780,0:poke781,0:poke782,195:sys65493
  7. 15 sys57812"patch 9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  8. 18 gosub100
  9. 20 geta$:ifa$<"1"ora$>"3"then20
  10. 22 poke820,val(a$)-1
  11. 30 print"[147][144]load"chr$(34)"sweeper.bs"chr$(34)","dv
  12. 40 print"run"
  13. 50 poke631,13:poke632,13:poke198,2:end
  14. 100 print"[147]     [202]ohn [211]erafino's [129][211][212][193][210] [211][215][197][197][208][197][210]
  15. 104 [153]"cont   (NULL)our goal is to 'dig up' squares
  16. 105 print"and find all of the bombs. [201]f a square
  17. 106 [153]"has a bomb, it blows up. right$f not, the
  18. 107 print"number of bombs in the eight adjacent
  19. 108 [153]"squares is shown.
  20. 109 print"   [217]ou can select the number of mines
  21. 110 [153]"(in increments of 5) by clicking on the
  22. 111 print"left/right arrows at top of the screen.
  23. 112 [153]"lenlick on the face to begin a game.
  24. 113 print"[195]lick on [195]= to quit the program.
  25. 114 [153]" (NULL)ith (NULL)(NULL)(NULL)(NULL)val: (NULL)valasc(NULL) button digs square
  26. 115 print"             [210][201][199][200][212] button toggles flag
  27. 116 [153]" (NULL)ith (NULL)(NULL)right$len(NULL): ascright$(NULL)val digs square
  28. 117 print"             [195][205][196][210] key toggles flag
  29. 118 [153]" (NULL)ith (NULL)val(NULL)peekstr$: (NULL)(NULL)atnlenval digs square
  30. 119 print"             [195][205][196][210] key toggles flag
  31. 210 [153]"  sys(NULL)val(NULL)vallen(NULL)     1cont  (NULL)ouse in (NULL)ort 1
  32. 220 print"  [158][201][206][208][213][212]      2[154]  [202]oystick in [208]ort 1
  33. 230 [153]"  sysstr$val(NULL)right$lenval     3cont  (NULL)eyboard
  34. 240 print"           [159][208]ress 1[159], 2[159] or 3
  35. 250 [142]
  36. 10000 dv[178][194](186):n$[178]"b.sweeper":[159]15,dv,15,"s0:"[170]n$:[160]15:[148]n$,dv:[128]
  37. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  38. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]9:[153]z$:[130]
  39. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  40. 60030 z$(0)[178]"(NULL) (NULL) atn (NULL)   (NULL) (NULL) val val (NULL) val (NULL)":z$(1)[178]"by mid$ohn (NULL)erafino
  41. 60040 z$(2)="(c) 1995 by [211]oftdisk [208]ublishing"+chr$(13)
  42. 60050 z$(3)="[212]his program is the copyrighted work
  43. 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"
  44. 60070 z$(5)[178]"shareware or in the public domain."
  45. 60080 z$(6)[178]"(NULL)o subscribe call 1-800-594-3370."
  46. 60090 [151]214,12:[153]
  47. 60100 [129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  48.