64'er 1989 July/64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64/micro-sorter

Commodore BASIC | 2022-10-26 | 994b | 21 lines

1 x=1200:dimn$(x):dimd$(x):dimb$(x):r$=chr$(13):x$=chr$(0):t$="blocks"
2 print" 1-load  2-save  3-dir  4-input  5-look  6-search  7-print"r$"data:"a
3 z=40:sys65511:inputh:print"[147]":onhgoto4,7,9,13,14,16:open1,4:cmd1:z=70:goto14
4 a=0:input"load name";a$:open8,8,8,a$+",s,r":ifst<>0goto20
5 a=a+1:print""a:input#8,n$(a),d$(a),b$(a):ifn$(a)<>"*"andst=0then5
6 close8:a=a-1:ifst<>0then20
7 input"save name";a$:open8,8,8,"@:"+a$+",s,w":fori=1toa
8 print#8,n$(i)r$d$(i)r$b$(i)r$:next:print#8,"*","*","*":close8:goto20
9 print"[147] 0 ";:open1,8,0,"$":poke781,1:sys65478:geta$,a$,a$,a$:
10 fori=1to7:geta$,b$,c$,d$:printa$b$c$d$;:next:print
11 geta$,a$,a$,b$:ifst<>0thensys65484:close1:goto20
12 printasc(a$+x$)+256*asc(b$+x$);:goto10
13 a=a+1:input"prg-name";n$(a):input"disk";d$(a):input"blocks";b$(a):goto2
14 print"name"tab(17)"disk"tab(33)t$:fori=1toz:print"-";:next:print:fori=1toa
15 printn$(i)tab(17)d$(i)tab(34)b$(i):poke198,0:wait198,1:next:sys65511:goto2
16 input"pattern";a$:fori=1toa:ifleft$(n$(i),len(a$))<>a$thennext
17 printi" : "n$(i)","d$(i)","b$(i):ifi=a+1thenprint"end of list":goto2
18 input"change (y/n)";a$
19 ifa$="y"theninput"prg-name";n$(i):input"disk";d$(i):input"blocks";b$(i):goto2
20 print:open15,8,15:input#15,x,a$,x,x:close15:printa$:print:goto2