home *** CD-ROM | disk | FTP | other *** search
/ Profi Club / Profi_Club_5_1992_-_de.d64 / disclader64_128 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  1.4 KB  |  50 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=9: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. 1000 printchr$(147)chr$(14)
  9. 1001 print"[208]rofi [195]lub"nr:print:print"[201]nhaltsverzeichnis:":printchr$(5)
  10. 1002 printchr$(176);:fori=0to36:printchr$(192);:next:printchr$(174)
  11. 1003 forih=1tofl
  12. 1010 readin$(ih),d$(ih),id$(ih):zl(ih)=yp
  13. 1020 printchr$(221)tab(3)d$(ih);
  14. 1021 forj=0tolen(in$(ih))
  15. 1022 printtab(6+j)mid$(in$(ih),j+1,1);
  16. 1024 next
  17. 1025 printtab(38)chr$(221)
  18. 1030 next
  19. 1500 printchr$(173);:fori=0to36:printchr$(192);:next:printchr$(189)
  20. 1501 printchr$(14):printtab(3)"[159][215]aehlen [211]ie das [208]rogramm mit den "
  21. 1502 print"[195]ursor-[212]asten  >>ab<<  oder >>auf<< aus"
  22. 1503 print"und druecken [211]ie die  <[210][197][212][213][210][206]>-[212]aste  !";:x=1:y=6:y1=7
  23. 1510 printchr$(19)cr$left$(cd$,y)pf$
  24. 1511 geta$
  25. 1512 ifa$=chr$(145)andy>6theny=y-1:y1=y+1:gosub10000
  26. 1513 ifa$=chr$(17)andy<5+fltheny=y+1:y1=y-1:gosub10000
  27. 1514 ifa$=chr$(13)then1600
  28. 1598 goto1511
  29. 1600 i=y-5
  30. 1700 printchr$(147)chr$(144)chr$(142)
  31. 1710 ifpeek(772)=124then1730
  32. 1720 printchr$(19)"run"chr$(34)id$(i):poke842,19:poke843,13:poke208,2:end
  33. 1730 printchr$(19)"load"chr$(34)id$(i)chr$(34)",8,1"
  34. 1731 rn$="run"
  35. 1740 printleft$(cd$,5)
  36. 1750 printchr$(145)rn$
  37. 1760 poke631,19:fori=1to3:poke631+i,13:next:poke198,4:end
  38. 2000 data"     [201]nfo"," 64","in*"
  39. 2004 data"     [196]isk [205]onitor"," 64","disk m*"
  40. 2005 data"     [204]otterie"," 64","lot*"
  41. 2006 data"     [211]tradenk"," 64","stra*"
  42. 2008 data"     [203]alender"," 64","kale*"
  43. 2010 data"     [204]iedhelfer"," 64","liedh*"
  44. 2039 data"(40) [194]usiness [195]harts","128","busines*"
  45. 2040 data"(80) [196]isklabel [197][208][211]/[201][194][205]","128","disklab eps/ibm"
  46. 2045 data"(80) [196]isklabel [205][208][211]1200","128","disklab mps1200"
  47. 10000 printchr$(19)cr$left$(cd$,y1)pl$
  48. 10010 printchr$(19)cr$left$(cd$,y)pf$
  49. 10020 return
  50.