home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Golden Disk
/
Golden_Disk_90-08_1990_-_de_Side_A.d64
/
kudk.dbs
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
865b
|
23 lines
1 l=l+1:ifl=1thenload"kudk.dch",8,1
2 ifl=2thenload"kudk.txt",8,1
3 ifl=3thenload"kudk.dtl",8,1
4 ifl=4thenload"kudk.dcd",8,1
5 ifl=5thenload"kudk.dsp",8,1
6 ifl=6thenload"kudk.snd",8,1
7 ifl=8thenfori=3584to3902:pokei,.:next:goto30
10 sys52224:sys4615:poke4143,235:poke4443,4:poke4138,7:poke198,0:sys4892
20 poke53269,0:sys52232:load"kudk.ttl",8,1
30 sys4799:poke4099,32:sys52224:sys4615:poke4143,241:poke4138,1:poke198,0:sys4892
40 poke53269,0:sys52232:sys4799:poke53281,0:gosub100:poke53276,0:poke56325,64
90 print"[144]p[207]43,177:p[207]44,18:p[207]4784,0:l[207]"chr$(34)"kudk.bot"chr$(34)",8
92 [129]i[178]1[164]12:[153]"r(NULL):":[130]:[151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]
100 [153]"load"[166]8)"fretab(tab( tab(tab(tab(tab(tab(fre fretab(tab(
102 printspc(6)"[184][184][163][163][163][163][163] [163][163][163][163][163][163][184][184] [184][184][163][163][163][163][163]
103 [153][166]5)"frefretab(tab(tab(tab(tab(tab(tab( tab(tab(tab(tab(tab(tab(tab(frefre frefretab(tab(tab(tab(tab(tab(tab(
104 printspc(5)"[184][184][163][163][163][184][184][184][184] [163][163][163][163][163][163][163][184][184] [184][184][163][163][163][184][184][184][184]
105 [153][166]5)"frefretab(tab(tab(tab(tab(frefre tab(tab(tab(tab(tab(tab(frefrefre frefretab(tab(tab(tab(tab(frefre
106 printspc(5)"[184][184][184][163][163][163][163][184][184] [163][163][163][163][163][184][184][184][184] [184][184][184][163][163][163][163][184][184]
107 [153][166]6)"frefrefretab(tab(frefre tab(tab(tab(frefrefrefrefre frefrefretab(tab(frefre
108 printspc(8)"[184][184][184] [184][184][184][184][184][184] [184][184][184]
109 [153][166]10)"german design group":[142]