home *** CD-ROM | disk | FTP | other *** search
/ Golden Disk / Golden_Disk_90-08_1990_-_de_Side_A.d64 / s.u.m.dbas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  33 lines
  1. 1 l=l+1:ifl=1thenload"s.u.m.dchr",8,1
  2. 2 ifl=2thenload"s.u.m.dtxt",8,1
  3. 3 ifl=3thenload"s.u.m.dttl",8,1
  4. 4 ifl=4thenload"s.u.m.dcod",8,1
  5. 5 ifl=5thenload"s.u.m.dspr",8,1
  6. 6 ifl=6thenload"s.u.m.dsnd",8,1
  7. 7 ifl=8goto30
  8. 10 sys52224:sys4615:poke4143,235:poke4443,4:poke4138,7:poke198,0:sys4892
  9. 20 poke53269,0:sys52232:sys4799
  10. 21 print"[147]"spc(11)chr$(14)"[211][195][200][215][197][210][212] [213][206][196][160][205][193][199][201][197]":printspc(53)"[159][198]olge 1 und 2
  11. 22 [153][166]4)"sysright$dee und str$esign: (NULL). (NULL). (NULL)ien
  12. 23 printspc(5)"[158][212]exte und[157][157][157][157][157][157][157][157][157][208]rogrammierung: [212]he [196]ark [207]ne
  13. 24 [153][166]4)"syschr$rafik u. (NULL)ound: (NULL)he str$ark (NULL)ne
  14. 25 printspc(4)"[158][200]i[210]es [212]itelbild: [210]upert [214]ogl":printspc(54)"[158][205]usik: ";
  15. 26 print"[205]ichael [215]interberg":printspc(50)"[158][193]nleitung: [210]uediger [210]inscheidt
  16. 27 [153][166]7)"sysright$llustration: left$elmut (NULL)och, str$esign
  17. 28 printspc(12)"[158][214]ersion: 07.11.1989":print"(c)opyright 1989 by [199][197][210][205][193][206] [196][197][211][201][199][206] [199][210][207][213][208]
  18. 29 [147]"s.u.m.titl",8,1
  19. 30 [153][166]72)"def((NULL)aste)":[151]198,0:[146]198,1:[151]198,0
  20. 32 [151]4099,32:[158]52224:[158]4615:[151]4143,241:[151]4138,1:[151]198,0
  21. 40 [158]4892:[151]53269,0:[158]52232:[158]4799:[151]53281,0:[141]100:[151]53276,0
  22. 90 [151]56325,64:[153]"stopl(NULL)"[199](34)"s.u.m.strt"[199](34)",8
  23. 92 fori=1to12:print"r[213]:":next:poke631,19:poke632,13:poke633,13:poke198,3:new
  24. 100 print"[147]"spc(8)chr$(142)"[184][163][163]    [163][163][163][163][163][184]       [184][163][163]
  25. 102 [153][166]6)"frefretab(tab(tab(tab(tab(  tab(tab(tab(tab(tab(tab(frefre   frefretab(tab(tab(tab(tab(
  26. 103 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]
  27. 104 [153][166]5)"frefretab(tab(tab(frefrefrefre tab(tab(tab(tab(tab(tab(tab(frefre frefretab(tab(tab(frefrefrefre
  28. 105 printspc(5)"[184][184][163][163][163][163][163][184][184] [163][163][163][163][163][163][184][184][184] [184][184][163][163][163][163][163][184][184]
  29. 106 [153][166]5)"frefrefretab(tab(tab(tab(frefre tab(tab(tab(tab(tab(frefrefrefre frefrefretab(tab(tab(tab(frefre
  30. 107 printspc(6)"[184][184][184][163][163][184][184]  [163][163][163][184][184][184][184][184]   [184][184][184][163][163][184][184]
  31. 108 [153][166]8)"frefrefre    frefrefrefrefrefre       frefrefre
  32. 109 printspc(10)"german design group":return
  33.