home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 16 / Commodore_Disc_16_19xx_-_de.d64 / disclader.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.5 KB  |  75 lines
  1. 0 rem
  2. 1 rem == commodore disc 64=====
  3. 2 nr=16:fl=12:bs=1264
  4. 3 dimin$(fl),d$(fl),id$(fl),zl(fl)
  5. 4 pf$="->":pl$="  "
  6. 5 poke646,7:printchr$(147)chr$(142):poke53280,0:poke53281,0
  7. 46 printchr$(147):gosub50000:gosub200
  8. 61 ifpeek(203)=60then300
  9. 200 poke211,5:poke214,10:sys58640:printtab(9)" c a - verlags g.m.b.h ":print
  10. 201 printtab(5)"anton[160]kult    alfons mittelmeyer"
  11. 202 printtab(5)"bernd ullmann      lothar miedel"
  12. 203 printtab(5)"andree herman      harald beiler"
  13. 204 printtab(5)"torsten seibt   hermann wellesen"
  14. 205 printtab(5)"bernd welte          peter basch":print:print
  15. 207 printtab(2)chr$(18)"   fuer disketteninhaltsverzeichnis  "chr$(146)
  16. 208 printtab(2)chr$(18)"      bitte leertaste druecken !     "
  17. 210 poke198,0:wait198,1:return
  18. 300 poke646,2:printchr$(147)chr$(14)
  19. 302 print"[195][207][205][205][207][196][207][210][197] [196][201][211][195]"nr:print:print"[201]nhaltsverzeichnis:":printchr$(5)
  20. 304 printchr$(176);:fori=0to36:printchr$(192);:next:printchr$(174)
  21. 310 forih=1tofl
  22. 320 readin$(ih),d$(ih),id$(ih):zl(ih)=yp
  23. 321 printchr$(221)tab(3)d$(ih)tab(7);
  24. 325 fori=1tolen(in$(ih))
  25. 330 printmid$(in$(ih),i,1);:
  26. 335 next
  27. 336 printtab(38)chr$(221)
  28. 338 next
  29. 340 printchr$(173);:fori=0to36:printchr$(192);:next:printchr$(189)
  30. 342 print:print"[150][194]itte [208]rogramm fuer den [195] 64 mit den"
  31. 343 print"[195]ursor-[212]asten >>ab<< oder  >>auf<< aus-"
  32. 345 print"waehlen und die <[210][197][212][213][210][206]>-[212]aste druecken!"
  33. 350 x=2:y=6:y1=6
  34. 355 poke211,x:poke214,y:sys58640:printpf$
  35. 360 geta$
  36. 365 ifa$=chr$(145)andy>6theny=y-1:y1=y+1:gosub380
  37. 366 ifa$=chr$(17)andy<10theny=y+1:y1=y-1:gosub380
  38. 367 ifpeek(203)=1thengosub400
  39. 370 goto360
  40. 380 poke211,x:poke214,y1:sys58640:printpl$
  41. 381 poke211,x:poke214,y:sys58640:printpf$
  42. 382 return
  43. 400 fori=1tofl
  44. 405 ifi=y-5then501
  45. 410 next:return
  46. 501 poke646,peek(53281)
  47. 502 printchr$(142)chr$(147)
  48. 510 printchr$(19)"load"chr$(34)id$(i)chr$(34)",8"
  49. 520 fori=1to5:printchr$(17):next
  50. 521 printchr$(145)"sys58784:run"
  51. 530 poke631,19:fori=1to8:poke632+i,13:next:poke198,9:end
  52. 20000 data" [193]utoboot-[205]aker"," 64","auto*"
  53. 20002 data" [211]chiffe versenken"," 64","schif*"
  54. 20003 data" [205]aster-[195]ompressor [214]3.1"," 64","maste*"
  55. 20004 data" [195]rash"," 64","crash*"
  56. 20005 data" [199]oldfever"," 64","gold*"
  57. 20006 data" [205]ensch aergere [196]ich nicht","128","mens*"
  58. 20007 data" [194]enzinkosten","128","benzin*"
  59. 20008 data" [210]echnung","128","rechn*"
  60. 20009 data" [194]oot-[211]tarter","128","boot*"
  61. 20010 data" [203]apital","128","kap*"
  62. 20011 data" [203]alender","128","kal*"
  63. 20012 data" [211]uch-[196]atei","128","such*"
  64. 50000 rem
  65. 50010 poke53280,0:poke53281,0:poke241,8
  66. 50020 printchr$(147)
  67. 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]
  68. 50040 [153]"print# stepwaitstep  stepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaitstepstepwaittan
  69. 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]
  70. 50060 [153]
  71. 50070 [153]"poke            step (NULL)wait stepwaitstepstep waitstepstep  waitstep
  72. 50080 print"[152]           [169][146][169][169][146][169][169][146][169]  [146] [169][146][169]
  73. 50090 [153]"list          step  waitstepstepwaitstepstep waitstepstep  waitstepopen
  74. 50100 return
  75.