home *** CD-ROM | disk | FTP | other *** search
/ Golden Disk / Golden_Disk_89-05_1989_-_de_Side_A.d64 / ddd.intr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  37 lines
  1. 0 i=i+1:ifi=1thenload"ddd.titl",8,1
  2. 1 ifi=2thenload"ddd.musc",8,1
  3. 2 v=53248:pokev+33,0:pokev+32,0:d$="
  4. 5 u$[178]"            p r a e s e n t i e r t":[129]i[178]1[164]12
  5. 6 [153][200](d$,21)"print"[166]7)[202](u$,i,11)[202](u$,35[171]i):[129]j[178]0[164]99:[130]j,i
  6. 20 [129]i[178]49154[164]49317:[135]j:[151]i,j:[130]
  7. 110 [158]49154:[151]198,0:[158]37700,0
  8. 200 [161]u$:[139]u$[178]""[137]200
  9. 500 [151]53265,27:[151]53272,21
  10. 510 [153]"load":[151]v[170]21,0:[151]v[170]33,0:[151]v[170]32,0:[151]646,14:[151]53270,200
  11. 515 [158]37925:[158]37700,1
  12. 520 [153]"loadpoke(NULL)=tanright$*  (NULL)=tanright$    right$ right$  (NULL)=tanright$*         *
  13. 521 print"[152][202][221] [200][213][213][201][202][221] [200][201][201][178][201][171][201][221][213][201][202][221] [200][213][176][178][201][213][201][178][201][213][201][213][213][201][178][201]
  14. 522 [153]"list (NULL) left$(NULL)-(NULL) (NULL) left$(NULL)left$(NULL)left$(NULL)right$(NULL)-(NULL) (NULL) left$(NULL)(NULL)(NULL)left$-(NULL)(NULL)left$mid$right$(NULL)chr$left$(NULL)left$
  15. 523 print"[213][177][192][203][203][202][203][213][177][192][203][202][203][203][203][203][203][202][202][203][213][177][192][203][203][203][203][203][202][203][203][203][202][203][203][202][203][203][203]
  16. 524 [153]"        ein listfanprint#taspokey-rprint#olllistenspiel
  17. 530 printspc(8)"[184][184][163][163]    [163][163][163][163][184]       [184][184][163][163]
  18. 531 [153][166]6)"frefretab(tab(tab(tab(tab(tab(  tab(tab(tab(tab(tab(frefre   frefretab(tab(tab(tab(tab(tab(
  19. 532 printspc(5)"[184][184][163][163][163][163][163][163][163][163] [163][163][163][163][163][163][184][184] [184][184][163][163][163][163][163][163][163][163]
  20. 533 [153][166]5)"frefretab(tab(tab(frefrefrefrefre tab(tab(tab(tab(tab(tab(frefre frefretab(tab(tab(frefrefrefrefre
  21. 534 printspc(5)"[184][184][184][163][163][163][163][163][184][184] [163][163][163][163][163][184][184][184] [184][184][184][163][163][163][163][163][184][184]
  22. 535 [153][166]6)"frefrefrefretab(tab(frefre  tab(tab(tab(frefrefrefre   frefrefrefretab(tab(frefre
  23. 536 printspc(8)"[184][184][184][184]    [184][184][184][184][184]       [184][184][184][184]
  24. 550 [153]"stopl(NULL)"[170][199](34)"ddd.load";:[129]i[178]0[164]2e3:[130]
  25. 570 [153][199](34)",8:":[153]"r(NULL):
  26. 590 sys37925:poke631,19:poke632,13:poke633,13:poke198,3:new
  27. 800 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  28. 810 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  29. 820 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  30. 830 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  31. 840 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  32. 850 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  33. 860 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  34. 870 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  35. 880 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253,208
  36. 890 data227,230,254,76,122,192,134,252,132,251,96,134,254,132,253,96
  37.