home *** CD-ROM | disk | FTP | other *** search
/ Power Pack / Power_Pack_5_1992_Alfons_Mittelmeyer_de.d64 / disclader64_128 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  78 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=5: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 print
  11. 120 printtab(8)"[193]lfons [205]ittelmeyer"
  12. 121 print
  13. 131 printtab(3)"[159][198]uer [196]isketteninhaltverzeichnis "
  14. 132 printtab(5)"bitte [204]eertaste druecken !!"
  15. 140 geta$
  16. 141 ifa$=chr$(32)thenprintchr$(147):gosub1000:gosub1600
  17. 150 goto140
  18. 1000 printchr$(147)chr$(14)
  19. 1001 print"[208][207][215][197][210] [208][193][195][203]"nr:print:print"[201]nhaltsverzeichnis:":printchr$(5)
  20. 1002 printchr$(176);:fori=0to36:printchr$(192);:next:printchr$(174)
  21. 1003 forih=1tofl
  22. 1010 readin$(ih),d$(ih),id$(ih):zl(ih)=yp
  23. 1020 printchr$(221)tab(3)d$(ih);
  24. 1021 forj=0tolen(in$(ih))
  25. 1022 printtab(6+j)mid$(in$(ih),j+1,1);
  26. 1024 next
  27. 1025 printtab(38)chr$(221)
  28. 1030 next
  29. 1500 printchr$(173);:fori=0to36:printchr$(192);:next:printchr$(189)
  30. 1501 printchr$(14):printtab(3)"[159][215]aehlen [211]ie das [208]rogramm mit den "
  31. 1502 print"[195]ursor-[212]asten  >>ab<<  oder >>auf<< aus"
  32. 1503 print"und druecken [211]ie die  <[210][197][212][213][210][206]>-[212]aste  !";:x=1:y=6:y1=7
  33. 1510 printchr$(19)cr$left$(cd$,y)pf$
  34. 1511 geta$
  35. 1512 ifa$=chr$(145)andy>6theny=y-1:y1=y+1:gosub10000
  36. 1513 ifa$=chr$(17)andy<5+fltheny=y+1:y1=y-1:gosub10000
  37. 1514 ifa$=chr$(13)thengosub1600
  38. 1598 goto1511
  39. 1600 fori=1tofl
  40. 1605 ifi=y-5then1700
  41. 1606 next:return
  42. 1700 printchr$(147)chr$(144)chr$(142)
  43. 1710 ifpeek(772)=124then1730
  44. 1720 printchr$(19)"run"chr$(34)id$(i):poke842,19:poke843,13:poke208,2:end
  45. 1730 printchr$(19)"load"chr$(34)id$(i)chr$(34)",8,1"
  46. 1731 rn$="run"
  47. 1740 printleft$(cd$,5)
  48. 1750 printchr$(145)rn$
  49. 1760 poke631,19:fori=1to3:poke631+i,13:next:poke198,4:end
  50. 2000 data"  [201]nfo"," 64","in*"
  51. 2004 data"  [194][193][211][201][195]-[197]ditor"," 64","lad*"
  52. 2005 data"  [203]alender64"," 64","kal*"
  53. 2010 data"  [198]unktionen"," 64","fun*"
  54. 2039 data"  [205]ietnebenkosten"," 64","mie*"
  55. 2040 data"  [212]elefonkosten"," 64","tel*"
  56. 2041 data"  [196]atenverwaltung"," 64","daten*"
  57. 2045 data"  [196]ateigenerator"," 64","datei*"
  58. 2050 data"  [199]raphics-[201]nfo"," 64","graph*"
  59. 2060 data"  [205]ulti-[205]athe (40)","128","mult*"
  60. 10000 printchr$(19)cr$left$(cd$,y1)pl$
  61. 10010 printchr$(19)cr$left$(cd$,y)pf$
  62. 10020 return
  63. 50000 rem titel
  64. 50010 print
  65. 50020 print"       [154]       [146]             [146]
  66. 50030 [153]"               wait             wait
  67. 50040 print"         [146]      [146]       [146]      [146]
  68. 50050 [153]"         wait      wait       wait      wait
  69. 50060 print"         [146]      [146]       [146]      [146]
  70. 50070 [153]"               wait             wait
  71. 50080 print"              [146]             [146]
  72. 50090 [153]"         wait             wait
  73. 50100 print"         [146]             [146]
  74. 50110 [153]"         wait             wait
  75. 50120 print"         [146]             [146]
  76. 50130 [153]"         wait(NULL)(NULL)val(NULL)         waitatnlen(NULL)
  77. 50140 return
  78.