home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Disk 64 1997 1
/
Power_Disk_64_97-01_1997-05_Lagune_de_Side_B.d64
/
programmenu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
44 lines
0 print"[153][147]":poke53280,0:poke53281,0
1 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
2 print"[145][159] [208][207][215][197][210] [196][201][211][203] 64 - [208]rogrammenu 1/97 "
3 print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5 print"[159]1 = [212][207][208]-[208][210][199]:[215][215][214] '97"
6 print"2 = [194]urgenschlacht"
7 print"3 = [215]itze [201][201] (1)"
8 print"4 = [200]auptmenu"
9 print"5 = [210][197][211][197][212]"
10 input"[201]hre [215]ahl";a:print"[145][145][145]"
11 if a<1 or a>5 then0
12 if a = 1 then goto105
13 if a = 2 then goto300
14 if a = 3 then goto410
15 if a = 4 then goto500
16 if a = 5 then goto600
20 get m$:if m$=""then20
21 goto1
105 poke828,0
106 print chr$(147) chr$(17)
107 print "load"chr$(34);"loa*";chr$(34); ",8,1
108 [153] [199](17) [199](17) [199](17) [199](17) "run"
109 [151]631,13:[151]632,13:[151]198,2
110 [153] [199](19);:[128]
300 [151]828,0
301 [153] [199](147) [199](17)
302 [153] "load"[199](34);"burg*";[199](34); ",8
303 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
304 poke631,13:poke632,13:poke198,2
305 print chr$(19);:end
410 poke828,0
411 print chr$(147) chr$(17)
412 print "load"chr$(34);"witz*";chr$(34); ",8
413 [153] [199](17) [199](17) [199](17) [199](17) "run"
414 [151]631,13:[151]632,13:[151]198,2
415 [153] [199](19);:[128]
500 [151]828,0
501 [153] [199](147) [199](17)
502 [153] "load"[199](34);"haupt*";[199](34); ",8
503 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
504 poke631,13:poke632,13:poke198,2
505 print chr$(19);:end
600 sys64738