Power Disk 64 1999 1/Power_Disk_64_99-01_1999_Lagune_de.d64/p.r.g.s

Commodore BASIC | 2023-02-26 | 1KB | 41 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 1/99      "
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]: [202]asmyne [210]onda"
7 print"2 = [195]lassic: [215][215][214] [213]p-[212]o-[196]ate 9/99 3 = [195]lassic: [198]lyin' [200]igh"
8 print"4 = [205]ain [205]enu"
9 print"5 = [210][197][211][197][212]"
10 input"[215]elche [206]ummer ";a:print"[145][145][145]"
11 if a<1 or a>5 then0
12 if a = 1 then goto106
14 if a = 2 then goto200
15 if a = 4 then goto500
16 if a = 5 then goto600
19 if a = 3 then goto300
106 poke828,0
107 print chr$(147) chr$(17)
108 print "load"chr$(34);"jas*";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);"loa*";[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);"fly*";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]
500 [151]828,0
501 [153] [199](147) [199](17)
502 [153] "load"[199](34);"main*";[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