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 >
Encoding:
Commodore BASIC  |  1984-01-01  |  6.4 KB  |  186 lines
  1. 10 gosub700:c0=53280:se=54272:pokese+24,15
  2. 20 dimi$(10,21),g$(10,23),ti$(10,23),tg$(10,23),r$(24)
  3. 25 r$(0)="":fori=1to24:r$(i)=r$(i-1)+"":next
  4. 26 pokec0+2,14:pokec0+3,13:pokec0+4,5
  5. 30 es$=r$(24)+"                                       "
  6. 32 a$="     item     ":gosub1000:a2$=b$:a3$=" c "
  7. 33 a$=" wt ":gosub1000:a4$=b$
  8. 34 er$=r$(20)+"            "
  9. 35 l$=chr$(32):fori=1to14:c2$=l$+c2$:next:fori=1to4:c4$=c4$+l$:next
  10. 36 d$=chr$(160):c3$=d$+d$+d$:cx$=c3$+c3$+c3$
  11. 37 cl$=c4$+c4$+c4$
  12. 38 a$=" what item? ":gosub1000:s2$=b$:a$="weight of ":gosub1000:s3$=b$
  13. 39 a$=" code for ":gosub1000:s4$=b$
  14. 40 a$=" chose any ":gosub1000:s1$=b$:a$=" delete any ":gosub1000:sd$=b$
  15. 41 a$=" f1-del  ":gosub1000:f1$=b$:a$=" f2-chng ":gosub1000:f2$=b$
  16. 43 a$=" f3-extr ":gosub1000:f3$=b$:a$=" f4-totl ":gosub1000:f4$=b$
  17. 44 a$=" f5-new  ":gosub1000:f5$=b$:a$=" f6-copy ":gosub1000:f6$=b$
  18. 45 a$=" f7-next ":gosub1000:f7$=b$:a$=" f8-list ":gosub1000:f8$=b$
  19. 46 a$="  e-end  ":gosub1000:e1$=b$
  20. 60 read c$:ifc$="end"then115
  21. 70 m=m+1:c$(m)=c$:n=0
  22. 100 readi$,no:ifi$="0"thenn(m)=n:goto60
  23. 110 n=n+1:i$(m,n)=i$:p=4:gosub1100:g$(m,n)=a$:goto100
  24. 115 print"[147]":poke53265,peek(53265)or64
  25. 120 pokec0,3:pokec0+1,3:for x=1tom:gosub500:print""r$(20)s1$;
  26. 130 printr$(24)f1$tab(10)f3$tab(20)f5$tab(30)f7$;:gosub800
  27. 150 getk$:ifk$=""then150
  28. 155 printer$;:ifk$="[136]"then260
  29. 156 ifk$="[133]"thengosub3000:print""r$(20)s1$:goto150
  30. 158 ifk$="[135]"thengosub3500:print""r$(20)s1$:goto150
  31. 159 ifk$="[134]"thengosub2500:print""r$(20)s1$:goto150
  32. 160 k=asc(k$)-64:ifk>n(x)ork<1thengosub2100:goto150
  33. 170 ifi$(x,k)=ti$(x,k)thengosub2100:goto150
  34. 190 gosub400:goto150
  35. 260 nextx:goto4000
  36. 400 print"[153]"r$(1+k)tab(13)d$chr$(k+96)d$;
  37. 402 ifchthen410
  38. 405 gosub2000
  39. 410 j$=i$(x,k):i$=left$(j$,len(j$)-1)
  40. 420 print""tab(17)i$;:a$=right$(j$,1):gosub1000
  41. 430 print"[153]"tab(31)b$;tab(33)""g$(x,k):ifchthenreturn
  42. 440 ft=ft+val(g$(x,k)):gosub800
  43. 470 s(x)=s(x)+val(g$(x,k)):no=s(x):p=5:gosub1100:gosub1000
  44. 475 printr$(22)tab(31)d$b$d$
  45. 480 ti$(x,k)=i$(x,k):tg$(x,k)=g$(x,k):return
  46. 500 a$=" "+chr$(x+64):gosub1000:print"[147]"tab(13)b$d$"[144]"a2$"[144]"a3$"[144]"a4$l$
  47. 520 z$="":a$=c$(x):fork=1tolen(a$)+2:z$=z$+d$:next:print""z$
  48. 522 gosub1000:print""d$b$d$:print""z$
  49. 530 print"";:fori=1to21:printtab(13)""c3$c2$c3$c4$d$:next
  50. 540 print"";:fory=1ton(x):a$=chr$(y+64):gosub1000:printtab(14)""b$;
  51. 545 j$=i$(x,y):i$=left$(j$,len(j$)-1)
  52. 550 print"[151]"tab(17)i$;:a$=right$(j$,1):gosub1000
  53. 560 print""tab(31)b$tab(33)"[151]"g$(x,y):next:return
  54. 700 poke53280,0:poke53281,0:print"[147][153]";:a$=""
  55. 715 fori=1to7:reada$:printtab(13)a$:next:return
  56. 750 data" [146][208]  [146]  [146]  [146][208]  [146][208]  [146][206]"," [146]   [146][192] [146]  [146][192]  [146]   [146][205]"
  57. 760 data" [146][186]  [146]  [146]  [146][186]  [146][186]  [146][170]",
  58. 770 data"    [146]   [146] [169][146][205][183] [146][183]","    [146]   [146] [223][223][146]  ","    [146][186]  [146] [205][169]  "
  59. 780 return
  60. 800 printr$(5)"  total  "
  61. 810 printtab(1)c3$c3$d$:no=ft:p=5:gosub1100:gosub1000
  62. 820 printtab(1)""d$b$d$:printtab(1)c3$c3$d$:return
  63. 1000 b$="":forj=1tolen(a$):b=asc(mid$(a$,j,1)):b=b+32:b=b-96*(b<96)
  64. 1010 b$=b$+chr$(b):next:return
  65. 1100 a$=str$(no):ln=len(a$)-1
  66. 1110 forj=1top-ln:a$=" "+a$:next:a$=right$(a$,p):return
  67. 2000 pokese+5,0:pokese+6,247:pokese+4,17:pokese+1,50:pokese,0
  68. 2010 fort=1to99:next:pokese+4,16:return
  69. 2100 pokese+5,45:pokese+6,165:pokese+4,33:pokese+1,6:pokese,5
  70. 2110 fort=1to150:next:pokese+4,32:pokese+1,0:pokese,80:return
  71. 2500 i$="":n(x)=n(x)+1:pokec0,2
  72. 2502 printr$(23);:input"[151] extra item";i$
  73. 2504 ifi$=""thenpokec0,3:printr$(23)"            ":return
  74. 2505 ifasc(i$)=13thenpokec0,3:return
  75. 2507 iflen(i$)>12theni$=left$(i$,12)
  76. 2510 i$(x,n(x))=i$+"x":printr$(23)"                              "
  77. 2520 printr$(23);:input" weight";no:p=4:gosub1100:g$(x,n(x))=a$
  78. 2530 printr$(23)"                      "
  79. 2540 printr$(n(x)+1);:a$=chr$(n(x)+64):gosub1000:printtab(14)""b$;
  80. 2550 print"[151]"tab(17)i$;:a$="x":gosub1000
  81. 2590 print""tab(31)b$;tab(33)"[151]"g$(x,n(x)):gosub2000:pokec0,3:return
  82. 3000 pokec0,10:print""r$(20)sd$;
  83. 3010 gete$:ife$=""then3010
  84. 3015 e=asc(e$)-64:ife=-51then3090
  85. 3020 ife<0ore>n(x)thengosub2100:goto3010
  86. 3030 ifti$(x,e)<>i$(x,e)thengosub2100:goto3010
  87. 3035 s(x)=s(x)-val(g$(x,e)):ft=ft-val(g$(x,e)):ti$(x,e)=""
  88. 3055 print"[151]";:a$=chr$(e+64):gosub1000:printr$(e+1)tab(14)""b$;
  89. 3056 j$=i$(x,e):i$=left$(j$,len(j$)-1)
  90. 3057 print"[151]"tab(17)i$;:a$=right$(j$,1):gosub1000
  91. 3058 print""tab(31)b$;tab(33)"[151]"g$(x,e)
  92. 3060 no=s(x):p=4:gosub1100:gosub1000:print""r$(22)tab(33)b$:gosub800
  93. 3090 pokec0,3:print""r$(20)s1$:return
  94. 3500 pokec0,4:printr$(20)""s2$
  95. 3505 geta$:ifa$=""then3505
  96. 3506 ifasc(a$)=13then3590
  97. 3510 k=asc(a$)-64:ifk>n(x)ork<1thengosub2100:goto3505
  98. 3520 ifi$(x,k)=ti$(x,k)thengosub2100:goto3505
  99. 3535 gosub1000:print""er$r$(22)s3$b$"[151]":inputw$
  100. 3540 no=val(w$):p=4:gosub1100:g$(x,k)=a$:printr$(21)"        "
  101. 3550 print""r$(23)"      "r$(22)s4$b$"[151]";
  102. 3555 geta$:ifa$=""then3555
  103. 3556 ifasc(a$)=13then3580
  104. 3560 i$(x,k)=left$(i$(x,k),len(i$(x,k))-1)+a$
  105. 3565 gosub1000:print""r$(k+1)tab(31)b$
  106. 3580 print"[151]"r$(k+1)tab(33)g$(x,k):printr$(21)"      "
  107. 3590 pokec0,3:print""r$(20)s1$r$(22)"            ":return
  108. 4000 print"[147]":pokec0,3:pokec0+1,1:pokec0+2,14:pokec0+3,15:pokec0+4,12
  109. 4010 a$="   category  ":gosub1000:t2$=b$:t3$="subtotal"
  110. 4015 print"[155]"r$(2)tab(7)l$l$l$l$t2$"[151]"t3$;
  111. 4020 fori=1tom+2:print""r$(i+2)tab(7)d$c3$c4$c4$c4$l$c3$c3$d$d$:next
  112. 4030 fori=1tom:no=s(i):p=5:gosub1100:gosub1000:n2$=b$
  113. 4040 no=i:p=1:gosub1100:gosub1000:n1$=b$
  114. 4050 print""r$(3+i)tab(8)n1$d$tab(12)c$(i)tab(26)n2$:next
  115. 4055 a$=" final total ":gosub1000:f$=b$
  116. 4060 no=ft:p=6:gosub1100:gosub1000:ft$=b$
  117. 4090 print""r$(20)tab(10)cx$cx$d$d$:print""tab(10)f$ft$d$
  118. 4100 print""tab(10)cx$cx$d$d$
  119. 4120 print""r$(24)f2$tab(10)f6$tab(20)f8$tab(30)e1$;
  120. 4130 geta$:ifa$=""then4130
  121. 4140 ifa$="[137]"then6000
  122. 4150 ifa$="e"thenprint"":end
  123. 4160 ifa$="[140]"then5000
  124. 4161 ifa$="[139]"then7000
  125. 4170 gosub2100:goto4130
  126. 5000 printes$"";:pokec0+3,14:pokec0+3,13:pokec0+4,5:pokec0,1
  127. 5005 tb=1:c=0:fori=1to23:print" "cl$d$cl$d$cl$:next
  128. 5010 print"";:forx=1tom:a$=c$(x):c=c+1:ifc=23thentb=tb+13:c=1:print"";
  129. 5011 o$="  "+c$(x):fori=len(o$)to11:o$=o$+" ":next:print""tab(tb)o$"[151]"
  130. 5015 fory=1ton(x):ifti$(x,y)=""then5050
  131. 5016 c=c+1:ifc=24thentb=tb+13:c=1:print"";
  132. 5020 i$=ti$(x,y):iflen(i$)>12theni$=left$(i$,12)
  133. 5035 print""tab(tb)i$
  134. 5050 nexty,x:printr$(24)""f2$tab(10)f4$tab(20)f6$tab(30)e1$;
  135. 5060 geta$:ifa$=""then5060
  136. 5070 ifa$="e"thenprint"":end
  137. 5080 ifa$="[137]"then6000
  138. 5090 ifa$="[138]"then4000
  139. 5095 ifa$="[139]"then7000
  140. 5099 gosub2100:goto5060
  141. 6000 pokec0,3:print"[147][151]"tab(12)"what category?":print
  142. 6005 fori=1tom:printtab(12)chr$(i+64)" "c$(i):next
  143. 6010 geta$:ifa$=""then6010
  144. 6020 ifasc(a$)<65orasc(a$)>m+64then6010
  145. 6026 ch=-1:pokec0+2,14:pokec0+3,13:pokec0+4,5
  146. 6030 pokec0+1,3:x=asc(a$)-64:gosub500
  147. 6040 print""r$(24)f1$tab(10)f3$tab(20)f4$tab(30)f5$;
  148. 6050 fork=1ton(x):ifti$(x,k)<>""thengosub400
  149. 6051 next:gosub800:no=s(x):p=5:gosub1100:gosub1000:printr$(22)tab(31)d$b$d$
  150. 6060 ch=0:print""r$(20)s1$
  151. 6150 getk$:ifk$=""then6150
  152. 6155 printer$;:ifk$="[138]"then4000
  153. 6156 ifk$="[133]"thengosub3000:goto6150
  154. 6157 ifk$="[135]"thengosub3500:goto6150
  155. 6158 ifk$="[134]"thengosub2500:goto6150
  156. 6160 k=asc(k$)-64:ifk>n(x)ork<0thengosub2100:goto6150
  157. 6170 ifi$(x,k)=ti$(x,k)thengosub2100:goto6150
  158. 6180 gosub400:goto6150
  159. 7000 pokec0,1:pokec0+1,1:print"[147]":fori=1to5:print:next:l$=chr$(13):s$=chr$(32)
  160. 7010 st$=chr$(15):fori=1to75:bl$=bl$+chr$(99):next
  161. 7020 input"[144]title for hard copy";h$
  162. 7030 bx$=chr$(8):fori=1to7:reada:bx$=bx$+chr$(a):next:bx$=bx$+st$
  163. 7040 fori=1to4:readt$:t$(i)=chr$(16)+t$:next
  164. 7100 open4,4:print#4,chr$(16)"25 "chr$(14)h$st$
  165. 7105 print#4,l$chr$(18)bl$chr$(146)l$l$
  166. 7110 fori=1tom:no=s(i):p=5:gosub1100:gosub1100
  167. 7115 print#4,chr$(14)c$(i)chr$(16)"15"a$st$l$
  168. 7120 g=0:forj=1ton(i):ifti$(i,j)=""then7160
  169. 7125 g=g+1:ifg=3theng=1:print#4
  170. 7130 i$=ti$(i,j):print#4,t$(2*g-1)" "bx$s$left$(i$,len(i$)-1);
  171. 7140 print#4,t$(2*g)right$(i$,1)s$s$tg$(i,j);
  172. 7160 next:print#4,l$l$bl$:next
  173. 7165 print#4,l$chr$(14)"final total"chr$(16)"15"ft;st$
  174. 7170 print#4:close4:end
  175. 9000 data shelter ,air mattress ,490,slpg. bag l,1000,slpg. bag h,1775
  176. 9010 data groundsheet ,225,tent *,1820,0,0
  177. 9020 data clothing,tights *,275,jacket *,260,socks ,35,nylon shorts ,60
  178. 9030 datapants ,340,0,0
  179. 9080 data accessory,lock+cable ,360,spare tube ,70,tools ,205,flashlight ,50
  180. 9085 dataswissknife ,70,0,0
  181. 9090 data cookware,cup ,10,utensils ,45,pot ,250,bowl ,60
  182. 9110 data stove g,280,cartridges 2,320,0,0
  183. 9200 dataend
  184. 9300 data255,193,193,193,193,193,255
  185. 9350 data08,24,44,60
  186.