home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 202 / 202.d81 / frank1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  35 lines
  1. 0 poke56,14:clr:v=53248:dv=peek(186)
  2. 1 pokev+32,.:pokev+33,.:f$="ringed":k=1
  3. 2 sys57812"unpacker",dv:poke780,0:poke781,0:poke782,201:sys65493
  4. 3 sys57812f$,dv,1:poke780,0:poke781,0:poke782,64:sys65493
  5. 4 sys57812"digiplayer.mod",dv,1:poke780,0:poke781,0:poke782,15:sys65493
  6. 5 print"[147]": poke249,224:poke250,204:poke251,0:poke252,64:poke253,0
  7. 6 poke255,0:sys51456:sp=10:rw$=".raw"
  8. 7 gosub20:a$=a$+rw$:gosub9:sys3849:close8:sp=peek(5120):sys51459
  9. 8 poke3855,sp-1:sys3846:goto10
  10. 9 open8,dv,8,"0:"+a$+",p,r":return
  11. 10 z=z+1:fort=1to1000:next:ifz<3then8
  12. 11 sys51459:gosub12:goto15
  13. 12 goto30
  14. 13 print"[147]":return
  15. 14 rem ****** program designed by c. de boissiere ****** las vegas, nevada
  16. 15 load"frank2",dv
  17. 16 end
  18. 20 ifk=0thenk=1:a$="roger":return
  19. 21 ifk=1thenk=2:a$="force":return
  20. 22 ifk=2thenk=3:a$="clear":return
  21. 30 gosub50
  22. 31 pokev+32,0:pokev+33,0:poke214,10:print
  23. 32 printtab(5)v$
  24. 33 printtab(5)v1$
  25. 34 ifk=2thenfort=1to3000:next
  26. 36 ifk<3thenreturn
  27. 37 ifk=3thenstop
  28. 38 fort=1to3000:next:print"[147]":return
  29. 39 stop
  30. 50 ifk=1thenv$="  we're running out of time":v1$="":return
  31. 51 ifk=2thenv$="     use the force, luke":v1$="":return
  32. 53 v$="you're all clear, kid. now let's":v1$="blow this thing and go home."
  33. 54 return
  34. 10000 d=peek(186):n$="frank1":open15,d,15,"s0:"+n$:close15:saven$,d:end
  35.