home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 141 / 141side2.d64 / starpoker.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  413b  |  18 lines
  1. 100 rem star poker loader
  2. 110 f=f+1:iff=1thenf=2:gosub300
  3. 120 iff=2thenloadf$+"bin",dv,1
  4. 135 iff=3thenloadf$+"sid",dv,1
  5. 140 iff=4thenloadf$+"bmp",dv,1
  6. 145 iff=5thenloadf$+"mnu",dv,1
  7. 150 iff=6thenloadf$+"spr",dv,1
  8. 160 iff=7thenloadf$+"dvc",dv,1
  9. 200 sys16384:dv=peek(186):ifdv<8thendv=8
  10. 210 poke53281,0:print"[147][144]load"chr$(34)"hello connect"chr$(34)","dv
  11. 220 print"run"
  12. 230 poke631,13:poke632,13:poke198,2:end
  13. 300 poke53280,0:poke53281,0
  14. 310 print""
  15. 350 f$="starpoker."
  16. 360 dv=peek(186):ifdv<8thendv=8
  17. 370 return
  18.