home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / DOUBLETAKE2.SHK / DOUBLE.TAKE / DEMO.DT.bas < prev    next >
BASIC Source File  |  2000-01-01  |  16KB  |  267 lines
  1. 0  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>================<CTRL-M>DOUBLE-TAKE DEMO<CTRL-M>MARK S. SIMONSEN<CTRL-M>(C) 1983<CTRL-M>BEAGLE BROS INC.<CTRL-M>================<CTRL-M>
  2. 1  HOME : PRINT "#":A =  PEEK(1024): PRINT  CHR$(12): HOME : IF A < >163  THEN  PRINT "SWITCH TO NORMAL TEXT SCREEN BEFORE": PRINT "RUNNING THIS PROGRAM.": STOP 
  3. 3  IF  PEEK(104) <12  THEN  POKE 103,1: POKE 104,12: POKE 3072,0: PRINT  CHR$(4)"RUN DEMO.DT"
  4. 4  GOTO 7
  5. 5  FOR I = 1 TO FI: PRINT LINE$;: NEXT : PRINT SEG$;: POKE 2039,174: RETURN 
  6. 6  FOR I = 1 TO FI: CALL 768: VTAB 1: HTAB 1: PRINT LINE$;: NEXT : RETURN 
  7. 7  SPEED= 255: TEXT : NORMAL : HOME :PAUSE = 1000:SPD = 125:S2 = 240
  8. 8  DIM L$(29),L2$(39),L3$(27),L4$(22),L5$(21)
  9. 9 SEG$ = "......................................."
  10. 10 LINE$ = SEG$ +"."
  11. 11  VTAB 24: PRINT SEG$;: POKE 2039,174: FOR I = 23 TO 1  STEP  -1: VTAB I: HTAB 1: PRINT LINE$;: NEXT 
  12. 12  GOSUB 118: GOSUB 120: GOSUB 122: GOSUB 124: GOSUB 154: GOSUB 194: GOSUB 222: GOSUB 245
  13. 13  CALL 820
  14. 14 O1 =  PEEK(48688):O2 =  PEEK(48689): IF  PEEK( -1101) < >6  THEN  POKE 48688,96: POKE 48689,3
  15. 15  VTAB 1: HTAB 15: PRINT "Beagle Bros"
  16. 16 FI = 23: GOSUB 6
  17. 17  VTAB 24: HTAB 15: PRINT "Beagle Bros": PRINT LINE$;: PRINT SEG$;: POKE 2039,174: HTAB 16: PRINT "Presents"
  18. 18 FI = 20: GOSUB 5
  19. 19 FI = 21: GOSUB 6
  20. 20  VTAB 24: HTAB 16: PRINT "Presents": PRINT LINE$;: PRINT LINE$;: PRINT SEG$;: POKE 2039,174: HTAB 13: INVERSE : PRINT ":             :": NORMAL 
  21. 21  PRINT SEG$;: POKE 2039,174: HTAB 13: INVERSE : PRINT "  DOUBLE-TAKE  ": NORMAL : PRINT SEG$;: POKE 2039,174: HTAB 13: INVERSE : PRINT ":             :": NORMAL 
  22. 22 FI = 15: GOSUB 5
  23. 23 FI = 2: GOSUB 6
  24. 24  POKE  -16299,0
  25. 25  GOSUB 104: POKE  -16300,0: GOSUB 104: POKE  -16299,0
  26. 26  VTAB 13: HTAB 19: PRINT "By"
  27. 27  GOSUB 104: POKE  -16300,0: GOSUB 104: POKE  -16299,0
  28. 28  VTAB 15: HTAB 14: PRINT "Mark Simonsen"
  29. 29  GOSUB 104: POKE  -16300,0
  30. 30 A$ = "...2-WAY SCROLL........................."
  31. 31 B$ = "................MULTIPLE UTILITY DISK..."
  32. 32  FOR I = 1 TO 40: VTAB 18: PRINT  RIGHT$(B$,I): VTAB 20: HTAB 41 -I: PRINT  LEFT$(A$,I): NEXT 
  33. 33  VTAB 18: PRINT LINE$;"...2-WAY SCROLL/MULTIPLE UTILITY DISK...";LINE$
  34. 34 VT = 23: GOSUB 106
  35. 35  GOSUB 110
  36. 36  GOSUB 116
  37. 37  CALL 820
  38. 38  SPEED= SPD
  39. 39  VTAB 1: HTAB 1: PRINT "A hundred times a day, you type LIST": PRINT "and your Applesoft Listings dutifully": PRINT "appear on your monitor..."
  40. 40  GOSUB 103: SPEED= S2
  41. 41  VTAB 14: FOR I = 1 TO 10: HTAB 3: PRINT L$(I): NEXT 
  42. 42  GOSUB 103: SPEED= SPD
  43. 43  VTAB 3: HTAB 27: PRINT "then promptly": PRINT "scroll off of the screen into Hyper-": PRINT "Space.": GOSUB 115
  44. 44  GOSUB 103: SPEED= S2
  45. 45  VTAB 23: FOR I = 10 TO 28: PRINT L$(I): NEXT : PRINT L$(29);
  46. 46  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  47. 47  GOSUB 108
  48. 48  SPEED= SPD: POKE 35,9
  49. 49  PRINT "If the program line you are looking for": PRINT "goes by, you must LIST AGAIN to read it.";: PRINT "There's a better way.": PRINT 
  50. 50  INVERSE : PRINT "2-WAY SCROLLING:";: NORMAL : PRINT " Now you can list your": PRINT "programs (all or part) with the added": PRINT "ability to CHANGE LIST-DIRECTION using": PRINT "the Apple Arrow Keys. Your monitor"
  51. 51  PRINT "becomes a 'Search Window' to be moved": PRINT "UP AND DOWN through a listing at will."
  52. 52  GOSUB 103: SPEED= S2
  53. 53  GOSUB 115: FOR I = 19 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L$(I): NEXT 
  54. 54  GOSUB 103: VTAB 23: PRINT : FOR I = 11 TO 28: PRINT L$(I): NEXT : PRINT L$(29);: HTAB 1: GOSUB 103: FOR I = 19 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L$(I): NEXT 
  55. 55  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  56. 56  TEXT : POKE  -16299,0
  57. 57  HOME : GOSUB 116: POKE  -16300,0
  58. 58  GOSUB 114: POKE 35,7: SPEED= SPD
  59. 59  VTAB 1: HTAB 1: PRINT "If you're tired of looking at regular": PRINT "Applesoft Listings, DOUBLE-TAKE provides";: PRINT "an optional way to list your programs.": PRINT 
  60. 60  INVERSE : PRINT "IMPROVED LIST-FORMAT:";: NORMAL : PRINT " Each program": PRINT "statement is listed on a new line for": PRINT "easy tracing of program flow, and FAST": PRINT "de-bugging. Commands are properly spaced";
  61. 61  PRINT "(one space between words, not two) and": PRINT "much easier to read."
  62. 62  GOSUB 103
  63. 63  SPEED= S2
  64. 64  GOSUB 115: VTAB 14: FOR I = 1 TO 38: PRINT L2$(I): NEXT : PRINT L2$(39);: HTAB 1
  65. 65  GOSUB 114
  66. 66  SPEED= SPD: VTAB 8: PRINT "The Improved List-Format supports 2-WAY": PRINT "SCROLLING also."
  67. 67  SPEED= S2: GOSUB 115: GOSUB 103: FOR I = 29 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L2$(I): NEXT 
  68. 68  GOSUB 103: FOR I = 10 TO 38: VTAB 23: PRINT L2$(I): NEXT : PRINT L2$(39);: HTAB 1: GOSUB 103: FOR I = 29 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L2$(I): NEXT 
  69. 69  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  70. 70  GOSUB 109
  71. 71  SPEED= SPD: PRINT "High-speed PRINTER LISTINGS in Improved": PRINT "Format or Regular Format are a snap": PRINT "(in any column width)."
  72. 72  SPEED= 255:VT = 11: GOSUB 106
  73. 73  TEXT : POKE  -16299,0
  74. 74  HOME : GOSUB 116: POKE  -16300,0
  75. 75  SPEED= SPD: VTAB 1: HTAB 1: INVERSE : PRINT "MONITOR-LISTINGS";: NORMAL : PRINT " feature 2-Way Scroll": PRINT "too. Dis-assembled Machine Code is": PRINT "scanned quickly in BOTH DIRECTIONS."
  76. 76  GOSUB 115: GOSUB 103: VTAB 14: SPEED= S2: FOR I = 1 TO 26: PRINT L3$(I): NEXT : PRINT L3$(27);: HTAB 1: GOSUB 103: FOR I = 17 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L3$(I): NEXT 
  77. 77  GOSUB 103
  78. 78  SPEED= SPD: GOSUB 114: VTAB 5: PRINT "Not to mention informative 2-Way": PRINT "Hex/Ascii dumps--":
  79. 79  SPEED= S2: GOSUB 115: POKE 32,1: POKE 33,38: GOSUB 111: GOSUB 103: FOR I = 1 TO 22: PRINT L4$(I);: NEXT : HTAB 1: GOSUB 103: FOR I = 12 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L4$(I);: NEXT 
  80. 80  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  81. 81  TEXT : POKE  -16299,0
  82. 82  HOME : GOSUB 116: POKE  -16300,0
  83. 83  VTAB 1: HTAB 1
  84. 84  SPEED= SPD: INVERSE : PRINT "CATALOGS";: NORMAL : PRINT " feature fast 2-Way Scroll too,": PRINT "speeding up location of file names. Use": PRINT "the Arrow Keys to SCROLL FOREWARD and"
  85. 85  PRINT "BACKWARD. And just like Listings you": PRINT "can pause with Escape or Control-S,": PRINT "single step with the Space Bar, and": PRINT "stop with Control-C."
  86. 86  GOSUB 103: GOSUB 115: POKE 32,1: POKE 33,38: VTAB 14: SPEED= S2: FOR I = 1 TO 9: PRINT L5$(I): NEXT : PRINT L5$(10);: GOSUB 103
  87. 87  VTAB 23: HTAB 1: FOR I = 10 TO 20: PRINT L5$(I): NEXT : PRINT L5$(21);: GOSUB 103: GOSUB 103
  88. 88  HTAB 1: FOR I = 11 TO 1  STEP  -1: CALL 768: VTAB 14: PRINT L5$(I): NEXT 
  89. 89  GOSUB 114: SPEED= 255:VT = 11: GOSUB 106
  90. 90  TEXT : GOSUB 112: SPEED= SPD
  91. 91  VTAB 1: INVERSE : PRINT "BONUS UTILITIES:";: NORMAL : PRINT " Any or all of the": PRINT "following enhancements may be hidden in": PRINT "memory, unseen until accessed--": PRINT : PRINT 
  92. 92  PRINT "CROSS REFERENCE: Displays existing": PRINT "variables, strings, arrays & the line": PRINT "numbers on which each occurs--": PRINT 
  93. 93  PRINT "   A$:   100 200 250 300": PRINT "   X:    10 20 3000 3010 3020": PRINT "   Y:    50 3000 4000 5200": PRINT : PRINT 
  94. 94  PRINT "VARIABLE DISPLAY: Displays all program": PRINT "variables & strings with each one's": PRINT "current value--": PRINT 
  95. 95 Q$ =  CHR$(34): PRINT "   A$  = ";Q$;"NOW IS THE TIME";Q$: PRINT "   X   = 255": PRINT "   Y   = 3.14159": PRINT 
  96. 96  SPEED= 255:VT = 24: GOSUB 106
  97. 97  POKE 34,5: GOSUB 113: SPEED= SPD
  98. 98  VTAB 6: HTAB 1: PRINT "Better RENUMBER and APPEND: Append": PRINT "program lines ANYWHERE into other": PRINT "programs (not just at the end) without": PRINT "Renumbering.": PRINT : PRINT 
  99. 99  PRINT "PLUS: Screen Switches, Enter Monitor": PRINT "Commands from Basic, Fast Program-Stats,";: PRINT "Built-in Hex/Dec Converter, Control-"
  100. 100  PRINT "Character Display, Cursor Omit or": PRINT "Replace, Applesoft Auto-Line-Numbering": PRINT "... and MORE!"
  101. 101  PRINT : PRINT : PRINT "DOUBLE-TAKE is compatible with Apple II,";: PRINT "II+ and IIe, ProDOS, DOS 3.3, PRONTO-DOS";: PRINT "and GPLE."
  102. 102  TEXT : VTAB 23: SPEED= 255: POKE 48688,O1: POKE 48689,O2: POKE 103,1: POKE 104,8: POKE 2048,0: NEW 
  103. 103  FOR I = 1 TO PAUSE: NEXT : RETURN 
  104. 104  FOR I = 1 TO PAUSE/4: NEXT : RETURN 
  105. 105  FOR J = 1 TO 10: NEXT : RETURN 
  106. 106  VTAB VT: HTAB 4: PRINT "<RETURN> to continue, <Q> to quit  "; CHR$(8);: GET A$: IF A$ < >"Q"  THEN  RETURN 
  107. 107  POP : TEXT : SPEED= 255: VTAB 23: POKE 48688,O1: POKE 48689,O2: POKE 103,1: POKE 104,8: POKE 2048,0: NEW 
  108. 108  FOR I = 1 TO 40: POKE 33,I: HOME : GOSUB 105: NEXT : RETURN 
  109. 109  FOR I = 39 TO 0  STEP  -1: POKE 32,I: POKE 33,40 -I: HOME : GOSUB 105: NEXT : RETURN 
  110. 110  FOR I = 1 TO 20: POKE 32,20 -I: POKE 33,2 *I: HOME : GOSUB 105: NEXT : RETURN 
  111. 111  FOR I = 23 TO 14  STEP  -1: VTAB I: HTAB 1: CALL  -868: GOSUB 105: NEXT : RETURN 
  112. 112  FOR I = 1 TO 24: VTAB I: HTAB 1: CALL  -868: GOSUB 105: NEXT : RETURN 
  113. 113  FOR I = 1 TO 24: CALL 768: GOSUB 105: NEXT : RETURN 
  114. 114  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,11: RETURN 
  115. 115  POKE 32,2: POKE 33,37: POKE 34,13: POKE 35,23: RETURN 
  116. 116  IF  PEEK( -1101) < >6  THEN  VTAB 12: PRINT "________________________________________": VTAB 24: PRINT "_______________________________________";: POKE 2039,223: RETURN 
  117. 117  VTAB 12: PRINT "________________________________________": INVERSE : FOR I = 13 TO 23: VTAB I: HTAB 1: PRINT " ";: HTAB 40: PRINT " ";: NEXT : VTAB 24: PRINT " ";: NORMAL : PRINT "______________________________________";: POKE 2039,32: RETURN 
  118. 118  FOR I = 864 TO 872: READ V: POKE I,V: NEXT : RETURN 
  119. 119  DATA 201,224,144,2,233,32,76,240,253
  120. 120  FOR I = 820 TO 860: READ V: POKE I,V: NEXT : RETURN 
  121. 121  DATA  166,34,138,32,36,252,160,0,165,41,41,3,9,4,133,41,177,40,72,165,41,41,3,9,8,133,41,104,145,40,200,196,33,144,229,232,228,35,144,218,96 
  122. 122  FOR I = 768 TO 768 +50: READ V: POKE I,V: NEXT : RETURN 
  123. 123  DATA 165,35,56,233,1,72,32,36,252,165,40,133,42,165,41,133,43,164,33,136,104,56,233,1,48,17,197,34,144,13,72,32,36,252,177,40,145,42,136,16,249,48,222,160,0,32,158,252,76,34,252
  124. 124  FOR I = 1 TO 29: READ L$(I): NEXT : RETURN 
  125. 125  DATA "10  REM DRAW PICTURE"
  126. 126  DATA "20  HGR : HCOLOR= 3"
  127. 127  DATA "30  FOR I = 80 TO 160: HPLOT 0,I TO"
  128. 128  DATA "     279,I: NEXT"
  129. 129  DATA "40  HCOLOR= 0:CX = 140:CY = 50"
  130. 130  DATA "50  FOR I = 1 TO 11: READ X,Y: HPLOT"
  131. 131  DATA "     CX,CY TO X,Y: NEXT"
  132. 132  DATA "60 J = J + 1:K = J ^ 2.5"
  133. 133  DATA "70  IF 80 + K > 160 THEN 90"
  134. 134  DATA "80  HPLOT 0,80 + K TO 279,80 + K:"
  135. 135  DATA "      GOTO 60"
  136. 136  DATA "90  DATA 0,90,0,100,0,120,0,160,7"
  137. 137  DATA "     0,160,140,160,210,160,279,16"
  138. 138  DATA "     0,279,120,279,100,279,90"
  139. 139  DATA "100  HCOLOR= 3"
  140. 140  DATA "110  FOR I = 0 TO 30: HPLOT 0,I TO"
  141. 141  DATA "     279,I: NEXT"
  142. 142  DATA "120  HCOLOR= 0"
  143. 143  DATA "130  FOR I = 1 TO 13: READ X,Y:HPLOT"
  144. 144  DATA "     CX,CY TO X,Y: NEXT"
  145. 145  DATA "140  HPLOT 0,29 TO 279,29: HPLOT"
  146. 146  DATA "     0,25 TO 279,25: HPLOT 0,15 TO"
  147. 147  DATA "     279,15"
  148. 148  DATA "150  DATA 0,25,0,15,0,5,30,0,70,0"
  149. 149  DATA "     ,105,0,140,0,175,0,210,0,250"
  150. 150  DATA "     ,0,279,5,279,15,279,25"
  151. 151  DATA "160  HCOLOR= 3: HPLOT CX - 3,CY TO"
  152. 152  DATA "     CX + 3,CY: HPLOT CX,CY - 3 TO"
  153. 153  DATA "     CX,CY + 3"
  154. 154  FOR I = 1 TO 39: READ L2$(I): NEXT : RETURN 
  155. 155  DATA "10    REM DRAW PICTURE"
  156. 156  DATA "20    HGR"
  157. 157  DATA "    : HCOLOR= 3"
  158. 158  DATA "30    FOR I = 80 TO 160"
  159. 159  DATA "    : HPLOT 0,I TO 279,I"
  160. 160  DATA "    : NEXT"
  161. 161  DATA "40    HCOLOR= 0"
  162. 162  DATA "    : CX = 140"
  163. 163  DATA "    : CY = 50"
  164. 164  DATA "50    FOR I = 1 TO 11"
  165. 165  DATA "    : READ X,Y"
  166. 166  DATA "    : HPLOT CX,CY TO X,Y"
  167. 167  DATA "    : NEXT"
  168. 168  DATA "60    J = J + 1"
  169. 169  DATA "    : K = J ^ 2.5"
  170. 170  DATA "70    IF 80 + K > 160 THEN 90"
  171. 171  DATA "80    HPLOT 0,80 + K TO 279,80 + K"
  172. 172  DATA "    : GOTO 60"
  173. 173  DATA "90    DATA 0,90,0,100,0,120,0,160,70"
  174. 174  DATA "        ,160,140,160,210,160,279,160"
  175. 175  DATA "        ,279,120,279,100,279,90"
  176. 176  DATA "100   HCOLOR= 3"
  177. 177  DATA "110   FOR I = 0 TO 30"
  178. 178  DATA "    : HPLOT 0,I TO 279,I"
  179. 179  DATA "    : NEXT"
  180. 180  DATA "120   HCOLOR= 0"
  181. 181  DATA "130   FOR I = 1 TO 13"
  182. 182  DATA "    : READ X,Y"
  183. 183  DATA "    : HPLOT CX,CY TO X,Y"
  184. 184  DATA "    : NEXT"
  185. 185  DATA "140   HPLOT 0,29 TO 279,29"
  186. 186  DATA "    : HPLOT 0,25 TO 279,25"
  187. 187  DATA "    : HPLOT 0,15 TO 279,15"
  188. 188  DATA "150   DATA 0,25,0,15,0,5,30,0,70,0,1"
  189. 189  DATA "        05,0,140,0,175,0,210,0,250,0"
  190. 190  DATA "        ,279,5,279,15,279,25"
  191. 191  DATA "160   HCOLOR= 3"
  192. 192  DATA "    : HPLOT CX - 3,CY TO CX + 3,CY"
  193. 193  DATA "    : HPLOT CX,CY - 3 TO CX,CY + 3"
  194. 194  FOR I = 1 TO 27: READ L3$(I): NEXT : RETURN 
  195. 195  DATA "0300-   A5 23       LDA   $23"
  196. 196  DATA "0302-   38          SEC"
  197. 197  DATA "0303-   E9 01       SBC   #$01"
  198. 198  DATA "0305-   48          PHA"
  199. 199  DATA "0306-   20 24 FC    JSR   $FC24"
  200. 200  DATA "0309-   A5 28       LDA   $28"
  201. 201  DATA "030B-   85 2A       STA   $2A"
  202. 202  DATA "030D-   A5 29       LDA   $29"
  203. 203  DATA "030F-   85 2B       STA   $2B"
  204. 204  DATA "0311-   A4 21       LDY   $21"
  205. 205  DATA "0313-   88          DEY"
  206. 206  DATA "0314-   68          PLA"
  207. 207  DATA "0315-   38          SEC"
  208. 208  DATA "0316-   E9 01       SBC   #$01"
  209. 209  DATA "0318-   30 11       BMI   $032B"
  210. 210  DATA "031A-   C5 22       CMP   $22"
  211. 211  DATA "031C-   90 0D       BCC   $032B"
  212. 212  DATA "031E-   48          PHA"
  213. 213  DATA "031F-   20 24 FC    JSR   $FC24"
  214. 214  DATA "0322-   B1 28       LDA   ($28),Y"
  215. 215  DATA "0324-   91 2A       STA   ($2A),Y"
  216. 216  DATA "0326-   88          DEY"
  217. 217  DATA "0327-   10 F9       BPL   $0322"
  218. 218  DATA "0329-   30 DE       BMI   $0309"
  219. 219  DATA "032B-   A0 00       LDY   #$00"
  220. 220  DATA "032D-   20 9E FC    JSR   $FC9E"
  221. 221  DATA "0330-   4C 22 FC    JMP   $FC22"
  222. 222  FOR I = 1 TO 22: READ L4$(I): NEXT : RETURN 
  223. 223  DATA "1000- 4E 6F 77 20 79 6F 75 20 Now you "
  224. 224  DATA "1008- 63 61 6E 20 6C 69 73 74 can list"
  225. 225  DATA "1010- 20 79 6F 75 72 22 3A BA  your'::"
  226. 226  DATA "1018- 22 70 72 6F 67 72 61 6D 'program"
  227. 227  DATA "1020- 73 20 28 61 6C 6C 20 6F s (all o"
  228. 228  DATA "1028- 72 20 70 61 72 74 29 20 r part) "
  229. 229  DATA "1030- 77 69 74 68 20 74 68 65 with the"
  230. 230  DATA "1038- 20 61 64 64 65 64 22 3A  added':"
  231. 231  DATA "1040- BA 22 61 62 69 6C 69 74 :'abilit"
  232. 232  DATA "1048- 79 20 74 6F 20 43 48 41 y to CHA"
  233. 233  DATA "1050- 4E 47 45 20 4C 49 53 54 NGE LIST"
  234. 234  DATA "1058- 2D 44 49 52 45 43 54 49 -DIRECTI"
  235. 235  DATA "1060- 4F 4E 20 75 73 69 6E 67 ON using"
  236. 236  DATA "1068- 22 3A BA 22 74 68 65 20 '::'the "
  237. 237  DATA "1070- 41 70 70 6C 65 20 41 72 Apple Ar"
  238. 238  DATA "1078- 72 6F 77 20 4B 65 79 73 row Keys"
  239. 239  DATA "1080- 2E 20 59 6F 75 72 20 6D . Your m"
  240. 240  DATA "1088- 6F 6E 69 74 6F 72 22 00 onitor'."
  241. 241  DATA "1090- 0F 11 DD 01 BA 22 62 65 ..].:'be"
  242. 242  DATA "1098- 63 6F 6D 65 73 20 61 20 comes a "
  243. 243  DATA "10A0- 27 53 65 61 72 63 68 20 'Search "
  244. 244  DATA "10A8- 57 69 6E 64 6F 77 27 20 Window'"
  245. 245  FOR I = 1 TO 21: READ L5$(I): NEXT : RETURN 
  246. 246  DATA "/BEAGLE.BROS"
  247. 247  DATA " "
  248. 248  DATA " NAME          TYPE BLOCKS  MODIFIED"
  249. 249  DATA " "
  250. 250  DATA " ALPHA.PLOT     BAS     20  21-SEP-83"
  251. 251  DATA " APPLE.MECHANIC BAS     12   1-SEP-83"
  252. 252  DATA " BEAGLE.BAG     BAS      4  28-MAR-83"
  253. 253  DATA " BEAGLE.BASIC   BIN     21  21-SEP-83"
  254. 254  DATA " DISKQUIK       BIN      3  18-JUL-83"
  255. 255  DATA " DOS.BOSS       BAS     23   5-OCT-83"
  256. 256  DATA " DOUBLE.TAKE    BIN     19  29-AUG-83"
  257. 257  DATA " FLEX.TYPE      BIN      5   6-OCT-83"
  258. 258  DATA " FRAME.UP       BIN     31   5-OCT-83"
  259. 259  DATA " GPLE           BIN     10   1-JAN-83"
  260. 260  DATA " PRONTO.DOS     BIN     21  18-MAR-83"
  261. 261  DATA " SILICON.SALAD  BAS      1  <NO-DATE>"
  262. 262  DATA " TIP.DISK.1     BAS      1  <NO-DATE>"
  263. 263  DATA " TYPEFACES      BAS     26  24-SEP-83"
  264. 264  DATA " UTILITY.CITY   BAS     13   3-MAR-83"
  265. 265  DATA " "
  266. 266  DATA "BLOCKS FREE:  31    BLOCKS USED:  249"
  267. 270  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>          <CTRL-M>================<CTRL-M>DOUBLE-TAKE DEMO<CTRL-M>MARK S. SIMONSEN<CTRL-M>(C) 1983<CTRL-M>BEAGLE BROS INC.<CTRL-M>================<CTRL-M>