home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 12 / Commodore_Disc_12_19xx_-_de.d64 / disclader.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  68 lines
  1. 1 rem == commodore disc 64=====
  2. 2 nr=12:fl=6:bs=1264
  3. 3 dimin$(fl),d$(fl),id$(fl),zl(fl)
  4. 4 pf$="->":pl$="  "
  5. 5 poke646,7:printchr$(147)chr$(142):poke53280,0:poke53281,0
  6. 46 printchr$(147):gosub50000:gosub200
  7. 61 ifpeek(203)=60then300
  8. 200 poke211,5:poke214,10:sys58640:printtab(9)" c a - verlags g.m.b.h ":print
  9. 201 printtab(5)"anton[160]kult    alfons mittelmeyer"
  10. 202 printtab(5)"bernd ullmann      lothar miedel"
  11. 203 printtab(5)"michael reppisch   harald beiler"
  12. 204 printtab(5)"torsten seibt   hermann wellesen"
  13. 205 printtab(5)"bernd welte          peter basch":print:print
  14. 207 printtab(2)chr$(18)"   fuer disketteninhaltsverzeichnis  "chr$(146)
  15. 208 printtab(2)chr$(18)"      bitte leertaste druecken !     "
  16. 210 poke198,0:wait198,1:return
  17. 300 poke646,2:printchr$(147)chr$(14)
  18. 302 print"[195][207][205][205][207][196][207][210][197] [196][201][211][195]"nr:print:print"[201]nhaltsverzeichnis:":printchr$(5)
  19. 304 printchr$(176);:fori=0to36:printchr$(192);:next:printchr$(174)
  20. 310 forih=1tofl
  21. 320 readin$(ih),d$(ih),id$(ih):zl(ih)=yp
  22. 321 printchr$(221)tab(3)d$(ih)tab(7);
  23. 325 fori=1tolen(in$(ih))
  24. 330 printmid$(in$(ih),i,1);:
  25. 335 next
  26. 336 printtab(38)chr$(221)
  27. 338 next
  28. 340 printchr$(173);:fori=0to36:printchr$(192);:next:printchr$(189)
  29. 342 print:print"[150][194]itte [208]rogramm fuer den [195] 64 mit den"
  30. 343 print"[195]ursor-[212]asten >>ab<< oder  >>auf<< aus-"
  31. 345 print"waehlen und die <[210][197][212][213][210][206]>-[212]aste druecken!"
  32. 350 x=2:y=6:y1=6
  33. 355 poke211,x:poke214,y:sys58640:printpf$
  34. 360 geta$
  35. 365 ifa$=chr$(145)andy>6theny=y-1:y1=y+1:gosub380
  36. 366 ifa$=chr$(17)andy<9theny=y+1:y1=y-1:gosub380
  37. 367 ifpeek(203)=1thengosub400
  38. 370 goto360
  39. 380 poke211,x:poke214,y1:sys58640:printpl$
  40. 381 poke211,x:poke214,y:sys58640:printpf$
  41. 382 return
  42. 400 fori=1tofl
  43. 405 ifi=y-5then501
  44. 410 next:return
  45. 501 poke646,peek(53281)
  46. 502 printchr$(142)chr$(147)
  47. 510 printchr$(19)"load"chr$(34)id$(i)chr$(34)",8"
  48. 520 fori=1to5:printchr$(17):next
  49. 521 printchr$(145)"sys58784:run"
  50. 530 poke631,19:fori=1to8:poke632+i,13:next:poke198,9:end
  51. 20000 data" [209]uizmaster [214]3.8        "," 64","qm l*"
  52. 20002 data" [197]inkommensteuergesetz [208]ar.10 [197]"," 64","ekst*"
  53. 20003 data" [193]ktien-[211]piel           "," 64","akti*"
  54. 20004 data" [205]enue [195]alc             "," 64","  [205]e*"
  55. 20005 data" [211][195][210][201][208][212] [195][193][204][204]            ","128","scri*"
  56. 20006 data" [195]alc 128               ","128","calc*"
  57. 50000 rem cd 2 for 64
  58. 50010 poke53280,0:poke53281,0:poke241,8
  59. 50020 printchr$(147)
  60. 50030 print"[151]  [169]  [146][169][169]  [146][169][169][223][146][169][146] [169][223][146][169][146] [169]  [146][169][169] [223][146] [169]  [146][169][169] [223][146] [169]  [146][169]
  61. 50040 [153]"print# stepwaitstep  stepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaittan
  62. 50050 print"[155][169]  [146][169][169]  [146][169][169][146][169][169][146][169][169][146][169][169][146][169][169]  [146][169][169]  [146][169][169]  [146][169][169][146][169][223][223][146][169]  [146][169]
  63. 50060 [153]
  64. 50070 [153]"poke            step (NULL)wait stepwaitstepstep waitstepstep  waitstep
  65. 50080 print"[152]           [169][146][169][169][146][169][169][146][169]  [146] [169][146][169]
  66. 50090 [153]"list          step  waitstepstepwaitstepstep waitstepstep  waitstepopen
  67. 50100 return
  68.