home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 23 / Commodore_Disc_23_19xx_-_de.d64 / disclader64_128 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  89 lines
  1. 0 rem
  2. 10 rem == disclader64/128==
  3. 11 fori=0to24:cd$=cd$+chr$(17):cu$=cu$+chr$(145):next:cr$=chr$(29)
  4. 21 nr=23:fl=10:pf$="->":pl$="  "
  5. 28 dimin$(fl),d$(fl),id$(fl),zl(fl)
  6. 30 printchr$(147)chr$(14)
  7. 31 poke53280,0:poke53281,0
  8. 50 gosub50000
  9. 110 printchr$(19)tab(7)"[158]"left$(cd$,15)" [195].[193].[214][197][210][204][193][199][211] - [199]mb[200] "
  10. 111 printtab(3)"[200]ans [197]gon [210]ossmann  [212]homas [195]hramp"
  11. 120 printtab(3)"[212]orsten [211]eibt  [193]lfons [205]ittelmeyer"
  12. 121 printtab(3)"[194]ernd [213]llmann          [193]ndy [199]reil"
  13. 122 printtab(3)"[193]ndree [200]erman           '[194]utcher'"
  14. 131 printtab(3)"[159][198]uer [196]isketteninhaltverzeichnis "
  15. 132 printtab(5)"bitte [204]eertaste druecken !!"
  16. 140 geta$
  17. 141 ifa$=chr$(32)thenprintchr$(147):gosub1000:gosub1600
  18. 150 goto140
  19. 1000 printchr$(147)chr$(14)
  20. 1001 print"[195][207][205][205][207][196][207][210][197] [196][201][211][195]"nr:print:print"[201]nhaltsverzeichnis:":printchr$(5)
  21. 1002 printchr$(176);:fori=0to36:printchr$(192);:next:printchr$(174)
  22. 1003 forih=1tofl
  23. 1010 readin$(ih),d$(ih),id$(ih):zl(ih)=yp
  24. 1020 printchr$(221)tab(3)d$(ih);
  25. 1021 forj=0tolen(in$(ih))
  26. 1022 printtab(7+j)mid$(in$(ih),j+1,1);
  27. 1024 next
  28. 1025 printtab(38)chr$(221)
  29. 1030 next
  30. 1500 printchr$(173);:fori=0to36:printchr$(192);:next:printchr$(189)
  31. 1501 printchr$(14):printtab(3)"[159][215]aehlen [211]ie das [208]rogramm mit den "
  32. 1502 print"[195]ursor-[212]asten  >>ab<<  oder >>auf<< aus"
  33. 1503 print"und druecken [211]ie die  <[210][197][212][213][210][206]>-[212]aste  !":x=1:y=6:y1=7
  34. 1504 m=peek(54533):ifm=(mand191)theny=11
  35. 1505 ifm=0theny=6
  36. 1510 printchr$(19)cr$left$(cd$,y)pf$
  37. 1511 geta$
  38. 1512 ifa$=chr$(145)andy>6theny=y-1:y1=y+1:gosub10000
  39. 1513 ifa$=chr$(17)andy<15theny=y+1:y1=y-1:gosub10000
  40. 1514 ifa$=chr$(13)thengosub1600
  41. 1598 goto1511
  42. 1600 fori=1tofl
  43. 1605 ifi=y-5then1700
  44. 1606 next:return
  45. 1700 printchr$(147)chr$(144)chr$(142)
  46. 1705 ify=6then1800
  47. 1710 ifd$(i)=" 64"then1730
  48. 1720 printchr$(19)"run"chr$(34)id$(i):poke842,19:poke843,13:poke208,2:end
  49. 1730 printchr$(19)"load"chr$(34)id$(i)chr$(34)",8,1"
  50. 1731 rn$="poke198,0:run"
  51. 1740 printleft$(cd$,5)
  52. 1750 printchr$(145)rn$
  53. 1760 poke631,19:fori=1to5:poke632+i,13:next:poke198,6:end
  54. 1800 printchr$(147)chr$(142)chr$(5)
  55. 1805 printchr$(19)"load"chr$(34)"graphbasic"chr$(34)",8"
  56. 1820 printchr$(19)left$(cd$,6)"run"
  57. 1840 printchr$(19)left$(cd$,8)
  58. 1850 print"load"chr$(34)"demo.graph"chr$(34)",8"
  59. 1860 printchr$(19)left$(cd$,15)"run"
  60. 1870 poke631,19:fori=1to6:poke631+i,13:next:poke198,7:end
  61. 2000 data" [199]raph [194][193][211][201][195]"," 64","graphb*"
  62. 2005 data" [196]ubbledate"," 64","dubb*"
  63. 2010 data" [193]ction [211]ystem"," 64","actio*"
  64. 2015 data" [208]ro [205]enue [195]ontrol"," 64","pmc*"
  65. 2016 data" [196]isk [205]erge"," 64","diskme*"
  66. 2017 data" [208]hildat (80)","128","phil*"
  67. 2020 data" [211]olitaire (40)","128","soli*"
  68. 2030 data" [199]eo [195]alculate (40)","128","geo c*"
  69. 2040 data" [215]eltzeit (40)","128","weltz*"
  70. 2050 data" [193]pfelgrafik (40)","128","apfel*"
  71. 10000 printchr$(19)cr$left$(cd$,y1)pl$
  72. 10010 printchr$(19)cr$left$(cd$,y)pf$
  73. 10020 return
  74. 50000 rem titel
  75. 50010 print"         [154]     [146]          [146]
  76. 50020 [153]"               wait          wait
  77. 50030 print"           [146]     [146]      [146]    [146]
  78. 50040 [153]"          wait      wait      wait     wait
  79. 50050 print"        [146]ommodore      [146]     [146]
  80. 50060 [153]"        wait              wait     wait
  81. 50070 print"        [146]              [146]     [146]
  82. 50080 [153]"        wait              wait     waitisc";nr
  83. 50090 [153]"        wait              wait     wait
  84. 50100 print"          [146]      [146]      [146]     [146]
  85. 50110 [153]"           wait     wait      wait    wait
  86. 50120 print"               [146]          [146]
  87. 50130 [153]"              wait          wait
  88. 50140 return
  89.