home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / AIR-BRAKES (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  19KB  |  482 lines
  1. 1 POKE53280,12:POKE53281,0
  2. 5 REM*********************************
  3. 7 REM****                       ********
  4. 10 REM****     BY PAUL JORDAN    ********
  5. 15 REM****    1514 KOPSA COURT   ********
  6. 20 REM****    CHEYENNE, WYOMING  ********
  7. 30 REM****                82007  ********
  8. 35 REM****                       ********
  9. 40 REM*********************************
  10. 50 DN$=""
  11. 51 ST$=""
  12. 52 CL$=""
  13. 53 S1$=""
  14. 54 V=53248
  15. 60 FORX=832 TO 894:READ Z:POKEX,Z:NEXT
  16. 65 FORX=896 TO 958:READ Z:POKEX,Z:NEXT:POKE2042,14
  17. 100 PRINT"[147][158]       [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146]"
  18. 110 PRINT"       [194]  BASIC AIR BRAKES  [194][146]"
  19. 120 PRINT"       [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][146]":PRINT
  20. 130 PRINT"[155] THIS PROGRAM SHOULD GIVE YOU A BASIC ":PRINT
  21. 140 PRINT" UNDERSTANDING OF WHAT STOPS AN "
  22. 150 PRINT" 18-WHEELER."
  23. 160 PRINT"[159] I AM A COMPUTER, AND I WILL GO AS FAST"
  24. 165 VP=2020:POKEVP+2,16:POKEVP+3,10
  25. 166 BO=56289:FORZ=1TO6:POKEBO+(Z),11:NEXT
  26. 170 PRINT" OR AS SLOW AS YOU WANT. JUST FOLLOW"
  27. 180 PRINT" MY PROMPTS."
  28. 190 PRINT"[152] PRESS THE [158] F7 [146][152] KEY WITH A SINGLE "
  29. 195 PRINT" SOLID TAP WHEN YOU ARE READY TO GO ON.":GOSUB60000
  30. 200 POKE53281,0:POKE53280,11:PRINT"[147]";ST$
  31. 210 PRINT "[145][155] TO HAVE AIR BRAKES WORK, WE MUST FIRST"
  32. 220 PRINT" HAVE AIR UNDER PRESSURE. TO DO "
  33. 230 PRINT" THIS WE NEED AN [158] AIR COMPRESSOR [146].":GOSUB 60000:GOSUB59200
  34. 250 PRINT"[147]
  35. 260 [153]"      FORAND    "
  36. 270 [153]" ABSUSRFORSTR$USRUSR USRINT  "
  37. 280 [153]" ABS      INT  "
  38. 290 [153]" ABSPOKE      WAITINT  "
  39. 300 [153]" ABSPOKE      WAITINT  "
  40. 310 [153]" ABS      INT  "
  41. 320 [153]" ABS     CLOSEINT  "
  42. 330 [153]"";ST$:[153]"ONLIST AN AIR COMPRESSOR IS NOTHING MORE THAN"
  43. 340 [153]" A PISTON IN A CYLINDER WITH TWO "
  44. 341 [153]" VALVES.":[141] 60000:[141]59200
  45. 350 [153]""
  46. 359 [153]"   CONT*"
  47. 360 [153]" ABSUSRFORANDUSRUSR USRINT  "
  48. 361 [153]" ABSCONT******INT  "
  49. 362 [153]" ABSCONT******INT  "
  50. 363 [153]" ABSCONT******INT  "
  51. 364 [153]" ABSPOKE      WAITINT  "
  52. 365 [153]" ABSPOKE      WAITINT  "
  53. 370 [141]60050:[153]"";ST$;"LIST AS THE PISTON OF THE COMPRESSOR MOVES"
  54. 380 [153]" DOWN, OUTSIDE AIR PRESSURE PUSHES"
  55. 382 [153]" OPEN THE INTAKE VALVE AND AIR RUSHES"
  56. 390 [153]" IN TO FILL THE VOID." :[141] 60000:[141]59200
  57. 400 [153]""
  58. 404 [153]"VERIFY     ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^"
  59. 405 [153]"     PEEK*VERIFYORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^*VERIFYPEEK"
  60. 410 [153]"     PEEKFORLENVERIFYPEEK                  PEEK*VERIFYPEEK"
  61. 420 [153]" ABSUSRFORVALUSRUSR*USRINT          VERIFY (null)LENLENLENLENLENEXP /LENLENLENLENLENRIGHT$ "
  62. 430 [153]" ABS******INT           VERIFYPEEK*************VERIFYPEEK"
  63. 440 [153]" ABSPOKE      WAITINT           VERIFYPEEK*************VERIFYPEEK"
  64. 450 [153]" ABSPOKE      WAITINT           VERIFYMID$LENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  65. 460 [153]" ABS      INT  "
  66. 470 [153]" ABS      INT  "
  67. 480 [141]60050:[153]"";ST$;"LIST AS THE PISTON OF THE COMPRESSOR MOVES"
  68. 490 [153]" UP, THE INTAKE VALVE CLOSES AND THE"
  69. 500 [153]" EXHAUST VALVE IS PUSHED OPEN. THE DEFHOTLIST"
  70. 510 [153]" COMPRESSED AIR IS FORCED INTO THE"
  71. 520 [153]" RESERVOIR.":[141] 60000:[141] 60050
  72. 525 [153]""
  73. 530 [153]ST$"ONLIST NOW WE HAVE AIR PRESSURE. BUT THERE IS"
  74. 540 [153]" A PROBLEM. HOW DO WE STOP THE "
  75. 550 [153]" COMPRESSOR BEFORE IT BLOWS SOMETHING"
  76. 560 [153]" UP. WE NEED A SYSGOVERNORLIST TO CONTROL"
  77. 561 [153]" THE AIR PRESSURE IN THE RESERVOIR.":[141]60000:[141]59200
  78. 570 [153]""
  79. 580 [153]"  PRINT#GOVWAITLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^"
  80. 590 [153]"   PEEK VERIFYORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ PEEKVERIFY"
  81. 600 [153]"   PEEK VERIFYPEEK VERIFYORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ VERIFYPEEK PEEKVERIFY"
  82. 610 [153]"   PEEK VERIFYPEEKFORANDVERIFYPEEK                  PEEK VERIFYPEEK PEEKVERIFY"
  83. 620 [153]" ABSUSR>USRUSR USRINT          VERIFY (null)LENLENLENLENLENEXP /LEN>VERIFYLENLENLENRIGHT$ ":[141] 60050
  84. 629 [153]""
  85. 630 [153]ST$"ON THE SYSAIR GOVERNORLIST IS A SIMPLE VALVE"
  86. 640 [153]" THAT OPENS THE INTAKE VALVE OF THE"
  87. 650 [153]" COMPRESSOR AT A PRESET PRESSURE AND "
  88. 670 [153]" LETS THE COMPRESSOR SYSCYCLELIST. "
  89. 680 [153]" THIS MEANS THAT AIR IS DRAWN IN, AND"
  90. 690 [153]" PUSHED OUT THE OPEN INTAKE VALVE."
  91. 695 [153]" THERE IS NO AIR ADDED TO THE RESERVOIR":[141]60000
  92. 700 [153]"LOADONONONONON"
  93. 710 [153]"POKE        NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  94. 720 [153]"       PRINT# LEFT$GET  GET  GET  PEEKPRINT#        FN POKEWAITABS"
  95. 730 [153]"        PRINT#LEFT$ABS LEFT$ABS LEFT$ABS  PEEKPRINT#        FN WAITPOKEABSANDANDANDANDANDANDAND  "
  96. 740 [153]"        WAIT(null)LEN(null)(null)LEN(null)(null)LEN(null)LEN(null)PRINT# PISTON FN    AIR   WAIT"
  97. 750 [153]"        PRINT#LEFT$ ABSCHR$ ABSCHR$ ABS PEEKPRINT#        FN WAITPOKEABSUSRUSRUSRUSRUSRUSRUSR  "
  98. 760 [153]"        PRINT#LEFT$  GET  GET  GETPEEKPRINT#        FN POKEWAITABS     "
  99. 770 [153]"        POKEFREFREFREFREFREFREFREFREFREFREFREFREFREGET GETWAITFREFREFREFREFREFRE   "
  100. 780 [153]"                     GET GETWAIT    "
  101. 790 [153]"                     GET GETWAIT    "
  102. 795 [153]"                     GET GETWAIT    LIST":[153]""
  103. 800 [153]ST$"ON THE GOVERNOR HAS A PISTON HELD IN"
  104. 810 [153]" PLACE BY A CONTSPRINGLIST. DEFAIR PRESSURELIST IN THE"
  105. 820 [153]" RESERVOIR PUSHES AGAINST THE PISTON"
  106. 830 [153]" UNTIL IT CAN COMPRESS THE SPRING AND"
  107. 840 [153]" AND FORCE THE PISTON UP.":[141] 60000:[129]X[178]1[164]200:[130]X
  108. 850 [153]"ONONONONON"
  109. 860 [153]"POKE        NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  110. 870 [153]"       PRINT# LEFT$GETGET GETPEEKPRINT#       ABS       POKEWAITABS"
  111. 880 [153]"       PRINT# LEFT$GETGET GETPEEKPRINT#       ABS       POKEWAITABSANDANDANDANDANDANDAND"
  112. 890 [153]"    (null)LEN  WAIT(null)(null)(null)LEN(null)LENPRINT# PISTONABS  AIR         WAIT"
  113. 900 [153]"    PEEK   PRINT#LEFT$GETABS ABSPEEKPRINT#       ABS       POKEWAITABSUSRUSRUSRUSRUSRUSRUSR  "
  114. 910 [153]"    PEEK   PRINT#LEFT$ABSABS ABSPEEKPRINT#       ABS       POKEWAITABS     "
  115. 920 [153]"    PEEK   POKEFREFREFREFREFREFREFREFREFREFREFREFREFREGET POKEGETWAITFREFREFREFREFREFRE   "
  116. 930 [153]"    PEEK POKE               GET POKEGETWAIT    "
  117. 940 [153]"    PEEK POKE               GET POKEGETWAIT    "
  118. 945 [153]" ADJUSTMENT SCREWWAITSGNPOKE   GET POKEGETWAIT    LIST"
  119. 946 [153]:[153]"                TO UNLOADERWAITPRINT#":[153]""
  120. 950 [153]ST$"ON THE PISTON IS FORCED PAST THE PORT"
  121. 960 [153]" THAT OPENS TO THE SYSUNLOADERLIST. THE       "
  122. 970 [153]" SYSUNLOADERLIST IS ANOTHER SMALL PISTON THAT"
  123. 980 [153]" HOLDS THE COMPRESSOR INTAKE VALVE OPEN"
  124. 990 [153]" AND LETS THE COMPRESSOR CYCLE. THE"
  125. 1000 [153]" GOVERNOR CAN BE SET BY A SCREW LOCATED"
  126. 1010 [153]" UNDER THE TOP COVER. MAXIMUM PRESSURE"
  127. 1020 [153]" SHOULD BE SET AT SYS120 POUNDS SQ. IN.":[141] 60000
  128. 1050 [153]"LOAD"
  129. 1060 [153]"  PRINT#GOVWAITLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^"
  130. 1070 [153]"   PEEK VERIFYORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ PEEKVERIFY"
  131. 1080 [153]"   PEEK VERIFYPEEK VERIFYORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ VERIFYPEEK PEEKVERIFY"
  132. 1090 [153]"   PEEK VERIFYPEEKFORANDVERIFYPEEK                  PEEK*VERIFYPEEK PEEKVERIFY"
  133. 1100 [153]" ABSUSR>USRUSR USRINT          VERIFY (null)LENLENLENLENLENEXP /LEN>VERIFYLENLENLENRIGHT$ "
  134. 1120 [153]" ABS******INT           VERIFYPEEK*************VERIFYPEEK"
  135. 1130 [153]" ABSPOKE      WAITINT           VERIFYPEEK*************VERIFYPEEK"
  136. 1140 [153]" ABSPOKE      WAITINT           VERIFYMID$LENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  137. 1150 [153]" ABS      INT  "
  138. 1160 [153]" ABS      INT  "
  139. 1170 [141] 60050:[153]"";ST$;"LIST NOW WE HAVE THE COMPRESSOR UNDER "
  140. 1180 [153]" CONTROL AND SYS120LIST POUNDS OF PRESSURE "
  141. 1190 [153]" IN THE AIR TANK. NOW ALL WE HAVE TO DO"
  142. 1195 [153]" IS PUT THE AIR TO WORK.":[141]60000
  143. 1200 [153]"LOADOPEN THIS IS A BRAKE CAN.
  144. 1240 PRINT""
  145. 1250 PRINT"[151]        [185][185][185][185][185][185][183][146][185][185][185][185][185][185][185]  "
  146. 1260 PRINT"        [161]     [206]      [182]  "
  147. 1270 PRINT"        [161]    [182][194][212][217][212][217][212][182][182]  "
  148. 1280 PRINT"   [175][175][175][175][175][161]    [182][194][199][200][199][200][199][200][182]  "
  149. 1290 PRINT"             [182][181][146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][215]   "
  150. 1300 PRINT"   [183][183][183][183][183][161]    [182][194][194][199][200][199][200][199][182]  "
  151. 1310 PRINT"        [161]    [182][194][200][165][217][212][217][212][182]  "
  152. 1320 PRINT"        [161]     [205]      [182]  "
  153. 1330 PRINT"        [184][184][184][184][184][184][175][146][184][184][184][184][184][184][184]  "
  154. 1400 GOSUB 60000:GOSUB59200
  155. 1410 PRINT"[152] THERE ARE TWO CHAMBER HALVES[152] HELD"
  156. 1420 PRINT" TOGETHER BY A [154]CIRCLE CLAMP[152]."
  157. 1430 PRINT""
  158. 1440 PRINT"        [185][185][185][185][185][185][183][146][185][185][185][185][185][185][185]  "
  159. 1450 PRINT"        [161]     [151][206]      [182]  "
  160. 1460 PRINT"        [161]    [151][182][194][212][217][212][217][212][182][182]  "
  161. 1470 PRINT"   [175][175][175][175][175][161]    [151][182][194][199][200][199][200][199][200][182]  "
  162. 1480 PRINT"             [151][182][181][146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][215]   "
  163. 1490 PRINT"   [183][183][183][183][183][161]    [151][182][194][194][199][200][199][200][199][182]  "
  164. 1500 PRINT"        [161]    [151][182][194][200][165][217][212][217][212][182]  "
  165. 1510 PRINT"        [161]     [151][205]      [182]  "
  166. 1520 PRINT"        [184][184][184][184][184][184][175][146][184][184][184][184][184][184][184]  "
  167. 1530 GOSUB60000:GOSUB59200
  168. 1540 PRINT"[152] A RUBBER [150]DIAPHRAM OR PANCAKE[152]."
  169. 1550 PRINT""
  170. 1560 PRINT"        [161]     [149][206]      [182]  "
  171. 1570 PRINT"        [161]    [149][182][151][194][212][217][212][217][212][182][182]  "
  172. 1580 PRINT"   [175][175][175][175][175][161]    [149][182][151][194][199][200][199][200][199][200][182]  "
  173. 1590 PRINT"             [149][182][151][181][146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][215]   "
  174. 1600 PRINT"   [183][183][183][183][183][161]    [149][182][151][194][194][199][200][199][200][199][182]  "
  175. 1610 PRINT"        [161]    [149][182][151][194][200][165][217][212][217][212][182]  "
  176. 1620 PRINT"        [161]     [149][205]      [182]  "
  177. 1630 GOSUB 60000:GOSUB59200
  178. 1640 PRINT"[152] A PLUNGER[155] AND LIGHT [156]RETURN SPRING[152]."
  179. 1650 PRINT""
  180. 1660 PRINT"        [161]     [149][206]      [182]  "
  181. 1670 PRINT"        [161]    [149][182][194][156][212][217][212][217][212][182][182]  "
  182. 1680 PRINT"   [175][175][175][175][175][161]    [149][182][194][156][199][200][199][200][199][200][182]  "
  183. 1690 PRINT"             [149][182][181][146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][215]   "
  184. 1700 PRINT"   [183][183][183][183][183][161]    [149][182][194][156][194][199][200][199][200][199][182]  "
  185. 1710 PRINT"        [161]    [149][182][194][156][200][165][217][212][217][212][182]  "
  186. 1720 PRINT"        [161]     [149][205]      [182]  "
  187. 1730 GOSUB 60000:FORX=1TO500:NEXTX
  188. 1740 PRINT"":FORX=0TO8:PRINT"                                       ":NEXTX
  189. 1745 GOSUB 59200:GOSUB59000
  190. 1750 PRINT"[155] AS [154]AIR PRESSURE[155] ENTERS THE CHAMBER, IT"
  191. 1760 PRINT" PUSHES AGAINST THE [149]DIAPHRAM[155] FORCING "
  192. 1770 PRINT" THE [153]PLUNGER[155] OUT. WE NOW HAVE A "
  193. 1780 PRINT" POWERFUL MECHANICAL FORCE THAT CAN BE"
  194. 1781 PRINT" USED TO WORK THE BRAKE SHOES. THERE "
  195. 1782 PRINT" ARE THREE TYPES OF BRAKES.
  196. 1783 [153]"      SYS WEDGE WAIT,  S-CAM WAIT, AND  DISK WAIT. "
  197. 1784 [153]"LIST ALL USE THE SAME BASIC BRAKE CAN "
  198. 1785 [153]" SYSTEM."
  199. 1800 [153]""
  200. 1810 [153]"        GETCONTSPC(SPC(SPC(SPC(SPC(SPC(VERIFY(null)     ABS  "
  201. 1820 [153]"        GETCONTSPC(SPC(SPC(SPC(SPC(SPC(VERIFYABSPEEKCLR(null)(null)(null)(null)ABS  "
  202. 1830 [153]"   ANDANDANDANDANDGETCONTSPC(SPC(SPC(SPC(SPC(SPC(VERIFYABSPEEKCLRCHR$LEFT$CHR$LEFT$ABS  "
  203. 1840 [153]"   CONTSPC(SPC(SPC(SPC(SPC(SPC(SPC(AIRWAITSPC(SPC(VERIFYABSINTWAITLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  204. 1850 [153]"   USRUSRUSRUSRUSRGETCONTSPC(SPC(SPC(SPC(SPC(SPC(VERIFYABSPEEKCLRPEEKCHR$LEFT$CHR$ABS  "
  205. 1860 [153]"        GETCONTSPC(SPC(SPC(SPC(SPC(SPC(VERIFYABSPEEKCLRLEFT$FN(null)(null)ABS  "
  206. 1870 [153]"        GETCONTSPC(SPC(SPC(SPC(SPC(SPC(VERIFY(null)     ABS  "
  207. 1880 [141] 60000
  208. 1900 [153]"LOADLIST NOW LET'S SEE HOW ALL THIS WORKS."
  209. 1910 [153]""
  210. 1920 [153]"  FOOT VALVE WAIT"
  211. 1930 [153]"PRINT#      (null)   "
  212. 1940 [153]"      FWAITLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$ "
  213. 1950 [153]"      PEEK  PRINT#                          PEEK "
  214. 1960 [153]"      PEEK  PRINT#                          PEEK "
  215. 1970 [153]" (null)LENLENLENLEN>LENLENLENLENRIGHT$ PRINT#                     (null)>RIGHT$  "
  216. 1980 [153]" PEEK   AIR   PEEK PRINT#                     PEEK -LEN(null)"
  217. 1990 [153]" MID$LENLENLENLENLENLENLENLENLEN(null) PRINT#                     MID$LEN(null)  "
  218. 2000 [141]60000:[141]59200
  219. 2010 [153]"LIST WE STEP ON THE BRAKE (FOOT VALVE) AND"
  220. 2020 [153]" LET THE COMPRESSED AIR FLOW TO THE "
  221. 2030 [153]" BRAKE CAN.":[151]V[170]21,4:[151]V[170]4,66:[151]V[170]5,135:[151]V[170]41,9
  222. 2031 [141]60000
  223. 2035 [153]"":[129]X[178]1[164]5:[153]"                                       ":[130]X
  224. 2040 [153]"":[151]V[170]5,138
  225. 2045 [153]"PRINT#     *NEW   "
  226. 2050 [153]"PRINT#      (null)WAITLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$ "
  227. 2060 [153]"      PEEK                            PEEK "
  228. 2070 [153]"      PEEK                            PEEK "
  229. 2080 [153]" (null)LENLENLENLEN>LENLENLENLENRIGHT$                      POKE(null)>RIGHT$  "
  230. 2090 [153]" PEEK   AIR   PEEK                    POKE  PEEK -LEN(null)"
  231. 3000 [153]" MID$LENLENLENLENLENLENLENLENLEN(null)                     POKE MID$LEN(null)  "
  232. 3005 [141]59200:[129]X[178]1[164]200:[130]X
  233. 3007 [153]"";[163]21);"BRAKE CANWAITLENLENLENLENLIST"
  234. 3010 [151]56011,9:[151]1739,100:[141]60060
  235. 3020 [151]1739,111:[141]60060
  236. 3030 [151]1739,121:[141]60060
  237. 3040 [151]1739,98:[141]60060
  238. 3050 [151]1739,247:[141]60060
  239. 3060 [151]1739,227:[141]60060
  240. 3065 [151]1739,160:[141]60060
  241. 3066 [153]"";[163]38);"LEN(null)LIST"
  242. 3070 [129]X[178]1[164]800:[130]X
  243. 3080 [153]"LIST THAT WAS JUST A LITTLE SLOW. IT TOOK"
  244. 3090 [153]" TOO MUCH TIME FOR THE AIR TO REACH AND"
  245. 4000 [153]" FILL THE BRAKE CHAMBER. WE NEED A "
  246. 4010 [153]" FASTER WAY!!":[141]60000
  247. 4040 [151]V[170]21,0:[153]"LOAD"
  248. 4041 [153]" DASH VALVE WAIT               "
  249. 4042 [153]"    (null)                           (null)LENLENLENLENLENRIGHT$
  250. 4043 PRINT"[152]   [213][195][195][146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]AIR 2[194]
  251. 4045 [153]"   PEEK PRINT#*NEW                         MID$LENLEN=LENLEN(null)
  252. 4050 PRINT"   [194]  [152][213][146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][152] REL [146][195][203]
  253. 4060 [153]"   PEEK  PEEK                        PEEK "
  254. 4070 [153]"   PEEK  PEEK                        PEEK "
  255. 4080 [153]" (null)LEN>LENLEN>LENLENLENLENRIGHT$                  POKE(null)>RIGHT$  "
  256. 4090 [153]" PEEK   AIR   PEEK               POKE   PEEK -LEN(null)"
  257. 4100 [153]" MID$LENLENLENLENLENLENLENLENLEN(null)                 POKE MID$LEN(null)  "
  258. 4110 [141]59200:[129]X[178]1[164]200:[130]X
  259. 4120 [153]"LIST HERE I HAVE ADDED A DASHLISTBOARD MOUNTED"
  260. 4130 [153]" VALVELIST TO SUPPLY AIR TO A SECOND AIR"
  261. 4140 [153]" TANK. YOU WILL ALSO SEE A RELLISTAY VALVE."
  262. 4150 [153]" THE RELAY VALVELIST TAKES A SMALL SIGNAL"
  263. 4160 [153]" FROM THE FOOT VALVE AND SENDS THE SAME"
  264. 4170 [153]" AMOUNT IF AIR PRESSURE FROM THE SECOND"
  265. 4180 [153]" AIR TANK TO THE BRAKE CAN."
  266. 4200 [129]X[178]1[164]500:[130]X:[141]60000:[129]X[178]1[164]500:[130]X
  267. 4400 [141]59200:[153]"LOAD        FROM FOOTVALVE"
  268. 4410 [153]"LIST        (null)LENLENLENLENLENEXPLOGCOSLIST/LENLENLENLENLENLENRIGHT$  "
  269. 4420 [153]"        PEEKCONT               WAITLISTPEEK"
  270. 4430 [153]"        PEEK    POKE(null) CONT  WAITPOKE (null) LIST    PEEK"
  271. 4440 [153]"        PEEK    POKE(null) CONT  WAITPOKE (null) LIST    PEEK
  272. 4450 PRINT"         [184][184][184][184][184][146][159] [154]  [146][155] [184][184][184][184][184][184] "
  273. 4460 PRINT"        [194]     [154][161]  [146][161][155]      [184][197][197][197] "
  274. 4470 PRINT"        [194]               [185][210][210][210][183] TO BRAKES"
  275. 4480 PRINT"[155]         [184][184][184][184][146][169][149] [146]   [146][155][223][184][184][184][184][184] [152]"
  276. 4490 PRINT"        [194]   [149][180]  [146]    [182][146][155]    [194]"
  277. 4500 PRINT"        [194]    [151][209][149] [146]   [146][151][209][155]     [173][195][195][195]"
  278. 4510 PRINT"        [194]    [151][209][149] [146]   [146][151][209]      [195]FROM RESEVOIR[155]"
  279. 4520 PRINT"        [194]    [151][209][149] [146]   [146][151][209]     [155][176][195][195][195]"
  280. 4530 PRINT"        [194]    [151][209][149] [146]   [146][151][209]     [155][194]"
  281. 4540 PRINT"        [202][195][195][195][195] [149] [146]   [155] [146][195][195][195][195][195][203]
  282. 4545 [153]"              WAIT     WAIT"
  283. 4550 [153]" THIS IS THE INSIDE OF A RELAY VALVE."
  284. 4560 [153]" YOU CAN SEE A CONTPISTONLIST, A VERIFYSPOOL VALVE,LIST"
  285. 4570 [153]" AND PRINT#RETURN SPRINGS.LIST"
  286. 4600 [141]60000:[141]59200
  287. 4605 [153]""S1$:[129]X[178]1[164]6:[153]"                                       ":[130]X
  288. 4610 [153]"";S1$;" DEFAIRLIST FROM THE RESEVOIR FILLS THE"
  289. 4620 [153]" LOWER CHAMBER. WHEN A DRIVER STEPS "
  290. 4621 [153]" ON THE FOOT VALVE, AIR IS SENT TO THE"
  291. 4622 [153]" UPPER CHAMBER."
  292. 4630 [153]"        PEEKUSRUSR(null)VERIFY   WAIT     (null)USRUSRUSRWAITLISTPEEK"
  293. 4640 [153]"        PEEK   TAB(WAITPOKE(null)VERIFY WAIT   WAITPOKE(null)TAB(    WAITLIST/LENLENLEN"
  294. 4650 [153]"        PEEK    WAITPOKE(null)VERIFY WAIT   WAITPOKE(null)      WAITLENFROM RESEVOIRLIST"
  295. 4660 [153]"        PEEK    WAITPOKE(null)VERIFY WAIT   WAITPOKE(null)     WAITLISTORLENLENLEN"
  296. 4670 [153]"        PEEK    WAITPOKE(null)VERIFY WAIT   WAITPOKE(null)     WAITLISTPEEK":[141]60000:[141]59200
  297. 4680 [153]"LOAD        FROM FOOTVALVE"
  298. 4690 [153]"LIST        (null)LENLENLENLENLENEXPABSINTLIST/LENLENLENLENLENLENRIGHT$  "
  299. 4700 [153]"        PEEK               WAITLISTPEEK"
  300. 4710 [153]"        PEEKTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOWAITLISTPEEK"
  301. 4720 [153]"        PEEKCONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAITLISTPEEK"
  302. 4730 [153]"         FREFREFREFREFREWAITOPEN CONT  WAITLIST FREFREFREFREFREFRELIST "
  303. 4740 [153]"        PEEKUSRUSRUSRUSRUSR(null)CONT  (null)USRUSRUSRUSRUSRUSRLISTNEWNEWNEWNEWWAIT "
  304. 4750 [153]"        PEEK    ANDSQRCONT  (null)AND     ANDANDANDANDWAITUSR TO BRAKES"
  305. 4760 [153]"LIST         FREFREFREFREWAITSTEPCONTGET  WAITGETLIST(null)FREFREFREFREFRE PRINT#WAITUSRUSRUSR"
  306. 4770 [153]"        PEEKTAB(TAB(TAB(ANDSQRVERIFY WAIT   (null)ANDTAB(TAB(TAB(TAB(LISTWAITPEEK"
  307. 4780 [153]"        PEEK   VERIFYSGN  WAIT    ABS    WAITLIST/LENLENLEN"
  308. 4785 [153]"        PEEK   USRWAITPOKE(null)VERIFY WAIT   WAITPOKE(null)USR     WAITFROM RESERVOIR"
  309. 4790 [153]"        PEEK    WAITPOKE(null)VERIFY WAIT   WAITPOKE(null)     WAITLISTORLENLENLEN"
  310. 4800 [153]"        PEEK    WAITPOKE(null)VERIFY WAIT   WAITPOKE(null)     WAITLISTPEEK"
  311. 4810 [153]"        MID$LENLENLENLEN VERIFY WAIT   LIST WAITLENLENLENLENLEN(null) "
  312. 4820 [153]"              VERIFY WAIT   LIST WAIT":V[178]53248
  313. 4821 [151]2040,13:[151]2041,13:[151]V[170]21,3:[151]V[170]39,2:[151]V[170]40,2:[151]V[170]27,3
  314. 4822 [151]V[170]0,125:[151]V[170]1,110:[151]V[170]2,155:[151]V[170]3,110
  315. 4830 [129]X[178]1[164]500:[130]X:[153]"LIST AS AIRLIST FILLS THE UPPER CHAMBER, IT"
  316. 4840 [153]" PUSHES DOWN AGAINST THE CONTPISTONLIST. THE"
  317. 4850 [153]" PISTON FORCES THE VERIFYSPOOL VALVELIST OFF ITS"
  318. 4860 [153]" SEAT LETTING RESERVOIR AIRLIST FLOW TO THE"
  319. 4870 [153]" PRINTBRAKE CANLIST.":[141]60000
  320. 4875 [151]V[170]21,0
  321. 4900 [153]"LOAD        FROM FOOTVALVE--CONT60 PSI"
  322. 4910 [153]"LIST        (null)LENLENLENLENLENEXPABSINTLIST/LENLENLENLENLENLENRIGHT$  "
  323. 4920 [153]"        PEEKTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOWAITLISTPEEK"
  324. 4930 [153]"        PEEKCONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAITLISTPEEK"
  325. 4940 [153]"        PEEKUSRUSRUSR(null)WAITPOKE(null)(null)CONT  (null)WAITPOKE(null)(null)USRUSRUSRUSRWAITLISTPEEK"
  326. 4950 [153]"         FREFREFREFREFREWAITOPEN+CONT  INTLISTFREFREFREFREFREFRE "
  327. 4960 [153]"        PEEKUSRUSRUSRUSRUSRSQRCONT  (null)USRUSRUSRUSRUSRUSRLISTNEWNEWNEWNEWWAIT "
  328. 4970 [153]"        PEEK 60 ANDCONTINT  ABSAND PSI ANDANDANDANDWAITUSR TO BRAKES"
  329. 4980 [153]"LIST         FREFREFREFREWAITSTEPVERIFY WAIT   WAITLIST(null)FREFREFREFREFRE PRINT#"
  330. 4990 [153]"        PEEKUSRUSR(null)VERIFY   WAIT     (null)USRUSRUSRWAITLISTPEEK"
  331. 5000 [153]"        PEEK   TAB(WAITPOKE(null)VERIFY WAIT   WAITPOKE(null)TAB(    WAITLIST/LENLENLEN"
  332. 5010 [153]"        PEEK    WAITPOKE(null)VERIFY WAIT   WAITPOKE(null) 120  WAITLENFROM RESEVOIRLIST"
  333. 5020 [153]"        PEEK    WAITPOKE(null)VERIFY WAIT   WAITPOKE(null) PSI WAITLISTORLENLENLEN"
  334. 5030 [153]"        PEEK    WAITPOKE(null)VERIFY WAIT   WAITPOKE(null)     WAITLISTPEEK"
  335. 5040 [153]"        MID$LENLENLENLEN VERIFY WAIT   LIST WAITLENLENLENLENLEN(null)
  336. 5045 PRINT"             [175][146]    [175][146]":
  337. 5050 PRINT" LETS SAY THAT THE FOOTVALVE IS SENDING"
  338. 5060 PRINT" 60 POUNDS PER SQUARE INCH (PSI) TO THE"
  339. 5070 PRINT" RELAY VALVE. AS PRESSURE IN THE MIDDLE"
  340. 5080 PRINT" CHAMBER EQUALS THE FOOTVALVE PRESSURE"
  341. 5090 PRINT" THE PISTON MOVES UP, LETTING THE [149]SPOOL"
  342. 6000 PRINT" VALVE[155] CLOSE.":GOSUB60000
  343. 6010 PRINT"[147]        FROM FOOTVALVE--0 PSI"
  344. 6020 PRINT"[155]        [213][195][195][195][195][195][189][182][181][155][173][195][195][195][195][195][195][201]  "
  345. 6030 PRINT"        [194][154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][194]"
  346. 6040 PRINT"        [194]    [151][209] [154]  [146] [151][209]     [155][194]"
  347. 6050 PRINT"        [194]    [151][209] [154]  [146] [151][209]     [155][194]"
  348. 6060 PRINT"         [184][184][184][184][184][146] [154]  [146] [155][184][184][184][184][184][184] "
  349. 6070 PRINT"        [194]     [154][204][175][175][186][146]      [155][164][146][210][210] [146] "
  350. 6080 PRINT"        [194] [158]   [175][175]  [175][175]     [175][175][175][175][146][183] TO BRAKES"
  351. 6090 PRINT"[155]         [184][184][184][184][146][169][149] [158][181][182][149] [146][155][223][184][184][184][184][184] [146][183][183]"
  352. 7000 PRINT"       [155] [194][183][183][208][149]   [158][181][182][149]   [207][183][183][183][146][155][194]"
  353. 7010 PRINT"        [194]   [163][146][151][209][149] [158][181][182][149] [146][151][209][163]    [146][155][173][195][195][195]"
  354. 7020 PRINT"        [194]    [146][151][209][149] [158][181][182][149] [146][151][209] 120  [146][195]FROM RESEVOIR[155]"
  355. 7030 PRINT"        [194]    [146][151][209][149] [158][181][182][149] [146][151][209] PSI [146][155][176][195][195][195]"
  356. 7040 PRINT"        [194]    [146][151][209][149] [158][181][182][149] [146][151][209]     [146][155][194]"
  357. 7050 PRINT"        [202][195][195][195][195] [149] [158][181][182][149] [155] [146][195][195][195][195][195][203] "
  358. 7060 PRINT"             [175][146][158][169][206][205][223][146][155][175][146]"
  359. 7070 PRINT"[155] WHEN THE FOOTVALVE IS RELEASED, SPRING"
  360. 7080 PRINT" PRESSURE PUSHES THE [154]PISTON[155] ALL THE WAY"
  361. 7090 PRINT" UP. THIS OPENS THE PORT IN THE TOP OF"
  362. 8000 PRINT" THE [149]SPOOL VALVE[155], LETTING THE BRAKE CAN"
  363. 8010 PRINT" AIR DUMP TO THE OUTSIDE.":GOSUB60000
  364. 8030 PRINT"[147]                                [213][195][195][195][195][195][201]
  365. 8040 [153]"PRINT#   (null)LENLENWAITLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN< AIR PEEK
  366. 8050 PRINT"   [194] [152][172][162]                         [202][195][195][178][195][195][203]
  367. 8060 [153]"   PEEK  PRINT#(null)WAITLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENPRINT# REL WAITLEN(null)
  368. 8070 PRINT"   [194]  [194]                        [194] "
  369. 8080 PRINT"   [194]  [194]                        [194] "
  370. 8090 PRINT" [213][195][177][195][195][177][195][195][195][195][201]                  [151][213][177][201]  "
  371. 9000 PRINT" [194]   AIR   [194]               [151]   [194] [171][195][215]"
  372. 9010 PRINT" [202][195][195][195][195][195][195][195][195][195][203]                 [151] [202][195][203]  "
  373. 9020 PRINT"[155] AS YOU CAN SEE THE RELAY VALVE CAN"
  374. 9030 PRINT" SET THE BRAKES FASTER, AND RELEASE "
  375. 9040 PRINT" THEM FASTER. THERE IS ONE MORE THING"
  376. 9050 PRINT" THAT WE NEED TO STUDY. [129]THE MAXI-BRAKE.":GOSUB60000
  377. 9060 PRINT"[147]              [213][195][195][195][201][213][195][195][195][201]"
  378. 9070 PRINT"              [194]   [171][179]   [194]    "
  379. 9080 PRINT"              [194] 1    2 [171][195][195][215] "
  380. 9090 PRINT"              [194]   [171][179]   [194] "
  381. 9100 PRINT"              [202][195][195][195][203][202][195][195][195][203] "
  382. 9101 PRINT" THE [150]MAXI-BRAKE[155] HAS TWO CANS. CAN #1"
  383. 9102 PRINT" CONTAINS THE [150]PARKING BRAKE SPRING[155]."
  384. 9103 PRINT" THIS [150]SPRING[155] IS HELD UNDER [150]750 PSI[155]."
  385. 9104 PRINT"   [158] DO NOT REMOVE THE CIRCLE CLAMP !! [155][146]"
  386. 9105 PRINT" HAVE SOMEONE SHOW YOU HOW TO CAGE THE"
  387. 9106 PRINT" [150]SPRING[155] BEFORE YOU TRY TO REPAIR A"
  388. 9107 PRINT" MAXI-BRAKE":GOSUB60000
  389. 9110 GOSUB59200:PRINT"[147][151]        [175][175][175][175][175] [146][151][186] [204][175]  [175][186] [204] [146][151][175][175][175][175] "
  390. 9120 PRINT"       [206]      [149][205]   [151][205][206]    [149][205]    [151][205] "
  391. 9130 PRINT"   [158]#1[151]  [181][209][209]S[209][209][182][149][182][182]   [151][180]    [181][149][181][194]  [151][182]  [158]#2[151]"
  392. 9140 PRINT"       [181]  P   [146][149][182][182]   [151][180]    [181][149][181][194]  [151][182]  "
  393. 9145 PRINT"       [181]  R   [146][149][182][182][152][215][215][215][151][180]    [181][149][181][194]  [151][182] "
  394. 9150 PRINT"       [181]  I   [146][149][182][182][195][195][195][195][195][195][195][195][181][149][181][171][195][195][195][195][195][195][195][195][195][195][215][151]"
  395. 9160 PRINT"       [181]  N   [146][149][182][182][152][215][215][215][151][180]    [181][149][181][194]  [151][182] "
  396. 9170 PRINT"       [181]  G   [146][149][182][182]   [151][180]    [181][149][181][194]  [151][182] "
  397. 9180 PRINT"       [181][209][209]![209][209][182][149][182][182]   [151][180]    [181][149][181][194]  [151][182] "
  398. 9190 PRINT"       [205]      [149][206]   [151][206][205]    [149][206]    [151][206] "
  399. 9200 PRINT"        [183][183][183][183][183] [146][151][183][183][183][183][160][160][183][183][183][183] [146][151][183][183][183][183]"
  400. 9210 PRINT"[155] WHEN THE DASH VALVE IS PUSHED, [159]AIR[155] IS"
  401. 9220 PRINT" SENT TO CAN #1. THIS COMPRESSES THE"
  402. 9230 PRINT" [150]PARKING BRAKE SPRING[155], RELEASING THE"
  403. 9240 PRINT" THE PARKING BRAKE. THIS LETS CAN #2"
  404. 9250 PRINT" WORK LIKE A STANDARD BRAKE CAN.":GOSUB60000
  405. 9300 GOSUB59200:PRINT"[151]       [206]     [149][206]    [151][205][206]   [149][206]     [151][205] "
  406. 9310 PRINT"   [158]#1[151]  [181][209]S[209][182][149][182][182][159][169][146][185][185][185] [151][180]  [181][149][181][194]    [151][182]"
  407. 9320 PRINT"       [181] P  [146][149][182][182][159][223][184][184][184] [151][180]  [181][149][181][194]    [151][182]  "
  408. 9330 PRINT"       [181] R  [146][149][182][182][152][215] [215] [215][151][180]  [181][149][181][194]    [151][182] "
  409. 9340 PRINT"       [181] I  [146][149][182][182][195][195][195][195][195][195][195][195][181][149][181][171][195][195][195][195][195][195][195][195][195][195][215]   [151]"
  410. 9350 PRINT"       [181] N  [146][149][182][182][152][215] [215] [215][151][181]  [181][149][181][194]    [151][182] "
  411. 9360 PRINT"       [181] G  [146][149][182][182][159][169][146][185][185][185] [151][181]  [181][149][181][194]    [151][182] "
  412. 9370 PRINT"       [181][209]![209][182][149][182][182][159][223][184][184][184] [151][181]  [181][149][181][194]    [151][182] "
  413. 9380 PRINT"       [205]     [149][205]    [151][206][205]   [149][205]     [151][206] ":GOSUB60000
  414. 9400 PRINT"[147]":POKE53280,0
  415. 9410 PRINT" DASH VALVE [146]          [213][195][195][195][195][195][195][195][195][201]
  416. 9420 [153]"  (null)STEP                  PEEK (null)LENLENLENLENLENRIGHT$PEEK(null)LENLENLENLENLENRIGHT$"
  417. 9430 [153]"SYS  (null)LENLENWAITLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN>LEN<CONTAIR 2PEEK-<AIR 1PEEK"
  418. 9440 [153]"  PEEK SYS*NEWLEN FOOTVALVE WAIT      MID$LENLENFREWAITLENLEN(null)PEEKMID$LENLENFREWAITLENLEN(null)"
  419. 9450 [153]"  PEEK  SYS(null)WAITLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENSYSRELWAIT  MID$LENLENSYSRELWAIT"
  420. 9455 [153]"  PEEK  PEEK                     PEEK       PEEK"
  421. 9460 [153]"  PEEK  PEEK  (null)LENLENLENLENLENLENLENLENRIGHT$         PEEK       PEEK "
  422. 9470 [153]"  PEEK  PEEK  PEEK(null)LENSYSGOVWAITLENRIGHT$ PEEK         MID$LENLENRIGHT$  (null)LEN(null)
  423. 9480 PRINT"[213][195][177][195][195][177][195][195][177][177][195][201]   [158]U[146] [194]           [151][213][177][201][213][177][201] "
  424. 9490 PRINT"[194] MAIN AIR [194] [152][182][184][129][177][152][184][129][177][152][184][181]      [215][195][195][151][179][154]2[151][161][146][161]1[151][194] "
  425. 9500 PRINT"[202][195][195][195][195][195][195][195][195][195][195][203] [152][182][151]     [146][152][181]        [151] [202][195][203][202][195][203] "
  426. 9510 PRINT"[152] COMPRESSOR[146][195][195][152][182]     [181] [154]SERVICE[146][195][195][203]  [149][202]SPRING[146]"
  427. 9520 PRINT"[145]                      [154]BRAKE[146]        [149]BRAKE[146]"
  428. 9530 PRINT"[155] HERE IT IS. THE COMPRESSOR, CONTROLLED"
  429. 9540 PRINT" BY THE GOVENOR, SUPPLIES AIR TO THE"
  430. 9550 PRINT" MAIN AIR TANK. THE DASH VALVE SENDS "
  431. 9560 PRINT" AIR TO THE SECONDARY TANKS, AND "
  432. 9570 PRINT" RELEASES THE PARKING BRAKE. THE "
  433. 9580 PRINT" FOOTVALVE CONTROLS THE SERVICE BRAKE.":GOSUB60000:GOSUB59200
  434. 9585 PRINT""
  435. 9590 FORX=1TO9:PRINT"                                       ":NEXTX
  436. 9595 PRINT""
  437. 9600 PRINT"";ST$"[158] IF YOU WOULD LIKE TO RUN THIS PROGRAM"
  438. 9610 PRINT" AGAIN TYPE  Y [146]"
  439. 9620 PRINT" IF YOU WANT TO QUIT TYPE  N [146]"
  440. 9630 GET Q$:IF Q$=""THEN9630
  441. 9640 IF Q$="Y"THENGOTO200
  442. 9650 IFQ$="N"THEN9670
  443. 9655 GOTO9630
  444. 9670 PRINT"[147]":END
  445. 20000 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,60,0,0,126,0,0,255,0,1,255,128
  446. 20001 DATA3,255,192,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60,0,0,255,0,1,255
  447. 20002 DATA128,1,255,128,1,255,128
  448. 20003 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,128,0,15,128,0,15,128,0,63,128
  449. 20004 DATA3,255,192,31,255,192,63,241,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  450. 20005 DATA0,0,0,0,0,0,0,0,0
  451. 59000 FORX=1 TO 5
  452. 59010 PRINT""
  453. 59015 PRINT TAB(34)"[215][146]"
  454. 59020 PRINT"        [161]     [149][206]      [182]            [161]   "
  455. 59030 PRINT"        [161]    [149][182][194][156][212][217][212][217][212][182][182]           [182]   "
  456. 59040 PRINT"   [175][175][175][175][175][161]    [149][182][194][156][199][200][199][200][199][200][182]           [194]   "
  457. 59050 PRINT"             [149][182][181][146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][215]   "
  458. 59060 PRINT"   [183][183][183][183][183][161]    [149][182][194][156][194][199][200][199][200][199][182]  "
  459. 59070 PRINT"        [161]    [149][182][194][156][200][165][217][212][217][212][182]  "
  460. 59080 PRINT"        [161]     [149][205]      [182]  "
  461. 59090 FORY=1TO500:NEXTY
  462. 59100 PRINT""
  463. 59110 PRINT"        [161][154][166][166][166][166][166][166][149][205]     [182]            [182]"
  464. 59120 PRINT"        [161][154][166][166][166][166][166][166][149][182][194][156][212][217][212][217][182]             [180]"
  465. 59130 PRINT"   [175][175][175][175][175][161][154][166][166][166][166][166][166][149][182][194][156][199][200][199][200][182]             [194]"
  466. 59140 PRINT"   [154][166][166][166][166][166][166][166]AIR[146][166][166][149][182][181][146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][215]"
  467. 59150 PRINT"   [183][183][183][183][183][161][154][166][166][166][166][166][166][149][182][194][156][194][199][200][199][182]  "
  468. 59160 PRINT"        [161][154][166][166][166][166][166][166][149][182][194][156][200][165][217][212][182]  "
  469. 59170 PRINT"        [161][154][166][166][166][166][166][166][149][206]     [182]  "
  470. 59180 FORY=1TO700:NEXTY:NEXTX:RETURN
  471. 59200 PRINT"";DN$;"                                     ":FORX=1TO500:NEXTX
  472. 59210 RETURN
  473. 60000 PRINT"";DN$;"        [154] PRESS  F7 [146] TO CONTINUE [146]"
  474. 60010 GET G$:IFG$<>CHR$(136)THEN 60010
  475. 60020 IF G$=CHR$(136) THEN 60030
  476. 60030 FORX=1TO500:NEXTX:RETURN
  477. 60050 PRINT"";CL$:FORX=0TO8:PRINT"                                       "
  478. 60051 NEXTX:RETURN
  479. 60060 FORX=1TO400:NEXTX:RETURN
  480. 60070 PRINT"":FORX=0TO8:PRINT"                                       "
  481. 60071 NEXTX:RETURN
  482.