home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 103 / SGDS 103.2mg / SDGS.103 / SDA103 / SOFTDISK.COPY (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1990-03-16  |  7.0 KB  |  243 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  REM  SOFTDISK COPY
  2. 20  REM  (C) 1988
  3. 30  REM  SOFTDISK INC.
  4. 40  REM  BY TOM HALL
  5. 50  REM  VERSION 1.4
  6. 60  POKE 104,11: GOTO 1
  7. 51753 256:DP =  PEEK(IN -2) + PEEK(IN -1) *256:ZC = 15872
  8. 10  INVERSE : PRINT  SPC( 40)
  9. 20  FOR I = 2 TO 23
  10. 30  VTAB I: HTAB 1: INVERSE : PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";
  11. 35  NORMAL 
  12. 40  IF I = 10  THEN  VTAB I: HTAB 11: PRINT "SOFTDISK'S FILECOPY"
  13. 2327 }<CTRL-0x0a> GET <CTRL-0x0a> SPEED= 
  14. 389  d<CTRL-0x09> HGR2 <CTRL-0x04> SPEED= V DEL 
  15. 34048 
  16. 45065 6  SAVE <CTRL-0x09> GOSUB 1  *<CTRL-0x09> GOSUB ,  SCRN( <CTRL-0x09> GOSUB '  LEFT$<CTRL-0x09> GOSUB "<CTRL-0x18> <UNKNOWN TOKEN><CTRL-0x09> <CTRL-0x0a><CTRL-0x0a> GOSUB <CTRL-0x19> +<CTRL-0x0a> GOSUB <UNKNOWN TOKEN> =<CTRL-0x0a> GOSUB <CTRL-0x0f> L<CTRL-0x0a> GOSUB <CTRL-0x0a> [<CTRL-0x0a> GOSUB <CTRL-0x05> SPEED= 
  17. 34144 
  18. 19341 <CTRL-0x0a> 
  19. 2634 ` SPEED= <CTRL-0x0c> <UNKNOWN TOKEN> GET  GOSUB - PLOT  NORMAL <CTRL-0x09> SPEED= 
  20. 43273 
  21. 36105 <UNKNOWN TOKEN><CTRL-0x09> PLOT <CTRL-0x04><CTRL-0x0a> PLOT %<CTRL-0x0a> IF  NORMAL <CTRL-0x09> PLOT  USR<CTRL-0x09><CTRL-0x18>i<CTRL-0x04> PLOT <UNKNOWN TOKEN><CTRL-0x09><CTRL-0x18>i<CTRL-0x04> PLOT <CTRL-0x05><CTRL-0x0a> PLOT &<CTRL-0x0a><CTRL-0x18>`8L HOME <CTRL-0x09>
  22. 48896   THEN  ONERR <CTRL-0x09>`<CTRL-0x0a>}<CTRL-0x0a> LEN<CTRL-0x06>
  23. 44 <CTRL-0x0c> RETURN -<CTRL-0x0a>C RETURN <CTRL-0x03><CTRL-0x07> 
  24. 2494 `<CTRL-0x07> GET <CTRL-0x0a> SPC( <CTRL-0x01>
  25. 51391  <<CTRL-0x09>`<CTRL-0x03>}<CTRL-0x0a>
  26. 54957 <CTRL-0x09> PLOT  VAL<CTRL-0x09> 
  27. 2532 `<CTRL-0x03><CTRL-0x01>
  28. 48896  +<UNKNOWN TOKEN><CTRL-0x09>`<CTRL-0x03> GET <CTRL-0x0a>
  29. 54957 <CTRL-0x09> PLOT <CTRL-0x03><CTRL-0x0a> 
  30. 2562 `<CTRL-0x04><CTRL-0x01>
  31. 4 <CTRL-0x03> IF <UNKNOWN TOKEN><CTRL-0x09> PLOT $<CTRL-0x0a> IF <CTRL-0x08><CTRL-0x0a> PLOT '<CTRL-0x0a> IF <CTRL-0x09><CTRL-0x0a> PLOT (<CTRL-0x0a> 
  32. 2595 `<CTRL-0x04><CTRL-0x02>
  33. 3 <CTRL-0x03> IF <CTRL-0x08><CTRL-0x0a> -
  34. 2477 <CTRL-0x0a> -<CTRL-0x04> = <CTRL-0x02>8`<CTRL-0x18>` IF  FRE<CTRL-0x09> PLOT K<CTRL-0x0a> 
  35. 2634 `<CTRL-0x01>
  36. 36105 Z<CTRL-0x0a> 
  37. 2649 `<CTRL-0x01><CTRL-0x02> VTAB <CTRL-0x03> CLEAR  ONERR <CTRL-0x09> NORMAL o<CTRL-0x0a> LEFT$ TAN<CTRL-0x0e> = <UNKNOWN TOKEN> 
  38. 2671 `<CTRL-0x07> GET <CTRL-0x0a> LEN<CTRL-0x06>
  39. 3 <CTRL-0x13> RETURN <CTRL-0x06><CTRL-0x10><CTRL-0x15>/HARD1/SD/C/DINO.EGGS
  40. 12120 DINO.EGGSS
  41. 11 
  42. 13360 ,8: GOTO 6
  43. 1  RESTORE : PRINT  CHR$(21)
  44. 2  TEXT : HOME 
  45. 3 VER = 1.4
  46. 4 ZC = 2304:IN = ZC +7:SP =  PEEK(ZC +3) + PEEK(ZC +4) *256:DP =  PEEK(ZC +5) + PEEK(ZC +6) *256
  47. 6  INVERSE : PRINT  SPC( 40)
  48. 7  FOR I = 2 TO 23
  49. 8  VTAB I: HTAB 1: INVERSE : PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";: NORMAL 
  50. 9  IF I = 10  THEN  VTAB I: HTAB 11: PRINT "SOFTDISK'S FILECOPY"
  51. 10  IF I = 12  THEN  VTAB I: HTAB 9: PRINT "VERSION "VE" BY TOM HALL"
  52. 11  IF I = 14  THEN  VTAB I: HTAB 12: PRINT "(C)1988 SOFTDISK"
  53. 12  NEXT I
  54. 13  INVERSE : VTAB 24: HTAB 1: PRINT  SPC( 39);: POKE 2039,32
  55. 14  FOR I = 769 TO 768 + PEEK(768):P$ =  CHR$( PEEK(I)): IF P$ > = "a"  AND P$ < = "z"  THEN P$ =  CHR$( ASC(P$) -32)
  56. 15 ART$ = ART$ +P$: NEXT I
  57. 16  VTAB 2: HTAB 2
  58. 17  FOR I = 16 TO 20: VTAB I: HTAB 6: PRINT  SPC( 30): NEXT 
  59. 18  NORMAL 
  60. 19  FOR I = 17 TO 19: VTAB I: HTAB 7: PRINT  SPC( 28);: NEXT I
  61. 20  VTAB 18: HTAB 15: PRINT "PRESS A KEY";: GOSUB 196
  62. 21  POKE 32,1: POKE 33,38: POKE 34,1: POKE 35,23: HOME 
  63. 22  INVERSE : VTAB 1: HTAB 5: PRINT "SOFTDISK FILECOPY  VERSION "VE: NORMAL 
  64. 23  POKE 32,3: POKE 33,34: VTAB 4: HTAB 1
  65. 24  PRINT "THIS PROGRAM WILL COPY ALL": PRINT "THE FILES ASSOCIATED WITH": PRINT  MID$ (ART$,3): PRINT "TO THE DISK OF YOUR CHOICE": PRINT : PRINT : PRINT "PLEASE PRESS A KEY."
  66. 25  PRINT "([ESC] TO LEAVE FILECOPY)"
  67. 26  GOSUB 196: HOME : IF K$ =  CHR$(27)  THEN  GOTO 198
  68. 27  PRINT : PRINT 
  69. 28  PRINT "FILECOPY NOW WANTS TO FIGURE": PRINT "OUT YOUR SYSTEM SETUP. MAKE SURE": PRINT "THAT THE DISK YOU WANT TO COPY": PRINT "FILES TO IS IN ONE OF YOUR DRIVES."
  70. 29  PRINT : PRINT : PRINT "PRESS A KEY TO READ SYSTEM SETUP.": PRINT "DO NOT REMOVE SOFTDISK.": PRINT "([ESC] WILL GO BACK TO SOFTDISK.)"
  71. 30  GOSUB 196: IF K$ =  CHR$(27)  THEN 198
  72. 31  HOME 
  73. 32  POKE 32,1: POKE 33,38: VTAB 4: HTAB 3: PRINT "READING SYSTEM SETUP...": PRINT : HTAB 3: PRINT "(PRESS [ESC] TO LEAVE FILECOPY)"
  74. 33  POKE 34,1: POKE 35,23
  75. 34  VTAB 2: POKE 32,1: POKE 33,38: PRINT 
  76. 35  DIM P$(12),D(12,1),F$(32),AD(12,1),AD$(12),SB$(127)
  77. 36  REM <CTRL-0x0a>GETBUFR
  78. 37  ONERR  GOTO 164
  79. 38  CALL IN
  80. 39  IF  PEEK(0) = 86  THEN  HOME : VTAB 4: HTAB 3: PRINT "NO SPACE FOR FILE BUFFERS": HTAB 3: PRINT "PRESS A KEY.": GOSUB 196: GOTO 198
  81. 40  PRINT  CHR$(4)"PREFIX": INPUT PF$
  82. 41 PF$ = PF$ + LEFT$(ART$,1) +"/"
  83. 42  POKE  -16368,0
  84. 43  REM <CTRL-0x0a>ONLINE
  85. 44  FOR I = 1 TO 12:P$(I) = "": NEXT 
  86. 45 DD = 1:SS = 7:CP = 1
  87. 46  ONERR  GOTO 50
  88. 47  VTAB 21: PRINT  CHR$(4)"PREFIX,S"SS",D"DD
  89. 48  PRINT  CHR$(4)"PREFIX": INPUT P$(CP)
  90. 49  IF  PEEK( -16384) = 155  THEN 198
  91. 50 CP = CP +1:DD = DD +1: IF DD = 3  THEN DD = 1:SS = SS -1: IF SS = 1  THEN 53
  92. 51  GOTO 47
  93. 52  REM <CTRL-0x0a>S,D INTO VARS
  94. 53  POKE 216,0: POKE 222,0
  95. 54 TS = 7:TD = 1: FOR C9 = 1 TO 12:D(C9,0) = TS:D(C9,1) = TD:TD = TD +1: IF TD >2  THEN TD = 1:TS = TS -1
  96. 55  NEXT 
  97. 56  PRINT  CHR$(4)"PREFIX " LEFT$(PF$, LEN(PF$) -2)
  98. 57  PRINT  CHR$(4)"BLOAD "ART$".T,A$300,B5,L2"
  99. 58 BV = 256 * PEEK(769) + PEEK(768)
  100. 59  PRINT  CHR$(4)"OPEN "ART$".T,TBIN"
  101. 60  PRINT  CHR$(4)"READ "ART$".T"
  102. 61  FOR I = 0 TO 4: GET K$: NEXT I:BV = BV -( ASC(K$) *2 +3)
  103. 62  FOR I = 1 TO  ASC(K$): GET K$: GET K$: NEXT I
  104. 63 FC = 0
  105. 64  GET K$: GET K$
  106. 65  GET K$: IF K$ = "@"  OR K$ =  CHR$(0)  THEN 70
  107. 66  IF K$ = ""  OR BV <1  THEN 70
  108. 67 L =  ASC(K$):F$(FC) = "": FOR I = 1 TO L: GET K$:F$(FC) = F$(FC) +K$:BV = BV -1: NEXT I
  109. 68  IF BV <1  THEN 65
  110. 69 FC = FC +1: GOTO 65
  111. 70  PRINT  CHR$(4)"CLOSE"
  112. 71  POKE 34,1: POKE 35,23: HOME 
  113. 72 FC = FC -1:SRC = 0:SC = 0
  114. 73  REM <CTRL-0x0a>ACTV DRVS
  115. 74 ND = 1: FOR I = 1 TO 12: IF P$(I) < >""  AND P$(I) < >"/RAM/"  THEN ND = 0:AD$(SC) = P$(I):AD(SC,0) = D(I,0):AD(SC,1) = D(I,1):SC = SC +1:LD = I
  116. 75  NEXT I
  117. 76  IF ND = 1  THEN  VTAB 12: HTAB 3: PRINT "THERE ARE NO VOLUMES ONLINE.": VTAB 14: HTAB 14: PRINT "PRESS A KEY": GOSUB 196: GOTO 198
  118. 77  IF SC = 1  THEN  VTAB 12: HTAB 3: PRINT "SOURCE AND TARGET DRIVES NOT": VTAB 13: HTAB 3: PRINT "FOUND. PRESS A KEY.": GOSUB 196: GOTO 198
  119. 78  REM <CTRL-0x0a>PICK VOL
  120. 79  VTAB 3: HTAB 3: PRINT "MOVE HIGHLIGHT ONTO THE NAME OF": HTAB 3: PRINT "YOUR DESTINATION DISK:"
  121. 80  VTAB 21: HTAB 2: PRINT "ARROWS MOVE HIGHLIGHT/RETURN SELECTS"
  122. 81  FOR I = 0 TO SC -1: VTAB I +6: HTAB 4: PRINT "S"AD(I,0)"D"AD(I,1)"="AD$(I): NEXT 
  123. 82 CP = 0
  124. 83  VTAB CP +6: HTAB 9: INVERSE : PRINT AD$(CP)
  125. 84  GOSUB 196: VTAB CP +6: HTAB 9: NORMAL : PRINT AD$(CP)
  126. 85  IF K$ =  CHR$(27)  THEN 198
  127. 86  IF K$ =  CHR$(8)  OR K$ =  CHR$(11)  THEN CP = CP -1: GOTO 89
  128. 87  IF K$ =  CHR$(21)  OR K$ =  CHR$(10)  THEN CP = CP +1: GOTO 89
  129. 88  IF K$ =  CHR$(13)  THEN 93
  130. 89  IF CP = SC  THEN CP = 0
  131. 90  IF CP =  -1  THEN CP = SC -1
  132. 91  GOTO 83
  133. 92  REM <CTRL-0x0a>SUBDIRS?
  134. 93  HOME : VTAB 4: HTAB 3: PRINT "CHECKING "AD$(CP): HTAB 3: PRINT "FOR SUBDIRECTORIES..."
  135. 94  ONERR  GOTO 135
  136. 95  PRINT  CHR$(4)"PREFIX,S"AD(CP,0)",D"AD(CP,1)
  137. 96 DC = 0
  138. 97  PRINT  CHR$(4)"OPEN "AD$(CP)",TDIR"
  139. 98  PRINT  CHR$(4)"READ "AD$(CP)
  140. 99  INPUT K$: INPUT K$: INPUT K$
  141. 100  INPUT K$: ON (  NOT ( LEN(K$))) GOTO 106
  142. 101 F$ =  MID$ (K$,2,15):TYP$ =  MID$ (K$,18,3)
  143. 102  ON TYP$ < >"DIR" GOTO 100
  144. 103 SB$(DC) = F$
  145. 104  IF  RIGHT$(SB$(DC),1) = " "  THEN SB$(DC) =  LEFT$(SB$(DC), LEN(SB$(DC)) -1): GOTO 104
  146. 105 DC = DC +1: GOTO 100
  147. 106  PRINT  CHR$(4)"CLOSE"
  148. 107  HOME : VTAB 3: HTAB 3
  149. 108  IF DC = 0  THEN  PRINT "I FOUND NO SUBDIRECTORIES IN": HTAB 3: PRINT AD$(CP)".": FOR QQ = 1 TO 3000: NEXT QQ: GOTO 143
  150. 109  HTAB 3: PRINT "MOVE HIGHLIGHT TO SELECT A": HTAB 3: PRINT "FURTHER SUBDIRECTORY:"
  151. 110  VTAB 17: HTAB 2: PRINT "SPACEBAR STARTS FILECOPY TO:"
  152. 111  POKE 32,2: POKE 33,36: VTAB 18: HTAB 1: PRINT AD$(CP): POKE 32,1: POKE 33,38
  153. 112  VTAB 22: HTAB 8: PRINT "ARROWS:MOVE HIGHLIGHT": HTAB 8: PRINT "RETURN:READ ";
  154. 113 TP = 0:BT = 7
  155. 114 CS = 0
  156. 115  IF BT >DC -1  THEN BT = DC -1
  157. 116  GOSUB 141
  158. 117  FOR I = 0 TO BT -TP: VTAB I +7: HTAB 3
  159. 118  PRINT " "SB$(I +TP)" "
  160. 119  NEXT I
  161. 120  VTAB 6: HTAB 3: PRINT "----------------": VTAB 15: HTAB 3: PRINT "----------------"
  162. 121  IF TP >0  THEN  VTAB 6: HTAB 3: PRINT "------MORE------"
  163. 122  IF BT <DC -1  THEN  VTAB 15: HTAB 3: PRINT "------MORE------"
  164. 123  VTAB 23: HTAB 20: NORMAL : PRINT  SPC( 15);: VTAB 23: HTAB 20: INVERSE : PRINT " "SB$(CS +TP)" ";
  165. 124  VTAB CS +7: HTAB 3: INVERSE : PRINT " "SB$(CS +TP)" "
  166. 125  GOSUB 196: NORMAL : VTAB CS +7: HTAB 3: PRINT " "SB$(CS +TP)" "
  167. 126  IF (K$ =  CHR$(11)  OR K$ =  CHR$(8))  AND CS = 0  AND TP >0  THEN TP = TP -8:BT = TP +7:CS = 7: GOTO 116
  168. 127  IF (K$ =  CHR$(11)  OR K$ =  CHR$(8))  THEN  IF CS >0  THEN CS = CS -1: GOTO 123
  169. 128  IF (K$ =  CHR$(10)  OR K$ =  CHR$(21))  AND CS = BT -TP  AND BT <DC -1  THEN TP = TP +8:BT = BT +8: GOTO 114
  170. 129  IF (K$ =  CHR$(10)  OR K$ =  CHR$(21))  THEN  IF CS <BT -TP  THEN CS = CS +1: GOTO 123
  171. 130  IF K$ =  CHR$(27)  THEN 198
  172. 131  IF K$ =  CHR$(13)  THEN 139
  173. 132  IF K$ = " "  THEN 143
  174. 133 QQ =  PEEK( -16336) - PEEK( -16336) + PEEK( -16336) - PEEK( -16336): GOTO 123
  175. 134  REM <CTRL-0x0a>SUBDIR ERRS
  176. 135  IF  PEEK(222) = 5  THEN  POKE 216,0: GOTO 106
  177. 136  PRINT "ERROR:" PEEK(222)
  178. 137  GOTO 164
  179. 138  REM <CTRL-0x0a>ADD DIR TO PATH
  180. 139 AD$(CP) = AD$(CP) +SB$(CS +TP) +"/": GOTO 93
  181. 140  REM <CTRL-0x0a>CLR BTM
  182. 141  POKE 34,5: POKE 35,15: HOME : POKE 34,1: POKE 35,23: RETURN 
  183. 142  REM <CTRL-0x0a>COPY
  184. 143  HOME : VTAB 4: HTAB 3: PRINT "PRESS A KEY TO START": PRINT "  COPYING FILES FROM:": PRINT : PRINT "  "PF$: PRINT : PRINT "  TO "AD$(CP)".": PRINT : PRINT "  PRESS [ESC] TO CANCEL COPY."
  185. 144  POKE  -16368,0: WAIT  -16384,128: GET K$: IF K$ =  CHR$(27)  THEN 198
  186. 145  HOME : VTAB 4: HTAB 3: PRINT "COPYING FILES FROM": VTAB 5: HTAB 3: PRINT PF$: VTAB 6: HTAB 3: PRINT "TO "AD$(CP)"..."
  187. 146  ONERR  GOTO 164
  188. 147  POKE 34,10
  189. 148  FOR I = 0 TO FC
  190. 149  IF  RIGHT$(F$(I),2) = ".G"  OR  RIGHT$(F$(I),2) = ".g"  THEN 160
  191. 150  HOME : HTAB 3: PRINT "COPYING "F$(I): HTAB 3: PRINT "TO "AD$(CP)
  192. 151  VTAB 23: HTAB 8: PRINT "[ESC] EXITS TO SOFTDISK.";
  193. 152  IF  PEEK( -16384) = 155  THEN 198
  194. 153 SP$ = PF$ +F$(I):DP$ = AD$(CP) +F$(I)
  195. 154  POKE SP, LEN(SP$): FOR A = 1 TO  LEN(SP$): POKE SP +A, ASC( MID$ (SP$,A,1)): NEXT A
  196. 155  POKE DP, LEN(DP$): FOR A = 1 TO  LEN(DP$): POKE DP +A, ASC( MID$ (DP$,A,1)): NEXT A
  197. 156  POKE 0,0
  198. 157  CALL ZC
  199. 158  IF  PEEK(0) = 71  THEN  VTAB 18: HTAB 3: PRINT "FILE EXISTS. COPY OVER IT? (Y/N)";: GET K$: ON K$ =  CHR$(27) GOTO 198: ON K$ < >"Y"  AND K$ < >"y" GOTO 160: PRINT  CHR$(4)"UNLOCK"DP$: PRINT  CHR$(4)"DELETE"DP$: GOTO 150
  200. 159  IF  PEEK(0) < >0  THEN 164
  201. 160  NEXT I
  202. 161  POKE 34,1: HOME : VTAB 4: HTAB 3: PRINT "DONE COPYING. PRESS A KEY.": GOSUB 196: GOTO 198
  203. 162  END 
  204. 163  REM <CTRL-0x0a>ERROR
  205. 164  POKE 34,1: HOME : VTAB 4
  206. 165  NORMAL 
  207. 166  IF   NOT ( PEEK(222))  THEN 184
  208. 167 X =  PEEK(222): POKE 216,0
  209. 168  HTAB 3
  210. 169  PRINT "BASIC ERROR "X" ENCOUNTERED:"
  211. 170  HTAB 3
  212. 171  IF X = 4  THEN  PRINT "DISK WRITE PROTECTED.": GOTO 182
  213. 172  IF X = 5  THEN  PRINT "END OF DATA.": GOTO 182
  214. 173  IF X = 6  THEN  PRINT "PATH NOT FOUND.": GOTO 182
  215. 174  IF X = 8  THEN  PRINT "I/O ERROR.": GOTO 182
  216. 175  IF X = 9  THEN  PRINT "DISK FULL.": GOSUB 194: GOTO 182
  217. 176  IF X = 16  THEN  PRINT "SYNTAX ERROR.": GOTO 182
  218. 177  IF X = 17  THEN  PRINT "DIRECTORY FULL.": GOTO 182
  219. 178  IF X = 20  THEN  PRINT "FILE BUSY.": GOTO 182
  220. 179  IF X = 21  THEN  PRINT "FILE(S) STILL OPEN.": GOTO 182
  221. 180  IF X = 255  THEN  PRINT "YOU PRESSED CONTROL-C.": GOTO 182
  222. 181  PRINT "I DON'T KNOW THIS ERROR."
  223. 182  HTAB 3: PRINT "PRESS A KEY.": GOSUB 196: GOTO 198
  224. 183  REM <CTRL-0x0a>MLI ERRORS<CTRL-0x0a>
  225. 184 X =  PEEK(0)
  226. 185  HTAB 3: PRINT "TROUBLE COPYING FILES.": HTAB 3
  227. 186  IF X = 39  THEN  PRINT "I/O ERROR";: GOTO 191
  228. 187  IF X = 43  THEN  PRINT "DISK WRITE-PROTECTED";: GOTO 191
  229. 188  IF X = 66  OR X = 73  OR X = 85  OR X = 72  THEN  PRINT "DISK FULL";: ON X = 72 GOTO 194: GOTO 191
  230. 189  IF X = 69  THEN  PRINT "VOLUME NOT FOUND";: GOTO 191
  231. 190  PRINT "PRODOS ERROR";
  232. 191  PRINT " (MLI ERROR "X")"
  233. 192  HTAB 3: PRINT "PRESS A KEY.": GOSUB 196: GOTO 198
  234. 193  REM <CTRL-0x0a>DELETE
  235. 194  PRINT " (MLI ERROR 72)": PRINT : HTAB 3: PRINT "ATTEMPTING TO DELETE INCOMPLETE": HTAB 3: PRINT "DESTINATION FILE...": PRINT 
  236. 195  PRINT  CHR$(4)"DELETE"DP$: HTAB 3: PRINT "DELETE SUCCEEDED.": PRINT : GOTO 192
  237. 196  POKE  -16368,0: WAIT  -16384,128: GET K$: POKE  -16368,0: RETURN 
  238. 197  REM <CTRL-0x0a>EXIT
  239. 198  TEXT : HOME : VTAB 12: HTAB 9: PRINT "RETURNING TO SOFTDISK"
  240. 199  POKE  -16368,0
  241. 200  FOR I = 1 TO 2000: NEXT I
  242. 201  PRINT  CHR$(4)"BYE"
  243. 202  END