home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 245 / 245.d81 / env.addr (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  14KB  |  443 lines
  1. 5 print"[147]":gosub50010
  2. 10 rem "set up"
  3. 15 dv=peek(186)
  4. 20 re$=chr$(13)
  5. 30 open15,dv,15
  6. 40 poke53280,0:poke53281,0:poke646,7
  7. 50 rem "master main menu subroutine"
  8. 60 print"[147]":printchr$(14):printtab(7)"[215]elcome to the [205]ain [205]enu!"
  9. 70 printtab(11)"[195]hoose an option ..."
  10. 80 print" 1. ";chr$(34);"[198]rom";chr$(34);" [193]ddress [205]aker"
  11. 90 print" 2. ";chr$(34);"[212]o";chr$(34);" [193]ddress [205]aker"
  12. 100 print" 3. [195]all [193]n [193]ddress [207]ff [196]isc"
  13. 110 print" 4. [208]review [197]nvelope"
  14. 120 print" 5. [208]rint [197]nvelope [198]ace"
  15. 130 print" 6. [196]elete [193]n [193]ddress [207]ff [196]isc"
  16. 140 print" 7. [212]he ";chr$(34);"[212]o";chr$(34);" [193]ddress [197]ditor"
  17. 150 print" 8. [199]et [207]utta [200]ere!"
  18. 160 print"[212]ype  [197][206][196] [146] at the beginning of any      opening ";:
  19. 170 print"input to escape a function menu"
  20. 180 print"[212]ype  [204][201][211][212] [146] at the beginning of any     opening input to ";:
  21. 190 print"access the disc's      directory."
  22. 200 geta$:ifa$=""then200
  23. 210 ifa$="1"then1480
  24. 220 ifa$="2"then1700
  25. 230 ifa$="3"then310
  26. 240 ifa$="4"then1930
  27. 250 ifa$="5"then2270
  28. 260 ifa$="6"then790
  29. 270 ifa$="7"then2560
  30. 280 ifa$="8"then1280
  31. 290 goto200
  32. 300 rem "address off disc subroutine"
  33. 310 print"[147]":printchr$(14):printtab(6)"[193]ddress [207]ff [196]isc [211]ub [205]enu"
  34. 320 printtab(8)" [195]hoose an [207]ption ..."
  35. 330 print" 1. [195]all [207]ff [212]he ";chr$(34);"[198]rom";chr$(34);" [193]ddress
  36. 340 [153]" 2. lenall (NULL)ff (NULL)he ";[199](34);"(NULL)o";[199](34)" atnddress"
  37. 350 [153]" 3. chr$o peekack (NULL)o (NULL)ain (NULL)enu"
  38. 360 [153]" 4. chr$et (NULL)utta left$ere atnltogether!"
  39. 370 [153]" (NULL)ress  (NULL) wait to list the disc's directory."
  40. 380 [161]a$:[139]a$[178]""[167]380
  41. 390 [139]a$[178]"1"[167]460
  42. 400 [139]a$[178]"2"[167]1040
  43. 410 [139]a$[178]"3"[167]60
  44. 420 [139]a$[178]"4"[167]1280
  45. 430 [139]a$[178]"q"[167]3500
  46. 440 [137]380
  47. 450 [143] "from reader subroutine"
  48. 460 [153]"load":[153][199](142):[153]"   name of ";[199](34);"from";[199](34);:
  49. 470 [153]" address data file"
  50. 480 [153][163]14)"";:[133]rf$
  51. 490 [139][195](rf$)[177]14[167]2470
  52. 500 [139]rf$[178]"list"[167]3500
  53. 510 [139]rf$[178]"end"[167]310
  54. 520 [159]2,dv,2,"0:f/"[170]rf$[170]",s,r"
  55. 530 [132]2,rn$,ra$,rc$,rs$,rz$,sm$
  56. 540 [141]2520
  57. 550 [160]2
  58. 560 [153]" ";[199](34);"from";[199](34);" name: ";rn$
  59. 570 [153]" ";[199](34);"from";[199](34);" address: ";ra$
  60. 580 [153]" ";[199](34);"from";[199](34);" city: ";rc$
  61. 590 [153]" ";[199](34);"from";[199](34);" state abbreviation: ";rs$
  62. 600 [153]" ";[199](34);"from";[199](34);" postal code: ";rz$
  63. 610 [153]" special message: ";sm$
  64. 620 [153][163]9)"look good to you (y/n)?"
  65. 630 [161]a$:[139]a$[178]""[167]630
  66. 640 [139]a$[178]"y"[167]690
  67. 650 [139]a$[178]"n"[167]670
  68. 660 [137]630
  69. 670 [153][163]9)"let's try again ..."
  70. 680 [129]i[178]1[164]2000:[130]:[137]450
  71. 690 [153]"this ";[199](34);"from";[199](34);" address will stay in your ";:
  72. 700 [153]"  computer's memory until";:
  73. 710 [153]" you either:     (1) call up a different ";[199](34);"from";[199](34);:
  74. 720 [153]" address  or (2) shut down."
  75. 730 [153][163]6)" press  return wait to continue."
  76. 740 [161]a$:[139]a$[178]""[167]740
  77. 750 [139]a$[179][177]re$[167]740
  78. 760 [139]a$[178]re$[167]310
  79. 770 [137]740
  80. 780 [143] "delete address subroutine"
  81. 790 [153]"load":[153][199](142):[153][163]11)"delete an address"
  82. 800 [153]"   name of data file to get rid of"
  83. 810 [153][163]12)"";:[133]y7$
  84. 820 [139][195](y7$)[177]14[167]2470
  85. 830 [139]y7$[178]"end"[167]60
  86. 840 [139]y7$[178]"list"[167]3500
  87. 850 [153]" you have chosen  ";y7$;" wait to delete."
  88. 860 [153]" is this a ";[199](34);"(f)rom";[199](34);" address or a ";:
  89. 870 [153][199](34);"(t)o";[199](34);"  address?"
  90. 880 [161]a$:[139]a$[178]""[167]880
  91. 890 [139]a$[178]"f"[167]920
  92. 900 [139]a$[178]"t"[167]950
  93. 910 [137]880
  94. 920 [153]" deleting ";[199](34);"from";[199](34);" address  ";y7$;" wait"
  95. 930 [152]15,"s:f/";y7$:[141]2520
  96. 940 [137]980
  97. 950 [153]" deleting ";[199](34);"to";[199](34);" address  ";y7$;" wait"
  98. 960 [152]15,"s:t/";y7$:[141]2520
  99. 970 [137]980
  100. 980 [153]"  ";y7$;" wait has vamoosed!  any others (y/n)?"
  101. 990 [161]a$:[139]a$[178]""[167]990
  102. 1000 [139]a$[178]"y"[167]790
  103. 1010 [139]a$[178]"n"[167]60
  104. 1020 [137]990
  105. 1030 [143] "to reader subroutine"
  106. 1040 [153]"load":[153][199](142):[153]"    name of ";[199](34);"to";[199](34);:
  107. 1050 [153]" address data file"
  108. 1060 [153][163]14)"";:[133]nf$
  109. 1070 [139][195](nf$)[177]14[167]2470
  110. 1080 [139]nf$[178]"list"[167]3500
  111. 1090 [139]nf$[178]"end"[167]310
  112. 1100 [159]2,dv,2,"0:t/"[170]nf$[170]",s,r"
  113. 1110 [132]2,nr$,at$,ar$,cr$,sr$,cz$
  114. 1120 [141]2520
  115. 1130 [160]2
  116. 1140 [153]" ";[199](34);"to";[199](34);" name: ";nr$
  117. 1150 [153]" attn: ";at$
  118. 1160 [153]" ";[199](34);"to";[199](34);" address: ";ar$
  119. 1170 [153]" ";[199](34);"to";[199](34);" city: ";cr$
  120. 1180 [153]" ";[199](34);"to";[199](34);" state abbreviation: ";sr$
  121. 1190 [153]" ";[199](34);"to";[199](34);" postal code: ";cz$
  122. 1200 [153][163]6)"look good to you? (y/n)"
  123. 1210 [161]a$:[139]a$[178]""[167]1210
  124. 1220 [139]a$[178]"n"[167]1250
  125. 1230 [139]a$[178]"y"[167]60
  126. 1240 [137]1210
  127. 1250 [153][163]9)"let's try again ..."
  128. 1260 [129]i[178]1[164]2000:[130]:[137]1040
  129. 1270 [143] "acknowledgements"
  130. 1280 [153]"load":[153][199](14):[153][163]11)"(NULL)y thanks to ..."
  131. 1290 [153]" chr$abriel (NULL)oach wait ..."
  132. 1300 [153]"(NULL)y son, whose knowledge of multiformats showed me easier ways ";:
  133. 1310 [153]"to make this      program work than right$ knew possible."
  134. 1320 [153]" atnlana (NULL)oach wait ..."
  135. 1330 [143] print"(NULL)y patient wife, who withstood hours of late night pounding on";:
  136. 1331 [153]"(NULL)y patient wife, who, without complaint,withstood hours of late night";
  137. 1332 [153]" pounding  on my len-64 to get this project done."
  138. 1350 [141]30000
  139. 1360 [153]"load (NULL)ance (NULL)ellinger wait ...":[153]"(NULL)f the (NULL)nited (NULL)tatesclose(NULL)ost (NULL)ffice";:
  140. 1370 [153]" for    showing me the proper placing on an     envelope that";:
  141. 1380 [153]" looks best by (NULL).(NULL).(NULL).(NULL).    standards."
  142. 1390 [153]"(NULL)he lenommodore (NULL)sers chr$roup (NULL)f (NULL)ansas lenitywait":[153]"ascor ";:
  143. 1400 [153]"their help in getting this work     polished for public use."
  144. 1410 [153][163]16)"atnnd ..."
  145. 1420 [141]30000
  146. 1430 [153]"load":[153]" (NULL)he (NULL)ord mid$esus lenhrist wait ..."
  147. 1440 [153]"(NULL)ho sees hope for everyone and          everything ...";:
  148. 1450 [153]" even the lenommodore       computer."
  149. 1460 [160]2:[160]3:[160]15:[141]30000:[137]40000
  150. 1470 [143] "from address maker subroutine"
  151. 1480 [153]"load":[153][199](142):[153][163]9)" ";[199](34);"from";[199](34);:
  152. 1490 [153]" address maker"
  153. 1500 [153]"";[199](34);"from";[199](34);" name  ";:[133]rn$
  154. 1510 [139]rn$[178]"list"[167]3500
  155. 1520 [139]rn$[178]"end"[167]60
  156. 1530 [153]"";[199](34);"from";[199](34);" address  ";:[133]ra$
  157. 1540 [153]"";[199](34);"from";[199](34);" city  ";:[133]rc$
  158. 1550 [153]"";[199](34);"from";[199](34);" state abbreviation  ";:[133]rs$
  159. 1560 [153]"";[199](34);"from";[199](34);" postal code  ";:[133]rz$
  160. 1570 [133]"special message  ";sm$
  161. 1580 [153][163]4)"save this ";[199](34);"from";[199](34);" address (y/n)?"
  162. 1590 [161]a$:[139]a$[178]""[167]1590
  163. 1600 [139]a$[178]"y"[167]1630
  164. 1610 [139]a$[178]"n"[167]60
  165. 1620 [137]1590
  166. 1630 [153]"save this ";[199](34);"from";[199](34);" address as  ";:[133]rf$
  167. 1640 [139][195](rf$)[177]14[167]2470
  168. 1650 [159]2,dv,2,"@0:f/"[170]rf$[170]",s,w"
  169. 1660 [152]2,rn$;re$;ra$;re$;rc$;re$;rs$;re$;rz$;re$;sm$
  170. 1670 [141]2520
  171. 1680 [160]2:[137]60
  172. 1690 [143] "to address maker subroutine"
  173. 1700 [153]"load":[153][199](142):[153][163]4)"  ";[199](34);"to";[199](34);:
  174. 1710 [153]" address maker"
  175. 1720 [153]"";[199](34);"to";[199](34);" name  ";:[133]nr$
  176. 1730 [139]nr$[178]"list"[167]3500
  177. 1740 [139]nr$[178]"end"[167]40
  178. 1750 [133]"attn:  ";at$
  179. 1760 [153]"";[199](34);"to";[199](34);" address  ";:[133]ar$
  180. 1770 [153]"";[199](34);"to";[199](34);" city  ";:[133]cr$
  181. 1780 [153]"";[199](34);"to";[199](34);" state abbreviation  ";:[133]sr$
  182. 1790 [153]"";[199](34);"to";[199](34);" postal code  ";:[133]cz$
  183. 1800 [153]" save this ";[199](34);"to";[199](34);" address? (y/