home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Disk 64 1999 1
/
Power_Disk_64_99-01_1999_Lagune_de.d64
/
loader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
382b
|
19 lines
1 rem wwv-wahl
2 print"[147]([193])nleitung oder ([211])piel ?"
3 geta$:ifa$=""then3
4 ifa$="a"then100
5 ifa$="s"then120
6 goto2
100 poke828,0
101 printchr$(147)chr$(17)
102 print"l[207]"chr$(34);"wwv-a*";chr$(34);",8
103 [153][199](17)[199](17)[199](17)[199](17)"run"
104 [151]631,13:[151]632,13:[151]198,2
105 [153][199](19);:[128]
120 [151]828,0
121 [153][199](147)[199](17)
122 [153]"l(NULL)"[199](34);"wwv up*";[199](34);",8
123 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
124 poke631,13:poke632,13:poke198,2
125 printchr$(19);:end