home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 60
/
060.d81
/
outpost
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
39 lines
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
20 ifa=0thenpoke147,0:sys57812"color.chase.o",8,1:sys62631:goto60
30 ifa=0thena=1:load"outpost bot",8,1
40 ifa=1thena=2:load"topten",8,1
50 ifa=2thenload"outpost top",8
60 print"[155]"tab(8)"[207][213][212][208][207][211][212], once run, will not"
70 printtab(11)"return to [204][207][193][196][211][212][193][210]."
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]"
85 q$="[145][221][159] [146][221]"
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]"
95 printq$
100 print"[145][221][159] 1. [208]lay [207][213][212][208][207][211][212] and lose [146][221]"
110 print"[145][221][159] 2. [208]lay [207][213][212][208][207][211][212] and win [146][221]"
120 print"[145][221][159] 3. [195]lear [200]igh [211]cores [146][221] "
130 print"[145][221][159] 4. [210]eturn to [204][207][193][196][211][212][193][210] [146][221] "
135 printq$
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]"
150 fori=0to3step3:l$=mid$(l$,3):printspc(20-len(l$)/2)l$:next
160 poke251,2:poke252,6:poke253,36:poke254,8:sys49152
170 geta$:sys49155:ifa$<"1"ora$>"4"thensys49155:goto170
180 onval(a$)goto30,30,190,230
190 open15,8,15,"s0:topten":print#15,"c:topten=h.topten":close15
220 goto170
230 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
240 if er<>63 then print"[147]":end
250 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
260 print"[158]load"q$a$q$",8"
270 print"run":poke631,13:poke632,13:poke198,2:end
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]"
290 fori=1to3:print" ":next
300 print" [208]ublished on [204][207][193][196][211][212][193][210] #60 "
310 print" [211]ubscriptions 1-800-831-2694 "
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] "
330 print" "
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]"
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$
360 au$="[194]y [212]homas [195]zarneki ([195]) 1989":poke214,18:print
370 printspc(20-len(au$)/2)"[152]"au$"":return