home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / UNIBUILT-V1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  14.6 KB  |  320 lines
  1. 10 REM: BY MARK MAPLE
  2. 20 REM: 12215 FOUNDS CHANDLERSVILLE OHIO
  3. 30 REM: 43727, 614-638-2307
  4. 40 REM: SITTING NO.15 FEB 10 1987
  5. 50 PRINT"[147] UNIBUILT HOME EXPENCE SHEET [146]
  6. 55 [153]" WRITTEN BY MARK MAPLE WAIT
  7. 56 PRINT" 1987 [146]
  8. 60 [129] I[178]1[164]5000:[130]
  9. 62 J[178]1
  10. 64 [153]"LOAD UNIBUILT EXPENCE SHEET  "
  11. 66 [153]"F1WAIT - BACKGROUND COLOR"
  12. 68 [153]"F3WAIT - BORDER COLOR"
  13. 70 [153]"F5WAIT - CHARACTER COLOR"
  14. 72 [153]"F7WAIT - DONE"
  15. 74 [153]"PRESS A FUNCTION KEY TO CHANGE COLORSWAIT"
  16. 76 [161]A$:[139]A$[178]""[167]76
  17. 78 [139]J[177]255[167]J[178]0
  18. 80 [139]A$[178][199](13)[167][137]76
  19. 82 [139]A$[178]"INPUT"[167][151]53281,J:J[178]J[170]1:[137]76
  20. 84 [139]A$[178]"DIM"[167][151]53280,J:J[178]J[170]1:[137]76
  21. 86 [139]A$[178]"READ"[167][151]646,J:J[178]J[170]1:[137]66
  22. 88 [139]A$[178]"LET"[167]100
  23. 99 [137]99
  24. 100 [153]"LOAD"
  25. 120 [153]"---------------------------------------"
  26. 130 [153]"       UNIBUILT HOME EXPENCE SHEET WAIT"
  27. 140 [153]"---------------------------------------"
  28. 150 [153]"    THE NAME OF HOME YOU ARE BUILDING:"
  29. 160 [133] AA$
  30. 170 [153][163]15);AA$
  31. 180 [153]"***************************************"
  32. 188 [134] A(97)
  33. 189 [129] A [178] 1 [164] 97
  34. 190 [133]"BASE PRICE OF HOUSE....."; A(1)
  35. 200 [153]"------------ PLAN OPTIONS -------------"
  36. 202 [133]"FRONT DORMERS IF CAPE..."; A(2)
  37. 203 SU[178]A(1)[170]A(2):[137]204
  38. 204 [133]"FIRE PLACE.............."; A(3)
  39. 206 [153]"------------   EXTERIOR   -------------"
  40. 208 [133]"SIDING.................."; A(4)
  41. 209 SU[178]SU[170]A(3)[170]A(4):[137]210
  42. 210 [133]"EXTRA SHUTTERS.........."; A(5)
  43. 212 [133]"WINDOW GRILLS..........."; A(6)
  44. 213 SU[178]SU[170]A(5)[170]A(6):[137]214
  45. 214 [133]"GUTTERS & DOWNSPOUTS...."; A(7)
  46. 215 [133]"STORM DOORS............."; A(8)
  47. 216 [133]"STORM WINDOWS..........."; A(9)
  48. 217 [153]"LOAD"
  49. 218 [153]"----------- FLOOR SECTION -------------"
  50. 219 SU[178]SU[170]A(7)[170]A(8)[170]A(9):[137]220
  51. 220 [133]"2X8 OR 2X10 FLOOR JOIST."; A(10)
  52. 221 SU[178]SU[170]A(10):[137]222
  53. 222 [133]"FLOOR INSULATION........"; A(11)
  54. 224 [153]"----------- WALL SECTION  -------------"
  55. 226 [133]"DRYER VENT KIT.........."; A(12)
  56. 227 SU[178]SU[170]A(11)[170]A(12):[137]228
  57. 228 [133]"2X4 OR 2X6 EXTER.WALLS.."; A(13)
  58. 230 [133]"3/4'' ENERGY SHIELD R-5."; A(14)
  59. 231 SU[178]SU[170]A(13)[170]A(14):[137]232
  60. 232 [133]"CUSTOM PARTITION LAYOUT."; A(15)
  61. 234 [133]"GREAT ROOM OPENINGS....."; A(16)
  62. 235 SU[178]SU[170]A(15)[170]A(16):[137]236
  63. 236 [133]"ADDITIONAL WINDOWS......"; A(17)
  64. 238 [133]"BOX OUT WINDOWS 1 OR 2.."; A(18)
  65. 239 SU[178]SU[170]A(17)[170]A(18):[137]240
  66. 240 [133]"PICTURE WINDOW.........."; A(19)
  67. 241 [133]"ANDERSON GLIDING DOOR..."; A(20)
  68. 242 SU[178]SU[170]A(19)[170]A(20):[137]244
  69. 244 [133]"PATIO SWING DOOR........"; A(21)
  70. 246 [133]"DEAD BOLT LOCK(LAST TWO)"; A(22)
  71. 247 SU[178]SU[170]A(21)[170]A(22):[137]248
  72. 248 [133]"FRONT DOOR(DEAD BOLT)..."; A(23)
  73. 250 [133]"REAR DOOR(DEAD BOLT)...."; A(24)
  74. 251 SU[178]SU[170]A(23)[170]A(24):[137]252
  75. 252 [133]"EXTRA DOOR(DEAD BOLT)..."; A(25)
  76. 253 [153]"LOAD":SU[178]SU[170]A(25):[137]254
  77. 254 [153]"----------- ROOF SYSTEM ---------------"
  78. 256 [133]"ROOF SHEATHING.........."; A(26)
  79. 258 [133]"ROOF PITCH.............."; A(27)
  80. 260 [133]"OVERHANG LENGTH........."; A(28)
  81. 262 [133]"CATHEDRAL CEILING......."; A(29)
  82. 264 [133]"SKYLIGHT................"; A(30)
  83. 265 SU[178]SU[170]A(26)[170]A(27)[170]A(28)[170]A(29)[170]A(30):[137]266
  84. 266 [153]"-----------  ELECTRIC   ---------------"
  85. 268 [133]"RELOCATE ELEC. PANEL...."; A(31)
  86. 270 [133]"L/ROOM CEILING FIXTURE.."; A(32)
  87. 272 [133]"NO.2EXTERIOR DOOR LIGHT."; A(33)
  88. 274 [133]"LIGHTS IN KITCHEN SOFFIT"; A(34)
  89. 276 [133]"LUMINESENT CEILING KICTH"; A(35)
  90. 278 [133]"FAN LIGHT IN DINNING RM."; A(36)
  91. 280 [133]"WHOLE HOSE ATTIC FAN...."; A(37)
  92. 281 [153]"LOAD":SU[178]SU[170]A(31)[170]A(32)[170]A(33)[170]A(34)[170]A(35)[170]A(36)[170]A(37):[137]282
  93. 282 [153]"------------- HALL BATH ---------------"
  94. 284 [133]"VANITY.................."; A(38)
  95. 286 [133]"COLOR FIXTURES TOIL.ECT."; A(39)
  96. 288 [133]"SINGLE LEVER FAUCET....."; A(40)
  97. 290 [133]"MEDICINE CABINET........"; A(41)
  98. 292 [133]"GRAB BAR................"; A(42)
  99. 294 [133]"TUB ENCLOSURE..........."; A(43)
  100. 295 SU[178]SU[170]A(38)[170]A(39)[170]A(40)[170]A(41)[170]A(42)[170]A(43):[137]296
  101. 296 [153]"--------- HALF OR MASTER BATH ---------"
  102. 298 [133]"VANITY.................."; A(44)
  103. 300 [133]"COLOR FIXTURES TOIL.ECT."; A(45)
  104. 302 [133]"MARBLE VANITY TOP......."; A(46)
  105. 304 [133]"SINGLE LEVER FAUCET....."; A(47)
  106. 306 [133]"MEDICINE CABINET........"; A(48)
  107. 308 [133]"GRAB BAR................"; A(49)
  108. 310 [133]"TUB ENCLOSURE..........."; A(50)
  109. 311 [153]"LOAD":SU[178]SU[170]A(44)[170]A(45)[170]A(46)[170]A(47)[170]A(48)[170]A(49)[170]A(50):[137]312
  110. 312 [153]"----------- INTERIOR DECOR ------------"
  111. 314 [133]"PRE FINISHED PINE......."; A(51)
  112. 316 [133]"DELUX TRIM & DOORS......"; A(52)
  113. 318 [133]"FULL MIRROR CLOSET DOORS"; A(53)
  114. 320 [133]"ENTRY DIVIDER WALL......"; A(54)
  115. 322 [133]"ENTRY FOYER TILE........"; A(55)
  116. 324 [133]"CARPET GRADE(1)(2)(3)(4)"; A(56)
  117. 325 [153]"LOAD":SU[178]SU[170]A(51)[170]A(52)[170]A(53)[170]A(54)[170]A(55)[170]A(56):[137]326
  118. 326 [153]"--------------  KITCHEN   -------------"
  119. 328 [133]"WALLPAPER NEAR CABINETS."; A(57)
  120. 330 [133]"CABINETS................"; A(58)
  121. 332 [133]"BAR....................."; A(59)
  122. 334 [133]"BUILT IN PANTRY........."; A(60)
  123. 336 [133]"REFRIGERATOR CABINET...."; A(61)
  124. 338 [133]"CABINETS OVER DOOR SPACE"; A(62)
  125. 340 [133]"CABINETS OVER BAR......."; A(63)
  126. 342 [133]"COUNTERTOP.............."; A(64)
  127. 344 [133]"SINK...................."; A(65)
  128. 346 [133]"FAUCET.................."; A(66)
  129. 347 SU[178]SU[170]A(57)[170]A(58)[170]A(59)[170]A(60)[170]A(61)[170]A(62)[170]A(63)[170]A(64)[170]A(65)[170]A(66):[137]348
  130. 348 [133]"RANGE HOOD.............."; A(67)
  131. 350 [133]"MICROWAVE..............."; A(68)
  132. 352 [133]"RANGE..................."; A(69)
  133. 354 [133]"REFIGERATOR............."; A(70)
  134. 356 [133]"REFIGERATOR W/ICE MAKER."; A(71)
  135. 358 [133]"DISHWASHER.............."; A(72)
  136. 360 [133]"DISPOSAL................"; A(73)
  137. 361 SU[178]SU[170]A(67)[170]A(68)[170]A(69)[170]A(70)[170]A(71)[170]A(72)[170]A(73):[137]1000
  138. 370 [153]"------- ESTIMATED SITE WORK -----------"
  139. 372 [133]"PLUMBLING HOOK-UPS......"; A(74)
  140. 374 [133]"ELECTRIC HOOK-UPS......."; A(75)
  141. 376 [133]"CRAW SPACE ON LEVEL LOT."; A(76)
  142. 378 [133]"BASEMENT................"; A(77)
  143. 380 [133]"SEPTIC SYSTEM..........."; A(78)
  144. 382 [133]"WATER WELL.............."; A(79)
  145. 384 [133]"STOOPS FOR FRONT........"; A(80)
  146. 385 SU[178]SU[170]A(74)[170]A(75)[170]A(76)[170]A(77)[170]A(78)[170]A(79)[170]A(80):[137]386
  147. 386 [133]"SIDEWALKS..............."; A(81)
  148. 388 [133]"PATIO PORCH(WOOD)......."; A(82)
  149. 390 [133]"LANDSCAPING............."; A(83)
  150. 392 [133]"DRIVE OR LANE..........."; A(84)
  151. 394 [133]"GARAGE.................."; A(85)
  152. 396 [133]"BRICK WORK.............."; A(86)
  153. 398 [133]"SECOND FLOOR CON.COST..."; A(87)
  154. 399 SU[178]SU[170]A(81)[170]A(82)[170]A(83)[170]A(84)[170]A(85)[170]A(86)[170]A(87):[137]400
  155. 400 [153]"      PRESS (T) FOR TOTAL OF PACKAGE WAIT"
  156. 402 [153]"              AND SITE WORK WAIT"
  157. 404 [161] T$:[139] T$[178]""[167]404
  158. 406 [139]T$[178]"T"[167]410
  159. 408 [139]T$[179][177]""[167]404
  160. 410 [153]"LOAD             TOTAL= $"; SU
  161. 412 [137]500
  162. 500 [153]"------- DELETE COST FROM HOME ---------"
  163. 502 [133]"(1)";B$:[133]"$";A(88)
  164. 504 [133]"(2)";C$:[133]"$";A(89)
  165. 506 [133]"(3)";D$:[133]"$";A(90)
  166. 508 [133]"(4)";E$:[133]"$";A(91)
  167. 510 [133]"(5)";F$:[133]"$";A(92)
  168. 512 [133]"(6)";G$:[133]"$";A(93)
  169. 621 [153]"LOAD":SU[178]SU[171]A(88)[171]A(89)[171]A(90)[171]A(91)[171]A(92)[171]A(93):[137]700
  170. 700 [153]"          TOTAL PRICE FOR HOUSE WAIT"
  171. 701 [153]"               $"; SU
  172. 702 [137]1200
  173. 1000 [153]"          PRESS (T) FOR TOTAL WAIT"
  174. 1010 [161] Z$:[139] Z$[178]"" [167]1010
  175. 1020 [139] Z$[178]"T" [167] 1110
  176. 1040 [139] Z$[179][177] "" [167] 1010
  177. 1110 [153]"LOAD            TOTAL= $"; SU
  178. 1111 [153]"    PACKAGE PRICE FOR ";AA$
  179. 1112 [137]370
  180. 1200 [153]"  DO YOU WANT A PRINT OUT OF YOUR COST WAIT"
  181. 1210 [153]"                  Y/N                  "
  182. 1220 [161] P$: [139] P$ [178] "" [167] 1220
  183. 1230 [139] P$ [178] "Y" [167] 5000
  184. 1240 [139] P$ [178] "N" [167] 7000
  185. 1250 [139] P$ [178] [179][177] "" [167] 1230
  186. 5000 [159]4,4
  187. 5006 [152]4,"*****************************************************************"
  188. 5007 [152]4,"                         ";AA$
  189. 5008 [152]4,"                    BASE PRICE OF HOUSE "
  190. 5009 [152]4,"                          ";A(1)".00"
  191. 5010 [152]4,"             (ALL COSTS ARE FIGURED BY DOLLARS)"
  192. 5011 [152]4,"                 ------ PLAN OPTIONS ------   "
  193. 5015 [152]4,"FRONT DORMERS.............................................$";A(2)
  194. 5016 [152]4,"FIREPLACE.................................................$";A(3)
  195. 5018 [152]4,"                 -------- EXTERIOR --------"
  196. 5020 [152]4,"SIDING....................................................$";A(4)
  197. 5022 [152]4,"EXTRA SHUTTERS............................................$";A(5)
  198. 5024 [152]4,"WINDOW GRILS..............................................$";A(6)
  199. 5026 [152]4,"GUTTERS & DOWNSPOUTS......................................$";A(7)
  200. 5038 [152]4,"STORM DOORS...............................................$";A(8)
  201. 5040 [152]4,"STORM WINDOWS.............................................$";A(9)
  202. 5042 [152]4,"                 ----- FLOOR SECTION ------"
  203. 5044 [152]4,"2X6/2X8 FLOOR JOIST.......................................$";A(10)
  204. 5045 [152]4,"FLOOR INSULATION..........................................$";A(11)
  205. 5046 [152]4,"                 ----- WALL SECTION -------"
  206. 5047 [152]4,"DRYER VENT................................................$";A(12)
  207. 5048 [152]4,"2X4 OR 2X6 EEXTERIOR WALLS................................$";A(13)
  208. 5049 [152]4,"3/4 ENERGY SHIELD.........................................$";A(14)
  209. 5050 [152]4,"CUSTOM PARTITION LAYOUT...................................$";A(15)
  210. 5051 [152]4,"GREAT ROOM OPENING........................................$";A(16)
  211. 5052 [152]4,"ADDITIONAL WINDOWS........................................$";A(17)
  212. 5053 [152]4,"BOX OUT WINDOW SINGLE OR TWIN.............................$";A(18)
  213. 5054 [152]4,"PICTURE WINDOW............................................$";A(19)
  214. 5055 [152]4,"ANDERSON GLIDING DOOR.....................................$";A(20)
  215. 5056 [152]4,"PATIO SWING DOOR..........................................$";A(21)
  216. 5057 [152]4,"DEAD BOLT LOCK (THE LAST TWO).............................$";A(22)
  217. 5058 [152]4,"FRONT DOOR (DEAD BOLT LOCK)...............................$";A(23)
  218. 5059 [152]4,"REAR DOOR (DEAD BOLT LOCK)................................$";A(24)
  219. 5060 [152]4,"EXTRA DOOR (DEAD BOLT LOCK)...............................$";A(25)
  220. 5061 [152]4,"                 ----- ROOF SYSTEM --------"
  221. 5062 [152]4,"ROOF SHEATHING............................................$";A(26)
  222. 5063 [152]4,"ROOF PITCH................................................$";A(27)
  223. 5064 [152]4,"OVERHANG LENGTH...........................................$";A(28)
  224. 5065 [152]4,"CATHEDRAL CEILING.........................................$";A(29)
  225. 5066 [152]4,"SKYLIGHT..................................................$";A(30)
  226. 5067 [152]4,"                 ------ ELECTRIC ----------"
  227. 5100 [152]4,"RELOCATE ELEC. PANEL......................................$";A(31)
  228. 5102 [152]4,"LIVING ROOM CIELING LIGHT.................................$";A(32)
  229. 5104 [152]4,"SECOND EXTERIOR DOOR LIGHT................................$";A(33)
  230. 5106 [152]4,"LIGHTS IN KITCHEN SOFFIT..................................$";A(34)
  231. 5108 [152]4,"LUMINESENT CEILING IN KITCHEN.............................$";A(35)
  232. 5110 [152]4,"FAN LIGHT IN DINNING ROOM.................................$";A(36)
  233. 5112 [152]4,"WHOLE HOSE ATTIC FAN......................................$";A(37)
  234. 5114 [152]4,"                 ------ HALL BATH ---------"
  235. 5116 [152]4,"VANITY....................................................$";A(38)
  236. 5118 [152]4,"COLOR FIXTURES TOILET ECT.................................$";A(39)
  237. 5120 [152]4,"SINGLE LEVER FAUCET.......................................$";A(40)
  238. 5122 [152]4,"MEDICINE CABINET..........................................$";A(41)
  239. 5124 [152]4,"GRAB BAR..................................................$";A(42)
  240. 5126 [152]4,"TUB ENCLOSURE.............................................$";A(43)
  241. 5128 [152]4,"                 --- HALF OR MASTER BATH --"
  242. 5130 [152]4,"VANITY....................................................$";A(44)
  243. 5132 [152]4,"COLOR FIXTURES TOILET ECT.................................$";A(45)
  244. 5134 [152]4,"MARBLE VANITY TOP.........................................$";A(46)
  245. 5136 [152]4,"SINGLE LEVER FAUCET.......................................$";A(47)
  246. 5138 [152]4,"MEDICINE CABINET..........................................$";A(48)
  247. 5140 [152]4,"GRAB BAR..................................................$";A(49)
  248. 5142 [152]4,"TUB ENCLOSURE.............................................$";A(50)
  249. 5144 [152]4,"                 ----- INTERIOR DECOR -----"
  250. 5146 [152]4,"PRE FINISHED PINE.........................................$";A(51)
  251. 5148 [152]4,"DELUX TRIM & DOORS........................................$";A(52)
  252. 5150 [152]4,"FULL MIRROR CLOSET DOORS..................................$";A(53)
  253. 5152 [152]4,"ENTRY DIVIDER WALL........................................$";A(54)
  254. 5154 [152]4,"ENTRY FOYER TILE..........................................$";A(55)
  255. 5155 [152]4,"CARPET GRADE (1) (2) (3) (4)..............................$";A(56)
  256. 5158 [152]4,"                 --------- KITCHEN --------"
  257. 5160 [152]4,"WALLPAPER NEAR CABINETS...................................$";A(57)
  258. 5162 [152]4,"CABINETS..................................................$";A(58)
  259. 5164 [152]4,"BAR.......................................................$";A(59)
  260. 5166 [152]4,"BUILT IN PANTRY...........................................$";A(60)
  261. 5167 [152]4,"CABINETS OVER DOOR SPACE..................................$";A(62)
  262. 5168 [152]4,"REFIGERATOR CABINETS......................................$";A(61)
  263. 5170 [152]4,"CABINETS OVER BAR.........................................$";A(63)
  264. 5172 [152]4,"COUNTER TOP...............................................$";A(64)
  265. 5174 [152]4,"SINK......................................................$";A(65)
  266. 5176 [152]4,"FAUCET....................................................$";A(66)
  267. 5178 [152]4,"RANGE HOOD................................................$";A(67)
  268. 5180 [152]4,"MICROWAVE.................................................$";A(68)
  269. 5182 [152]4,"RANGE.....................................................$";A(69)
  270. 5184 [152]4,"REFIGERATOR...............................................$";A(70)
  271. 5186 [152]4,"REFIGERATOR WITH ICE MAKER................................$";A(71)
  272. 5188 [152]4,"DISHWASHER................................................$";A(72)
  273. 5190 [152]4,"DISPOSAL..................................................$";A(73)
  274. 5192 [152]4,"                 --- ESTIMATE SITE WORK ---"
  275. 5194 [152]4,"PLUMBING HOOK-UPS.........................................$";A(74)
  276. 5196 [152]4,"ELECTRIC HOOK-UPS.........................................$";A(75)
  277. 5198 [152]4,"CRAWL SPACE ON LEVEL LOT..................................$";A(76)
  278. 5200 [152]4,"BASEMENT..................................................$";A(77)
  279. 5202 [152]4,"SEPTIC SYSTEM.............................................$";A(78)
  280. 5204 [152]4,"WATER WELL................................................$";A(79)
  281. 5206 [152]4,"STOOPS FOR FRONT..........................................$";A(80)
  282. 5208 [152]4,"SIDEWALKS.................................................$";A(81)
  283. 5210 [152]4,"PATIO PORCH(WOOD).........................................$";A(82)
  284. 5212 [152]4,"LANDSCAPING...............................................$";A(83)
  285. 5214 [152]4,"DRIVE OR LANE.............................................$";A(84)
  286. 5216 [152]4,"GRAAGE....................................................$";A(85)
  287. 5218 [152]4,"BRICK WORK................................................$";A(86)
  288. 5220 [152]4,"SECOND FLOOR CONSTRUCTION.................................$";A(87)
  289. 5222 [152]4,"*****************************************************************"
  290. 5223 [152]4,"*******************  DELETE COST FROM HOME **********************"
  291. 5224 [152]4,"(1)";B$
  292. 5226 [152]4,"$"A(88)
  293. 5228 [152]4,"(2)";C$
  294. 5230 [152]4,"$"A(89)
  295. 5232 [152]4,"(3)";D$
  296. 5234 [152]4,"$"A(90)
  297. 5236 [152]4,"(4)";E$
  298. 5238 [152]4,"$"A(91)
  299. 5240 [152]4,"(5)";F$
  300. 5242 [152]4,"$"A(92)
  301. 5244 [152]4,"(6)";G$
  302. 5246 [152]4,"$"A(93)
  303. 5264 [152]4,"================================================================="
  304. 5266 [152]4,
  305. 5268 [152]4,"TOTAL COST OF HOME";SU".00"
  306. 5270 [152]4,
  307. 5272 [152]4,"DATETOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  308. 5274 [152]4,
  309. 5276 [152]4,"FORTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO          FIGURES GOOD FOR 30 DAYS   "
  310. 5278 [152]4,"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO                AFTER DATE     "
  311. 5280 [152]4,"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO         BUILDERTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO "
  312. 5500 [160] 4
  313. 6000 [153]"LOAD  DO YOU WANT ANOTHER PRINT OUT OF COST WAIT"
  314. 6002 [153]"                   Y/N "
  315. 6004 [161]V$:[139]V$[178]""[167]6004
  316. 6006 [139]V$[178]"Y"[167]5000
  317. 6007 [139]V$[178]"N"[167]7000
  318. 6008 [139]V$[179][177]""[167]6004
  319. 7000 [153]" TYPE (RUN) THEN PRESS RETURN TO RESTART PROGRAM":[128]
  320.