home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 221
/
221.d81
/
b.schotz.mak
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
58 lines
10 dv=peek(186):ifdv<8thendv=8
20 dima(12,8),oa(12*8),ob(12*8)
25 print"[147]"
30 gosub1000 :
35 ct=0
40 geta$:ifa$=""then40
41 ifa$=chr$(13)then200
42 ifa$>="a"anda$<="c"thena=asc(a$)-55:goto45
43 a=val(a$)
44 ifa=0then40
45 printa;
50 getb$:ifb$=""then50
51 ifb$>="a"andb$<="c"thenb=asc(b$)-55:goto55
52 b=val(b$)
53 ifb=0then50
55 printb;
60 getc$:ifc$=""then60
65 ifc$=chr$(13)then90
66 ifc$<"1"orc$>"5"then60
70 printc$
75 ifa(a,b)>0thengosub100:ifer>0then90
77 oa(ct)=a:ob(ct)=b:ct=ct+1
80 a(a,b)=val(c$)
90 gosub1000:goto40
100 er=0:ifb<2thener=1:return
105 fory=1tob-1:a(a,y)=a(a,y+1):next
110 return
200 print"1. remove":print"2. save":print"3. load"
210 getz$:ifz$=""then210
220 ifz$<"1"orz$>"3"then210
230 onval(z$)goto300,400,500
300 ifct=0then340
310 ct=ct-1
320 fory=ob(ct)to1step-1:a(oa(ct),y)=a(oa(ct),y-1):next
340 print"[147]":gosub1000:goto40
400 inputf$
410 open1,dv,15,"r0:"+f$+"="+f$:input#1,en:close1
420 ifen=62then450
430 printf$" exists. replace (y/n)
435 [161]z$:[139]z$[178]""[167]435
440 [139]z$[179][177]"y"[167]340
445 [159]1,dv,15,"s0:"[170]f$:[160]1
450 [159]4,dv,4,f$[170]",s,w"
460 [129]y[178]1[164]8:[129]x[178]1[164]12:[152]4,a(x,y):[130]:[130]:[152]4,ct
470 [129]x[178]0[164]ct:[152]4,oa(x):[152]4,ob(x):[130]:[160]4:[137]340
500 [133]f$:[159]1,dv,15,"r0:"[170]f$[170]"="[170]f$:[132]1,en:[160]1
510 [139]en[178]62[167][153]"file not found":[151]198,0:[146]198,1:[137]340
520 [159]4,dv,4,f$
530 [129]y[178]1[164]8:[129]x[178]1[164]12:[132]4,a(x,y):[130]:[130]:[132]4,ct
535 [129]x[178]0[164]ct:[132]4,oa(x):[132]4,ob(x):[130]:[160]4:[137]340
999 [128]
1000 [153]"sys 1 2 3 4 5 6 7 8 9 a b c
1005 fory=1to8:print"[158]"y"[154]";: forx=1to12
1010 printa(x,y);:next:print:next
1030 print" ":print" [145][145]":return
9999 end
10000 d=peek(186):n$="shotz.mak":open1,d,15,"s0:"+n$:close1:saven$,d:end