home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 42 / 042.d81 / calorie selector (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  15.9 KB  |  617 lines
  1. 100 rem *****************************
  2. 110 rem ****  disk menu sequence ****
  3. 120 rem *****************************
  4. 130 rem
  5. 140 dim f1$(105)
  6. 150 dim f2$(105)
  7. 160 dim f3%(105)
  8. 170 dim mc$(20)
  9. 180 dim m1$(20)
  10. 190 dim m2$(20)
  11. 200 dim m3%(20)
  12. 210 dim mx$(20)
  13. 220 ct%=0
  14. 230 gosub500 
  15. 240 rem
  16. 250 gosub310 
  17. 260 goto1310  
  18. 270 rem
  19. 280 rem **  **  **  **  **  **  ** **
  20. 290 rem          border routine
  21. 300 rem **  **  **  **  **  **  ** **
  22. 310 print"[147][158]";chr$(142)chr$(8);:poke53280,14:poke53281,0
  23. 320 fori=1to38:print"[166][146]";:next
  24. 330 fori=1to22:print"[157][166][146]";:next
  25. 340 fori=1to37:print"[157][157][166][146]";:next
  26. 350 fori=1to22:print"[145][157][166][146]";:next
  27. 360 return
  28. 370 rem
  29. 380 rem **  **  **  **  **  **  ** **
  30. 390 rem        clear list routine
  31. 400 rem **  **  **  **  **  **  ** **
  32. 410 print "[147]     i am working"
  33. 420 for i=1to105
  34. 430 f1$(i)="zzz":f2$(i)="z":f3%(i)=0
  35. 440 next i
  36. 450 return
  37. 460 rem
  38. 470 rem **  **  **  **  **  **  ** **
  39. 480 rem        clear menu routine
  40. 490 rem **  **  **  **  **  **  ** **
  41. 500 for i=1to20
  42. 510 mc$(i)="z":m1$(i)="zzz"
  43. 520 m2$(i)="x":m3%(i)=0
  44. 530 next i
  45. 540 ct%=0
  46. 550 return
  47. 560 rem **  **  **  **  **  **  ** **
  48. 570 rem        read group in
  49. 580 rem **  **  **  **  **  **  ** **
  50. 590 print "[147]   please wait !!!!!"
  51. 600 print "[158]reading ";nf$;"[158] from disk"
  52. 610 open15,8,15,"io"
  53. 620 gosub1030 
  54. 630 open5,8,5,"0:"+nf$+",seq,r"
  55. 640 gosub1030 
  56. 650 if en=62 then return
  57. 660 for i=1 to 105
  58. 670 input#5,f1$(i)
  59. 680 gosub1030 
  60. 690 if f1$(i)="zzz" then goto750 
  61. 700 input#5,f2$(i)
  62. 710 gosub1030 
  63. 720 input#5,f3%(i)
  64. 730 gosub1030 
  65. 740 next i
  66. 750 close5:close15
  67. 760 return
  68. 770 rem
  69. 780 rem **  **  **  **  **  **  ** **
  70. 790 rem        write group to disk
  71. 800 rem **  **  **  **  **  **  ** **
  72. 810 print "[147]   please wait !!!!!"
  73. 820 print "writing ";nf$;" to disk"
  74. 830 open15,8,15,"io"
  75. 840 gosub1030 
  76. 850 open5,8,5,"@0:"+nf$+",seq,w"
  77. 860 gosub1030 
  78. 870 for i=1 to 105
  79. 880 print#5,f1$(i)
  80. 890 gosub1030 
  81. 900 print#5,f2$(i)
  82. 910 gosub1030 
  83. 920 print#5,f3%(i)
  84. 930 gosub1030 
  85. 940 if f1$="zzz" then goto960 
  86. 950 next i
  87. 960 close5:close15
  88. 970 ct%=0
  89. 980 return
  90. 990 rem
  91. 1000 rem **  **  **  **  **  **  **  **
  92. 1010 rem         error read routine
  93. 1020 rem **  **  **  **  **  **  ** **
  94. 1030 input#15,en,em$,et,es
  95. 1040 if en=0 then return
  96. 1050 if en=62 then goto1130 
  97. 1060 print "";em$
  98. 1070 print " see your drive manual for the specfic "
  99. 1080 print " error condition for number [158]";en
  100. 1090 close5:close15
  101. 1100 ti$ ="000000"
  102. 1110 if ti$ < "000008" then goto1110  
  103. 1120 goto230 
  104. 1130 print " file not started "
  105. 1140 print "  please enter data on next screen "
  106. 1150 ti$ ="000000"
  107. 1160 if ti$ < "000008" then goto1160  
  108. 1170 close5:close15
  109. 1180 return
  110. 1190 rem
  111. 1200 :
  112. 1210 open15,4,15:close15:if(st=.)then1218
  113. 1212 print"          [150]printer not online![145]"
  114. 1214 fora=1to55:poke54296,15:poke54296,.:next
  115. 1216 print"                                 [145]":return
  116. 1218 print"        [154]printing -- please wait.[145]"
  117. 1219 open1,3:open2,4,7:print#1,chr$(19);
  118. 1220 for m=1 to 23:a$="             "
  119. 1230 forl=1to40:get#1,b$:a$=a$+b$:next
  120. 1240 r$=chr$(13):if b$=r$ then1260 
  121. 1250 print#2,a$:next m:goto1270 
  122. 1260 print#2,a$;:next m
  123. 1270 print#2:close 2:print#1:close 1
  124. 1275 print"                                 [145]"
  125. 1280 return
  126. 1290 rem
  127. 1300 rem **  **  **  **  **  **  ** **
  128. 1310 print""
  129. 1320 printtab(16)"loadstar"
  130. 1330 printtab(16)"presents"
  131. 1340 print"  calorie   "
  132. 1350 print"  selector    "
  133. 1360 print"       program"
  134. 1370 print"[158]    by"
  135. 1380 print"   richard melanson"
  136. 1390 print"    copyright 1987"
  137. 1400 ti$ ="000000"
  138. 1410 if ti$ < "000002" then goto1410
  139. 1420 rem
  140. 1430 rem **  **  **  **  **  **  **  **
  141. 1440 gosub310 
  142. 1450 print"[158]                      "
  143. 1460 print"   calorie selector   "
  144. 1470 print"[158]                      "
  145. 1480 print"  function selection  "
  146. 1490 print"[158]f.  food files[158]"
  147. 1500 print"     add,change,or[160]review"
  148. 1510 print"     your food files"
  149. 1520 print"     make selections"
  150. 1530 print"     for a daily meal menu"
  151. 1540 print"m.  menu review[158]"
  152. 1550 print"     review, or save the"
  153. 1560 print"     current work menu"
  154. 1570 print"g.  general[160]information[158]"
  155. 1580 print"q.  quit[158] program"
  156. 1590 print"[145][159]input function letter"
  157. 1600 rp$="":poke198,.
  158. 1610 get rp$:if rp$=""then goto1610  
  159. 1620 if rp$ ="f" then goto1800  
  160. 1630 if rp$ ="m" then goto3970  
  161. 1640 if rp$ ="3" then goto1710  
  162. 1650 if rp$ ="4" then goto1710  
  163. 1660 if rp$ ="5" then goto1710  
  164. 1670 if rp$ ="6" then goto1710  
  165. 1680 if rp$ ="g" then goto4900  
  166. 1690 if rp$ ="q" then1745
  167. 1700 rem **  **  **  **  **  **  **  **
  168. 1710 print"[145]     not defined     "
  169. 1720 ti$ ="000000"
  170. 1730 if ti$ < "000001" then goto1730
  171. 1740 goto1450  
  172. 1745 print"[147]     are you absolutely, positively"
  173. 1746 print"      sure you want to quit? (y[159]/n[159])"
  174. 1747 geta$:ifa$<>"y"anda$<>"n"then1747
  175. 1748 ifa$="n"then1440
  176. 1750 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  177. 1760 ifer<>63thenend
  178. 1770 poke.,47:load"hello connect",8
  179. 1780 rem
  180. 1790 rem **  **  **  **  **  **  **  **
  181. 1800 gosub310 
  182. 1810 print"[158]                      "
  183. 1820 print"   calorie selector   "
  184. 1830 print"[158]        food          "
  185. 1840 print"   group selection    "
  186. 1850 print"1. [158]starch groups"
  187. 1860 print"2. [158]protein items"
  188. 1870 print"3. [158]fruit items"
  189. 1880 print"4. [158]vegetables"
  190. 1890 print"5. [158]fast foods"
  191. 1900 print"6. [158]fat items"
  192. 1910 print"7. [158]free items"
  193. 1920 print"8. [158]mixed foods"
  194. 1930 print"g. general information"
  195. 1940 print"r. back to function screen"
  196. 1950 print"[145][159]input group number"
  197. 1960 rp$=""
  198. 1970 get rp$:if rp$=""then goto1970  
  199. 1980 if rp$ ="1" then goto2150  
  200. 1990 if rp$ ="2" then goto2560  
  201. 2000 if rp$ ="3" then goto2570  
  202. 2010 if rp$ ="4" then goto2580  
  203. 2020 if rp$ ="5" then goto2590  
  204. 2030 if rp$ ="6" then goto2600  
  205. 2040 if rp$ ="7" then goto2610  
  206. 2050 if rp$ ="8" then goto2620  
  207. 2060 if rp$ ="r" then goto1440  
  208. 2070 if rp$ ="g" then goto4900  
  209. 2080 rem **  **  **  **  **  **  **  **
  210. 2090 print"[145] not defined "
  211. 2100 ti$ ="000000"
  212. 2110 if ti$ < "000002" then goto2110  
  213. 2120 goto1810  
  214. 2130 rem
  215. 2140 rem **  **  **  **  **  **  **  **
  216. 2150 gosub310 
  217. 2160 print"[158]                      "
  218. 2170 print"   calorie selector   "
  219. 2180 print"[158]        food          "
  220. 2190 print"   starch selection   "
  221. 2200 print"1. [158]breads"
  222. 2210 print"2. [158]cereals"
  223. 2220 print"3. [158]pastas"
  224. 2230 print"4. [158]cookies"
  225. 2240 print"5. [158]deserts"
  226. 2250 print"6. [158]crackers"
  227. 2260 print"7. [158]vegetables"
  228. 2270 print"q. back to group selection"
  229. 2280 print""
  230. 2290 print""
  231. 2300 print"[145][159]input starch number"
  232. 2310 rp$=""
  233. 2320 get rp$:if rp$=""then goto2320  
  234. 2330 if rp$ ="1" then goto2490  
  235. 2340 if rp$ ="2" then goto2500  
  236. 2350 if rp$ ="3" then goto2510  
  237. 2360 if rp$ ="4" then goto2520  
  238. 2370 if rp$ ="5" then goto2530  
  239. 2380 if rp$ ="6" then goto2540  
  240. 2390 if rp$ ="7" then goto2550  
  241. 2400 if rp$ ="q" then1800
  242. 2410 rem **  **  **  **  **  **  **  **
  243. 2420 print"[145] not defined "
  244. 2430 ti$ ="000000"
  245. 2440 if ti$ < "000002" then goto2440  
  246. 2450 goto2160 
  247. 2460 rem
  248. 2470 rem **  **  **  **  **  **  **  **
  249. 2480 rem
  250. 2490 nf$="breads":goto2650 
  251. 2500 nf$="cereals":goto2650 
  252. 2510 nf$="pasta":goto2650 
  253. 2520 nf$="cookies":goto2650 
  254. 2530 nf$="dessert":goto2650 
  255. 2540 nf$="crackers":goto2650 
  256. 2550 nf$="stch-veget":goto2650 
  257. 2560 nf$="protein":goto2650 
  258. 2570 nf$="fruit":goto2650 
  259. 2580 nf$="vegetable":goto2650 
  260. 2590 nf$="fast-foods":goto2650 
  261. 2600 nf$="fat-items":goto2650 
  262. 2610 nf$="free-items":goto2650 
  263. 2620 nf$="mixed-foods":goto2650 
  264. 2630 rem
  265. 2640 rem **  **  **  **  **  **  **  **
  266. 2650 gosub410 :rem clear work
  267. 2660 gosub590 :rem read file in
  268. 2670 print "[147][158]";tab(14);"food group"
  269. 2680 print tab(16)"";nf$;"[158]"
  270. 2690 print "#       item           measure calories"
  271. 2700 for i=1 to 105
  272. 2710 print "                                       "
  273. 2720 print "[145]";i;tab(6)f1$(i);tab(26)f2$(i);tab(33)f3%(i)
  274. 2730 if i=15 then goto2820 
  275. 2740 if i=30 then goto2820 
  276. 2750 if i=45 then goto2820 
  277. 2760 if i=60 then goto2820 
  278. 2770 if i=75 then goto2820 
  279. 2780 if i=90 then goto2820 
  280. 2790 if i=105 then goto2820 
  281. 2800 if i < 1 then goto2670 
  282. 2810 next i
  283. 2820 print "                          "
  284. 2830 print "enter c[158]ont b[158]ack e[158]dit q[158]uit p[158]rint s[158]elect"
  285. 2840 rp$=""
  286. 2850 get rp$:if rp$="" then goto2850 
  287. 2860 if rp$="b" then print "":i=i-30:goto2800 
  288. 2870 if rp$="c"and i>104 then goto2670 
  289. 2880 if rp$="c" then print "":goto2810
  290. 2890 if rp$="e" then goto2950 
  291. 2900 if rp$="p" then gosub1210 
  292. 2910 if rp$="s" then goto3480 
  293. 2920 if rp$="q" then3260
  294. 2930 goto2840 
  295. 2940 rem **  **  **  **  **  **  **  **
  296. 2950 r$="x":rp$=""
  297. 2960 print "[145]                                      "
  298. 2970 print"[145] input number to change";:lg=2:gosub60040
  299. 2980 if rp$="q" then2670
  300. 2990 ne%=val(rp$)
  301. 3000 if ne% < 1 then goto2950 
  302. 3010 if ne% > i then goto2950 
  303. 3020 if ne% > 105 then goto2950 
  304. 3030 print "[145]                                      ":rp$=""
  305. 3040 print "[145]  input description  ";:lg=14:gosub60040
  306. 3050 if rp$="q" then2670
  307. 3060 if len(rp$)=0 then f1$(ne%)="zzz":f2$(ne%)="z":f3%(ne%)=0:goto3230 
  308. 3070 ifrp$<"a"orrp$>"z"then3030
  309. 3080 f1$(ne%)=rp$
  310. 3090 print "[145]                                      ":rp$=""
  311. 3100 print "[145]  input measure  ";:lg=6:gosub60040
  312. 3110 ifrp$="q" then2670
  313. 3120 ifrp$<"0"orrp$>"9"then3090
  314. 3130 if len(rp$) < 1 then goto3100 
  315. 3140 f2$(ne%)=rp$
  316. 3150 print "[145]                                      ":rp$=""
  317. 3160 print "[145]  input calories  ";:lg=4:gosub60040
  318. 3170 ifrp$="q" then2670
  319. 3180 ifrp$<"0"orrp$>"9"then3150
  320. 3190 if len(rp$) < 1 then goto3160 
  321. 3200 aa%=val(rp$)
  322. 3210 if aa% > 700 then goto3150 
  323. 3220 f3%(ne%)=aa%
  324. 3230 print "":i=i-14:goto2710 
  325. 3240 rem
  326. 3250 rem **  **  **  **  **  **  **  **
  327. 3260 if r$="x"then gosub3320 :gosub810 
  328. 3270 r$=""
  329. 3280 goto1800 
  330. 3290 rem
  331. 3300 rem **  **  **  **  **  **  **  **
  332. 3310 rem this is the actual sort
  333. 3320 print "[147] changes made to list"
  334. 3330 print "  sorting alpha by item "
  335. 3340 m=1:x=105
  336. 3350 rem
  337. 3360 t=0:for i=1 to x - m
  338. 3370 if f1$(i) < f1$(i+1) then3420 
  339. 3380 if f1$(i) = f1$(i+1) then3420 
  340. 3390 w$=f1$(i):f1$(i)=f1$(i+1):f1$(i+1)=w$
  341. 3400 w$=f2$(i):f2$(i)=f2$(i+1):f2$(i+1)=w$
  342. 3410 w%=f3%(i):f3%(i)=f3%(i+1):f3%(i+1)=w%:t=1
  343. 3420 next i
  344. 3430 m = m + 1
  345. 3440 if t<> 0 then goto3360 
  346. 3450 return
  347. 3460 rem
  348. 3470 rem *************************
  349. 3480 rp$=""
  350. 3490 print "[145]                                       "
  351. 3500 print "[145]enter c[159]ont q[159]uit or [159]select #[158] ";:lg=2:gosub60040
  352. 3510 if rp$="c"then print"":goto2810
  353. 3520 if rp$="q"then2670
  354. 3530 ne%=val(rp$)
  355. 3540 if ne% < 1 then goto3490 
  356. 3550 if ne% > i then goto3490 
  357. 3560 if ne% > 105 then goto3490 
  358. 3570 ml$=""
  359. 3580 print "[145]                                       "
  360. 3590 print "[145]  what meal   b - l - d - s  ";:lg=1:gosub60040:ml$=rp$
  361. 3600 if ml$="b" then goto3650 
  362. 3610 if ml$="l" then goto3660 
  363. 3620 if ml$="d" then goto3670 
  364. 3630 if ml$="s" then goto3680 
  365. 3640 goto3570 
  366. 3650 ml$="1":goto3690 
  367. 3660 ml$="2":goto3690 
  368. 3670 ml$="3":goto3690 
  369. 3680 ml$="4"
  370. 3690 ct%=ct%+1
  371. 3700 if ct% >20 then goto3760 
  372. 3710 mc$(ct%)=ml$
  373. 3720 m1$(ct%)=f1$(ne%)
  374. 3730 m2$(ct%)=f2$(ne%)
  375. 3740 m3%(ct%)=f3%(ne%)
  376. 3750 goto3480 
  377. 3760 print "[147] only allowed 20 items on menu"
  378. 3770 ti$ ="000000"
  379. 3780 if ti$ < "000003" then goto3780  
  380. 3790 goto1440 
  381. 3800 rem **  **  **  **  **  **  **  **
  382. 3810 print "[147] selection made to menu"
  383. 3820 print "  sorting by meal  "
  384. 3830 m=1:x=20
  385. 3840 rem
  386. 3850 t=0:for i=1 to x - m
  387. 3860 if mc$(i) < mc$(i+1) then3920 
  388. 3870 if mc$(i) = mc$(i+1) then3920 
  389. 3880 w$=mc$(i):mc$(i)=mc$(i+1):mc$(i+1)=w$
  390. 3890 w$=m1$(i):m1$(i)=m1$(i+1):m1$(i+1)=w$
  391. 3900 w$=m2$(i):m2$(i)=m2$(i+1):m2$(i+1)=w$
  392. 3910 w%=m3%(i):m3%(i)=m3%(i+1):m3%(i+1)=w%:t=1
  393. 3920 next i
  394. 3930 m = m + 1
  395. 3940 if t<> 0 then goto3850 
  396. 3950 return
  397. 3960 rem **  **  **  **  **  **  **  **
  398. 3970 gosub310 
  399. 3980 print"[158]                      "
  400. 3990 print"   calorie selector   "
  401. 4000 print"[158]                      "
  402. 4010 print"    menu processing   "
  403. 4020 print"[158]a.  current work menu"
  404. 4030 print"b.  previous menus"
  405. 4040 print"c.  start new work menu"
  406. 4050 print"    (will clear work menu)[158]"
  407. 4060 print"d.  directory of files"
  408. 4070 print"r.  return to function screen"
  409. 4080 print"[145][159]input process letter"
  410. 4090 rp$=""
  411. 4100 get rp$:if rp$=""then goto4100  
  412. 4110 if rp$ ="a" then goto4210  
  413. 4120 if rp$ ="b" then goto4750  
  414. 4130 if rp$="c"then gosub500 :goto1800 
  415. 4140 if rp$="d"then gosub5590 :goto3970 
  416. 4150 if rp$ ="r" then goto1440  
  417. 4160 rem **  **  **  **  **  **  **  **
  418. 4170 print"[145] not defined "
  419. 4180 ti$ ="000000"
  420. 4190 if ti$ < "000002" then goto4190  
  421. 4200 goto4080  
  422. 4210 gosub3810 
  423. 4220 print "[147]";tab(15)"work - menu[158]"
  424. 4230 for i=1to20
  425. 4240 if mc$(i)="1"then mx$(i)="brkfst"
  426. 4250 if mc$(i)="2"then mx$(i)="lunch "
  427. 4260 if mc$(i)="3"then mx$(i)="dinner"
  428. 4270 if mc$(i)="4"then mx$(i)="snack "
  429. 4280 next i
  430. 4290 tc%=0
  431. 4300 for i=1  to 20
  432. 4310 if mc$(i)="z" then goto4340 
  433. 4320 print mx$(i);"  ";m1$(i);tab(25)m2$(i);tab(32)m3%(i)
  434. 4330 tc%=tc%+m3%(i)
  435. 4340 next i
  436. 4345 iftc%=0thenprint"             nothing on menu[158]":goto4360
  437. 4350 print tab(25)"total";tc%
  438. 4360 print "[158] enter p[158]rint c[158]ont s[158]ave"
  439. 4370 rp$=""
  440. 4380 get rp$:if rp$="" then goto4380 
  441. 4390 if rp$="c" then goto3970
  442. 4400 if rp$="p"thengosub1210:goto3970 
  443. 4410 if rp$="s" then goto4440 
  444. 4420 goto4370 
  445. 4430 rem **  **  **  **  **  **  **  **
  446. 4440 print "[147] input q[158] to skip saving this menu"
  447. 4450 nm$=""
  448. 4460 print "save the menu"
  449. 4470 print " name ? [159]";:lg=15:gosub60040:nm$=rp$
  450. 4480 if nm$="q" then goto4580
  451. 4490 open15,8,15,"io"
  452. 4500 gosub4590 
  453. 4510 open5,8,5,"0:"+nm$+",seq,w"
  454. 4520 gosub4590 
  455. 4530 for i=1to20
  456. 4540 print#5,mc$(i):print#5,m1$(i)
  457. 4550 print#5,m2$(i):print#5,m3%(i)
  458. 4560 next i
  459. 4570 close5:close15
  460. 4580 goto3970 
  461. 4590 input#15,en,em$,et,es
  462. 4600 if en=0 then return
  463. 4610 if en=62 then goto4690 
  464. 4620 if en=63 then goto4650 
  465. 4630 print " error ";en;em$;et;es
  466. 4640 close5:close15:end
  467. 4650 print " file exists"
  468. 4660 ti$ ="000000"
  469. 4670 if ti$ < "000003" then goto4670 
  470. 4680 goto4570 
  471. 4690 print " file not found"
  472. 4700 ti$ ="000000"
  473. 4710 if ti$ < "000003" then goto4710 
  474. 4720 close5:close15
  475. 4730 goto3970 
  476. 4740 rem **  **  **  **  **  **  **  **
  477. 4750 print "[147] "
  478. 4760 gosub500 
  479. 4770 nm$=""
  480. 4775 print" load a menu"
  481. 4777 print"this will clear the current work menu"
  482. 4778 print"press return[146] without entering anything"
  483. 4779 print"to go back and keep current work menu."
  484. 4780 print "name of menu? ";:lg=15:gosub60040:nm$=rp$
  485. 4800 open15,8,15,"io"
  486. 4810 gosub4590 
  487. 4820 open5,8,5,"0:"+nm$+",seq,r"
  488. 4830 gosub4590 
  489. 4840 for i=1to20
  490. 4850 input#5,mc$(i):input#5,m1$(i)
  491. 4860 input#5,m2$(i):input#5,m3%(i)
  492. 4870 next i
  493. 4880 close5:close15
  494. 4890 goto4220 
  495. 4900 printchr$(9)chr$(14):print "[147][158]        [199]eneral [201]nformation"
  496. 4910 print "[158]   [212]his program will maintain up to 105"
  497. 4920 print "food items within each type group."
  498. 4930 print "   [217]ou may change or delete food items "
  499. 4940 print "as your taste may dictate. [213]se the [197][158]dit"
  500. 4950 print "instruction then type information as "
  501. 4960 print "requested. [206]o description entered"
  502. 4970 print "will move zzz to description for sort."
  503. 4975 print "   [209][158] will return you to main menu or"
  504. 4980 print "previous screen. [193]ny change and the"
  505. 4990 print "system will sort and rewrite to disk."
  506. 5000 print "   [217]ou create a work menu from these"
  507. 5010 print "food types. [211][158]elect the number of the"
  508. 5020 print "item you want and what meal, [194][158]reakfast"
  509. 5030 print "[204][158]unch, [196][158]inner, or [211][158]nack. [212]he system"
  510. 5040 print "will build your work menu, then you "
  511. 5050 print "[211][158]ave the work menu with a new name"
  512. 5060 print "for use or printing at a later date."
  513. 5070 print ""
  514. 5080 rp$=""
  515. 5090 print " [158][208]ress [211][208][193][195][197][146] [158]to continue  [208][158] to print"
  516. 5100 geta$:ifa$=""then5100
  517. 5110 ifa$=chr$(32) then5150
  518. 5120 ifa$="p" then gosub1210
  519. 5130 print "[145][145]"
  520. 5140 goto5080
  521. 5150 print "[147][211]pecific [198]unctions[158]"
  522. 5160 print "    [212]o execute phases enter the first"
  523. 5170 print "letter or number shown then [[210][197][212][213][210][206]]
  524. 5180 [153] " str$right$(NULL)(NULL)(NULL)atn(NULL)  val(NULL)(NULL)val(NULL)        atnlen(NULL)right$(NULL)(NULL)"
  525. 5190 [153] " syslen(NULL)(NULL)(NULL)       len    lenontinues listing"
  526. 5200 [153] " peekatnlen(NULL)       peek    (NULL)crolls back"
  527. 5210 [153] " valstr$right$(NULL)       val    (NULL)oads edit screen for"
  528. 5220 [153] "                 maintenance on item"
  529. 5230 [153] " (NULL)(NULL)right$(NULL)       (NULL)    (NULL)tops and backs up"
  530. 5240 [153] "                 for another selection"
  531. 5250 [153] " (NULL)(NULL)right$(NULL)(NULL)      (NULL)    (NULL)rints screen"
  532. 5260 [153] " (NULL)val(NULL)vallen(NULL)     (NULL)    chr$oes to select screen"
  533. 5270 [153] "                 where you build your"
  534. 5275 [153] "                 work menu"
  535. 5280 [153] "   #       99    (NULL)elects food then"
  536. 5290 [153] "                 asks which meal"
  537. 5300 [153] "      peek=openpeekreakfast     (NULL)=open(NULL)unch"
  538. 5310 [153] "      str$=openstr$inner        (NULL)=open(NULL)nacksys"
  539. 5320 [153] " (NULL)atn(NULL)val       (NULL)    (NULL)aves the menu"
  540. 5340 [153] " (NULL)ress (NULL)(NULL)atnlenvalwait systo continue  (NULL)sys to print"
  541. 5350 [161]a$:[139]a$[178]""[167]5350
  542. 5360 [139]a$[178][199](32) [167]5400
  543. 5370 [139]a$[178]"p" [167] [141]1210
  544. 5390 [137]5350
  545. 5400 [153] "loadsys           (NULL)enu right$nformation"
  546. 5410 [153] "sys   (NULL)o save, print, or review the"
  547. 5420 [153] " work menu or previous menus you will"
  548. 5430 [153] " have to return to the first screen,"
  549. 5435 [153] " and select (NULL)sys for menu processing."
  550. 5440 [153] "  (NULL)his also will allow you to start"
  551. 5450 [153] " new menus and see the files on disk."
  552. 5455 [153] " atnlso, if you program, you could insert"
  553. 5457 [153] " instructions at about line 1600 for"
  554. 5458 [153] " some other functions you may want."
  555. 5460 [153] "                                  "
  556. 5470 [153] " (NULL)ress (NULL)(NULL)atnlenvalwait systo continue  (NULL)sys to print"
  557. 5480 rp$[178]""
  558. 5500 [161]a$:[139]a$[178]""[167]5500
  559. 5510 [139]a$[178][199](32) [167]1440
  560. 5520 [139]a$[178]"p" [167] [141]1210
  561. 5540 [137]5500
  562. 5550 [143]
  563. 5560 [143] *****************************
  564. 5570 [143]    directory listing prog
  565. 5580 [143] *****************************
  566. 5590 [153] "load  reading directory"
  567. 5600 [159]15,8,15,"io"
  568. 5610 [159]1,8,2,"$"
  569. 5620 [129] x[178]1[164]141:[161]#1,a$:[130]
  570. 5630 t$(0)[178]"del":t$(1)[178]"seq":t$(2)[178]"prg":t$(3)[178]"usr":t$(4)[178]"rel"
  571. 5640 j[178]17:[141]5900 
  572. 5650 n$[178]b$
  573. 5660 j[178]2
  574. 5670 [141]5900 
  575. 5680 i$[178]b$
  576. 5690 [161]#1,a$
  577. 5700 j[178]2
  578. 5710 [141]5900 
  579. 5720 o$[178]b$
  580. 5730 [129]  l[178]1[164]88
  581. 5740 [161]#1,a$
  582. 5750 [130]
  583. 5760 [153] [199](147)"disk name:"n$,"id:"i$,"os:"o$
  584. 5770 [153] "length","type","name"
  585. 5780 [129] p[178]1[164]8
  586. 5790 [161]#1,t$,a$,a$
  587. 5800 [139] t$[178]"" [167] t$[178][199](128)
  588. 5810 j[178]15
  589. 5820 [141]5900 
  590. 5830 n$[178]b$
  591. 5840 [161]#1,a$,a$,a$,a$,a$,a$,a$,a$,a$,l$,h$
  592. 5850 l[178][198](l$[170][199](0))[170]256[172][198](h$[170][199](0)):[139] l[178]0 [167]5890 
  593. 5860 [139] st [167] [160]1:[160]15:[137]5960
  594. 5870 [153] l,t$([198](t$)[171]128),n$
  595. 5880 [139] p[179]8 [167] [161]#1,a$,a$
  596. 5890 [130] p:[137]5780 
  597. 5900 b$[178]""
  598. 5910 [129] l[178]0[164]j
  599. 5920 [161]#1,a$
  600. 5930 [139] a$[179][177][199](96) [167] [139] a$[179][177][199](160)[167] b$[178]b$[170]a$
  601. 5940 [130]
  602. 5950 [142]
  603. 5960 rp$[178]""
  604. 5970 [153] "hit a key to continue"
  605. 5980 [161] rp$
  606. 5990 [139] rp$[178]"" [167] [137]5980  
  607. 6000 [142]
  608. 60040 k$[178]"":te[178][194](646):[153]" - sys";:[151]198,0.
  609. 60041 [153]" cmdwait";:[129]t[178]1[164]50:[130]:[153]" cmdsys";
  610. 60042 [161]a$:[139]a$[178]""[167]60041
  611. 60044 [139]a$[178][199](13)[167][153]:[151]646,te:rp$[178]k$:[142]
  612. 60045 [139]a$[178][199](20)[175][195](k$)[167][153]"cmd cmd";:k$[178][200](k$,[195](k$)[171]1):[137]60041
  613. 60046 [139][195](k$)[178]lg[167]60041
  614. 60047 [139](a$[177][178]"0"[175]a$[179][178]"9")[176](a$[177][178]"a"[175]a$[179][178]"z")[167][153]a$;:k$[178]k$[170]a$
  615. 60048 [139]a$[178]"-"[176]a$[178]"*"[176]a$[178]" "[176]a$[178]"."[167][153]a$;:k$[178]k$[170]a$
  616. 60049 [137]60041
  617.