home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 8 / Commodore_Disc_08_19xx_-_de.d64 / disclader.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  5.5 KB  |  102 lines
  1. 1 rem == commodore disc 64=====
  2. 2 nr=8:fl=8:yp=90:bs=1264:vc=53248
  3. 3 dimin$(fl),d$(fl),id$(fl),zl(fl)
  4. 4 dim hx(80)
  5. 5 poke646,7:printchr$(147)chr$(14)chr$(8):poke53280,0:poke53281,0
  6. 20 print"[194]itte einen [205]oment [199]eduld..."
  7. 21 fork=0to9:hx(48+k)=k:hx(65+k)=k+10
  8. 22 next
  9. 23 fori=12288to12798:readmc$:hi=asc(left$(mc$,1)):lo=asc(right$(mc$,1))
  10. 24 dz=16*hx(hi)+hx(lo):pokei,dz:next
  11. 46 printchr$(147):gosub200
  12. 50 fori=0to7:poke2040+i,192+i:next:poke53275,255
  13. 51 pokevc+21,127:pokevc+28,255:pokevc+37,1:pokevc+38,8:pokevc+23,127
  14. 52 pokevc+29,127:pokevc,50:pokevc+1,170
  15. 53 pokevc+2,98:pokevc+3,170
  16. 54 pokevc+4,135:pokevc+5,170
  17. 55 pokevc+6,180:pokevc+7,170
  18. 56 pokevc+8,224:pokevc+9,170
  19. 57 pokevc+10,172:pokevc+11,250
  20. 58 pokevc+12,212:pokevc+13,250
  21. 60 fori=200to0step-1
  22. 61 ifpeek(203)=60thenpoke53269,0:goto300
  23. 70 pokevc+1,i:pokevc+3,i:pokevc+5,i:pokevc+7,i:pokevc+9,i:pokevc+11,i+25
  24. 72 pokevc+13,i+25
  25. 75 next
  26. 99 ifpeek(197)=60thenpoke53269,0:goto300
  27. 100 goto60
  28. 200 poke211,5:poke214,10:sys58640:printtab(9)" [195] [193] - [214]erlags [199].m.b.[200] ":print
  29. 201 printtab(5)"[193][206][212][207][206][160][203][213][204][212]    [193]lfons [205]ittelmeyer"
  30. 202 printtab(5)"[210]osemarie [200]uber    [204]othar [205]iedel"
  31. 203 printtab(5)"[205]ichael [210]eppisch   [200]arald [194]eiler"
  32. 204 printtab(5)"[212]orsten [211]eibt   [200]ermann [215]ellesen"
  33. 205 printtab(5)"[194]ernd [215]elte          [208]eter [194]asch":print:print
  34. 207 printtab(2)chr$(18)"   [198]uer [196]isketteninhaltsverzeichnis  "chr$(146)
  35. 208 printtab(2)chr$(18)"      bitte [204][197][197][210][212][193][211][212][197] druecken !     "
  36. 220 return
  37. 300 poke646,1:printchr$(147)
  38. 302 print"[195][207][205][205][207][196][207][210][197] [196][201][211][195]"nr:print:print"[201]nhaltsverzeichnis:":print
  39. 304 printchr$(176);:fori=0to36:printchr$(192);:next:printchr$(174)
  40. 310 forih=1tofl
  41. 320 readin$(ih),d$(ih),id$(ih):zl(ih)=yp
  42. 321 printchr$(221)tab(3)d$(ih)tab(7);
  43. 325 fori=1tolen(in$(ih))
  44. 330 printmid$(in$(ih),i,1);:
  45. 335 next
  46. 336 printtab(38)chr$(221)
  47. 337 yp=yp+8
  48. 338 next
  49. 340 printchr$(173);:fori=0to36:printchr$(192);:next:printchr$(189)
  50. 342 print:print"[194]itte [208]rogramm fuer den [195] 64 mit den"
  51. 343 print"[195]ursor-[212]asten >>ab<< oder  >>auf<< aus-"
  52. 345 print"waehlen und die <[210][197][212][213][210][206]>-[212]aste druecken!"
  53. 350 x=23:y=90
  54. 355 pokevc+21,128:pokevc+14,x:pokevc+15,y
  55. 360 geta$
  56. 365 ifa$=chr$(145)andy>90theny=y-8:pokevc+15,y
  57. 366 ifa$=chr$(17)andy<122theny=y+8:pokevc+15,y
  58. 367 ifpeek(203)=1thengosub400
  59. 370 goto360
  60. 400 fori=1tofl
  61. 405 ifzl(i)=ythen500
  62. 410 next:return
  63. 500 pokevc+17,peek(vc+17)and239
  64. 501 pokevc+21,0:pokevc+32,14:pokevc+33,6:poke646,14
  65. 502 printchr$(142)chr$(147)
  66. 505 pokevc+29,0:pokevc+23,0:pokevc+28,0
  67. 510 printchr$(19)"load"chr$(34)id$(i)chr$(34)",8"
  68. 520 fori=1to5:printchr$(17):next
  69. 521 printchr$(145)"sys58784:run"
  70. 530 poke631,19:fori=1to8:poke632+i,13:next:poke198,9:end
  71. 10001 data01,5c,00,05,5c,00,05,fc,00,17,c0,00,17,00,00,57,00,00,5f,00,00,5c,00
  72. 10002 data00,5c,00,00,5c,00,5c,5c,01,f7,54,01,f7,d4,01,c7,d5,01,c7,f5,01,c7,35
  73. 10003 data5d,c7,3d,5f,5f,0f,ff,ff,03,fc,fc,00,fc,3c,00,00,00,00,00,00,00,00,00
  74. 10004 data00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,40
  75. 10005 data74,07,51,75,17,55,75,57,77,77,77,7f,77,f7,7c,77,c7,7c,77,c7,7c,77,c7
  76. 10006 datafc,ff,cf,f0,cf,0f,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00
  77. 10007 data00,07,00,00,07,00,00,07,00,00,07,00,00,07,00,00,07,01,70,57,07,dd,f7
  78. 10008 data07,1d,c7,07,1d,c7,07,1d,c7,07,1d,c7,07,1d,c7,0d,7f,57,03,ff,00,03,fc
  79. 10009 data00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  80. 10010 data00,00,00,00,00,00,00,00,00,00,00,00,01,71,17,07,dd,57,07,1d,7f,07,1d
  81. 10011 datafc,07,1d,f0,07,1d,f0,07,1d,f0,0d,7d,f0,03,ff,f0,03,f3,c0,00,00,00,00
  82. 10012 data00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  83. 10013 data00,00,00,00,00,00,00,01,70,00,07,dc,00,07,1c,00,05,7c,00,07,f0,00,07
  84. 10014 datac0,00,07,1c,00,0d,7c,00,03,fc,00,03,f0,00,00,00,00,00,00,00,00,55,f0
  85. 10015 data00,55,70,00,71,7c,00,70,5c,00,70,5c,5c,70,1c,5c,70,1c,5c,70,1c,fc,70
  86. 10016 data1c,00,70,1c,5c,70,1c,5c,70,1c,5c,70,5c,5c,70,5c,5c,71,7c,5c,55,70,5c
  87. 10017 data55,f0,5c,ff,f0,fc,ff,c0,fc,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  88. 10018 data00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,70,5f
  89. 10019 data07,dd,f7,07,3d,cf,05,5d,c0,0f,dd,c0,00,1d,c0,07,1d,c7,0d,7f,57,03,fc
  90. 10020 dataff,03,f0,fc,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  91. 10021 data00,00,00,00,00,00,00,00,00,00,00,00,00,00,10,00,00,14,00,55,55,00,55
  92. 10022 data55,00,ff,d7,00,ff,df,00,00,3c,00,00,30,00,00,00,00,00,00,00,00,00,00
  93. 10023 data00,00,00,00,00
  94. 20000 data"[212]ime [211]tep               "," 64","time*"
  95. 20001 data"[196]evisen                 "," 64","devi*"
  96. 20003 data"[206]uklear                 "," 64","nukl*"
  97. 20004 data"[194][193][211][201][195] v 2.plus          "," 64","basi*"
  98. 20005 data"[201]nternat                "," 64","inte*"
  99. 20006 data"[195]onquest                ","128","conq*"
  100. 20007 data"[203]niffel                 ","128","knif*"
  101. 20008 data"[196]as [215]eltall             ","128","welt*"
  102.