home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / appleii / app386.1 next >
Text File  |  2020-01-01  |  36KB  |  782 lines
  1. REM FIRST LINE OF APP386.1-- DO NOT REMOVE THESE REM LINES
  2. REM SAVE AS "APP386.1" [AS RECEIVED, WITHOUT REMOVING UUCP HEADERS]
  3. REM 782 LINES,35948 BYTES '89 OCT 19-->WARNING APP386.2 IS DELETED BY INSTALL
  4. REM GLEN BREDON'S EXECUTIONER WAS USED TO COMPRESS CODE IN PART 2
  5. REM IT ONLY WORKS IF THERE IS A LINE WITH ONLY A CARRIAGE RETURN ON IT
  6. REM AT THE END OF THE COMPRESSED CODE.  MANY SYSTEMS WILL ADD A SPACE
  7. REM BEFORE THE CARRIAGE RETURN.  YOU MUST REMOVE THE SPACE BEFORE IT WILL
  8. REM WORK.  SO, LOAD APP386.2 INTO A WORD PROCESSOR AND LOOK.
  9. REM FIX THE LINE AT THE VERY END OF PART 2 IF NECESSARY.
  10. REM THIS FILE REQUIRES ONLY <RETURNS> AFTER EACH LINE (THE FORM IS 8D HEX)
  11. REM  AND DOS 3.3 TEXT BYTES(HIGH BIT ON) THANKS SCOTT HUTINGER
  12. REM
  13. REM TURN ON APPLE WITH 'DOS3.3 SYSTEM MASTER' DISK IN DRIVE 1
  14. REM REPLACE 'SYSTEM MASTER' DISK WITH BLANK DISK
  15. REM TYPE:  FP<RETURN>   THEN TYPE:  INIT HELLO<RETURN>
  16. REM REPLACE NEW DISK WITH 'DOS3.3 SYSTEM MASTER' THEN TYPE: BRUN FID<RETURN>
  17. REM COPY DOWNLOADS 'APP386.1' AND 'APP386.2' TO NEW DISK
  18. REM PUT NEW DISK IN DRIVE 1 AND TYPE:  PR#6<RETURN>
  19. REM TYPE:  EXEC APP386.1,R25<RETURN>       [YES, THAT'S "R25"]
  20. REM
  21. REM TO REINSTALL TYPE:  BLOAD KERMIT386<RETURN>
  22. REM         THEN TYPE:  EXEC APP386.INSTALL<RETURN>
  23. REM Things to remember:fix size of bin save
  24. REM  pgm must fit between 4096 & lomem
  25. REM  test is made at 131 for correct load of kermit
  26. REM  test is made at 141 for lomem token & 3 the first digit of lomem
  27. REM DO NOT REMOVE THESE REM LINES
  28. REM
  29. CLOSE
  30. NEW
  31. 75 IF PEEK(-8192)=32 THEN GOTO 100:REM TEST FOR INTEGER
  32. 95 END
  33. 100 PRINT "SORRY, GOTTA STOP HERE"
  34. 110 PRINT "APPLESOFT BASIC REQUIRED"
  35. 120 POKE-21837,0:CALL-23830:REM TURN OFF EXEC FLAG AND CLOSE
  36. 130 END
  37. RUN
  38. TEXT:SPEED=100:PRINT"             PROGRAM STARTING         "
  39. PRINT"  (ALL THOSE ']' PROMPTS ARE NORMAL)"
  40. PRINT"                                      ":SPEED=255
  41. NEW
  42. 75 IF PEEK(48896)=76 OR PEEK(978)><157 GOTO 100:REM TEST PRODOS OR MOVED DOS
  43. 95 END
  44. 100 D$=CHR$(4):G$=CHR$(7):M$=CHR$(13)
  45. 110 F$="T":FE$=D$+"EXEC "+F$:FD$="DELETE "+F$
  46. 120 EE$=G$+"SORRY, GOTTA STOP HERE"+M$+M$+G$
  47. 130 PRINT D$;"OPEN ";F$:PRINT D$;"WRITE ";F$:PRINT "CLOSE"
  48. 140 IF PEEK(978)=190 THEN PRINT FD$
  49. 150 PRINT "END":PRINT D$;"CLOSE ";F$
  50. 160 PRINT EE$;"NORMAL DOS 3.3 REQUIRED":PRINT FE$:END
  51. RUN
  52. CLOSE
  53. CALL-151
  54. 0300:48 98 48 8A 48 20 F7 AF A9 00 85 40 85 41 A0 C8
  55. 0310:18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41
  56. 0320:68 18 90 F0 88 D0 E9 68 AA 68 A8 68 60 00 00 00
  57. 0330:68 A8 68 A6 DF 9A 48 98 48 60 00
  58. 3D0G
  59. FP
  60. 10D$=CHR$(4):G$=CHR$(7):M$=CHR$(13):Q$=CHR$(34):VN$="386":V$="APP"+VN$+"."
  61. 20KR$="KERMIT"+VN$:C0$="INSTALL":C1$="SS":C2$="SV":C3$="MM":C4$="AC":FS=65
  62. 23C5$="CC":C6$="GS":C7$="CP":C8$="CT":CF$="INIT":H$="KERMIT.":CH$="HELP"
  63. 30EE$=G$+M$+"SORRY, GOTTA STOP HERE"+M$+G$
  64. 110ONERRGOTO1000
  65. 112TL=3:FORT=2TOTL:T$(T)=STR$(T):NEXTT:T=2:E=0
  66. 115L$(0)="HOWDY--                                 "
  67. 117L$(1)="                                        "
  68. 119L$(2)="GONNA MAKE YOU A DOS KERMIT OF YOUR OWN "
  69. 121L$(3)="BUT FIRST,                              "
  70. 123L$(4)="GONNA CHECK TO SEE IF WE'VE GOT ALL THE "
  71. 125L$(5)="FILE NAMES SPELLED AS EXPECTED.  AND,   "
  72. 127L$(6)="IF THERE'S ENOUGH SPACE ON THIS DISK.   "
  73. 130TEXT:NORMAL:HOME
  74. 135FORV=0TO6:FORH=40TO1STEP-3:VTABV+1:INVERSE:?SPC(40):?:VTABV+1:NORMAL
  75. 137?LEFT$(L$(V),41-H):NEXT:NEXT
  76. 140?D$;"VERIFY ";V$;T
  77. 150T=T+1:IFT<TLGOTO140
  78. 300CALL768:SC=PEEK(64)+PEEK(65)*256
  79. 305IFSC<FSTHENE=E+1:E$(E)="NOT ENOUGH FREE SPACE ON THIS DISK"
  80. 350IFE>0GOTO3000
  81. 400?"LOOKIN GOOD":?:?"GO DO SOMETHIN INTERESTING"
  82. 410?"FOR A FEW  MINUTES":?:?"WILL 'BEEP' WHEN YOU'RE NEEDED":?
  83. 420POKE216,0:FORI=1TO2000:NEXTI:END
  84. 1000IFPEEK(222)><6GOTO9000
  85. 1010E=E+1:E$(E)="CAN'T FIND    "+V$+T$(T):T=T+1:IFT<TLTHENRESUME
  86. 1020GOTO300
  87. 3000?EE$:?"THESE ARE THE PROBLEMS TO FIX:":?
  88. 3010POKE216,0:FORI=1TOE:?E$(I):NEXTI
  89. 4000POKE-21837,0:?D$;"CLOSE":END
  90. 8000REM LAST LINES OF CFIG GENERATORS (FOLLOWING)
  91. 8010?"3D0G"
  92. 8020?EX$
  93. 8085?"END"
  94. 8090?CL$
  95. 8095END
  96. 8500REM ASSIGN STRINGS FOR CFIG GENERATORS (FOLLOWING)
  97. 8550CV$=V$+C$:O$=D$+"OPEN"+CV$:W$=D$+"WRITE"+CV$:CL$=D$+"CLOSE"+CV$
  98. 8555EX$="EXEC"+V$+C0$+",R1"
  99. 8595RETURN
  100. 9000 REM ONERR ERROR ROUTINE
  101. 9005CALL816
  102. 9010PE=PEEK(222):POKE216,0:?EE$
  103. 9020?"IF CONFUSED, ASK FOR HELP":?"--NOTE YOU GOT ERROR #";PE
  104. 9999POKE-21837,0:?D$;"CLOSE":END:REM TURN OFF EXEC AND CLOSE
  105. RUN
  106. CLOSE
  107. DEL40,7999
  108. 50ONERRGOTO9000
  109. 99GOSUB8500:?O$:?W$
  110. REM START OF CFIG GENERATORS
  111. 98C$=C1$
  112. 103?"REM 1ST LINE OF ";V$;C1$;"--DO NOT REMOVE THESE REM LINES"
  113. 114?"CLOSE"
  114. 116?"CALL -151"
  115. 117?"1005:09 7B"
  116. 118?"100C:FD 87"
  117. 119?"1020:4C ED 7B 4C 69 7D 4C EE 7C 4C FF 7C 4C 1A 7D 4C 31 7D"
  118. 120?"7B00:00 00 00 00 00 00 00 00 00 D3 D3 C3 A0 D6 B1 AE B1 B4"
  119. 121?"7B12:00 C3 CF CD A0 D2 D4 CE A0 C1 D3 CD A0 D4 CF CF"
  120. 122?"7B22:A0 CC CF D7 00 3C AD A0 C2 C1 C4 A0 C3 CF CD A0 C3 CD"
  121. 123?"7B34:C4 00 68 AA 6C 04 7B 8A 48 AD 89 C0 10 F4 29 08"
  122. 124?"7B44:D0 52 2C 0B 10 10 2B 70 26 AD 07 7B F0 0C AD 06 7B"
  123. 125?"7B55:D0 1F A9 13 8D 06 7B D0 0F AD 06 7B F0 13 A9 00"
  124. 126?"7B65:8D 07 7B 8D 06 7B A9 11 20 4F 10 8D 88 C0 4C DE 7B"
  125. 127?"7B76:AD 02 7B CD 03 7B F0 14 EE 03 7B CD 03 7B F0 0C"
  126. 128?"7B86:AE 03 7B BD FD 86 8D 88 C0 4C DE 7B 20 E3 7B 4C DE 7B"
  127. 129?"7B98:AD 88 C0 AE 01 7B 9D FD 7D 2C 0B 10 10 26 29 7F"
  128. 130?"7BA8:C9 11 D0 0E A9 BF 2D 0B 10 8D 0B 10 20 E9 7B 4C DE 7B"
  129. 131?"7BBA:C9 13 D0 0E A9 40 0D 0B 10 8D 0B 10 20 E9 7B 4C DE 7B"
  130. 132?"7BCC:EE 01 7B D0 0D AE A0 7B E8 E0 86 D0 02 A2 7D 8E A0 7B"
  131. 133?"7BDE:68 AA A5 45 40 A9 01 8D 8A C0 60 A9 05 D0 F8 78"
  132. 134?"7BEE:AD 05 7B D0 25 AD FE 03 8D 04 7B AD FF 03 8D 05 7B"
  133. 135?"7BFF:A9 7B CD 0A 10 F0 04 90 09 B0 0E A9 00 CD 09 10"
  134. 136?"7C0F:B0 07 A2 13 A0 7B 20 82 7D AD 08 10 F0 0C 58 60"
  135. 137?"7C1F:A9 60 8D E9 7B 8D E3 7B D0 09 AD C0 FB F0 F1 C9 E0"
  136. 138?"7C30:D0 5B AD E2 7B 8D DE 7B A9 3D 8D FE 03 A9 7B 8D FF 03"
  137. 139?"7C42:A2 00 BD 38 7B 9D 36 7B E8 E0 03 D0 F5 A2 00 2C 11 C0"
  138. 140?"7C54:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
  139. 141?"7C65:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
  140. 142?"7C75:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
  141. 143?"7C87:3C 81 C0 4C 97 7C A9 3B 8D FE 03 A9 7B 8D FF 03"
  142. 144?"7C97:A9 00 8D 00 7B 8D 01 7B 8D 02 7B 8D 03 7B A9 7D"
  143. 145?"7CA7:8D A0 7B 8D 05 7D AE 07 10 8E 08 10 18 A9 89 6D 07 10"
  144. 146?"7CB9:8D 3E 7B 8D 54 7D 18 A9 88 6D 07 10 8D 8D 7B 8D 99 7B"
  145. 147?"7CCB:8D 71 7B 8D 61 7D 8D 27 7D A9 8A 18 6D 07 10 8D E6 7B"
  146. 148?"7CDD:A9 05 9D 8A C0 A9 18 29 F0 0D 03 10 9D 8B C0 58"
  147. 149?"7CED:60 78 AD 00 7B CD 01 7B D0 06 AD A0 7B CD 05 7D"
  148. 150?"7CFD:58 60 78 AE 00 7B BD FD 7D EE 00 7B D0 0D AC 05 7D"
  149. 151?"7D0E:C8 C0 86 D0 02 A0 7D 8C 05 7D 58 60 78 AE 02 7B"
  150. 152?"7D1E:9D FD 86 EC 03 7B D0 06 8D 88 C0 20 E9 7B EE 02 7B"
  151. 153?"7D2F:58 60 78 AD 05 7B F0 1A AD 04 7B 8D FE 03 AD 05 7B"
  152. 154?"7D40:8D FF 03 A9 00 8D 05 7B AE 07 10 9D 89 C0 9D 8A C0"
  153. 155?"7D51:60 AA AD 89 C0 29 10 F0 0E 8A 29 7F 20 4F 10 8D 88 C0"
  154. 156?"7D63:20 E9 7B A9 01 60 F0 C6 C9 0C F0 69 C9 0B F0 54"
  155. 157?"7D73:C9 91 F0 14 C9 93 F0 30 20 DA FD A2 27 A0 7B 20 43 10"
  156. 158?"7D85:20 49 10 A9 00 60 78 20 52 7D F0 0C A9 00 8D 07 7B"
  157. 159?"7D96:8D 06 7B A9 01 58 60 A9 00 8D 07 7B 58 AD 06 7B"
  158. 160?"7DA6:D0 FB A9 01 60 78 20 52 7D F0 0A A9 01 8D 06 7B"
  159. 161?"7DB6:8D 07 7B 58 60 A9 01 8D 07 7B 58 AD 06 7B F0 FB"
  160. 162?"7DC6:60 AE 07 10 78 BD 8B C0 29 F0 0D 03 10 9D 8B C0"
  161. 163?"7DD6:58 60 78 AC 07 10 B9 8A C0 09 0C 99 8A C0 A9 E9"
  162. 164?"7DE6:8D 08 7B AD 0E 10 20 40 10 CE 08 7B D0 F5 A9 05"
  163. 165?"7DF6:99 8A C0 58 A9 01 60"
  164. RUN
  165. DEL 100,7999
  166. 98C$=C2$
  167. 103?"REM 1ST LINE OF ";V$;C2$;"--DO NOT REMOVE THESE REM LINES"
  168. 114?"CLOSE"
  169. 116?"CALL -151"
  170. 117?"1005:05 7B"
  171. 118?"100C:99 7E"
  172. 119?"1020:4C 53 7B 4C 42 7C 4C 9D 7B 4C FD 7B 4C 07 7C 4C 33 7C"
  173. 120?"7B00:00 00 00 00 00 CD C9 C3 D2 CF D4 C5 CB A0 D3 D6 AD"
  174. 121?"7B11:B6 B2 B2 A0 D6 B1 AE B7 00 AA AA AA AA AA C5 D2 D2 CF"
  175. 122?"7B23:D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4 C9 CE C5"
  176. 123?"7B35:D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF"
  177. 124?"7B47:D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 A9 7B CD 0A 10"
  178. 125?"7B58:F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C B0 0A A2 1A"
  179. 126?"7B69:A0 7B 20 43 10 20 49 10 AD 08 10 D0 26 A9 00 8D 00 7B"
  180. 127?"7B7B:8D 01 7B 8D 02 7B 8D 03 7B AE 07 10 A9 0B 8D 08 10"
  181. 128?"7B8C:9D 89 C0 9D 8A C0 A9 18 29 F0 0D 03 10 9D 8B C0"
  182. 129?"7B9C:60 AE 07 10 BD 89 C0 29 08 F0 4F BD 88 C0 AC 00 7B"
  183. 130?"7BAD:99 99 7C EE 00 7B 2C 0B 10 10 3E B9 99 7C 29 7F"
  184. 131?"7BBD:C9 11 D0 26 AD 0B 10 29 BF 8D 0B 10 CE 00 7B AC 03 7B"
  185. 132?"7BCF:CC 02 7B F0 22 BD 89 C0 29 10 F0 F9 B9 99 7D 9D 88 C0"
  186. 133?"7BE1:EE 03 7B 4C CC 7B C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10"
  187. 134?"7BF3:CE 00 7B AD 00 7B CD 01 7B 60 AE 01 7B BD 99 7C"
  188. 135?"7C03:EE 01 7B 60 48 AE 07 10 BD 89 C0 29 10 F0 1B 2C 0B 10"
  189. 136?"7C15:10 0F 50 0D AC 02 7B 68 99 99 7D EE 02 7B 4C A0 7B"
  190. 137?"7C26:68 9D 88 C0 4C A0 7B 20 A0 7B 4C 0B 7C A9 00 8D 08 10"
  191. 138?"7C38:AE 07 10 9D 89 C0 9D 8A C0 60 F0 12 C9 0C F0 2E"
  192. 139?"7C48:C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00 60 AE 0B 10"
  193. 140?"7C5A:10 F8 29 7F 20 4F 10 20 07 7C A9 01 60 AE 07 10"
  194. 141?"7C6A:BD 8B C0 29 F0 0D 03 10 9D 8B C0 60 AC 07 10 B9 8A C0"
  195. 142?"7C7C:48 09 0C 99 8A C0 A9 E9 8D 04 7B AD 0E 10 20 40 10"
  196. 143?"7C8D:CE 04 7B D0 F5 68 99 8A C0 A9 01 60"
  197. RUN
  198. DEL 100,7999
  199. 98C$=C3$
  200. 103?"REM 1ST LINE OF ";V$;C3$;"--DO NOT REMOVE THESE REM LINES"
  201. 114?"CLOSE"
  202. 116?"CALL -151"
  203. 117?"1005:07 7B"
  204. 118?"100C:F9 7F"
  205. 119?"1020:4C 9E 7B 4C A4 7D 4C 05 7D 4C 65 7D 4C 6F 7D 4C 9B 7D"
  206. 120?"7B00:00 00 00 00 00 00 00 C8 C1 D9 C5 D3 A0 CD C9 C3"
  207. 121?"7B10:D2 CF A0 CD CF C4 C5 CD A0 D6 B1 AE B7 00 C3 CF CD"
  208. 122?"7B21:A0 D2 CF D5 D4 C9 CE C5 D3 A0 C1 D3 CD A0 D4 CF CF A0"
  209. 123?"7B33:CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 CE D5 CD"
  210. 124?"7B44:C2 C5 D2 A0 D4 CF A0 C4 C9 C1 CC BA 00 C1 D7 C1"
  211. 125?"7B54:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE C1 CE"
  212. 126?"7B66:D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 00 C3 CF CE"
  213. 127?"7B76:CE C5 C3 D4 C5 C4 AE 00 D4 C8 C5 D2 C5 A0 D7 C9 CC"
  214. 128?"7B87:CC A0 C2 C5 A0 C1 A0 B3 B5 A0 D3 C5 C3 A0 C4 C5 CC C1"
  215. 129?"7B99:D9 00 A9 01 60 A9 7B CD 0A 10 F0 04 90 0B B0 13"
  216. 130?"7BA9:A9 00 CD 09 10 F0 0C B0 0A A2 1E A0 7B 20 43 10"
  217. 131?"7BB9:20 49 10 AE 07 10 BD 87 C0 BD 86 C0 29 04 F0 D2"
  218. 132?"7BC9:8A 4A 4A 4A 4A 8D 06 7B A2 7E A0 7B 20 43 10 20 49 10"
  219. 133?"7BDB:A5 36 48 A5 37 48 AD 06 7B 20 95 FE A9 91 20 ED FD"
  220. 134?"7BEC:A9 8D 20 ED FD A9 9A 20 ED FD A9 14 8D 01 7B A9 7D"
  221. 135?"7BFD:8D 00 7B AD 0E 10 20 40 10 CE 00 7B D0 F5 CE 01 7B"
  222. 136?"7C0E:D0 EB 68 85 37 68 85 36 A9 8D AE 07 10 9D 85 C0"
  223. 137?"7C1E:A9 03 9D 87 C0 A9 11 9D 87 C0 A9 14 8D 01 7B A9 7D"
  224. 138?"7C2F:8D 00 7B AD 0E 10 20 40 10 CE 00 7B D0 F5 CE 01 7B"
  225. 139?"7C40:D0 EB A2 41 A0 7B 20 43 10 20 0C FD 20 ED FD 29 7F"
  226. 140?"7C51:C9 30 30 5F C9 3A 10 5B 29 0F D0 02 A9 0A 8D 01 7B"
  227. 141?"7C62:A9 0D AE 07 10 9D 85 C0 A9 3D 8D 00 7B AD 0E 10"
  228. 142?"7C72:20 40 10 CE 00 7B D0 F5 A9 8D AE 07 10 9D 85 C0"
  229. 143?"7C82:A9 27 8D 00 7B AD 0E 10 20 40 10 CE 00 7B D0 F5"
  230. 144?"7C92:CE 01 7B D0 CB A9 06 8D 01 7B A9 64 8D 00 7B AD 0E 10"
  231. 145?"7CA4:20 40 10 CE 00 7B D0 F5 CE 01 7B D0 EB 4C 49 7C"
  232. 146?"7CB4:C9 0D D0 91 20 49 10 A2 51 A0 7B 20 43 10 AE 07 10"
  233. 147?"7CC5:2C 00 C0 10 0E 20 0C FD A9 00 AE 07 10 9D 85 C0"
  234. 148?"7CD5:A9 00 60 BD 87 C0 BD 86 C0 29 04 D0 E3 A9 8F 9D 85 C0"
  235. 149?"7CE7:20 49 10 A2 73 A0 7B 20 43 10 20 49 10 A9 00 8D 02 7B"
  236. 150?"7CF9:8D 03 7B 8D 04 7B 8D 05 7B A9 01 60 AE 07 10 BD 86 C0"
  237. 151?"7D0B:29 01 F0 4F BD 87 C0 AC 02 7B 99 F9 7D EE 02 7B"
  238. 152?"7D1B:2C 0B 10 10 3E B9 F9 7D 29 7F C9 11 D0 26 AD 0B 10"
  239. 153?"7D2C:29 BF 8D 0B 10 CE 02 7B AC 05 7B CC 04 7B F0 22"
  240. 154?"7D3C:BD 86 C0 29 02 F0 F9 B9 F9 7E 9D 87 C0 EE 05 7B"
  241. 155?"7D4C:4C 34 7D C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 CE 02 7B"
  242. 156?"7D5E:AD 02 7B CD 03 7B 60 AE 03 7B BD F9 7D EE 03 7B"
  243. 157?"7D6E:60 48 AE 07 10 BD 86 C0 29 02 F0 1B 2C 0B 10 10 0F"
  244. 158?"7D7F:50 0D AC 04 7B 68 99 F9 7E EE 04 7B 4C 08 7D 68"
  245. 159?"7D8F:9D 87 C0 4C 08 7D 20 08 7D 4C 73 7D A9 00 AE 07 10"
  246. 160?"7DA0:9D 85 C0 60 F0 23 C9 0C F0 28 C9 0B F0 0A C9 91"
  247. 161?"7DB0:F0 07 C9 93 F0 03 A9 00 60 AE 0B 10 10 F8 29 7F"
  248. 162?"7DC0:20 4F 10 20 6F 7D A9 01 60 AE 07 10 9D 85 C0 A9 01"
  249. 163?"7DD1:60 AC 07 10 AE 06 7B BD F8 07 09 60 99 86 C0 A9 E9"
  250. 164?"7DE2:8D 00 7B AD 0E 10 20 40 10 CE 00 7B D0 F5 BD F8 07"
  251. 165?"7DF3:29 9F 99 86 C0 60"
  252. RUN
  253. DEL 100,7999
  254. 98C$=C4$
  255. 103?"REM 1ST LINE OF ";V$;C4$;"--DO NOT REMOVE THESE REM LINES"
  256. 114?"CLOSE"
  257. 116?"CALL -151"
  258. 117?"1005:08 7B"
  259. 118?"100C:0B 7F"
  260. 119?"1020:4C 86 7B 4C BB 7C 4C 28 7C 4C 88 7C 4C 92 7C 4C BA 7C"
  261. 120?"7B00:00 00 00 00 00 00 00 01 C1 D0 D0 CC C5 A0 C3 CF CD"
  262. 121?"7B11:CD A0 C3 C1 D2 C4 A0 D6 B1 AE B8 00 AA AA AA AA AA C5"
  263. 122?"7B23:D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2 CF D5 D4"
  264. 123?"7B35:C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF"
  265. 124?"7B47:A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00 C1 D7 C1"
  266. 125?"7B59:C9 D4 C9 CE C7 A0 C3 C1 D2 D2 C9 C5 D2 AE AE AE AE A8"
  267. 126?"7B6B:C1 CE D9 A0 CB C5 D9 A0 C1 C2 CF D2 D4 D3 A9 00"
  268. 127?"7B7B:C3 CF CE CE C5 C3 D4 C5 C4 AE 00 A9 7B CD 0A 10"
  269. 128?"7B8B:F0 04 90 0B B0 16 A9 00 CD 09 10 F0 0F B0 0D A2 1D"
  270. 129?"7B9C:A0 7B 20 43 10 20 49 10 4C D0 03 A9 08 8D FE 03"
  271. 130?"7BAC:A9 7D 8D FF 03 AD 07 10 4A 4A 4A 4A 8D 05 7B AE 07 10"
  272. 131?"7BBE:A9 03 9D 8E C0 A9 15 9D 8E C0 AE 07 10 BD 8F C0"
  273. 132?"7BCE:BD 8E C0 29 04 D0 0B A9 15 8D 06 7B 9D 8E C0 A9 01"
  274. 133?"7BDF:60 A2 56 A0 7B 20 43 10 AE 07 10 AC 05 7B A9 15"
  275. 134?"7BEF:8D 06 7B 9D 8E C0 2C 00 C0 10 06 20 0C FD A9 00"
  276. 135?"7BFF:60 BD 8F C0 BD 8E C0 29 04 D0 EB 20 49 10 A2 7B"
  277. 136?"7C0F:A0 7B 20 43 10 20 49 10 A9 00 8D 01 7B 8D 02 7B"
  278. 137?"7C1F:8D 03 7B 8D 04 7B A9 01 60 AE 07 10 BD 8E C0 29 01"
  279. 138?"7C30:F0 4F BD 8F C0 AC 01 7B 99 0B 7D EE 01 7B 2C 0B 10"
  280. 139?"7C41:10 3E B9 0B 7D 29 7F C9 11 D0 26 AD 0B 10 29 BF"
  281. 140?"7C51:8D 0B 10 CE 01 7B AC 04 7B CC 03 7B F0 22 BD 8E C0"
  282. 141?"7C62:29 10 F0 F9 B9 0B 7E 9D 8F C0 EE 04 7B 4C 57 7C"
  283. 142?"7C72:C9 13 D0 0B A9 40 0D 0B 10 8D 0B 10 CE 01 7B AD 01 7B"
  284. 143?"7C84:CD 02 7B 60 AE 02 7B BD 0B 7D EE 02 7B 60 48 AE 07 10"
  285. 144?"7C96:BD 8E C0 29 02 F0 17 2C 0B 10 10 0D 50 0B AC 03 7B"
  286. 145?"7CA7:68 99 0B 7E EE 03 7B 60 68 9D 8F C0 60 20 2B 7C"
  287. 146?"7CB7:4C 96 7C 60 F0 1E C9 0C F0 20 C9 0B F0 0A C9 91"
  288. 147?"7CC7:F0 07 C9 93 F0 03 A9 00 60 29 7F 20 4F 10 20 92 7C"
  289. 148?"7CD8:A9 01 60 AE 07 10 A9 01 60 AC 07 10 AD 06 7B 09 60"
  290. 149?"7CE9:99 8E C0 A9 E9 8D 07 7B AD 0E 10 20 40 10 CE 07 7B"
  291. 150?"7CFA:D0 F5 AD 06 7B 29 9F AC 07 10 99 8E C0 60 A5 45"
  292. 151?"7D0A:40"
  293. RUN
  294. DEL 100,7999
  295. 98C$=C5$
  296. 103?"REM 1ST LINE OF ";V$;C5$;"--DO NOT REMOVE THESE REM LINES"
  297. 114?"CLOSE"
  298. 116?"CALL -151"
  299. 117?"1005:0A 7B"
  300. 118?"100C:D8 87"
  301. 119?"1020:4C 1F 7C 4C 66 7D 4C 0B 7D 4C 1C 7D 4C 37 7D 4C 48 7D"
  302. 120?"7B00:00 00 00 00 00 00 00 00 00 00 C3 C3 D3 A0 B7 B7"
  303. 121?"7B10:B1 B0 A0 D6 B1 AE B1 B1 00 C3 CF CD A0 D2 CF D5 D4 C9"
  304. 122?"7B22:CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0"
  305. 123?"7B34:CC CF D7 00 C3 C3 D3 A0 B7 B7 B1 B0 A0 D5 CE C1"
  306. 124?"7B44:C2 CC C5 A0 D4 CF A0 D3 C5 D4 A0 C2 C1 D5 C4 00"
  307. 125?"7B54:3C AD AD A0 C9 D3 A0 D5 CE CB CE CF D7 CE A0 C3"
  308. 126?"7B64:CF CD A0 C3 C1 D2 C4 A0 C3 CF CD CD C1 CE C4 00"
  309. 127?"7B74:8A 48 AD 80 C0 10 49 29 01 D0 52 2C 0B 10 10 29"
  310. 128?"7B84:70 43 AD 07 7B F0 0D AD 06 7B D0 1D A9 13 8D 06 7B"
  311. 129?"7B95:4C A4 7B AD 06 7B F0 10 A9 00 8D 06 7B A9 11 20 4F 10"
  312. 130?"7BA7:8D 81 C0 4C 14 7C AD 02 7B CD 03 7B F0 14 AE 03 7B"
  313. 131?"7BB8:BD D8 86 8D 81 C0 EE 03 7B 4C 14 7C 68 AA 6C 04 7B"
  314. 132?"7BC9:A9 95 8D 80 C0 4C 14 7C AD 81 C0 AE 01 7B 9D D8 7D"
  315. 133?"7BDA:2C 0B 10 10 23 29 7F C9 11 D0 0E A9 BF 2D 0B 10"
  316. 134?"7BEA:8D 0B 10 20 19 7C 4C 14 7C C9 13 D0 0B A9 40 0D 0B 10"
  317. 135?"7BFC:8D 0B 10 4C 14 7C EE 01 7B D0 0D AE D9 7B E8 E0 86"
  318. 136?"7C0D:D0 02 A2 7D 8E D9 7B 68 AA A5 45 40 A9 B5 8D 80 C0"
  319. 137?"7C1E:60 78 AD 05 7B D0 28 AD FE 03 8D 04 7B AD FF 03"
  320. 138?"7C2E:8D 05 7B A9 7B CD 0A 10 F0 04 90 09 B0 11 A9 00"
  321. 139?"7C3E:CD 09 10 B0 0A A2 19 A0 7B 20 43 10 20 49 10 AD 08 10"
  322. 140?"7C50:F0 03 4C 09 7D AD C0 FB C9 E0 F0 09 C9 00 D0 5B"
  323. 141?"7C60:AD BF FB D0 56 AD 18 7C 8D 14 7C A9 EA 8D C4 7B"
  324. 142?"7C70:8D C5 7B A9 76 8D FE 03 A9 7B 8D FF 03 A2 00 2C 11 C0"
  325. 143?"7C82:30 02 A2 08 2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0"
  326. 144?"7C93:DA AD 16 C0 0A A0 01 B9 FE FF 8D 09 C0 99 FE FF"
  327. 145?"7CA3:8D 08 C0 99 FE FF 88 10 EE 90 03 8D 09 C0 FA 3C 81 C0"
  328. 146?"7CB5:3C 81 C0 4C C5 7C A9 74 8D FE 03 A9 7B 8D FF 03"
  329. 147?"7CC5:A9 00 8D 00 7B 8D 01 7B 8D 02 7B 8D 03 7B A9 7D"
  330. 148?"7CD5:8D D9 7B 8D 22 7D AE 07 10 8E 08 10 18 A9 80 6D 07 10"
  331. 149?"7CE7:8D 77 7B 8D 1C 7C 8D CC 7B 18 A9 81 6D 07 10 8D BC 7B"
  332. 150?"7CF9:8D D2 7B 8D A8 7B A9 03 9D 80 C0 A9 95 9D 80 C0"
  333. 151?"7D09:58 60 78 AD 00 7B CD 01 7B D0 06 AD D9 7B CD 22 7D"
  334. 152?"7D1A:58 60 78 AE 00 7B BD D8 7D EE 00 7B D0 0D AC 22 7D"
  335. 153?"7D2B:C8 C0 86 D0 02 A0 7D 8C 22 7D 58 60 48 78 20 19 7C"
  336. 154?"7D3C:68 AE 02 7B 9D D8 86 EE 02 7B 58 60 78 AD 05 7B"
  337. 155?"7D4C:F0 17 AD 04 7B 8D FE 03 AD 05 7B 8D FF 03 A9 00"
  338. 156?"7D5C:8D 05 7B AE 07 10 9D 80 C0 60 F0 1D C9 0C F0 45"
  339. 157?"7D6C:C9 0B F0 18 C9 91 F0 1B C9 93 F0 29 20 DA FD A2 54"
  340. 158?"7D7D:A0 7B 20 43 10 20 49 10 A9 00 60 A2 38 A0 7B 4C 7F 7D"
  341. 159?"7D8F:78 20 19 7C A9 00 8D 07 7B 58 AD 06 7B D0 FB A9 01"
  342. 160?"7DA0:60 78 20 19 7C A9 01 8D 07 7B 58 AD 06 7B F0 FB"
  343. 161?"7DB0:60 78 AC 07 10 A9 60 99 80 C0 99 81 C0 58 A9 E9"
  344. 162?"7DC0:8D 09 7B AD 0E 10 20 40 10 CE 09 7B D0 F5 A9 B5"
  345. 163?"7DD0:78 99 80 C0 58 A9 01 60"
  346. RUN
  347. DEL 100,7999
  348. 98C$=C6$
  349. 103?"REM 1ST LINE OF ";V$;C6$;"--DO NOT REMOVE THESE REM LINES"
  350. 114?"CLOSE"
  351. 116?"CALL -151"
  352. 117?"1005:00 7B"
  353. 118?"100C:AB 7D"
  354. 119?"1020:4C 10 7C 4C 69 7D 4C C5 7C 4C 0F 7D 4C 13 7D 4C 3F 7D"
  355. 120?"7B00:AF AF C7 D3 A0 D3 C5 D2 C9 C1 CC A0 D0 CF D2 D4 A0 D6"
  356. 121?"7B12:B1 AE B5 00 AA AA AA AA AA C5 D2 D2 CF D2 AA AA"
  357. 122?"7B22:AA AA AA A0 C3 CF CD A0 D2 CF D5 D4 C9 CE C5 D3 A0 C1"
  358. 123?"7B34:D3 D3 C5 CD C2 CC C5 C4 A0 D4 CF CF A0 CC CF D7 A0 C9"
  359. 124?"7B46:CE A0 CD C5 CD CF D2 D9 00 BC AD A0 D3 D4 C1 D4 D5 D3"
  360. 125?"7B58:A0 C5 D2 D2 CF D2 A0 CF CE A0 C3 CF CD A0 C3 C1 CC CC"
  361. 126?"7B6A:A0 C6 D2 CF CD A0 AD A0 00 00 01 46 20 44 01 30 44"
  362. 127?"7B7B:01 30 50 01 42 45 01 43 44 01 4C 44 01 45 44 01 4D 44"
  363. 128?"7B8D:01 41 44 01 5A 00 01 54 01 53 01 51 01 5A 00 00"
  364. 129?"7B9D:03 00 00 00 00 00 00 00 E0 00 F0 18 20 41 F9 A2 4F"
  365. 130?"7BAE:A0 7B 20 43 10 68 AA 68 A8 48 8A 48 98 20 41 F9"
  366. 131?"7BBE:4C 49 10 60 78 A9 03 8D 9D 7B A9 00 8D 9E 7B 20 F5 7B"
  367. 132?"7BD0:AD A3 7B 29 7F 8D A3 7B AD A1 7B 09 04 29 DF 2C 0B 10"
  368. 133?"7BE2:10 04 09 20 29 FB 8D A1 7B A9 01 8D 9E 7B 20 F5 7B"
  369. 134?"7BF3:58 60 8B 7A A2 7B A9 9D 20 00 C0 AD A0 7B 0D 9F 7B"
  370. 135?"7C04:F0 09 AD A0 7B AE 9F 7B 4C A9 7B 60 A9 7B CD 0A 10"
  371. 136?"7C15:F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C B0 0A A2 16"
  372. 137?"7C26:A0 7B 20 43 10 20 49 10 AD 08 10 D0 8E AD 07 10"
  373. 138?"7C36:4A 4A 4A 4A 09 C0 8D 68 7C 8D 74 7C 8D 7A 7C 8D 80 7C"
  374. 139?"7C48:8D 86 7C 8D CF 7C 8D E0 7C 8D 3B 7D 8D 29 7D 8D FD 7B"
  375. 140?"7C5A:8D 5F 7C AD 12 C0 8D FC 7B 20 C2 7B AD 0D C0 8D 73 7C"
  376. 141?"7C6C:AC 07 10 AE 74 7C 20 00 C0 20 A5 7B AD 0E C0 8D DF 7C"
  377. 142?"7C7E:AD 0F C0 8D 3A 7D AD 10 C0 8D CE 7C 8D 28 7D A9 01"
  378. 143?"7C8F:20 33 7D AD 03 10 C9 09 90 0A 48 A9 31 20 33 7D"
  379. 144?"7C9F:68 38 E9 0A 18 69 30 20 33 7D A9 42 20 33 7D 9C 73 7B"
  380. 145?"7CB1:AE 73 7B BD 74 7B F0 09 20 33 7D EE 73 7B 4C B1 7C"
  381. 146?"7CC2:A9 01 60 AE CF 7C AC 07 10 A9 01 20 00 C0 B0 06"
  382. 147?"7CD2:20 A5 7B A9 00 60 AE E0 7C AC 07 10 20 00 C0 20 A5 7B"
  383. 148?"7CE4:8D 9C 7B AC 0B 10 10 20 29 7F C9 11 D0 0B A9 BF"
  384. 149?"7CF4:2D 0B 10 8D 0B 10 4C D5 7C C9 13 D0 0B A9 40 0D 0B 10"
  385. 150?"7D06:8D 0B 10 4C D5 7C A9 01 60 AD 9C 7B 60 48 2C 0B 10"
  386. 151?"7D17:50 06 20 C5 7C 4C 14 7D AE 29 7D AC 07 10 A9 00"
  387. 152?"7D27:20 00 C0 B0 06 20 A5 7B 4C 1F 7D 68 AE 3B 7D AC 07 10"
  388. 153?"7D39:20 00 C0 4C A5 7B A9 00 8D 08 10 A9 01 60 78 A9 03"
  389. 154?"7D4A:8D 9D 7B A9 0A 8D 9E 7B 20 F5 7B AD A1 7B 09 80"
  390. 155?"7D5A:8D A1 7B A9 0B 8D 9E 7B 20 F5 7B 58 A9 01 60 F0 DC"
  391. 156?"7D6B:C9 0C F0 22 C9 0B F0 16 C9 91 F0 07 C9 93 F0 03"
  392. 157?"7D7B:A9 00 60 29 7F 20 4F 10 20 13 7D A9 01 60 A9 00"
  393. 158?"7D8B:8D 08 10 A9 01 60 20 C2 7B 9C 73 7B AE 73 7B BD 93 7B"
  394. 159?"7D9D:F0 09 20 33 7D EE 73 7B 4C 97 7D A9 01 60"
  395. RUN
  396. DEL 100,7999
  397. 98C$=C7$
  398. 103?"REM 1ST LINE OF ";V$;C7$;"--DO NOT REMOVE THESE REM LINES"
  399. 114?"CLOSE"
  400. 116?"CALL -151"
  401. 117?"1005:05 7B"
  402. 118?"100C:3F 7F"
  403. 119?"1020:4C 78 7B 4C 7F 7C 4C E8 7B 4C 43 7C 4C 4D 7C 4C 79 7C"
  404. 120?"7B00:00 00 00 00 00 CD CF D5 CE D4 C1 C9 CE A0 C8 C1 D2"
  405. 121?"7B11:C4 D7 C1 D2 C5 A0 C3 D0 D3 A0 D6 B1 AE B3 00 AA AA AA"
  406. 122?"7B23:AA AA C5 D2 D2 CF D2 AA AA AA AA AA A0 C3 CF CD A0 D2"
  407. 123?"7B35:CF D5 D4 C9 CE C5 D3 A0 C1 D3 D3 C5 CD C2 CC C5 C4 A0"
  408. 124?"7B47:D4 CF CF A0 CC CF D7 A0 C9 CE A0 CD C5 CD CF D2 D9 00"
  409. 125?"7B59:A9 27 20 68 7B AD FB C0 29 C1 C9 C1 D0 F7 60 48"
  410. 126?"7B69:A9 80 8D FE C0 68 8D FB C0 A9 00 8D FE C0 60 A9 7B"
  411. 127?"7B7A:CD 0A 10 F0 04 90 0B B0 13 A9 00 CD 09 10 F0 0C"
  412. 128?"7B8A:B0 0A A2 20 A0 7B 20 43 10 20 49 10 AD 08 10 D0 4C"
  413. 129?"7B9B:A9 00 8D 00 7B 8D 01 7B 8D 02 7B 8D 03 7B AD 07 10"
  414. 130?"7BAC:4A 4A 4A 4A 29 0F 09 C0 20 FC 7C A9 80 8D FE C0"
  415. 131?"7BBC:A9 4E 8D FA C0 AD 03 10 C9 0A 30 03 38 B0 01 18"
  416. 132?"7BCC:A9 35 29 F0 0D 03 10 E9 00 8D FA C0 A9 00 8D FE C0"
  417. 133?"7BDD:A9 27 20 68 7B A9 01 8D 08 10 60 AD FB C0 29 C2"
  418. 134?"7BED:C9 C2 D0 4B AD FA C0 AC 00 7B 99 3F 7D EE 00 7B"
  419. 135?"7BFD:2C 0B 10 10 3A B9 3F 7D 29 7F C9 11 D0 22 AD 0B 10"
  420. 136?"7C0E:29 BF 8D 0B 10 CE 00 7B AC 03 7B CC 02 7B F0 1E"
  421. 137?"7C1E:20 59 7B B9 3F 7E 8D FA C0 EE 03 7B 4C 16 7C C9 13"
  422. 138?"7C2F:D0 0B A9 40 0D 0B 10 8D 0B 10 CE 00 7B AD 00 7B"
  423. 139?"7C3F:CD 01 7B 60 AE 01 7B BD 3F 7D EE 01 7B 60 48 A9 27"
  424. 140?"7C50:20 68 7B AD FB C0 29 C1 C9 C1 D0 17 2C 0B 10 10 0D"
  425. 141?"7C61:50 0B AC 02 7B 68 99 3F 7E EE 02 7B 60 68 8D FA C0"
  426. 142?"7C72:60 20 E8 7B 4C 4E 7C A9 00 8D 08 10 60 F0 12 C9 0C"
  427. 143?"7C83:F0 4D C9 0B F0 1B C9 91 F0 07 C9 93 F0 03 A9 00"
  428. 144?"7C93:60 AE 0B 10 10 F8 29 7F 20 4F 10 20 4D 7C A9 01"
  429. 145?"7CA3:60 A9 80 8D FE C0 A9 4E 8D FA C0 AD 03 10 C9 0A"
  430. 146?"7CB3:30 03 38 B0 01 18 A9 35 29 F0 0D 03 10 E9 00 8D FA C0"
  431. 147?"7CC5:A9 00 8D FE C0 A9 27 20 68 7B A9 C1 60 A9 80 8D FE C0"
  432. 148?"7CD7:AD FB C0 48 A9 08 8D FB C0 A9 E9 8D 04 7B AD 0E 10"
  433. 149?"7CE8:20 40 10 CE 04 7B D0 F5 68 8D FB C0 A9 00 8D FE C0"
  434. 150?"7CF9:A9 01 60 8D EA 7B 8D 60 7B 8D 6D 7B 8D 71 7B 8D 76 7B"
  435. 151?"7D0B:8D BB 7B 8D C0 7B 8D D7 7B 8D DC 7B 8D F3 7B 8D 26 7C"
  436. 152?"7D1D:8D 55 7C 8D 71 7C 8D A8 7C 8D AD 7C 8D C4 7C 8D C9 7C"
  437. 153?"7D2F:8D D6 7C 8D D9 7C 8D DF 7C 8D F3 7C 8D F8 7C 60"
  438. RUN
  439. DEL 100,7999
  440. 98C$=C8$
  441. 103?"REM 1ST LINE OF ";V$;C8$;"--DO NOT REMOVE THESE REM LINES"
  442. 114?"CLOSE"
  443. 116?"CALL -151"
  444. 117?"1005:18 7B"
  445. 118?"100C:FB 87"
  446. 119?"1020:4C CF 7B 4C 06 7F 4C 27 7E 4C 44 7E 4C 62 7E 4C B8 7E"
  447. 120?"7B00:89 10 03 D2 C1 D7 00 00 00 00 00 00 00 00 00 00"
  448. 121?"7B10:00 00 00 00 00 00 02 08 C3 C1 D4 A0 D6 B1 AE B1"
  449. 122?"7B20:00 C3 CF CD A0 D2 D4 CE A0 C1 D3 CD A0 D4 CF CF"
  450. 123?"7B30:A0 CC CF D7 8D 00 3C AD A0 C2 C1 C4 A0 C3 CF CD"
  451. 124?"7B40:A0 C3 CD C4 8D 00 C4 C9 C1 CC AF D8 BA 00 D7 C1 C9"
  452. 125?"7B51:D4 C9 CE C7 8D 00 C3 CF CE CE C5 C3 D4 87 8D 00"
  453. 126?"7B61:8D C8 D5 CE C7 A0 D5 D0 8D 00 68 AA 6C 0A 7B 8A"
  454. 127?"7B71:48 AD 8F C0 2C 16 7B F0 F1 2C 17 7B F0 EC 29 40"
  455. 128?"7B81:F0 04 A9 FF D0 03 AD 8B C0 AE 07 7B 9D FB 7F 48"
  456. 129?"7B91:AD 0F 7B 8D 8D C0 68 2C 0B 10 10 1B 29 7F C9 11"
  457. 130?"7BA1:D0 07 A9 BF 2D 0B 10 B0 09 C9 13 D0 0A A9 40 0D 0B 10"
  458. 131?"7BB3:8D 0B 10 B0 12 EE 07 7B D0 0D AE 8F 7B E8 E0 86"
  459. 132?"7BC3:D0 02 A2 7F 8E 8F 7B 68 AA A5 45 40 78 AD 0B 7B"
  460. 133?"7BD3:D0 21 AD FE 03 8D 0A 7B AD FF 03 8D 0B 7B A9 7B"
  461. 134?"7BE3:CD 0A 10 90 07 D0 0E AD 09 10 F0 09 A2 21 20 1D 7F"
  462. 135?"7BF4:A9 00 58 60 AD C0 FB F0 04 C9 E0 D0 5B AD CE 7B"
  463. 136?"7C04:8D CA 7B A9 72 8D FE 03 A9 7B 8D FF 03 A2 00 BD 6D 7B"
  464. 137?"7C16:9D 6B 7B E8 E0 03 D0 F5 A2 00 2C 11 C0 30 02 A2 08"
  465. 138?"7C27:2C 12 C0 10 02 E8 E8 2C 81 C0 2C 81 C0 DA AD 16 C0"
  466. 139?"7C38:0A A0 01 B9 FE FF 8D 09 C0 99 FE FF 8D 08 C0 99 FE FF"
  467. 140?"7C4A:88 10 EE 90 03 8D 09 C0 FA 3C 81 C0 3C 81 C0 4C 66 7C"
  468. 141?"7C5C:A9 70 8D FE 03 A9 7B 8D FF 03 A9 00 8D 06 7B 8D 07 7B"
  469. 142?"7C6E:8D 08 7B 8D 09 7B A9 7F 8D 8F 7B 8D 4D 7E AE 07 10"
  470. 143?"7C7F:8A 4A 4A 4A 4A 8D 10 7B 18 8A 69 8F 8D 73 7B 8D 6F 7E"
  471. 144?"7C91:8D F4 7E 8A 69 8E 8D B4 7E 8D 01 7F 8A 69 8B 8D 88 7B"
  472. 145?"7CA3:8A 69 8D 8D 95 7B 8D FD 7D 8A 69 80 8D D8 7D 8A"
  473. 146?"7CB3:69 8D 8D DF 7D 8D E6 7D 8A 69 8C 8D 02 7E 8D 82 7D"
  474. 147?"7CC4:A9 00 9D 82 C0 9D 80 C0 8D 15 7B A9 06 9D 83 C0"
  475. 148?"7CD4:20 E9 7F A9 0C 9D 8C C0 A2 46 20 1D 7F A9 A0 A2 00"
  476. 149?"7CE5:8E 11 7B 20 ED FD 20 46 10 09 80 AE 11 7B 9D 00 02"
  477. 150?"7CF6:E8 C9 88 D0 07 CA F0 ED CA 4C E5 7C C9 8D F0 13"
  478. 151?"7D06:C9 A0 B0 06 20 B8 7E A9 00 60 E0 50 D0 D1 CA A9 87"
  479. 152?"7D17:D0 CC 20 49 10 AD 00 02 C9 F8 F0 04 C9 D8 D0 07"
  480. 153?"7D27:A9 FF 8D 15 7B D0 51 AE 10 7B A9 88 9D 78 04 A9 7D"
  481. 154?"7D38:9D F8 04 8A 09 C0 8D B7 7D AE 07 10 A9 18 9D 8D C0"
  482. 155?"7D49:A9 02 9D 82 C0 A9 A3 9D 81 C0 20 8A 7D A9 D4 20 95 7D"
  483. 156?"7D5B:A9 BB 20 95 7D A2 00 BD 00 02 C9 8D F0 0E 8E 11 7B"
  484. 157?"7D6C:20 95 7D AE 11 7B E8 E0 50 D0 EB 20 8A 7D A2 4E"
  485. 158?"7D7C:20 1D 7F A9 05 8D 8C C0 A9 01 8D 13 7B 60 A9 00"
  486. 159?"7D8C:20 A8 FC 20 A8 FC 4C A8 FC 09 80 C9 AA D0 02 A9 BA"
  487. 160?"7D9D:C9 BB D0 02 A9 AA 8D 78 07 AE B7 7D 8E F8 07 AC 07 10"
  488. 161?"7DAF:8C F8 06 2C FF CF AD 00 FF C9 38 D0 06 AD 78 07"
  489. 162?"7DBF:20 0A CC 2C FF CF 60 AD 13 7B 30 49 AD 15 7B D0 15"
  490. 163?"7DD0:AD 03 10 C9 08 B0 07 AD 80 C0 29 20 90 0C AD 8D C0"
  491. 164?"7DE1:29 04 B0 05 AD 8D C0 29 08 F0 29 AD 13 7B F0 23"
  492. 165?"7DF1:A9 00 8D 13 7B 8D 12 7B AD 0F 7B 8D 8D C0 A9 06"
  493. 166?"7E01:8D 8C C0 8E 11 7B 20 96 7F A2 57 20 1D 7F AE 11 7B"
  494. 167?"7E12:A9 00 60 AD 13 7B D0 FA A9 19 20 A8 FC CE 12 7B"
  495. 168?"7E22:D0 F0 4C B8 7E 20 C6 7D F0 04 A9 00 F0 13 20 6D 7E"
  496. 169?"7E33:78 AD 06 7B CD 07 7B D0 06 AD 8F 7B CD 4D 7E 58"
  497. 170?"7E43:60 20 6D 7E 78 AE 06 7B BD FB 7F EE 06 7B D0 0D"
  498. 171?"7E53:AC 4D 7E C8 C0 86 D0 02 A0 7F 8C 4D 7E 58 60 78"
  499. 172?"7E63:AE 08 7B 9D FB 86 EE 08 7B 58 78 AD 8F C0 29 10"
  500. 173?"7E73:F0 41 2C 0B 10 10 28 70 3A AD 0D 7B F0 0C AD 0C 7B"
  501. 174?"7E84:D0 1C A9 13 8D 0C 7B D0 0F AD 0C 7B F0 10 A9 00"
  502. 175?"7E94:8D 0D 7B 8D 0C 7B A9 11 20 4F 10 4C B3 7E AD 08 7B"
  503. 176?"7EA5:CD 09 7B F0 0C AE 09 7B BD FB 86 EE 09 7B 8D 8E C0"
  504. 177?"7EB6:58 60 78 AD 0B 7B F0 2E AD 0A 7B 8D FE 03 AD 0B 7B"
  505. 178?"7EC7:8D FF 03 A9 00 8D 0B 7B AE 07 10 9D 82 C0 A9 0C"
  506. 179?"7ED7:9D 8C C0 A9 18 9D 8D C0 8D 0F 7B A9 A1 9D 81 C0"
  507. 180?"7EE7:A2 61 20 1D 7F A9 01 8D 13 7B 60 AA AD 8F C0 29 10"
  508. 181?"7EF8:F0 0B 8A 29 7F 20 4F 10 8D 8E C0 A9 01 60 F0 B0"
  509. 182?"7F08:C9 0C F0 68 C9 0B F0 57 C9 91 F0 11 C9 93 F0 30"
  510. 183?"7F18:20 DA FD A2 36 A0 7B 20 43 10 A9 00 60 78 20 F2 7E"
  511. 184?"7F29:F0 0C A9 00 8D 0D 7B 8D 0C 7B A9 01 58 60 A9 00"
  512. 185?"7F39:8D 0D 7B 58 20 6D 7E AD 0C 7B D0 F8 A9 01 60 78"
  513. 186?"7F49:20 F2 7E F0 0A A9 01 8D 0C 7B 8D 0D 7B 58 60 A9 01"
  514. 187?"7F5A:8D 0D 7B 58 20 6D 7E AD 0C 7B F0 F8 60 AD 0B 7B"
  515. 188?"7F6A:F0 05 78 20 96 7F 58 A9 01 60 78 AC 07 10 A9 02"
  516. 189?"7F7A:99 8C C0 A9 E9 8D 0E 7B AD 0E 10 20 40 10 CE 0E 7B"
  517. 190?"7F8B:D0 F5 A9 06 99 8C C0 58 A9 01 60 A9 08 CD 03 10"
  518. 191?"7F9B:B0 03 8D 03 10 AE 07 10 A9 A1 9D 81 C0 AD 15 7B"
  519. 192?"7FAB:D0 10 AD 03 10 C9 08 B0 0D A9 00 9D 8F C0 A9 11"
  520. 193?"7FBB:D0 10 A9 05 D0 07 A9 21 9D 81 C0 A9 0A 9D 8F C0"
  521. 194?"7FCB:A9 18 9D 8D C0 8D 0F 7B AD 03 10 0A 0A 0A 0A 6D 03 10"
  522. 195?"7FDD:49 FF 69 89 9D 8B C0 A9 03 9D 8A C0 A9 65 AE 03 10"
  523. 196?"7FEE:E0 04 D0 02 A9 2D AE 07 10 9D 89 C0 60"
  524. RUN
  525. DEL 100,8084
  526. 98C$=CF$
  527. 103?"REM 1ST LINE OF ";V$;CF$;"--DO NOT REMOVE THESE REM LINES"
  528. 114?"CLOSE"
  529. 115?"DEL 120,800"
  530. 160?"160D$=CHR$(4):G$=CHR$(7):GOSUB710:GOSUB720"
  531. 170?"170?:INPUT";Q$;"SWAP BS & DEL KEYS ? (Y/N)";Q$;";R$"
  532. 180?"180GOSUB660:IFWGOTO170"
  533. 190?"190IFRTHENGOSUB730:?";Q$;"SET SWAP ON";Q$;":GOSUB720"
  534. 200?"200?:INPUT";Q$;"FLOW CONTROL ? (Y/N)";Q$;";R$"
  535. 210?"210GOSUB660:IFWGOTO200"
  536. 220?"220IFRTHENGOSUB730:?";Q$;"SET FLOW XON";Q$;":GOSUB720"
  537. 230?"230A$(1)=";Q$;"VT52";Q$;":A$(2)=";Q$;"VT100";Q$
  538. 240?"240A$(3)=";Q$;"NONE";Q$;":A$(4)=";Q$;"MONITOR";Q$
  539. 250?"250?:?:?";Q$;"TYPE OF TERMINAL EMULATION";Q$
  540. 260?"260?";Q$;"1 ";Q$;";A$(1)"
  541. 270?"270?";Q$;"2 ";Q$;";A$(2)"
  542. 280?"280?";Q$;"3 ";Q$;";A$(3)"
  543. 290?"290?";Q$;"4 ";Q$;";A$(4)";":?"
  544. 300?"300GOSUB690:GOSUB730:?";Q$;"SET TERMINAL ";Q$;";A$(S):GOSUB720"
  545. 340?"340A$(4)=";Q$;"TEXT";Q$;":A$(3)=";Q$;"INTEGER";Q$
  546. 341?"341A$(1)=";Q$;"APPLESOFT";Q$;":A$(2)=";Q$;"BINARY";Q$
  547. 342?"342?:?:?";Q$;"TYPE OF FILE TRANSFER";Q$
  548. 343?"343?";Q$;"1 ";Q$;";A$(1)"
  549. 344?"344?";Q$;"2 ";Q$;";A$(2)"
  550. 345?"345?";Q$;"3 ";Q$;";A$(3)"
  551. 346?"346?";Q$;"4 ";Q$;";A$(4)";":?"
  552. 348?"348GOSUB690:GOSUB730:?";Q$;"SET FILE-TYPE ";Q$;";A$(S):GOSUB720"
  553. 360?"360IFPEEK(64435)=6THENR=1:GOSUB750:GOTO400:REMIIE/C"
  554. 370?"370?:INPUT";Q$;"KEYBOARD LOWER CASE ? (Y/N)";Q$;";R$"
  555. 376?"376GOSUB660:IFWGOTO370"
  556. 380?"380GOSUB750"
  557. 390?"390?:INPUT";Q$;"DISPLAY LOWER CASE ? (Y/N)";Q$;";R$"
  558. 395?"395GOSUB660:IFWGOTO390"
  559. 400?"400IFRTHENGOSUB730:?";Q$;"SET DISPLAY 2E-40";Q$;":GOSUB720"
  560. 410?"410?:INPUT";Q$;"80 COLUMN DISPLAY ? (Y/N)";Q$;";R$"
  561. 415?"415GOSUB660:IFWGOTO410"
  562. 420?"420IFR=0GOTO460"
  563. 430?"430D3=3:?:INPUT";Q$;"IN SLOT 3 ? (Y/N)";Q$;";R$"
  564. 435?"435GOSUB660:IFWGOTO430"
  565. 440?"440IFRGOTO455"
  566. 450?"450GOSUB690:D3=S"
  567. 455?"455GOSUB730:?";Q$;"SET DISPLAY 80-COL ";Q$;";D3:GOSUB720"
  568. 460?"460?:INPUT";Q$;"MODEM IN SLOT 2? (Y/N)";Q$;";R$:GOSUB660:IFWGOTO460"
  569. 470?"470IFRTHENM=2:GOTO485"
  570. 480?"480GOSUB690:M=S"
  571. 485?"485GOSUB730:?";Q$;"SET SLOT ";Q$;";M:GOSUB720"
  572. 486?"486?:INPUT";Q$;"PRINTER IN SLOT 1? (Y/N)";Q$;";R$:GOSUB660:IFWGOTO486"
  573. 487?"487IFRTHENM=1:GOTO489"
  574. 488?"488GOSUB690:M=S"
  575. 489?"489GOSUB730:?";Q$;"SET PRINTER SLOT ";Q$;";M:GOSUB720"
  576. 490?"490A$(1)=";Q$;"300";Q$;":A$(2)=";Q$;"600";Q$
  577. 491?"491A$(3)=";Q$;"1200";Q$;":A$(4)=";Q$;"2400";Q$
  578. 492?"492A$(5)=";Q$;"4800";Q$;":A$(6)=";Q$;"9600";Q$
  579. 493?"493A$(7)=";Q$;"19200";Q$
  580. 494?"494?:?";Q$;" IS MODEM BAUD:";Q$;":?";Q$;"1 ";Q$;";A$(1)"
  581. 495?"495?";Q$;"2 ";Q$;";A$(2)"
  582. 496?"496?";Q$;"3 ";Q$;";A$(3)"
  583. 497?"497?";Q$;"4 ";Q$;";A$(4)"
  584. 498?"498?";Q$;"5 ";Q$;";A$(5)"
  585. 499?"499?";Q$;"6 ";Q$;";A$(6)"
  586. 500?"500?";Q$;"7 ";Q$;";A$(7)";":GOSUB690"
  587. 510?"510GOSUB730:?";Q$;"SET BAUD ";Q$;";A$(S):GOSUB720"
  588. 520?"520?:INPUT";Q$;"CHANGE SOMETHING ? (Y/N)";Q$;";R$"
  589. 525?"525GOSUB660:IFWGOTO520"
  590. 530?"530IFRGOTO160"
  591. 540?"540POKE814,0"
  592. 600?"600POKE216,0"
  593. 610?"610?";Q$;"REBOOT TO START KERMIT.";Q$
  594. 640?"640?";Q$;"START WITH 'BRUN ";KR$"'";Q$
  595. 645?"645?";Q$;"THEN TYPE 'HELP'";Q$
  596. 651?"651END"
  597. 660?"660IFR$=";Q$;"Y";Q$;"ORR$=";Q$;"Y";Q$;"THENR=1:W=0:RETURN"
  598. 670?"670IFR$=";Q$;"N";Q$;"ORR$=";Q$;"N";Q$;"THENR=0:W=0:RETURN"
  599. 680?"680W=1:RETURN"
  600. 690?"690?:INPUT";Q$;"WHICH ? (1,2,3 ... )";Q$;";S:IFS<1ORS>10GOTO690"
  601. 700?"700RETURN"
  602. 710?"710?D$;";Q$;"OPEN KERMIT.INIT";Q$;":?D$;";Q$;"DELETE KERMIT.INIT";Q$
  603. 713?"713?D$;";Q$;"OPEN KERMIT.INIT";Q$;":?D$;";Q$;"WRITE KERMIT.INIT";Q$
  604. 716?"716RETURN"
  605. 720?"720?D$;";Q$;"CLOSE KERMIT.INIT";Q$;":RETURN"
  606. 730?"730?D$;";Q$;"APPEND KERMIT.INIT";Q$;":?D$;";Q$;"WRITE KERMIT.INIT";Q$
  607. 740?"740RETURN"
  608. 750?"750IFRTHENGOSUB730:?";Q$;"SET KEYBOARD 2E";Q$;":GOSUB720"
  609. 760?"760RETURN"
  610. 770?"RUN"
  611. RUN
  612. DEL 100,8085
  613. 98C$=CH$:V$=H$
  614. 116?"    [USE <CNTL-S> TO PAUSE]"
  615. 117?"?         GIVE OPTIONS AT ANY POINT"
  616. 118?"                                   "
  617. 119?"SET ?     GIVE 'SET' OPTIONS"
  618. 120?"                            "
  619. 121?"SHOW ALL  SHOWS ALL PRESENTLY 'SET'"
  620. 122?"                                   "
  621. 123?"<ESC>     COMPLETES COMMAND"
  622. 124?"                           "
  623. 125?"STATUS    LAST FILE TRANSFER INFO"
  624. 126?"                                 "
  625. 127?"-->      [II+ ONLY] SHIFT"
  626. 128?"                      "
  627. 129?"                      "
  628. 130?"---IN/OUT"
  629. 131?"         "
  630. 132?"FROM KERMIT-65> YOU CAN TALK TO OS & MODEM AS FOLLOWS:"
  631. 133?"                                                      "
  632. 134?"EXIT       [TO DOS/PRODOS]"
  633. 135?"                          "
  634. 136?"CALL4096   [TO KERMIT-65]"
  635. 137?"                         "
  636. 138?"BRUN KERMIT386 [SOMETIMES-TO KERMIT-65]"
  637. 139?"                                       "
  638. 140?"CONNECT    [TO MODEM]"
  639. 141?"                     "
  640. 142?"<CNTL-@>C  [TO KERMIT-65]"
  641. 143?"                         "
  642. 144?"                         "
  643. 145?"---UP/DOWN LOAD SEQUENCE"
  644. 146?"                        "
  645. 147?"[PROMPT YOU SEE]"
  646. 148?"                "
  647. 149?".  [WHAT YOU TYPE]"
  648. 150?"                  "
  649. 151?"KERMIT-65>"
  650. 152?"          "
  651. 153?"   CONNECT"
  652. 154?"          "
  653. 155?"NO PROMPT"
  654. 156?"         "
  655. 157?"   ATD555-1234 [HAYES DIAL]"
  656. 158?"                           "
  657. 159?"%     [MAINFRAME PROMPT-USE LOWER CASE]"
  658. 160?"                                       "
  659. 161?"   LOGIN"
  660. 162?"        "
  661. 163?"   PASSWORD"
  662. 164?"           "
  663. 165?"   KERMIT R [HOST DEPENDENT]"
  664. 166?"                            "
  665. 167?"   <CNTL-@>C"
  666. 168?"            "
  667. 169?"KERMIT-65>"
  668. 170?"          "
  669. 171?"   SEND FOO [UPLOAD FILE NAMED 'FOO']"
  670. 172?"                                     "
  671. 173?"KERMIT-65>"
  672. 174?"          "
  673. 175?"   CATALOG"
  674. 176?"          "
  675. 177?"KERMIT-65>"
  676. 178?"          "
  677. 179?"   CONNECT"
  678. 180?"          "
  679. 181?"%  KERMIT S FOO [HOST DEPENDENT]"
  680. 182?"                                "
  681. 183?"   <CNTL-@>C"
  682. 184?"            "
  683. 185?"KERMIT-65>"
  684. 186?"          "
  685. 187?"   RECEIVE [DOWNLOADS FILE NAMED 'FOO']"
  686. 188?"                                       "
  687. 189?"   CONNECT"
  688. 190?"          "
  689. 191?"%  +++ATH0 [HAYES HANGUP]"
  690. 192?"                         "
  691. 193?"   <CNTL-@>C"
  692. 194?"            "
  693. 195?"KERMIT-65>"
  694. 196?"          "
  695. 197?"          "
  696. 198?"---LOG TO DISK"
  697. 199?"              "
  698. 200?"KERMIT-65>"
  699. 201?"          "
  700. 202?"   LOG FOO [OPEN LOG: 'FOO']"
  701. 203?"                            "
  702. 204?"   CONNECT"
  703. 205?"          "
  704. 206?"%  CAT FOO [MAINFRAME PRINTS 'FOO']"
  705. 207?"                                   "
  706. 208?"   <CNTL-@>C"
  707. 209?"            "
  708. 210?"KERMIT-65> [LOG ENDS]"
  709. 211?"                     "
  710. 212?"   CONNECT"
  711. 213?"          "
  712. 214?"%  ..."
  713. RUN
  714. REM CFIG.INSTALL
  715. DEL 100,8499
  716. 98C$=C0$
  717. 103?"REM1ST LINE OF ";V$;C0$"--DO NOT REMOVE THESE REM STATEMENTS"
  718. 120?"CLOSE"
  719. 121?"IF PEEK(-8192)=32 THEN PRINT ";Q$;"STOPPING";Q$
  720. 122?"IF PEEK(-8192)=32 THEN PRINT ";Q$;"APPLESOFT BASIC REQUIRED";Q$
  721. 123?"IF PEEK(-8192)=32 THEN POKE-21837,0"
  722. 124?"IF PEEK(-8192)=32 THEN CALL-23830"
  723. 125?"IF PEEK(-8192)=32 THEN END"
  724. 131?"POKE814,0:IFPEEK(4096)=76ANDPEEK(4160)=76THENPOKE814,234"
  725. 132?"IFPEEK(814)=0THEN?CHR$(7);";Q$;"STOPPING";Q$;":?"
  726. 133?"IFPEEK(814)=0THEN?";Q$;"BLOAD ";KR$;"'";Q$
  727. 134?"IFPEEK(814)=0THEN?";Q$;"BEFORE EXEC'ING PROGRAM";Q$;":POKE-21837,0:END"
  728. 141?"POKE814,0:IFPEEK(2053)=164ANDPEEK(2054)=51THENPOKE814,234:RUN"
  729. 142?"CALL-151"
  730. 143?"0300:48 98 48 8A 48 20 F7 AF A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E"
  731. 144?"0316:0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 68 AA 68 A8 68"
  732. 145?"032C:60 00 00 00 68 A8 68 A6 DF 9A 48 98 48 60 00"
  733. 146?"3D0G:REMONERR FIX"
  734. 147?"CALL768:SC=PEEK(64)+PEEK(65)*256"
  735. 148?"IFSC<100THEN?CHR$(4);";Q$;"DELETE ";V$;"2";Q$
  736. 151?"FP"
  737. 152?"150LOMEM:33000
  738. 160?"160D$=CHR$(4):G$=CHR$(7):IFPEEK(48896)><76ANDPEEK(978)=157GOTO200"
  739. 170?"170?D$;";Q$;"OPEN T";Q$;":?D$;";Q$;"WRITE T";Q$
  740. 180?"180?";Q$;"END";Q$;":?D$;";Q$;"CLOSE";Q$;":?G$;";Q$;"GET DOS3.3";Q$;":?"
  741. 190?"190?D$;";Q$;"EXEC T";Q$;":END"
  742. 200?"200POKE216,0:POKE-21837,0:?D$;";Q$;"CLOSE";Q$
  743. 210?"210IFPEEK(814)=234THENPOKE814,0:GOTO570"
  744. 220?"220?G$"
  745. 235?"235?";Q$;"1 SUPER SERIAL OR //C SERIAL PORT";Q$
  746. 240?"240?";Q$;"2 MICROTEK SV-622";Q$
  747. 250?"250?";Q$;"3 MICROMODEM II";Q$
  748. 251?"251?";Q$;"4 APPLE";Q$
  749. 252?"252?";Q$;"5 CCS 7710";Q$
  750. 253?"253?";Q$;"6 GS SERIAL PORT";Q$
  751. 254?"254?";Q$;"7 CPS";Q$
  752. 255?"255?";Q$;"8 APPLE CAT";Q$
  753. 257?"257?";Q$;"[UNSURE, TRY 1]";Q$
  754. 260?"260S$=";Q$;C1$;Q$;":GOSUB690:IFS=2THENS$=";Q$;C2$;Q$
  755. 270?"270IFS=3THENS$=";Q$;C3$;Q$
  756. 273?"273IFS=4THENS$=";Q$;C4$;Q$
  757. 276?"276IFS=5THENS$=";Q$;C5$;Q$
  758. 277?"277IFS=6THENS$=";Q$;C6$;Q$
  759. 278?"278IFS=7THENS$=";Q$;C7$;Q$
  760. 279?"279IFS=8THENS$=";Q$;C8$;Q$
  761. 280?"280XS$=";Q$;V$;Q$;"+S$"
  762. 290?"290ONERRGOTO310"
  763. 300?"300?D$;";Q$;"VERIFY";Q$;";XS$:GOTO330"
  764. 310?"310CALL816:?G$:?";Q$;"INSERT DISK WITH ";Q$;";XS$;";Q$
  765. 320?"320INPUT";Q$;"PRESS RETURN";Q$;";I$:RESUME"
  766. 330?"330POKE216,0:?D$;";Q$;"EXEC";Q$;";XS$:END"
  767. 570?"570ONERRGOTO590"
  768. 580?"580?D$;";Q$;"BSAVE";KR$;",A$1000,L$6E00";Q$;":GOTO710"
  769. 590?"590CALL816:?G$:INPUT";Q$;"DISK FULL--FIX, PRESS RETURN";Q$;";I$:RESUME"
  770. 690?"690?:INPUT";Q$;"WHICH ? (1,2,3 ... )";Q$;";S:IFS<1ORS>10GOTO690"
  771. 700?"700RETURN"
  772. 710?"710?D$;";Q$;"EXEC";V$;CF$;Q$
  773. 1000?"RUN"
  774. 1010?CL$
  775. 1020END
  776. RUN
  777. CLOSE
  778. FP
  779. EXEC APP386.2,R25
  780. END
  781. REMEND PART 1 OF 2,SAVE TO APPLE DISK NOW AS:APP386.1
  782.