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