home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / mr.mailman.base (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  13KB  |  553 lines
  1. 10 REM"  [196][193][212][193][160][194][193][211][197] -- [193]LAN [215]. [199]ARDNER
  2. 20 [143]"    ASCRIGHT$(null)ATN(null)CLOSE(null)(null)(null)MID$VALLEN(null) -- LEN(null)LENCLOSE211
  3. 30 REM"       [215]RITTEN 9-5-85
  4. 40 [143]
  5. 50 [143]"(null)HIS PROGRAM IS DESIGNED TO KEEP
  6. 60 REM" TRACK OF NAMES, ADDRESSES, AND
  7. 70 [143]" PHONE NUMBERS IN A (null)VAL(null)ATIVE
  8. 80 REM" FILE.  [207]PTIONS INCLUDE SORTING,
  9. 85 [143]" ADDING, DELETING, VIEWING,
  10. 87 REM" SEARCHING, AND PRINTING DATA.
  11. 90 [143]
  12. 99 [143]
  13. 100 [141] 1000  : [143]  INITALIZE
  14. 110 [141] 2000  : [143]  MENU
  15. 120 INKEY[178][197](INKEY$)
  16. 130 [145] INKEY [141] 3000,4000,5000,6000,7000,8000,9000
  17. 140 [143]
  18. 150 [143]   3000  -- INPUT DATA
  19. 160 [143]   4000  -- DELETE ENTRY
  20. 170 [143]   5000  -- SORT DATA
  21. 180 [143]   6000  -- LIST DATA
  22. 185 [143]   7000  -- EDIT DEFAULTS
  23. 187 [143]   8000  -- SEARCH DATA
  24. 189 [143]   9000  -- PRINT DATA
  25. 190 [143]  60000  -- END PROGRAM
  26. 200 [143]
  27. 210 [139] INKEY[179][177]8[167]110 :[143] RETURN TO MENU
  28. 220 [137]60000 : [143]  GOTO EXIT
  29. 300 [143]
  30. 1000 [143]   INITIALIZE
  31. 1001 [159]8,8,8,"$":[129]C1[178]1[164]142:[161]#8,K$:[130]C1:[129]C1[178]144[164]160:[161]#8,K$:[130]
  32. 1002 [161]#8,L$,M$,N$
  33. 1004 ID$[178]M$[170]N$:[153]ID$
  34. 1006 [160]8
  35. 1010 CR$[178][199](13):RN[178]0:NR[178]0
  36. 1015 [159]15,8,15
  37. 1020 [151]53281,0:[151]53280,6:[153]"LOAD"
  38. 1030 [134] TEXT$(400),SERT$(400)
  39. 1040 [141]10000:  [143] OPEN FILE
  40. 1045 [141]16000:  [143] READ # OF RECORDS
  41. 1050 [141]11000:  [143] CLOSE FILE
  42. 1900 [142]
  43. 1910 :
  44. 2000 [143]   MAIN MENU
  45. 2010 [153]"LOADPRINT#           ** (null)R.(null)AILMAN **"
  46. 2012 [153]"     LEFT$E KNOWS EVERYONE'S ADDRESS!"
  47. 2013 [153]"                V. 3.9"
  48. 2020 [153]"       (null)RITTEN BY ATNLAN (null). CHR$ARDNER"
  49. 2025 [153]"LIST (null)UMBER OF PEOPLE ON FILE:"NR
  50. 2030 [153]" LEFT$ERE ARE YOUR OPTIONS."
  51. 2040 [153]" 1. ==> RIGHT$NPUT NEW DATA"
  52. 2050 [153]" 2. ==> STR$ELETE DATA"
  53. 2060 [153]" 3. ==> (null)ORT DATA"
  54. 2070 [153]" 4. ==> (null)IST CURRENT DATA"
  55. 2075 [153]" 5. ==> LENHANGE STR$EFAULTS"
  56. 2077 [153]" 6. ==> (null)EARCH STR$ATA"
  57. 2078 [153]" 7. ==> (null)RINT STR$ATA"
  58. 2080 [153]" 8. ==> VALXIT PROGRAM"
  59. 2090 [153]"(null)HICH WOULD YOU LIKE? ";
  60. 2100 [151]198,0:[146]198,1:[161] INKEY$
  61. 2110 [139] INKEY$[179]"1"[176]INKEY$[177]"8"[167][151]53280,[187](1)[172]15:[137]2100
  62. 2120 [153]INKEY$
  63. 2900 [142]
  64. 2910 :
  65. 3000 [143]   INPUT DATA FOR NEW RECORD
  66. 3001 [139]NR[179]4[167]3005
  67. 3002 [139]ID$[179][177]"\$"[167]3005
  68. 3003 [153]"LOAD(null)ORRY..NOT ENOUGH ROOM ON THIS (null)(null)ATNSTR$(null)(null)ATN(null)"
  69. 3004 [153]"DISK.  (null)LEASE COPY IT TO ANOTHER DISK.":[129]DL[178]1[164]2000:[130]DL:[142]
  70. 3005 LAST$[178]"":FIRST$[178]"":ADDR$[178]""
  71. 3006 CITY$[178]D1FAULT$:STATE$[178]D2FAULT$:ZIP$[178]D3FAULT$
  72. 3007 PHNUM$[178]"":COMMENT$[178]"":FLAG[178]0
  73. 3008 LI$[178]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  74. 3009 BL$[178]"                       "
  75. 3010 [153]"LOAD"
  76. 3020 [153]"(null)LEASE ENTER DATA FOR PERSON NUMBER"NR[170]1"CMD."
  77. 3030 [153]"VALNTER '!' AS LAST NAME TO CANCEL."
  78. 3040 [153]:[153]
  79. 3050 [153]"(null)AST NAME    :  ";LAST$
  80. 3060 [153]"ASCIRST NAME   :  ";FIRST$
  81. 3070 [153]"ATNDDRESS      :  ";ADDR$
  82. 3080 [153]"LENITY         :  ";CITY$
  83. 3090 [153]"(null)TATE        :  ";STATE$
  84. 3100 [153]"(null)IP LENODE     :  ";ZIP$
  85. 3110 [153]"(null)HONE (null)UMBER :  ";PHNUM$
  86. 3120 [153]"LENOMMENT      :  ";COMMENT$
  87. 3125 :
  88. 3126 :
  89. 3130 XP[178]6:YP[178]14 : [143]  SET INIT POS
  90. 3135 [143]
  91. 3140 LI[178]20:[141]3600 : [143] DRAW UNDRLI
  92. 3145 [141]3500       : [143] POS CURSOR
  93. 3150 [141]3800       : [143] GET INPUT
  94. 3155 LAST$[178]KEY$      : [143] ASSIGN LAST$
  95. 3157 [139][200](LAST$,1)[178]"!"[167]3480
  96. 3160 [141]3700       : [143] BLANK LINE
  97. 3165 XP[178]XP[170]2         : [143] INC VERT POS
  98. 3167 [143]
  99. 3170 LI[178]20:[141]3600 : [143] DRAW UNDRLI
  100. 3175 [141]3500       : [143] POS CURSOR
  101. 3180 [141]3800       : [143] GET INPUT
  102. 3185 FIRST$[178]KEY$     : [143] ASSIGN FIRST$
  103. 3190 [141]3700       : [143] BLANK LINE
  104. 3195 XP[178]XP[170]2         : [143] INC VERT POS
  105. 3197 [143]
  106. 3200 LI[178]20:[141]3600 : [143] DRAW UNDRLI
  107. 3205 [141]3500       : [143] POS CURSOR
  108. 3210 [141]3800       : [143] GET INPUT
  109. 3215 ADDR$[178]KEY$      : [143] ASSIGN ADDR$
  110. 3220 [141]3700       : [143] BLANK LINE
  111. 3225 XP[178]XP[170]2         : [143] INC VERT POS
  112. 3227 [143]
  113. 3230 LI[178]20:[141]3600 : [143] DRAW UNDRLI
  114. 3235 [141]3500       : [143] POS CURSOR
  115. 3240 [141]3800       : [143] GET INPUT
  116. 3245 CITY$[178]KEY$      : [143] ASSIGN CITY$
  117. 3250 [141]3700       : [143] BLANK LINE
  118. 3255 XP[178]XP[170]2         : [143] INC VERT POS
  119. 3257 [143]
  120. 3260 LI[178]3:[141]3600  : [143] DRAW UNDRLI
  121. 3265 [141]3500       : [143] POS CURSOR
  122. 3270 [141]3800       : [143] GET INPUT
  123. 3275 STATE$[178]KEY$     : [143] ASSIGN STATE$
  124. 3280 [141]3700       : [143] BLANK LINE
  125. 3285 XP[178]XP[170]2         : [143] INC VERT POS
  126. 3287 [143]
  127. 3290 LI[178]11:[141]3600 : [143] DRAW UNDRLI
  128. 3295 [141]3500       : [143] POS CURSOR
  129. 3300 [141]3800       : [143] GET INPUT
  130. 3305 ZIP$[178]KEY$       : [143] ASSIGN ZIP$
  131. 3310 [141]3700       : [143] BLANK LINE
  132. 3315 XP[178]XP[170]2         : [143] INC VERT POS
  133. 3317 [143]
  134. 3320 LI[178]15:[141]3600 : [143] DRAW UNDRLI
  135. 3325 [141]3500       : [143] POS CURSOR
  136. 3330 [141]3800       : [143] GET INPUT
  137. 3335 PHNUM$[178]KEY$     : [143] ASSIGN PHNUM$
  138. 3340 [141]3700       : [143] BLANK LINE
  139. 3345 XP[178]XP[170]2         : [143] INC VERT POS
  140. 3347 [143]
  141. 3350 LI[178]24:[141]3600: [143] DRAW UNDRLI
  142. 3355 [141]3500       : [143] POS CURSOR
  143. 3360 [141]3800       : [143] GET INPUT
  144. 3365 COMMENT$[178]KEY$   : [143] ASSIGN COMMENT$
  145. 3370 [143]  IS INPUT OK?
  146. 3380 [153]"RIGHT$S THIS CORRECT ? (Y/N)WAIT"
  147. 3390 [151]198,0:[146]198,1:[161] IN$
  148. 3400 [139]IN$[179][177]"Y"[175]IN$[179][177]"N"[167][151]53280,[187](1)[172]15:[137]3390
  149. 3410 [139]IN$[178]"N"[167]FLAG[178]1:[137]3010
  150. 3420 [143]   YES, INPUT IS OK!
  151. 3430 [141]10000 : [143] OPEN FILE
  152. 3431 [139]BAD[178]1[167]3478
  153. 3432 [141]17000
  154. 3440 [141]16000 : [143] READ # OF RECORDS
  155. 3450 RN[178]NR[170]2    : [143] SET RECORD NUMBER
  156. 3460 [141]13000 : [143] WRITE RECORD RN
  157. 3462 [139]ER[179][177]0[167]40000 : [143]  ERROR HAPPENED
  158. 3475 NR[178]NR[170]1    : [143] INCREMENT NR
  159. 3477 [141]15000 : [143] RE-WRITE REC #1
  160. 3478 [141]11000 : [143] CLOSE FILE
  161. 3480 [142]     : [143] RETURN TO CALLER
  162. 3490 [143]
  163. 3495 [143]
  164. 3500 [143]   POSITION CURSOR
  165. 3505 [151]783,0         : [143] CLEAR CARR
  166. 3507 [151]781,XP        : [143] SET X POS
  167. 3508 [151]782,YP        : [143] SET Y POS
  168. 3510 [158]65520          : [143] ML PLOT
  169. 3515 [142]            : [143] RETURN
  170. 3520 [143]
  171. 3530 [143]
  172. 3600 [143]   DRAW UNDERLINE ON LINE XP+1
  173. 3605 [139]FLAG[179][177]0[167]3640
  174. 3606 YP[178]YP[170]2
  175. 3610 XP[178]XP[170]1:[141]3500 : [143] POSITION
  176. 3620 [153][200](LI$,LI): [143] PRINT UND
  177. 3630 XP[178]XP[171]1:YP[178]YP[171]2   : [143] RESET POS
  178. 3640 [142]            : [143] RETURN
  179. 3650 [143]
  180. 3655 [143]
  181. 3700 [143]   DRAW BLANK LINE ON LINE XP+1
  182. 3705 [139]FLAG[179][177]0[167]3640
  183. 3707 YP[178]YP[170]2
  184. 3710 XP[178]XP[170]1:[141]3500 : [143] POSITION
  185. 3720 [153]BL$          : [143] PRINT BLAN
  186. 3730 XP[178]XP[171]1:YP[178]YP[171]2   : [143] RESET POS
  187. 3740 [142]            : [143] RETURN
  188. 3750 [143]
  189. 3755 [143]
  190. 3800 [143]   INPUT KEY$ FROM LINE XP
  191. 3810 [141]3500         : [143] POSITION
  192. 3815 KEY$[178]""
  193. 3820 [133] KEY$        : [143] GET INPUT
  194. 3825 [139] KEY$[178]""[167]KEY$[178]" "
  195. 3827 [139][195](KEY$)[178][177]24[167]XP[178]XP[170]1:[153]"";[195](KEY$)
  196. 3830 [139][195](KEY$)[177]LI [167] KEY$[178][200](KEY$,LI)
  197. 3840 [142]            : [143] RETURN
  198. 3850 [143]
  199. 3860 [143]
  200. 4000 [143]   DELETE A RECORD
  201. 4010 [133]"(null)UMBER OF PERSON TO DELETE";DR$
  202. 4020 DR[178][197](DR$)
  203. 4025 [139]DR[178]0[167]4230
  204. 4030 [139]DR[179]1[176]DR[177]NR[167][153]"RIGHT$NVALID PERSON!  (null)RY AGAIN...":[137]4010
  205. 4040 [141]10000  :  [143]  OPEN FILE
  206. 4050 RN[178]DR[170]1     :  [143]  SET RECORD NUM
  207. 4060 [141]14000  :  [143]  READ RECORD
  208. 4070 [141]11000  :  [143]  CLOSE FILE
  209. 4080 [141]18000  :  [143]  DISPLAY RECORD
  210. 4090 [153]:[153]
  211. 4100 [133]"STR$ELETE THIS PERSON";KEY$
  212. 4110 [139]KEY$[179][177]"Y"[175]KEY$[179][177]"N"[167][151]53280,[187](1)[172]15:[153]"ON";:[137]41