Commodore Disc 9/Commodore_Disc_09_19xx_-_de.d64/disk-tool.64

Commodore BASIC | 2022-10-26 | 10KB | 343 lines

7 open15,8,15
8 gosub5000
9 rem ***********************
10 fori=32768to32900:read da:pokei,da:nexti:sys32768
11 data076,006,128,076,073,128,120,173
12 data000,221,041,252,141,000,221,169
13 data055,141,024,208,169,204,141,136
14 data002,169,097,141,017,003,169,128
15 data141,018,003,160,000,132,003,169
16 data208,133,004,162,016,169,051,133
17 data001,177,003,072,169,048,133,001
18 data104,145,003,200,208,239,230,004
19 data202,208,234,169,055,133,001,088
20 data096,120,165,001,072,032,253,174
21 data032,235,183,169,048,133,001,160
22 data000,138,145,020,104,133,001,088
23 data096,165,020,072,165,021,072,032
24 data247,183,165,001,072,169,052,120
25 data133,001,160,000,177,020,168,104
26 data133,001,088,104,133,021,104,133
27 data020,076,162,179,255
28 rem *** 33 schriftzeichnen ***
29 data27,0,0,3,7,15,31,15,10,65,0,28,62,62,28,8,28,106
30 data28,0,128,224,240,248,252,248,168,66,0,28,62,62,28,8,28,106
31 data29,10,10,10,10,10,10,10,15,67,137,8,8,8,20,34,66,129
32 data30,168,168,168,168,168,168,168,248,69,137,8,8,8,20,34,66,129
33 data31,0,127,127,127,126,124,120,120,70,0,0,0,0,0,31,63,63
34 data33,0,255,253,255,63,31,15,15,71,0,0,0,0,0,152,140,124
35 data35,15,31,63,255,127,127,127,255,72,118,126,134,246,246,114,114,114
36 data36,120,124,126,127,126,126,126,127,74,127,127,127,127,127,119,112,112
37 data37,0,0,0,0,0,15,31,25,76,0,124,127,111,112,127,50,61
38 data38,0,0,0,0,0,224,240,48,77,0,254,253,252,28,254,14,254
39 data39,48,60,254,254,231,230,24,24,78,254,14,254,14,252,254,255,14
40 data40,25,121,127,127,103,103,24,24,80,63,48,63,49,126,127,127,6
41 data41,1,1,7,13,30,96,64,58,81,31,32,64,72,79,68,34,26
42 data42,240,8,8,8,176,16,16,8,82,240,8,4,36,228,36,72,144
43 data43,4,8,8,16,16,16,8,7,85,224,32,224,32,224,32,224,128
44 data44,8,8,8,16,16,32,32,192,86,7,4,7,4,7,4,7,1
45 data45,31,15,7,11,17,32,64,128,-1
46 readz
47 ifz<>-1thenfori=0to7:read da:sys32771,(55296+(z*8)+i),da:next i
49 ifz<>-1then46
50 close15:poke198,0:rem ** einleitung **
51 print"[147]":poke53280,0:poke53281,0:poke646,2
57 print"                                       [146]"
58 print"          [212][160][207][160][207][160][204][160][196][160][201][160][211][160][203][160][160]6 4         [146]"
59 print"                                       [146]"
60 poke646,1:  print"    created by s.martin  (c)  1987     [146]"
61 print"                                       [146]":poke646,1
62 print"    [\  _!  %&  )*  [193][194]  [198][199]  [204][205]  [209][210]"
63 print"    ]^  $#  ('  +,  [195][197]  [202][200]  [208][206]  [214][213]"
64 print"   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
65 print"   [165]sf[167][165]fm[167][165]qt[167][165]rf[167][165]cp[167][165]rd[167][165]dt[167][165]bm[167]
66 [153]"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( "
67 [139]jpo[178]0[167]4600
68 x[178]2:y[178]11:[151]211,2:[151]214,y:[158]58732:[153]"-":[151]56334,0
69 [139]x[179]2[167][151]211,x:[151]214,y:[158]58732:[153]" ":x[178]38
70 [139]x[177]38[167][151]211,x:[151]214,y:[158]58732:[153]" ":x[178]2
71 dir[178]15[171]([194](jpo)[175]15):feu[178][194](jpo)[175]16
72 [139]dir[178]8[167]x[178]x[170]1:[137]100
73 [139]dir[178]4[167]x[178]x[171]1:[137]110
74 [139]feu[178]0[167][137]120
75 [137]69
100 [151]211,x:[151]214,y:[158]58732:[153]"-"
101 [151]211,x[171]1:[151]214,y:[158]58732:[153]" ":[137]69
110 [151]211,x:[151]214,y:[158]58732:[153]"-"
111 [151]211,x[170]1:[151]214,y:[158]58732:[153]" ":[137]69
120 [139]x[178]4[176]x[178]5[167]199
121 [139]x[178]8[176]x[178]9[167]300
122 [139]x[178]12[176]x[178]13[167]400
123 [139]x[178]16[176]x[178]17[167]500
124 [139]x[178]19[176]x[178]20[167]800
125 [139]x[178]24[176]x[178]25[167]999
126 [139]x[178]28[176]x[178]29[167]1500
127 [139]x[178]31[176]x[178]32[167]4000
128 [137]68
199 [151]56334,1:[143] ** scratch file **
201 [151]211,x:[151]214,y:[158]58732:[153]" ":[141]700
202 [151]211,10:[151]214,13:[158]58732:[153]"     scratch    wait":[141]4530
203 [151]211,11:[151]214,16:[158]58732:[153]"file name :"
204 c[178]17:[141]9000
205 [151]211,11:[151]214,17:[158]58732:[133]qw$
206 lk$[178]qw$:[141]9010
212 [159]15,8,15
213 [151]646,0:[137] 2000
214 [161]a$:[139]a$[178]""[167]207
215 [137]68
300 [151]56334,1:   [143] ** disk format. **
301 [151]211,x:[151]214,y:[158]58732:[153]" ":[141]700
302 [151]211,10:[151]214,13:[158]58732:[153]"   format.disk    wait":[141]4530
303 [151]211,11:[151]214,16:[158]58732:[153]"disk name:"
304 c[178]17:[141]9000
305 [151]211,11:[151]214,17:[158]58732:[133]fa$
306 lk$[178]fa$:[141]9010
310 [151]211,11:[151]214,18:[158]58732:[153]"fwaitormat. / lwaitoeschen"
311 [161]i$:[139]i$[178]""[167]311
312 [139]i$[178]"f"[167]315
313 [139]i$[178]"l"[167]2100
314 [137] 312
315 [151]211,11:[151]214,19:[158]58732:[153]"disk id  :"
316 c[178]20:[141]9000
317 [151]211,11:[151]214,20:[158]58732:[133]id$
318 hg$[178]id$:[141]9015
340 [159]15,8,15:[151]646,0:[137]2050
341 [137]68
399 [143] *** exit ***
400 [141]700:[151]56334,1
401 [151]211,11:[151]214,16:[158]58732:[153]"g o o d b y e "
402 [129]i[178]1 [164]600:[130]i
403 [153]"loadload"[170][199](34)[170]"$"[170][199](34)[170]",8":[153]"open4,4:cmd4:list"
405 [137]10000
500 [151]56334,1:     [143] ** neubenennung file **
501 [151]211,x:[151]214,y:[158]58732:[153]" ":[141]700
502 [151]211,10:[151]214,13:[158]58732:[153]"   rename file  wait":[141]4530
503 [151]211,11:[151]214,16:[158]58732:[153]"old   name :"
504 c[178]17:[141]9000
505 [151]211,11:[151]214,17:[158]58732:[133]df$
506 [151]211,11:[151]214,18:[158]58732:[153]"new   name  :"
507 c[178]19:[141]9000
508 [151]211,11:[151]214,19:[158]58732:[133]tu$
509 lk$[178]df$:[141]9010
510 hg$[178]tu$:[141]9015
517 [159]15,8,15:[151]646,0:[137]2060
518 [161]a$:[139]a$[178]""[167]518
542 [137]68
700 [143] ** window **
701 [151]211,7 :[151]214,12:[158]58732:[153]"                         "
702 [151]211,7 :[151]214,13:[158]58732:[153]"                         "
703 [151]211,7 :[151]214,14:[158]58732:[153]"                         "
704 [129]y[178]15[164]21
705 [151]211,7 :[151]214,y:[158]58732:[153]"sgn                       +":[130]y
706 [151]211,7 :[151]214,22:[158]58732:[153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
707 [142]
800 [143] *** copy ***
802 [151]56334,1:   [141]700:[151]211,10:[151]214,13:[158]58732:[153]"       copywait"
803 [141]4530
804 [151]211,8:[151]214,15:[158]58732:[153]" kwaitopieren / zwaitusammen f."
805 [161]i$:[139]i$[178]""[167]805
806 [139]i$[178]"k"[167]810
807 [139]i$[178]"z"[167]840
808 [137]805
810 [151]211,8:[151]214,16:[158]58732:[153]" file   name    :"
811 c[178]17:k[178]11:[141]9001
812 [151]211,8:[151]214,17:[158]58732:[133]lk$
814 [151]211,8:[151]214,18:[158]58732:[153]" copy   name     : "
815 c[178]19:k[178]11:[141]9001
816 [151]211,8:[151]214,19:[158]58732:[133]hg$
818 [141]9010:[141]9015
820 [159]15,8,15:[151]646,0:[137]2070
840 [151]211,8:[151]214,16:[158]58732:[153]"number of file 2/4:"
841 c[178]17:k[178]10:[141]9001
842 [151]211,8:[151]214,17:[158]58732:[133]nb$:nb[178][197](nb$)
843 [129]j[178]1[164]nb
844 [151]211,8:[151]214,18:[158]58732:[153]"file   name   ";j
845 c[178]19:k[178]10:[141]9001
846 [151]211,8:[151]214,19:[158]58732:[133]ma$(j)
847 i[178]1
848 o$[178][202](ma$(j),i,1):[139]o$[178]"."[167] 850
849 i[178]i[170]1:[137]848
850 ma$(j)[178][200](ma$(j),i[171]1)
851 [130]j
852 [151]211,8:[151]214,18:[158]58732:[153]"general    name  "
853 c[178]19:k[178]10:[141]9001
854 [151]211,8:[151]214,19:[158]58732:[133]lk$
855 [141]9010
872 [159]15,8,15:[151]646,0:[137]2080
998 [143] *** neubenennung disk ***
999 [151]56334,1:[141]700:[151]211,10:[151]214,13:[158]58732:[153]"   rename disk wait"
1000 [141]4530:i[178]1:d[178]0:x$[178]" "
1002 a[178]1:p$[178][199](160)
1004 i$[178]"i0"
1006 [159]1,8,15,i$:[141]1040
1008 [141]1032:r$[178]h$:[161]#2,x$,x$,c$,b$
1010 [151]211,8:[151]214,16:[158]58732:[153]"name:";r$
1012 [151]211,8:[151]214,17:[158]58732:[153]"id:";c$;b$
1014 [151]211,8:[151]214,18:[158]58732:[153]"new   name  :"
1015 c[178]19:k[178]11:[141]9001
1016 [151]211,8:[151]214,19:[158]58732:[133]lk$
1017 [141]9010:[129]i[178]1[164]16[171][195](lk$):lk$[178]lk$[170][199](32):[130]i
1020 [129]x[178]l[170]1[164] a:lk$[178]lk$[170]p$:[130]
1022 [152]1,"b-p:";2;144:[152]2,lk$;
1024 [152]1,"u2:";2;0;18;0:[141]1040
1028 [152]1,i$:[141]1040:[160]2
1030 [141]1032:[160]2:[160]1
1031 [137]50
1032 [159]2,8,2,"#":[141]1040:h$[178]""
1034 [152]1,"u1:";2;0;18;0:[141]1040
1036 [152]1,"b-p:";2;144:[129]x[178]a[164]16
1038 [161]#2,t$:h$[178]h$[170]t$:[130]:[142]
1040 [132]1,e,m$,j,k:[139]e[178]0[167][142]
1042 [151]211,6:[151]214,23:[158]58732:[153]"error";e;m$;j;"-";k
1044 [160]2:[160]1:[128]
1500 [143] *** directory ***
1501 [151]56334,1
1502 [153]"load          d i r e c t o r y            wait"
1504 a$[178]""
1505 [159]1,8,15,"i0":[132]1,a$:[139]a$[179][177]"00"[167][160]1:[137]51
1506 i$[178]"":[159]2,8,2,"#":[152]1,"u1:2 0 18 0":[153]:[153]
1507 [152]1,"b-p:"2;144:[153] "       ";
1508 [129]x[178]144[164]161:[161]#2,b$:[153]b$;:[130]
1509 [129]x[178]1[164]5:[161]#2,b$:i$[178]i$[170]b$:[153]b$;:[130]:[153]:[153]:t%[178]18:s%[178]1
1510 [152]1,"u1:"2;0;t%;s%:[152]1,"b-p"2;0:[161]#2,t$,s$
1511 t$[178]t$[170][199](0):s$[178]s$[170][199](0):t%[178][198](t$):s%[178][198](s$)
1512 n$[178]"":[129]po[178]2[164]226[169]32:typ$[178]"":[152]1,"b-p:"2;po
1513 [161]#2,typ$:[139]typ$[178]""[167] [137] 1523
1514 [152]1,"b-p:"2;po[170]28:[161]#2,lb$,hb$
1515 lb$[178]lb$[170][199](0):hb$[178]hb$[170][199](0):l[178][198](lb$)[170][198](hb$)[172]256
1516 [139]l[179]100[167][153]" ";:[139]l[179]10[167][153]" ";
1517 [153]l [199](34);:bo[178]0:n$[178]"":[152]1,"b-p:"2;po[170]3:c$[178]" "
1518 [129]z[178]1[164]16:[161]#2,c$
1519 [153]c$;:[139]c$[179][177][199](34)[167][139]c$[179][177][199](160)[167]n$[178]n$[170]c$
1520 [130]z
1521 [139][195](n$)[178]0[167]po[178]226:t%[178]0:[153][199](34):[137]1523
1522 [153]
1523 [130]
1524 [139]t%[179][177]18[167][137]1526
1525 [137]1510
1526 [152]1,"m-r"[199](250)[199](2):[161]#1,a$:a$[178]a$[170][199](0)
1527 [152]1,"m-r"[199](252)[199](2):[161]#1,c$:c$[178]c$[170][199](0):x[178][198](a$)[170][198](c$)[172]256
1528 [153][163]4)x;"block free.":[160]1:[160]2
1529 [153]:[153]"  f1: directory        f3:     menu   wait":n$[178]"" :a$[178]""
1530 [141]4531:[137]1500
1997 :
1998 [143] *** scratch  ***
1999 :
2000 [153]"loadprint#15,"[170][199](34)[170]"s0:"[170]lk$[170][199](34):[153]"goto50"
2010 [137]10000
2050 :
2051 [143] ***  format.  ***
2052 :
2053 [153]"loadprint#15,"[170][199](34)[170]"n0:"[170]lk$[170]","[170]hg$[170][199](34):[153]"goto50"
2054 [137]10000
2060 :
2061 [143] ***  rename file  ***
2062 :
2063 [153]"loadprint#15,"[170][199](34)[170]"r0:"[170]hg$[170]"="[170]lk$[170][199](34):[153]"goto50"
2064 [137]10000
2070 [153]"loadprint#15,"[170][199](34)[170]"c0:"[170]hg$[170]"=0:"[170]lk$[170][199](34):[153]"goto50"
2071 [137]10000
2080 [153]"loadprint#15,"[170][199](34)[170]"c0:"[170]lk$[170]"=0:";
2081 [129]i[178]1[164]nb[170]1:[139]i[178]nb[167][153]ma$(nb)[170][199](34)
2082 [153]ma$(i)[170]",0:";:[130]i
2083 [153]"goto50"
2084 [137]10000
2100 [143] *** disk loeschen  ***
2101 [159]15,8,15:[151]646,0
2102 [153]"loadprint#15,"[170][199](34)[170]"n0:"[170]lk$[170][199](34):[153]"goto50"
3000 [137] 10000
4000 [141]700:[151]211,15:[151]214,13:[158]58732:[153]"b a m     wait"
4010 [151]56334,1: [159]15,8,15,"i0"
4020 y$[178]""
4030 x$[178]""
4040 [150] [165]s(z)[178]2[174](s[171][181](s[173]8)[172]8)[175](sb([181](s[173]8)))
4050 [159]2,8,2,"#"
4060 [152]15,"u1:2,0,18,0"
4070 [152]15,"b-p:2,144"
4080 [129]i[178]1[164]20:[161]#2,a$:n$[178]n$[170]a$:[130]
4085 [151]211,11:[151]214,16:[158]58732:[153]"disk  name  :"
4090 [151]211,11:[151]214,17:[158]58732:[153]n$
4091 [151]211,11:[151]214,18:[158]58732:[153]"f1  for menu "
4092 [151]211,11:[151]214,19:[158]58732:[153]"et f3 to continu"
4110 [161]i$:[139]i$[178]" "[167]4110
4112 [139]i$[178][199](133)[167][160]2:a$[178]"":n$[178]"":ts[178]0:[137]50
4113 [139]i$[178][199](134)[167]4120
4114 [137]4110
4120 [152]15,"b-p:2,1"
4130 [161]#2, a$, a$, a$
4150 [153]"load"[170]y$[170]"   12345678901234567890123456789012345"
4160 [153]"          t r a c k s           1-35  "
4170 [129]i[178]20[164]0[169][171]1:[153]i:[130]
4180 [129]t[178]1[164]35:x[178]t[170]4:[141]4340:[130]
4200 [153]y$[170]""[170]"         block free :";ts[171]17
4205 a$[178]"":n$[178]"":ts[178]0
4210 [161]i$:[139]i$[178]""[137]4210
4290 [160]2:[160]15:[137]51
4340 [161]#2,sc$,a$,b$,c$
4350 ts[178]ts[170][198](sc$[170][199](0))
4360 sb(0)[178][198](a$[170][199](0))
4370 sb(1)[178][198](b$[170][199](0))
4380 sb(2)[178][198](c$[170][199](0))
4390 [153]y$[170][200](x$,x[171]1)[170]"cmd";
4400 [139]t[177]24[175]s[178]18[167][153]" ";:[137]4500
4410 o1$[178]"spc(":o2$[178]".":[139]t[178]18[167]o1$[178]"*wait":o2$[178]".wait":[143]  video inv.= dirrectory
4420 [129]s[178]0[164]20
4430 [139]t[179]18[167]4480
4440 [139]t[177]30[175]s[178]17[167][153]" ";:[137]4500
4450 [139]t[177]24[175]s[178]18[167][153]" ";:[137]4500
4460 [139]t[177]17[175]s[178]19[167][153]" ";:[137]4500
4470 [139]t[177]17[175]s[178]20[167][153]" ";:[137]4500
4480 [139][165]s(s)[178]0[167][153]o1$;:[137]4500
4490 [153]o2$;
4500 [153]"oncmd";
4510 [130]
4520 [142]
4530 [151]211,9:[151]214,15:[158]58732:[153]"f1:continu / f3:menu"
4531 [161]i$:[139]i$[178]""[167]4531
4532 [139]i$[178][199](133)[167][142]
4533 [139]i$[178][199](134)[167][137]50
4534 [137]4531
4540 [142]
4599 [143] *** port des joysticks ***
4600 [151]211,1:[151]214,13:[158]58732:[153]"             "
4601 [151]211,1:[151]214,14:[158]58732:[153]"  joystick   "
4602 [151]211,1:[151]214,15:[158]58732:[153]"             "
4603 [129]y[178]16[164]19
4604 [151]211,1:[151]214,y:[158]58732:[153]"sgn           +":[130]y
4605 [151]211,1:[151]214,20:[158]58732:[153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
4606 [151]211,2:[151]214,17:[158]58732:[153]"port joys.:"
4607 [151]211,2 :[151]214,18:[158]58732:[133]jpo$
4608 i[178]1
4609 u$[178][202](jpo$,i,1):[139]u$[178]" "[167] 4611
4610 i[178]i[170]1:[137]4609
4611 ty[178][197]([200](jpo$,i[171]1)):[139]ty[178]1[167]jpo[178]56321:[137]68
4612 jpo[178]56320:[137]68
5000 [143] ** einleitung **
5002 [153]"load":[151]53280,0:[151]53281,0:[151]646,1
5004 [153]:[153]:[153]:[153]:[153]
5010 [153]"                  (NULL)right$                                      mid$(NULL)"
5011 [153]"  (NULL)str$str$right$(NULL)str$right$(NULL)str$right$(NULL)right$ orlenright$(NULL)right$(NULL)str$right$(NULL)right$(NULL)lenright$ (NULL)str$str$right$(NULL)right$"
5012 [153]"  mid$right$(NULL)(NULL)chr$(NULL)left$chr$(NULL)left$chr$left$ peek(NULL)left$chr$left$peek(NULL)(NULL)peekmid$(NULL)(NULL)(NULL) peek(NULL)len(NULL)chr$peek"
5013 [153]"   peekpeek chr$ left$chr$ left$chr$mid$right$peek left$chr$left$peekmid$right$peek(NULL)right$mid$right$ peekmid$lenright$chr$peek(NULL)right$"
5014 [153]"   mid$(NULL) mid$asc(NULL)mid$asc(NULL)mid$asc(NULL)/len(NULL)mid$(NULL)mid$right$peekmid$(NULL)mid$len(NULL) peek(NULL)right$peekchr$mid$(NULL)peek"
5015 [153]"  (NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)peek      peekmid$(NULL)peekmid$lenright$peek"
5016 [153]"  mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)      mid$ascasc(NULL)  mid$(NULL)":[153]:[153]:[153]:[153]:[153]
5025 [153]:[153]" created by s.martin  (c) january 1987"
5026 [153]"        for  cbm 64 & vic-1541"
5027 [129]i[178]1[164]1200:[130]
5028 [153]"load":[142]
9000 k[178]13
9001 [151]211,k:[151]214,c:[158]58732:[153]"................"
9002 [142]
9010 i[178]1
9011 o$[178][202](lk$,i,1):[139]o$[178]"."[167] 9013
9012 i[178]i[170]1:[137]9011
9013 lk$[178][200](lk$,i[171]1)
9014 [142]
9015 i[178]1
9016 z$[178][202](hg$,i,1):[139]z$[178]"."[167] 9018
9017 i[178]i[170]1:[137]9016
9018 hg$[178][200](hg$,i[171]1)
9019 [142]
10000 [151]631,19:[151]632,13:[151]633,13:[151]634,13:[151]198,4