home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 43
/
043.d81
/
hello
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
51 lines
0 poke896,96:ifpeek(760)=0thenpoke760,1:print"[147]":load"graphix.o",8,1
1 ifpeek(760)=1thenpoke760,9:goto 460
2 ifpeek(760)=2thenpoke760,3:load"tiles.o",8,1
3 ifpeek(760)=3then1234
4 ifpeek(760)=7then420
5 clr:poke52,127:poke56,127:poke 46,110:clr
6 ifpeek(760)=9thenpoke760,2:goto2
7 ifpeek(789)>207thenpoke40704,peek(788):poke40705,peek(789)
8 sys32780:poke53272,23:poke 53280,6:poke53281,6
9 print"[147]":poke767,0:poke765,2
10 print"[147] [197]xpedition [193]mazon"
14 ifpeek(789)>207thenpoke40704,peek(788):poke40705,peek(789)
20 print" [195]opyright 1984 by [208]enguin [211]oftware"
30 print" [196]esigned by [215]illard [208]hillips"
35 print" [201]llustrations by [199]reg [205]alone"
40 print" [208]layer's options"
50 print" ****************"
60 print" [214][146])iew title illustration"
70 print" [210][146])eview instructions"
80 print" [211][146])tart the game"
90 print" [197][146])xit the game"
91 a$="[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]"
92 b$="[255][255][255][255]"
93 print"[156]"a$a$;:fora=1to20:printb$;:next:printa$a$"";
100 geta$:ifa$=""then 100
110 ifa$="r"then200
120 ifa$="s"then300
130 ifa$="v"then400
140 ifa$="e"then500
150 goto100
200 load"ins",8
300 z=rnd(-ti)
350 load"flint",8
400 sys32789:poke53280,0:poke53281,0
410 poke760,7:load"p1",8,1
420 getay$:ifay$=""then420
425 poke760,5
430 sys32780
440 poke 53280,6:poke53281,6:goto100
460 sys32789:poke53280,0:poke53281,0
470 load"p1",8,1
500 print"[147] [208]ress a key to play,
501 [153][163]7)"or turn your computer off."
502 [161]a$:[139]a$[178]""[167]502
503 [137]10
1234 [139][194](759)[178]0[167][151]759,1:[147]"nm",8,1
1243 [139][194](759)[178]1[167][151]759,2:[147]"loon",8,1
1254 [139][194](759)[178]2[167][151]759,3:[147]"puns",8,1
1255 [139][194](759)[178]3[167][151]760,5:[147]"sp.o",8,1
1265 [137] 4