home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1984 July to December
/
Ahoy_Magazine_84-Jul-Dec_1984_Double_L_unofficial.d64
/
checklist
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
7KB
|
186 lines
10 gosub700:c0=53280:se=54272:pokese+24,15
20 dimi$(10,21),g$(10,23),ti$(10,23),tg$(10,23),r$(24)
25 r$(0)="":fori=1to24:r$(i)=r$(i-1)+"":next
26 pokec0+2,14:pokec0+3,13:pokec0+4,5
30 es$=r$(24)+" "
32 a$=" item ":gosub1000:a2$=b$:a3$=" c "
33 a$=" wt ":gosub1000:a4$=b$
34 er$=r$(20)+" "
35 l$=chr$(32):fori=1to14:c2$=l$+c2$:next:fori=1to4:c4$=c4$+l$:next
36 d$=chr$(160):c3$=d$+d$+d$:cx$=c3$+c3$+c3$
37 cl$=c4$+c4$+c4$
38 a$=" what item? ":gosub1000:s2$=b$:a$="weight of ":gosub1000:s3$=b$
39 a$=" code for ":gosub1000:s4$=b$
40 a$=" chose any ":gosub1000:s1$=b$:a$=" delete any ":gosub1000:sd$=b$
41 a$=" f1-del ":gosub1000:f1$=b$:a$=" f2-chng ":gosub1000:f2$=b$
43 a$=" f3-extr ":gosub1000:f3$=b$:a$=" f4-totl ":gosub1000:f4$=b$
44 a$=" f5-new ":gosub1000:f5$=b$:a$=" f6-copy ":gosub1000:f6$=b$
45 a$=" f7-next ":gosub1000:f7$=b$:a$=" f8-list ":gosub1000:f8$=b$
46 a$=" e-end ":gosub1000:e1$=b$
60 read c$:ifc$="end"then115
70 m=m+1:c$(m)=c$:n=0
100 readi$,no:ifi$="0"thenn(m)=n:goto60
110 n=n+1:i$(m,n)=i$:p=4:gosub1100:g$(m,n)=a$:goto100
115 print"[147]":poke53265,peek(53265)or64
120 pokec0,3:pokec0+1,3:for x=1tom:gosub500:print""r$(20)s1$;
130 printr$(24)f1$tab(10)f3$tab(20)f5$tab(30)f7$;:gosub800
150 getk$:ifk$=""then150
155 printer$;:ifk$="[136]"then260
156 ifk$="[133]"thengosub3000:print""r$(20)s1$:goto150
158 ifk$="[135]"thengosub3500:print""r$(20)s1$:goto150
159 ifk$="[134]"thengosub2500:print""r$(20)s1$:goto150
160 k=asc(k$)-64:ifk>n(x)ork<1thengosub2100:goto150
170 ifi$(x,k)=ti$(x,k)thengosub2100:goto150
190 gosub400:goto150
260 nextx:goto4000
400 print"[153]"r$(1+k)tab(13)d$chr$(k+96)d$;
402 ifchthen410
405 gosub2000
410 j$=i$(x,k):i$=left$(j$,len(j$)-1)
420 print""tab(17)i$;:a$=right$(j$,1):gosub1000
430 print"[153]"tab(31)b$;tab(33)""g$(x,k):ifchthenreturn
440 ft=ft+val(g$(x,k)):gosub800
470 s(x)=s(x)+val(g$(x,k)):no=s(x):p=5:gosub1100:gosub1000
475 printr$(22)tab(31)d$b$d$
480 ti$(x,k)=i$(x,k):tg$(x,k)=g$(x,k):return
500 a$=" "+chr$(x+64):gosub1000:print"[147]"tab(13)b$d$"[144]"a2$"[144]"a3$"[144]"a4$l$
520 z$="":a$=c$(x):fork=1tolen(a$)+2:z$=z$+d$:next:print""z$
522 gosub1000:print""d$b$d$:print""z$
530 print"";:fori=1to21:printtab(13)""c3$c2$c3$c4$d$:next
540 print"";:fory=1ton(x):a$=chr$(y+64):gosub1000:printtab(14)""b$;
545 j$=i$(x,y):i$=left$(j$,len(j$)-1)
550 print"[151]"tab(17)i$;:a$=right$(j$,1):gosub1000
560 print""tab(31)b$tab(33)"[151]"g$(x,y):next:return
700 poke53280,0:poke53281,0:print"[147][153]";:a$=""
715 fori=1to7:reada$:printtab(13)a$:next:return
750 data" [146][208] [146] [146] [146][208] [146][208] [146][206]"," [146] [146][192] [146] [146][192] [146] [146][205]"
760 data" [146][186] [146] [146] [146][186] [146][186] [146][170]",
770 data" [146] [146] [169][146][205][183] [146][183]"," [146] [146] [223][223][146] "," [146][186] [146] [205][169] "
780 return
800 printr$(5)" total "
810 printtab(1)c3$c3$d$:no=ft:p=5:gosub1100:gosub1000
820 printtab(1)""d$b$d$:printtab(1)c3$c3$d$:return
1000 b$="":forj=1tolen(a$):b=asc(mid$(a$,j,1)):b=b+32:b=b-96*(b<96)
1010 b$=b$+chr$(b):next:return
1100 a$=str$(no):ln=len(a$)-1
1110 forj=1top-ln:a$=" "+a$:next:a$=right$(a$,p):return
2000 pokese+5,0:pokese+6,247:pokese+4,17:pokese+1,50:pokese,0
2010 fort=1to99:next:pokese+4,16:return
2100 pokese+5,45:pokese+6,165:pokese+4,33:pokese+1,6:pokese,5
2110 fort=1to150:next:pokese+4,32:pokese+1,0:pokese,80:return
2500 i$="":n(x)=n(x)+1:pokec0,2
2502 printr$(23);:input"[151] extra item";i$
2504 ifi$=""thenpokec0,3:printr$(23)" ":return
2505 ifasc(i$)=13thenpokec0,3:return
2507 iflen(i$)>12theni$=left$(i$,12)
2510 i$(x,n(x))=i$+"x":printr$(23)" "
2520 printr$(23);:input" weight";no:p=4:gosub1100:g$(x,n(x))=a$
2530 printr$(23)" "
2540 printr$(n(x)+1);:a$=chr$(n(x)+64):gosub1000:printtab(14)""b$;
2550 print"[151]"tab(17)i$;:a$="x":gosub1000
2590 print""tab(31)b$;tab(33)"[151]"g$(x,n(x)):gosub2000:pokec0,3:return
3000 pokec0,10:print""r$(20)sd$;
3010 gete$:ife$=""then3010
3015 e=asc(e$)-64:ife=-51then3090
3020 ife<0ore>n(x)thengosub2100:goto3010
3030 ifti$(x,e)<>i$(x,e)thengosub2100:goto3010
3035 s(x)=s(x)-val(g$(x,e)):ft=ft-val(g$(x,e)):ti$(x,e)=""
3055 print"[151]";:a$=chr$(e+64):gosub1000:printr$(e+1)tab(14)""b$;
3056 j$=i$(x,e):i$=left$(j$,len(j$)-1)
3057 print"[151]"tab(17)i$;:a$=right$(j$,1):gosub1000
3058 print""tab(31)b$;tab(33)"[151]"g$(x,e)
3060 no=s(x):p=4:gosub1100:gosub1000:print""r$(22)tab(33)b$:gosub800
3090 pokec0,3:print""r$(20)s1$:return
3500 pokec0,4:printr$(20)""s2$
3505 geta$:ifa$=""then3505
3506 ifasc(a$)=13then3590
3510 k=asc(a$)-64:ifk>n(x)ork<1thengosub2100:goto3505
3520 ifi$(x,k)=ti$(x,k)thengosub2100:goto3505
3535 gosub1000:print""er$r$(22)s3$b$"[151]":inputw$
3540 no=val(w$):p=4:gosub1100:g$(x,k)=a$:printr$(21)" "
3550 print""r$(23)" "r$(22)s4$b$"[151]";
3555 geta$:ifa$=""then3555
3556 ifasc(a$)=13then3580
3560 i$(x,k)=left$(i$(x,k),len(i$(x,k))-1)+a$
3565 gosub1000:print""r$(k+1)tab(31)b$
3580 print"[151]"r$(k+1)tab(33)g$(x,k):printr$(21)" "
3590 pokec0,3:print""r$(20)s1$r$(22)" ":return
4000 print"[147]":pokec0,3:pokec0+1,1:pokec0+2,14:pokec0+3,15:pokec0+4,12
4010 a$=" category ":gosub1000:t2$=b$:t3$="subtotal"
4015 print"[155]"r$(2)tab(7)l$l$l$l$t2$"[151]"t3$;
4020 fori=1tom+2:print""r$(i+2)tab(7)d$c3$c4$c4$c4$l$c3$c3$d$d$:next
4030 fori=1tom:no=s(i):p=5:gosub1100:gosub1000:n2$=b$
4040 no=i:p=1:gosub1100:gosub1000:n1$=b$
4050 print""r$(3+i)tab(8)n1$d$tab(12)c$(i)tab(26)n2$:next
4055 a$=" final total ":gosub1000:f$=b$
4060 no=ft:p=6:gosub1100:gosub1000:ft$=b$
4090 print""r$(20)tab(10)cx$cx$d$d$:print""tab(10)f$ft$d$
4100 print""tab(10)cx$cx$d$d$
4120 print""r$(24)f2$tab(10)f6$tab(20)f8$tab(30)e1$;
4130 geta$:ifa$=""then4130
4140 ifa$="[137]"then6000
4150 ifa$="e"thenprint"":end
4160 ifa$="[140]"then5000
4161 ifa$="[139]"then7000
4170 gosub2100:goto4130
5000 printes$"";:pokec0+3,14:pokec0+3,13:pokec0+4,5:pokec0,1
5005 tb=1:c=0:fori=1to23:print" "cl$d$cl$d$cl$:next
5010 print"";:forx=1tom:a$=c$(x):c=c+1:ifc=23thentb=tb+13:c=1:print"";
5011 o$=" "+c$(x):fori=len(o$)to11:o$=o$+" ":next:print""tab(tb)o$"[151]"
5015 fory=1ton(x):ifti$(x,y)=""then5050
5016 c=c+1:ifc=24thentb=tb+13:c=1:print"";
5020 i$=ti$(x,y):iflen(i$)>12theni$=left$(i$,12)
5035 print""tab(tb)i$
5050 nexty,x:printr$(24)""f2$tab(10)f4$tab(20)f6$tab(30)e1$;
5060 geta$:ifa$=""then5060
5070 ifa$="e"thenprint"":end
5080 ifa$="[137]"then6000
5090 ifa$="[138]"then4000
5095 ifa$="[139]"then7000
5099 gosub2100:goto5060
6000 pokec0,3:print"[147][151]"tab(12)"what category?":print
6005 fori=1tom:printtab(12)chr$(i+64)" "c$(i):next
6010 geta$:ifa$=""then6010
6020 ifasc(a$)<65orasc(a$)>m+64then6010
6026 ch=-1:pokec0+2,14:pokec0+3,13:pokec0+4,5
6030 pokec0+1,3:x=asc(a$)-64:gosub500
6040 print""r$(24)f1$tab(10)f3$tab(20)f4$tab(30)f5$;
6050 fork=1ton(x):ifti$(x,k)<>""thengosub400
6051 next:gosub800:no=s(x):p=5:gosub1100:gosub1000:printr$(22)tab(31)d$b$d$
6060 ch=0:print""r$(20)s1$
6150 getk$:ifk$=""then6150
6155 printer$;:ifk$="[138]"then4000
6156 ifk$="[133]"thengosub3000:goto6150
6157 ifk$="[135]"thengosub3500:goto6150
6158 ifk$="[134]"thengosub2500:goto6150
6160 k=asc(k$)-64:ifk>n(x)ork<0thengosub2100:goto6150
6170 ifi$(x,k)=ti$(x,k)thengosub2100:goto6150
6180 gosub400:goto6150
7000 pokec0,1:pokec0+1,1:print"[147]":fori=1to5:print:next:l$=chr$(13):s$=chr$(32)
7010 st$=chr$(15):fori=1to75:bl$=bl$+chr$(99):next
7020 input"[144]title for hard copy";h$
7030 bx$=chr$(8):fori=1to7:reada:bx$=bx$+chr$(a):next:bx$=bx$+st$
7040 fori=1to4:readt$:t$(i)=chr$(16)+t$:next
7100 open4,4:print#4,chr$(16)"25 "chr$(14)h$st$
7105 print#4,l$chr$(18)bl$chr$(146)l$l$
7110 fori=1tom:no=s(i):p=5:gosub1100:gosub1100
7115 print#4,chr$(14)c$(i)chr$(16)"15"a$st$l$
7120 g=0:forj=1ton(i):ifti$(i,j)=""then7160
7125 g=g+1:ifg=3theng=1:print#4
7130 i$=ti$(i,j):print#4,t$(2*g-1)" "bx$s$left$(i$,len(i$)-1);
7140 print#4,t$(2*g)right$(i$,1)s$s$tg$(i,j);
7160 next:print#4,l$l$bl$:next
7165 print#4,l$chr$(14)"final total"chr$(16)"15"ft;st$
7170 print#4:close4:end
9000 data shelter ,air mattress ,490,slpg. bag l,1000,slpg. bag h,1775
9010 data groundsheet ,225,tent *,1820,0,0
9020 data clothing,tights *,275,jacket *,260,socks ,35,nylon shorts ,60
9030 datapants ,340,0,0
9080 data accessory,lock+cable ,360,spare tube ,70,tools ,205,flashlight ,50
9085 dataswissknife ,70,0,0
9090 data cookware,cup ,10,utensils ,45,pot ,250,bowl ,60
9110 data stove g,280,cartridges 2,320,0,0
9200 dataend
9300 data255,193,193,193,193,193,255
9350 data08,24,44,60