home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 March / 64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64 / copy+ (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  76 lines
  1. 10 poke56,30:clr:poke251,0:poke254,0
  2. 20 mc=4096:sp=7680:d$="disk[160]einlegen"
  3. 30 sysmc:sysmc+24
  4. 960 open1,8,15:open2,0
  5. 1000 print"[147]"tab(13)"[195]opy +  (v1.3)
  6. 1010 [153][163]10)"(NULL)ritten by asc.(NULL)homas
  7. 1020 print"  ** [195]opyright  by [205]arkt & [212]echnik ***
  8. 1030 [153]"<atn>endern der (NULL)peedflags
  9. 1040 print"<[202]>ustierung aendern
  10. 1050 [153]"<len>opiere str$isk
  11. 1052 print"<[212]>rackcheck
  12. 1054 [153]"<(NULL)>ectorshorting ";
  13. 1056 [139][194](254)[178]0[167][153]"on/off"
  14. 1058 [139][194](254)[179][177]0[167][153]"onwait/off"sl
  15. 1060 [146]198,1:[161]a$
  16. 1070 [139]a$[179][177]"a"[167]1220
  17. 1080 [158]mc[170]15:[158]mc[170]18
  18. 1210 [137]1000
  19. 1220 [139]a$[179][177]"j"[167]1340
  20. 1230 [153]"loadvalrst wird (NULL)rack 18 gesucht.
  21. 1240 print"[196]ann um x [200]albtracks verschoben.
  22. 1250 [153]"ascuer x<0 :
  23. 1260 print"[196]er [203]opf bewegt sich in [210]ichtung [212]rack 1
  24. 1265 a[178][194](251):[139]a[177]127[167]a[178]a[171]256
  25. 1270 [153]"x="a:[153]"on";:[132]2,x$:x[178][197](x$)
  26. 1280 [139][182](x)[177]127 [167]1230
  27. 1290 [139]x[179]0[167]x[178]256[170]x
  28. 1300 [151]251,x:[137]1000
  29. 1340 [139]a$[179][177]"c"[167]1540
  30. 1350 [153]"load1.(NULL)rack      =1cmd";:[132]2,ft$:[153]
  31. 1355 ft[178][197](ft$):[139]ft[179]1[176]ft[177]40[167]1350
  32. 1360 [153]"letzter (NULL)rack=40cmdcmd";:[132]2,lt$:[153]
  33. 1370 lt[178][197](lt$)
  34. 1380 [139]lt[179]1[176]lt[177]40[176]ft[177]lt[167]1350
  35. 1385 [158]mc[170]15
  36. 1390 [141]2110
  37. 1410 [158]mc[170]3
  38. 1420 an[178]0:[137]1450
  39. 1430 an[178]0:[141]2110:[158]mc[170]27
  40. 1450 [151]252,ft:[151]253,32[170]32[172]an:[158]mc[170]6
  41. 1460 ft[178]ft[170]1:an[178]an[170]1
  42. 1470 [139](ft[179][178]lt)[175](an[179]5)[167]1450
  43. 1480 [151]53265,27:[141]2100
  44. 1490 j[178]0:[129]i[178]ft[171]an[164]ft[171]1
  45. 1500 [151]252,i:[151]253,32[170]32[172]j:[158]mc[170]9
  46. 1502 [139][194](255)[178]0[167]1510
  47. 1503 [151]53265,27:[141]2120
  48. 1504 [139]x$[178]"q"[167][158]mc[170]30:[137]1000
  49. 1506 [139]x$[178]"t"[167][158]mc[170]12:[137]1502
  50. 1508 [139]x$[179][177]"s"[167]1503
  51. 1510 j[178]j[170]1:[130]:[151]53265,27
  52. 1520 [139]ft[179][178]lt [167]1430
  53. 1525 [158]mc[170]30
  54. 1530 a$[178]"  peekackupclosecomplete":[141]2130:[137]1000
  55. 1540 [139]a$[179][177]"s"[167]1990
  56. 1550 a[178]255[175][168][194](254):[151]254,a
  57. 1560 [139]a[178]0[167]1000
  58. 1570 [133] "loadsectorlength  328cmdcmdcmdcmdcmd";sl
  59. 1580 [151]4537,(sl[171]32768)[175]255
  60. 1590 [151]4541,sl[173]256
  61. 1600 [137]1000
  62. 1990 [139]a$[179][177]"t"[167]1060
  63. 2010 [133]"load(NULL)rack";t:s$[178][199]([194](sp[171]1[170]t))
  64. 2015 [152]1,"m-w"[199](0)"lreadlw"
  65. 2020 [152]1,"m-w"[199](106)[199](0)[199](1)[199](133)
  66. 2030 [129]j[178]0[164]20:[153]"onsector:"j:[152]1,"u4"[199](t)[199](j)s$
  67. 2040 [132]1,a,a$,b,c
  68. 2050 [139]a[167][153]"on"a;"cmd "a$;b;c:[153]
  69. 2060 [130]:[160]3
  70. 2070 [152]1,"m-w"[199](106)[199](0)[199](1)[199](5)
  71. 2080 [146]198,1:[161]x$:[137]1000
  72. 2100 a$[178]" (NULL)iel"[170]d$:[137]2130
  73. 2110 a$[178]"(NULL)uell"[170]d$:[137]2130
  74. 2120 a$[178]"   (NULL)erify-valrror":[137]2130
  75. 2130 [153]""[163]11)""a$:[158]mc[170]21:x$[178][199]([194](2)):[142]
  76.