home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 94
/
Tiger_Disk_094_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
directoryprinter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
89 lines
20 poke53280,0:poke53281,11:print"[147][159]"chr$(14):dimb$(64)
30 close4:open4,4,0:close4
40 if st and-64 then print,"[196]rucker einschalten[145]":goto30
60 s=704:dj=99
70 c$=chr$(13):e$=chr$(27):o$=chr$(0):gosub930:pokes+3,dj:poke198,0
100 print"[147]","[196]irectory [208]rinter
110 [153]" (NULL)aechste str$iskette - 'asc7'wait oder (NULL)val(NULL)(NULL)(NULL)(NULL)
120 ifw=64thenprint" [196]ruck wiederholen - '[198]5'"
130 print,"validieren - '[198]3'"
140 print," [197]nde - '[198]1'"
150 wait198,1:geta$:as=asc(a$):poke198,0:ifas=135andw<>64thenas=0
160 ifas=136andw=64thengosub300:goto100
170 ifas=13thenas=136
180 onas+132*(as>132)gosub3000,1020,600,200:goto100
200 dj=peek(s+3):dj$=mid$(str$(dj),2)
210 gosub800:ifd3$<>dj$thend$="ttmm"+dj$
220 print"[153][212]agesdatum :"d$c$"[145]"spc(11);
230 inputd$:iflen(d$)<>6then220
240 ifd$=da$then300
250 pokes,val(mid$(d$,1,2)):pokes+1,val(mid$(d$,3,2))
260 pokes+2,val(mid$(d$,5,2)):gosub800
290 rem=== block's free / dir-name
300 w=0:n=0:cc$="":print"[147][153]";:gosub1000:ifde=21thengosub2100:goto510
310 open2,8,2,"#":get#2,a$:p=asc(a$+o$)+3
320 print#15,"m-r"chr$(250)chr$(2):get#15,bl$
330 print#15,"m-r"chr$(252)chr$(2):get#15,bh$:bf=asc(bl$+o$)+256*asc(bh$+o$)
340 sp=18:se=0:gosub870:bf$=right$(" "+str$(bf),4)
350 print#15,"m-r"chr$(144)chr$(7)chr$(23)
360 a$="":cc$="":input#15,a$:cc$=left$(a$,16):id$=mid$(a$,19,2)
370 sp=18:se=1:print"[147]"," "dd$c$," "cc$"[146] "id$
380 :
390 rem=== dir lesen
400 gosub870:ifed=10then500
410 fordi=0to7:pz=di*32:print#15,"b-p 2";pz+2:gosub2000:rem err
420 : ifdethened=10:di=10
430 : get#2,a$:a=asc(a$+o$):b=a-(a and128):ifa=0then490:rem geloescht
435 : ifb>64thenb=b-60
440 : print#15,"m-r"chr$(pz+5)chr$(p)chr$(16):input#15,f$:iflen(f$)=16then470
450 : print#15,"m-r"chr$(pz+5)chr$(p)chr$(16)
460 : f$="":fori=1to16:get#15,a$:f$=f$+a$:next
470 : print#15,"b-p 2";pz+30:get#2,bl$:get#2,bh$:bl=asc(bh$+o$)*256+asc(bl$+o$)
480 : n=n+1:f$(n)=right$(" "+str$(bl),4)+" "+f$+" "+b$(b):print" "f$(n)
490 next:ifed=0then400
500 printc$" "bf$" bloecke frei.
510 [160]15:[160]2
590 [143]=== print
600 [139]cc$[178]""[167][142]
610 f[178]4:[159]f,4,7:[152]f:[157]f:[153]e$"(NULL)";
620 [153]e$"(NULL)"e$[199](15)e$"s"o$e$"a"[199](5)e$" name : "cc$" right$str$: "id$" ";
630 [152]f,bf$" peekloecke frei. (NULL)tand vom: "dd$" "e$"-0":[152]f
640 [139]w[167]670
650 b[178]n[173]3:b%[178]b:[139]n[178]0[167]710
660 [139]b[179][177]b%[167][129]x[178]1[164]3:f$(n[170]x)[178]"":[130]:n[178]n[170]3
670 b%[178]n[173]3:[129]x[178]1[164]b%
680 : [152]f,f$(x)" "f$(x[170]b%)" "f$(x[170]2[172]b%)
690 [130]
710 w[178]64:[152]f:[160]f:[153]"loadopen"[199](14):[142]
790 [143]=== subroutine
800 d1$[178][201]("0"[170][202]([196]([194](s)),2),2)
810 d2$[178][201]("0"[170][202]([196]([194](s[170]1)),2),2)
820 d3$[178][201]("0"[170][202]([196]([194](s[170]2)),2),2):dd$[178]d1$[170]"."[170]d2$[170]"."[170]d3$
830 d$[178]d1$[170]d2$[170]d3$:da$[178]d$:[142]
850 [143]" block read
860 ed=10:goto900
870 print#15,"u1 2 0";sp;se:gosub2000:ifdethenprint"zeile 870":goto860
880 ed=0:get#2,sp$:get#2,se$:sp=asc(sp$+o$):se=asc(se$+o$)
890 ifsp=0orsp>35orse>20thened=1
900 return
920 rem" initialisieren
930 j[178]0:i[178]0:di[178]0:pz[178]0:se[178]0:a[178]0:b[178]0:bl[178]0:bf[178]0:w[178]0
940 b$(0)[178]" ":b$(1)[178]"seq ":b$(2)[178]"prg ":b$(3)[178]"usr ":b$(4)[178]"rel "
950 b$(5)[178]"seq<":b$(6)[178]"prg<":b$(7)[178]"usr<":b$(8)[178]"rel<"
960 [134]f$(152)
970 [142]
990 [143]" disk-anw.
1000 open15,8,15,"i0":gosub2000:return
1010 :
1020 open15,8,15,"v0":gosub2000:return
1030 :
1990 rem" disk-err
2000 [132]15,de,de$,s1,s2
2010 [139]de[167][153]""de;de$,s1;s2
2020 [142]
2030 :
2100 [153],"disk error #"de;c$"weiter mit: (NULL)atn(NULL)(NULL)val
2110 poke198,0:wait198,1:return
2990 rem=== ende
3000 print"[147]":close15:end