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