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 >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
76 lines
10 poke56,30:clr:poke251,0:poke254,0
20 mc=4096:sp=7680:d$="disk[160]einlegen"
30 sysmc:sysmc+24
960 open1,8,15:open2,0
1000 print"[147]"tab(13)"[195]opy + (v1.3)
1010 [153][163]10)"(NULL)ritten by asc.(NULL)homas
1020 print" ** [195]opyright by [205]arkt & [212]echnik ***
1030 [153]"<atn>endern der (NULL)peedflags
1040 print"<[202]>ustierung aendern
1050 [153]"<len>opiere str$isk
1052 print"<[212]>rackcheck
1054 [153]"<(NULL)>ectorshorting ";
1056 [139][194](254)[178]0[167][153]"on/off"
1058 [139][194](254)[179][177]0[167][153]"onwait/off"sl
1060 [146]198,1:[161]a$
1070 [139]a$[179][177]"a"[167]1220
1080 [158]mc[170]15:[158]mc[170]18
1210 [137]1000
1220 [139]a$[179][177]"j"[167]1340
1230 [153]"loadvalrst wird (NULL)rack 18 gesucht.
1240 print"[196]ann um x [200]albtracks verschoben.
1250 [153]"ascuer x<0 :
1260 print"[196]er [203]opf bewegt sich in [210]ichtung [212]rack 1
1265 a[178][194](251):[139]a[177]127[167]a[178]a[171]256
1270 [153]"x="a:[153]"on";:[132]2,x$:x[178][197](x$)
1280 [139][182](x)[177]127 [167]1230
1290 [139]x[179]0[167]x[178]256[170]x
1300 [151]251,x:[137]1000
1340 [139]a$[179][177]"c"[167]1540
1350 [153]"load1.(NULL)rack =1cmd";:[132]2,ft$:[153]
1355 ft[178][197](ft$):[139]ft[179]1[176]ft[177]40[167]1350
1360 [153]"letzter (NULL)rack=40cmdcmd";:[132]2,lt$:[153]
1370 lt[178][197](lt$)
1380 [139]lt[179]1[176]lt[177]40[176]ft[177]lt[167]1350
1385 [158]mc[170]15
1390 [141]2110
1410 [158]mc[170]3
1420 an[178]0:[137]1450
1430 an[178]0:[141]2110:[158]mc[170]27
1450 [151]252,ft:[151]253,32[170]32[172]an:[158]mc[170]6
1460 ft[178]ft[170]1:an[178]an[170]1
1470 [139](ft[179][178]lt)[175](an[179]5)[167]1450
1480 [151]53265,27:[141]2100
1490 j[178]0:[129]i[178]ft[171]an[164]ft[171]1
1500 [151]252,i:[151]253,32[170]32[172]j:[158]mc[170]9
1502 [139][194](255)[178]0[167]1510
1503 [151]53265,27:[141]2120
1504 [139]x$[178]"q"[167][158]mc[170]30:[137]1000
1506 [139]x$[178]"t"[167][158]mc[170]12:[137]1502
1508 [139]x$[179][177]"s"[167]1503
1510 j[178]j[170]1:[130]:[151]53265,27
1520 [139]ft[179][178]lt [167]1430
1525 [158]mc[170]30
1530 a$[178]" peekackupclosecomplete":[141]2130:[137]1000
1540 [139]a$[179][177]"s"[167]1990
1550 a[178]255[175][168][194](254):[151]254,a
1560 [139]a[178]0[167]1000
1570 [133] "loadsectorlength 328cmdcmdcmdcmdcmd";sl
1580 [151]4537,(sl[171]32768)[175]255
1590 [151]4541,sl[173]256
1600 [137]1000
1990 [139]a$[179][177]"t"[167]1060
2010 [133]"load(NULL)rack";t:s$[178][199]([194](sp[171]1[170]t))
2015 [152]1,"m-w"[199](0)"lreadlw"
2020 [152]1,"m-w"[199](106)[199](0)[199](1)[199](133)
2030 [129]j[178]0[164]20:[153]"onsector:"j:[152]1,"u4"[199](t)[199](j)s$
2040 [132]1,a,a$,b,c
2050 [139]a[167][153]"on"a;"cmd "a$;b;c:[153]
2060 [130]:[160]3
2070 [152]1,"m-w"[199](106)[199](0)[199](1)[199](5)
2080 [146]198,1:[161]x$:[137]1000
2100 a$[178]" (NULL)iel"[170]d$:[137]2130
2110 a$[178]"(NULL)uell"[170]d$:[137]2130
2120 a$[178]" (NULL)erify-valrror":[137]2130
2130 [153]""[163]11)""a$:[158]mc[170]21:x$[178][199]([194](2)):[142]