home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 193 / 193.d81 / b.outpost (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  46 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 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
  3. 20 ifa=0thenpoke147,0:sys57812"color.chase.o",dv,1:sys62631:goto60
  4. 30 ifa=0thena=1:load"outpost bot",dv,1
  5. 40 ifa=1thena=2:load"topten",dv,1
  6. 50 ifa=2thenload"outpost top",dv
  7. 60 print"[155]"tab(8)"[207][213][212][208][207][211][212], once run, will not"
  8. 70 printtab(11)"return to [204][207][193][196][211][212][193][210]."
  9. 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]"
  10. 85 q$="[145][221][159]                                  [146][221]"
  11. 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]"
  12. 95 printq$
  13. 100 print"[145][221][159]  1. [208]lay [207][213][212][208][207][211][212] and lose        [146][221]"
  14. 110 print"[145][221][159]  2. [208]lay [207][213][212][208][207][211][212] and win         [146][221]"
  15. 120 print"[145][221][159]  3. [195]lear [200]igh [211]cores            [146][221]  "
  16. 130 print"[145][221][159]  4. [210]eturn to [204][207][193][196][211][212][193][210]           [146][221]  "
  17. 135 printq$
  18. 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]"
  19. 150 fori=0to3step3:l$=mid$(l$,3):printspc(20-len(l$)/2)l$:next
  20. 160 poke251,2:poke252,6:poke253,36:poke254,8:sys49152
  21. 170 geta$:sys49155:ifa$<"1"ora$>"4"thensys49155:goto170
  22. 180 onval(a$)goto30,30,190,230
  23. 190 open15,8,15,"s0:topten":print#15,"c:topten=h.topten":close15
  24. 220 goto170
  25. 230 goto40000
  26. 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]"
  27. 290 fori=1to3:print"                                      ":next
  28. 300 print"    [198]irst [208]ublished on [204][207][193][196][211][212][193][210] #60   "
  29. 310 print"      [211]ubscriptions 1-318-868-8727    "
  30. 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]  "
  31. 330 print"      (c)1999 [202] & [198] [208]ublishing, [201]nc.  "
  32. 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]"
  33. 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$
  34. 360 au$="[194]y [212]homas [195]zarneki  ([195]) 1989":poke214,18:print
  35. 370 printspc(20-len(au$)/2)"[152]"au$"":return
  36. 10000 dv=peek(186):ifdv<8thenstop
  37. 10001 open15,dv,15,"s0:b.outpost":close15:save"0:b.outpost",dv:end
  38. 40000 poke53280,0:poke53281,0:poke53265,27:dv=peek(186):q$=chr$(34):print"[144][147]";
  39. 40010 a$="eloadstar":r$=chr$(13)+"r[213]"+chr$(13):q$=chr$(34)
  40. 40020 close2:open2,dv,2,a$:get#2,b$:close2:ifst=0then40050
  41. 40030 open15,dv,15,"i0":input#15,en:close15
  42. 40035 poke53280,14:poke53281,6:print"[147][154]"
  43. 40040 poke44,8:poke8*256,0:poke55,0:poke56,160:clr:new
  44. 40050 print"load"q$a$q$","dv""
  45. 40055 forx=1to4:poke630+x,asc(mid$(r$,x)):next:poke198,4:goto40040
  46.