home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / outpost (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  39 lines
  1. 10 ifa=0thenpoke53280,0:poke53281,0:print"[147][129]"spc(14)"[207][160][213][160][212][160][208][160][207][160][211][160][212]":gosub280
  2. 20 ifa=0thenpoke147,0:sys57812"color.chase.o",8,1:sys62631:goto60
  3. 30 ifa=0thena=1:load"outpost bot",8,1
  4. 40 ifa=1thena=2:load"topten",8,1
  5. 50 ifa=2thenload"outpost top",8
  6. 60 print"[155]"tab(8)"[207][213][212][208][207][211][212], once run, will not"
  7. 70 printtab(11)"return to [204][207][193][196][211][212][193][210]."
  8. 80 l$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  9. 85 q$="[145][221][159]                                  [146][221]"
  10. 90 print"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  11. 95 printq$
  12. 100 print"[145][221][159]  1. [208]lay [207][213][212][208][207][211][212] and lose        [146][221]"
  13. 110 print"[145][221][159]  2. [208]lay [207][213][212][208][207][211][212] and win         [146][221]"
  14. 120 print"[145][221][159]  3. [195]lear [200]igh [211]cores            [146][221]  "
  15. 130 print"[145][221][159]  4. [210]eturn to [204][207][193][196][211][212][193][210]           [146][221]  "
  16. 135 printq$
  17. 140 print"[145][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][151]"
  18. 150 fori=0to3step3:l$=mid$(l$,3):printspc(20-len(l$)/2)l$:next
  19. 160 poke251,2:poke252,6:poke253,36:poke254,8:sys49152
  20. 170 geta$:sys49155:ifa$<"1"ora$>"4"thensys49155:goto170
  21. 180 onval(a$)goto30,30,190,230
  22. 190 open15,8,15,"s0:topten":print#15,"c:topten=h.topten":close15
  23. 220 goto170
  24. 230 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  25. 240 if er<>63 then print"[147]":end
  26. 250 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  27. 260 print"[158]load"q$a$q$",8"
  28. 270 print"run":poke631,13:poke632,13:poke198,2:end
  29. 280 poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  30. 290 fori=1to3:print"                                      ":next
  31. 300 print"        [208]ublished on [204][207][193][196][211][212][193][210] #60     "
  32. 310 print"      [211]ubscriptions 1-800-831-2694    "
  33. 320 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  34. 330 print"                                      "
  35. 340 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  36. 350 au$="[207][160][213][160][212][160][208][160][207][160][211][160][212]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  37. 360 au$="[194]y [212]homas [195]zarneki  ([195]) 1989":poke214,18:print
  38. 370 printspc(20-len(au$)/2)"[152]"au$"":return
  39.