home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Disk 64 1998 2
/
Power_Disk_64_98-02_1998-07_Lagune_de_Side_B.d64
/
p.r.g.s
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
63 lines
0 print"[153][147]":poke53280,12: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].[210].[199].s 2/98 "
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]: [193]mok 2 = [205]etal [211]tar"
6 print"3 = [208]owerfant-[196]iashow 4 = [215]itze [201][201] (4)"
7 print"5 = [195]lassic: [194]ergbert der [210]aecher6 = [206]ote on disk by [212]error"
8 print"7 = [205]ain [205]enu"
9 print"8 = [210][197][211][197][212]"
10 input"[215]elche [206]ummer";a:print"[145][145][145]"
11 if a<1 or a>8 then0
12 if a = 1 then goto106
13 if a = 2 then goto200
14 if a = 4 then goto410
15 if a = 7 then goto500
16 if a = 8 then goto600
18 if a = 3 then goto700
19 if a = 5 then goto300
20 if a = 6 then goto800
106 poke828,0
107 print chr$(147) chr$(17)
108 print "load"chr$(34);"amo*";chr$(34); ",8,1
109 [153] [199](17) [199](17) [199](17) [199](17) "run"
110 [151]631,13:[151]632,13:[151]198,2
111 [153] [199](19);:[128]
200 [151]828,0
201 [153] [199](147) [199](17)
202 [153] "load"[199](34);"met*";[199](34); ",8
203 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
204 poke631,13:poke632,13:poke198,2
205 print chr$(19);:end
300 poke828,0
301 print chr$(147) chr$(17)
302 print "load"chr$(34);"berg*";chr$(34); ",8
303 [153] [199](17) [199](17) [199](17) [199](17) "run"
304 [151]631,13:[151]632,13:[151]198,2
305 [153] [199](19);:[128]
410 [151]828,0
411 [153] [199](147) [199](17)
412 [153] "load"[199](34);"witz*";[199](34); ",8
413 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
414 poke631,13:poke632,13:poke198,2
415 print chr$(19);:end
500 poke828,0
501 print chr$(147) chr$(17)
502 print "load"chr$(34);"main*";chr$(34); ",8
503 [153] [199](17) [199](17) [199](17) [199](17) "run"
504 [151]631,13:[151]632,13:[151]198,2
505 [153] [199](19);:[128]
600 [158]64738
700 [153]"load (NULL)owerfant-str$iashow "
701 [153]"(NULL)ja, dafuer braucht ihr atnmica (NULL)aint. (NULL)obald ihr atn(NULL) reingeladen habt,"
702 [153]"geht ihr auf '(NULL)' fuer '(NULL)onstiges', legt (NULL)eite 1 der (NULL)str$64 2/98 ein und"
703 [153]"startet die str$iashow ..."
704 [161]a$:[139]a$[178]""[167]704
705 [137]0
800 [151]828,0
801 [153] [199](147) [199](17)
802 [153] "load"[199](34);"ter*";[199](34); ",8
803 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
804 poke631,13:poke632,13:poke198,2
805 print chr$(19);:end