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