home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DBLTAKE1.DSK / NOTES.bas < prev    next >
BASIC Source File  |  2014-09-09  |  15KB  |  120 lines
  1. 10  REM <CTRL-J><CTRL-J>D.T. NOTES<CTRL-J><CTRL-J>
  2. 20  REM PRINT  CHR$ (12) CHR$ (21): REM  TURN OFF APPLE 80 COLUMNS
  3. 30  TEXT : NORMAL : PRINT  CHR$(12): HOME : INVERSE :Q$ =  CHR$(34)
  4. 40  PRINT "                   ": PRINT " DOUBLE-TAKE NOTES ";: NORMAL : HTAB 32: PRINT " 11/1/85": INVERSE : PRINT "                   ": NORMAL 
  5. 50  PRINT : PRINT : PRINT : PRINT "BY POPULAR DEMAND--": PRINT : PRINT : PRINT "THE FOLLOWING FEATURES HAVE BEEN ADDED": PRINT "TO DOUBLE-TAKE. THEY ARE NOT COVERED IN": PRINT "THE DOCUMENTATION SO PAY ATTENTION."
  6. 60  PRINT : PRINT "<1> COMPATIBILITY WITH 80 COLUMN BOARDS": PRINT "<2> NEW FEATURES AND CHANGES": PRINT "<3> COMPATIBILITY WITH FLEX TYPE": PRINT "<4> COMPATIBILITY WITH P.L.E."
  7. 70  PRINT "<5> CHANGE FUNCTION-SELECT KEY": PRINT "<6> AMPERSAND DRIVEN ROUTINES": PRINT "<7> PRINTER PROBLEMS AND THE AMPERSAND": PRINT "<8> QUIT"
  8. 80  VTAB 22: PRINT : PRINT "SELECT < >"; CHR$(8); CHR$(8);: GET A$: IF A$ <"1"  OR A$ >"8"  THEN 80
  9. 90  IF A$ = "1"  THEN 170
  10. 100  IF A$ = "2"  THEN 290
  11. 110  IF A$ = "3"  THEN 380
  12. 120  IF A$ = "4"  THEN 520
  13. 130  IF A$ = "5"  THEN 770
  14. 140  IF A$ = "6"  THEN 850
  15. 150  IF A$ = "7"  THEN 1050
  16. 160  VTAB 23: END 
  17. 170  PRINT  CHR$(12): HOME : HTAB 4: INVERSE : PRINT " USING DOUBLE-TAKE IN 80 COLUMNS ": NORMAL : PRINT 
  18. 180  PRINT "DOUBLE-TAKE NOW SUPPORTS MOST POPULAR": PRINT "80 COLUMN BOARDS. THE CONFIGURE DOUBLE-": PRINT "TAKE PROGRAM WILL LET YOU CHOOSE THE": PRINT "PARTICULAR BOARD YOU WANT SUPPORTED."
  19. 190  PRINT "DOUBLE-TAKE COMES CONFIGURED FOR THE": PRINT "APPLE IIE 80 COLUMN BOARD.": PRINT 
  20. 200  PRINT "AFTER LOADING DOUBLE-TAKE, BY EITHER": PRINT "BOOTING OR RUNNING THE HELLO PROGRAM,": PRINT "USE CONTROL-V TO SWITCH BETWEEN 40 AND": PRINT "80 COLUMNS. (NOTE: FOR SUP'R TERM AND": PRINT "FULL-VIEW 80 USE CONTROL-B INSTEAD.)": PRINT 
  21. 210  PRINT "NEVER USE PR#3 TO TURN ON 80 COLUMNS AS": PRINT "THIS WILL DISCONNECT DOUBLE-TAKE.": PRINT "ALWAYS USE CONTROL-V TO ENTER OR EXIT": PRINT "80 COLUMNS. (NOTE: IF YOU ARE USING": PRINT "DOUBLE-TAKE WITH GPLE V4.0 OR LATER,"
  22. 220  PRINT "YOU MAY ALSO USE ESC 4, ESC 8, ESC": PRINT "CTRL-Q, CTRL-O 4, OR CTRL-O 8.)
  23. 230  GOSUB 1160: PRINT  CHR$(12): HOME : HTAB 4: INVERSE : PRINT " USING DOUBLE-TAKE IN 80 COLUMNS ": NORMAL : PRINT 
  24. 240  PRINT "MOST OF DOUBLE-TAKE'S 23 FUNCTIONS WORK": PRINT "IN 80 COLUMNS. BELOW ARE THE FEW": PRINT "EXCEPTIONS:": PRINT 
  25. 250  PRINT "CURSORS--": PRINT "  THE REPLACE CURSOR FEATURE ONLY WORKS": PRINT "  IN 40 COLUMN MODE. (NEARLY ALL 80": PRINT "  COLUMN CARDS PROVIDE A WAY TO CHANGE": PRINT "  THE CURSOR SO THIS IS REALLY NO LOSS)": PRINT 
  26. 260  PRINT "CATALOG--": PRINT "  ALTHOUGH THE CATALOG FUNCTION WORKS": PRINT "  ON ALL 80 COLUMN CARDS, 2-WAY SCROLL-": PRINT "  ING OF THE CATALOG ONLY WORKS IF THE": PRINT "  CARD SUPPORTS ZERO-PAGE WINDOW POKES.": PRINT 
  27. 270  PRINT "SCREEN SWITCHES--": PRINT "  THE CLEAR SCREEN FEATURE WORKS ON ALL": PRINT "  80 COLUMN CARDS. THE OTHER SCREEN": PRINT "  SWITCHES ONLY WORK ON A FEW CARDS."
  28. 280  GOSUB 1160: RUN 
  29. 290  PRINT  CHR$(12): HOME : HTAB 8: INVERSE : PRINT " NEW DOUBLE-TAKE FEATURES ": NORMAL : PRINT 
  30. 300  PRINT "1. THE RED, ORANGE, AND BLUE MODULES": PRINT "   NOW HAVE SHORTER VERSIONS. WHEN YOU": PRINT "   RECONFIGURE DOUBLE-TAKE IF YOU DON'T": PRINT "   WANT ALL THE FEATURES OF ONE OF": PRINT "   THESE MODULES, YOU CAN SELECT THE"
  31. 310  PRINT "   SHORT VERSION AND SAVE MEMORY (1/2K,": PRINT "   3/4K, 2 1/4K SHORTER RESPECTIVELY).": PRINT 
  32. 320  PRINT "2. HEX/DEC CONVERT NOW SHOWS THE": PRINT "   NEGATIVE DECIMAL EQUIVALENT OF ALL": PRINT "   NUMBERS GREATER THAN 32767.": PRINT 
  33. 330  PRINT "3. THE <SPACE BAR> MAY NOW BE USED TO": PRINT "   SINGLE STEP THROUGH LISTINGS. THIS": PRINT "   IS IN ADDITION TO USING ESCAPE,": PRINT "   CONTROL-S, AND THE ARROW KEYS.": PRINT 
  34. 340  PRINT "4. DOUBLE-TAKE NO LONGER OVERWRITES": PRINT "   PAGE 3 OF MEMORY ($300-$3FF)."
  35. 370  GOSUB 1160: RUN 
  36. 380  PRINT  CHR$(12): HOME : INVERSE : HTAB 4: PRINT " USING DOUBLE-TAKE WITH FLEX TYPE ": NORMAL : PRINT 
  37. 390  PRINT "DOUBLE-TAKE CAN NOW BE USED WITH FLEX": PRINT "TYPE. TO USE THEM TOGETHER DO THIS:": PRINT 
  38. 400  PRINT "1. CONFIGURE DOUBLE-TAKE WITH THE FLEX": PRINT "   TYPE VIDEO DRIVER.": PRINT 
  39. 410  PRINT "2. BOOT THE DOUBLE-TAKE DISK.": PRINT 
  40. 420  PRINT "3. RUN THE HELLO PROGRAM FROM THE FLEX": PRINT "   TYPE DISK.": PRINT 
  41. 430  PRINT "4. TYPE:    TEXT": PRINT "            POKE (PEEK(975)*256+205),8": PRINT "            CALL 1016": PRINT 
  42. 440  PRINT "5. NOW USE CONTROL-V TO SWITCH BACK AND": PRINT "   FORTH BETWEEN NORMAL TEXT AND HI-RES": PRINT "   TEXT."
  43. 450  GOSUB 1160: PRINT  CHR$(12): HOME : INVERSE : HTAB 4: PRINT " USING DOUBLE-TAKE WITH FLEX TYPE ": NORMAL : PRINT 
  44. 460  PRINT "A FEW CAVEATS:": PRINT 
  45. 470  PRINT "1. DON'T USE APPEND HIDE, APPEND MERGE,": PRINT "   OR RENUMBER WHILE IN HI-RES TEXT.": PRINT "   ONLY USE THEM IN NORMAL TEXT MODE.": PRINT 
  46. 480  PRINT "2. DON'T USE FLEX TYPE'S DOUBLE-WIDE": PRINT "   MODE (CONTROL-W) IN COMBINATION WITH": PRINT "   DOUBLE-TAKE.": PRINT 
  47. 490  PRINT "3. ONLY USE FLEX TYPE'S NORMAL SCROLL": PRINT "   MODE (CONTROL-S 1) IN COMBINATION": PRINT "   WITH DOUBLE-TAKE.": PRINT 
  48. 500  PRINT "4. ALTHOUGH DOUBLE-TAKE WORKS WITH FLEX": PRINT "   TYPE, DOUBLE-TAKE WORKS WITH GPLE,": PRINT "   AND FLEX TYPE WORKS WITH GPLE, YOU": PRINT "   CAN'T USE DOUBLE-TAKE AND FLEX TYPE": PRINT "   AND GPLE ALL AT THE SAME TIME."
  49. 510  GOSUB 1160: RUN 
  50. 520  PRINT  CHR$(12): HOME : INVERSE : HTAB 7: PRINT " USING DOUBLE-TAKE WITH PLE ": NORMAL : PRINT : PRINT : PRINT 
  51. 530  PRINT "DOUBLE-TAKE WAS NOT ORIGINALLY INTENDED": PRINT "TO WORK IN COMBINATION WITH PLE. THIS": PRINT "DECISION WAS BASED ON THE FACT THAT": PRINT "BEAGLE BROS WILL LET YOU TRADE IN YOUR": PRINT "OLD PLE FOR THE NEW GPLE (FOR A SMALL": PRINT "FEE)."
  52. 540  PRINT : PRINT "EVIDENTLY THERE ARE A LOT OF DIE-HARDS": PRINT "OUT THERE WHO EITHER 1) LIKE LIVING IN": PRINT "THE STONE AGES OR 2) CAN'T AFFORD TO": PRINT "UPGRADE."
  53. 550  PRINT : PRINT "HERE'S TO YOU--"
  54. 560  GOSUB 1160: PRINT  CHR$(12): HOME : INVERSE : HTAB 7: PRINT " USING DOUBLE-TAKE WITH PLE ": NORMAL : PRINT : PRINT : PRINT 
  55. 570  PRINT "PERFORM THE FOLLOWING STEPS:": PRINT 
  56. 580  PRINT "1. MAKE SURE THAT PLE IS NOT IN MEMORY.": PRINT "   IF IT IS, RUN "Q$"REMOVE PLE"Q$" OR": PRINT "   RE-BOOT WITH A NON-PLE DISK.": PRINT 
  57. 590  PRINT "2. INSERT THE DOUBLE-TAKE DISK AND LOAD": PRINT "   "Q$"CONFIGURE DOUBLE-TAKE"Q$".": PRINT 
  58. 600  PRINT "3. CHANGE THE VARIABLE "Q$"PLE"Q$" IN LINE 2": PRINT "   TO BE EQUAL TO 1 (PLE = 1).": PRINT 
  59. 610  PRINT "4. DO NOT SAVE "Q$"CONFIGURE DOUBLE-TAKE"Q$: PRINT "   AFTER MAKING THIS CHANGE. EACH TIME": PRINT "   YOU WANT TO RECONFIGURE DOUBLE-TAKE": PRINT "   FOR USE WITH PLE YOU WILL HAVE TO": PRINT "   MAKE THE CHANGE.": PRINT 
  60. 620  GOSUB 1160: PRINT  CHR$(12): HOME : INVERSE : HTAB 7: PRINT " USING DOUBLE-TAKE WITH PLE ": NORMAL : PRINT : PRINT : PRINT 
  61. 630  PRINT "PERFORM THE FOLLOWING STEPS:": PRINT 
  62. 640  PRINT "5. TYPE "Q$"RUN"Q$" AND SELECT THE CONFIG-": PRINT "   URATION MENU (1). CHOOSE THE MODULES": PRINT "   YOU WANT AND EXIT VIA <ESC>.": PRINT 
  63. 650  PRINT "6. SELECT SAVE CONFIGURATION (2).": PRINT "   YOUR ONLY CHOICE WITH THE CHANGE IN": PRINT "   EFFECT IS "Q$"DOUBLE-TAKE.PLE"Q$".": PRINT 
  64. 660  PRINT "7. AFTER THE CONFIGURATION IS COMPLETE": PRINT "   YOU WILL HAVE A NEW VERSION THAT IS": PRINT "   COMPATIBLE WITH PLE.": PRINT 
  65. 670  PRINT "8. YOU MUST NOW CREATE A SHORT "Q$"HELLO"Q$: PRINT "   PROGRAM TO LOAD YOUR NEW VERSION OF": PRINT "   DOUBLE-TAKE."
  66. 680  GOSUB 1160: PRINT  CHR$(12): HOME : INVERSE : HTAB 7: PRINT " USING DOUBLE-TAKE WITH PLE ": NORMAL : PRINT : PRINT : PRINT 
  67. 690  PRINT "PERFORM THE FOLLOWING STEPS:": PRINT 
  68. 700  PRINT "   TYPE IN THE FOLLOWING AND SAVE IT": PRINT "   UNDER THE NAME "Q$"HELLO 2"Q$".": PRINT 
  69. 710  PRINT "   10 PRINT CHR$(4)"Q$"BRUN DOUBLE-": PRINT "      TAKE.PLE"Q$: PRINT "   20 POKE 39657, PEEK (43605):": PRINT "      POKE 39658, PEEK (43606)"
  70. 720  PRINT "   30 CALL 38656": PRINT 
  71. 730  PRINT "9. TO USE DOUBLE-TAKE IN COMBINATION": PRINT "   WITH PLE, FIRST BOOT YOUR PLE DISK,": PRINT "   THEN INSERT THE DOUBLE-TAKE DISK AND": PRINT "   "Q$"RUN HELLO 2"Q$".": PRINT 
  72. 740  GOSUB 1160: PRINT  CHR$(12): HOME : INVERSE : HTAB 7: PRINT " USING DOUBLE-TAKE WITH PLE ": NORMAL : PRINT : PRINT : PRINT 
  73. 750  PRINT "** NOTE: P.L.E. IS NOT COMPATIBLE WITH": PRINT "   ANY 80 COLUMN CARDS. THEREFORE WHEN": PRINT "   YOU USE DOUBLE-TAKE WITH P.L.E.,": PRINT "   YOU WILL ONLY BE ABLE TO USE THEM": PRINT "   IN 40 COLUMN MODE."
  74. 760  GOSUB 1160: RUN 
  75. 770  PRINT  CHR$(12): HOME : HTAB 10: INVERSE : PRINT " FUNCTION-SELECT KEY ": NORMAL : PRINT 
  76. 780  PRINT "IT HAS BEEN REPORTED THAT SOME PRINTERS": PRINT "WON'T ALLOW USE OF CONTROL-F TO ENTER": PRINT "FUNCTION-SELECT MODE.": PRINT 
  77. 790  PRINT "IF YOU HAVE THIS PROBLEM, THE CONTROL": PRINT "CHARACTER THAT ACTIVATES THIS MODE CAN": PRINT "BE CHANGED FROM CONTROL-F TO ANOTHER": PRINT "CONTROL CHARACTER OF YOUR CHOOSING.": PRINT 
  78. 800  PRINT "THIS IS ACCOMPLISHED BY LOADING THE": PRINT "PROGRAM "Q$"CONFIGURE DOUBLE-TAKE"Q$" AND": PRINT "CHANGING THE VARIABLE "Q$"CTRL"Q$" IN LINE 2": PRINT "TO AN ACCEPTABLE VALUE FROM 129 TO 154": PRINT "(CONTROL-A THRU CONTROL-Z).": PRINT 
  79. 810  PRINT "AFTER MAKING THE ABOVE CHANGE YOU MUST": PRINT "RUN THE PROGRAM AND CONFIGURE THE": PRINT "VERSION(S) OF DOUBLE-TAKE THAT YOU USE": PRINT "WITH YOUR PRINTER."
  80. 820  GOSUB 1160: PRINT  CHR$(12): HOME : HTAB 10: INVERSE : PRINT " FUNCTION-SELECT KEY ": NORMAL : PRINT 
  81. 830  PRINT "SEE ALSO": PRINT : PRINT Q$"<7> PRINTER PROBLEMS AND THE AMPERSAND"Q$: PRINT : PRINT "IN THE MAIN MENU."
  82. 840  GOSUB 1160: RUN 
  83. 850  PRINT  CHR$(12): HOME : HTAB 12: INVERSE : PRINT " USING AMPERSAND ": NORMAL : PRINT 
  84. 860  PRINT "IF YOU'RE A REAL COMPUTER HACKER, YOU": PRINT "MAY PREFER USING MNEMONIC CODES RATHER": PRINT "THAN THE CONTROL-F <KEY> SEQUENCE.": PRINT 
  85. 870  PRINT "YOU CAN DO THIS BY LOADING THE PROGRAM": PRINT "CALLED "Q$"CONFIGURE DOUBLE-TAKE"Q$" AND": PRINT "SETTING THE VARIABLE "Q$"AMPER"Q$" IN LINE 2": PRINT "EQUAL TO 1 (AMPER = 1).": PRINT 
  86. 880  PRINT "AFTER MAKING THE ABOVE CHANGE YOU MUST": PRINT "RUN THE PROGRAM AND CONFIGURE THE": PRINT "VERSION(S) OF DOUBLE-TAKE THAT YOU WANT": PRINT "TO USE IN THIS MODE.": PRINT 
  87. 890  PRINT "CONTROL-F WILL NO LONGER ACTIVATE ANY": PRINT "OF THE FUNCTIONS. YOU WILL NOW HAVE TO": PRINT "TYPE "Q$"&"Q$" FOLLOWED BY THE MNEMONIC."
  88. 900  GOSUB 1160: PRINT  CHR$(12): HOME : HTAB 12: INVERSE : PRINT " USING AMPERSAND ": NORMAL : PRINT 
  89. 910  PRINT "&N [N1][,N2]       : NEW LIST": PRINT "&L [N1][,N2]       : LIST (APPLE)": PRINT "&E [N1][.N2]       : EXAMINE (HEX/ASC)": PRINT "&D [N1]            : DISASSEMBLE": PRINT "&# [N1]            : HEX/DEC CONVERT"
  90. 920  PRINT "&B                 : BASIC (MONITOR)": PRINT "&H                 : HIDE (APPEND)": PRINT "&M                 : MERGE (APPEND)": PRINT "&R                 : RENUMBER": PRINT "&A [N1][,N2]       : AUTO-NUMBER"
  91. 930  PRINT "&S                 : STATS (VITAL)": PRINT "&P [N1]            : PEEK 2 BYTES": PRINT "&X                 : X-REFERENCE": PRINT "&V                 : VARIABLE DISPLAY"
  92. 940  PRINT "&O [N1]            : OPTIONAL CURSORS": PRINT "&C                 : CONTROL CHARACTERS": PRINT "&0                 : CLEAR SCREEN": PRINT "&1                 : HI-RES PAGE 1"
  93. 950  PRINT "&G                 : LO-RES PAGE 1": PRINT "&2                 : PAGE 2": PRINT "&T                 : TEXT AND GRAPHICS"
  94. 960  GOSUB 1160: PRINT  CHR$(12): HOME : HTAB 12: INVERSE : PRINT " USING AMPERSAND ": NORMAL : PRINT 
  95. 970  PRINT "FOR EXAMPLE:": PRINT : PRINT "   &L          LISTS ENTIRE PROGRAM": PRINT "   &L 100      LISTS ONE LINE": PRINT "   &L 100,200  LISTS A RANGE OF LINES": PRINT 
  96. 980  PRINT "YOU MAY HAVE NOTICED THAT THERE WAS NO": PRINT "AMPERSAND COMMAND FOR CATALOG. TO DO A": PRINT "CATALOG WITH 2-WAY SCROLLING JUST TYPE": PRINT Q$"CATALOG"Q$" AS YOU NORMALLY WOULD."
  97. 990  GOSUB 1160: PRINT  CHR$(12): HOME : HTAB 12: INVERSE : PRINT " USING AMPERSAND ": NORMAL : PRINT 
  98. 1000  PRINT "ALSO IF YOU ARE SO INCLINED, ANY OF THE": PRINT "AMPERSAND COMMANDS MAY BE IMBEDDED IN": PRINT "YOUR GPLE ESCAPE TABLES.": PRINT 
  99. 1010  PRINT "FOR INSTANCE, YOU COULD REDEFINE": PRINT Q$"ESC L"Q$" TO BE "Q$"&L"Q$" RATHER THAN "Q$"LIST"Q$".": PRINT 
  100. 1020  PRINT "OR TO BE CONSISTENT WITH THE KEYCHART,": PRINT "REDEFINE "Q$"ESC 1"Q$" AND "Q$"ESC !"Q$" TO BE "Q$"&N"Q$: PRINT "AND "Q$"&L"Q$".": PRINT 
  101. 1030  PRINT "WHATEVER YOU DO, MAKE A BACKUP FIRST!": PRINT "O.K.?"
  102. 1040  GOSUB 1160: RUN 
  103. 1050  PRINT  CHR$(12): HOME : HTAB 12: INVERSE : PRINT " PRINTER PROBLEMS ": NORMAL : PRINT : PRINT 
  104. 1053  PRINT "** NOTE: IF DOUBLE-TAKE'S COMMANDS STOP": PRINT "   WORKING AFTER CONNECTING YOUR": PRINT "   PRINTER WITH A PR#1, THEN PERHAPS": PRINT "   ENTERING THE FOLLOWING COMMAND WILL": PRINT "   SOLVE THE PROBLEM:": PRINT 
  105. 1055  PRINT "   PRINT CHR$(9);"Q$"I"Q$: PRINT : PRINT "   IF CONTROL-F STILL DOESN'T WORK,": PRINT "   THEN YOU WILL HAVE TO USE THE METHOD": PRINT "   DESCRIBED NEXT."
  106. 1057  GOSUB 1160: PRINT  CHR$(12): HOME : HTAB 9: INVERSE : PRINT " TRICKS WITH AMPERSAND ": NORMAL : PRINT : PRINT 
  107. 1060  PRINT "AN UNDOCUMENTED FEATURE OF DOUBLE-TAKE": PRINT "IS THAT THE AMPERSAND MAY BE USED TO": PRINT "REPEAT THE LAST DOUBLE-TAKE COMMAND.": PRINT 
  108. 1070  PRINT "FOR INSTANCE, IF THE LAST DOUBLE-TAKE": PRINT "FEATURE YOU USED WAS VARIABLE X-REF": PRINT "(CONTROL-F 8) THEN TO REPEAT IT SIMPLY": PRINT "TYPE": PRINT : PRINT "   & <RETURN>": PRINT 
  109. 1080  PRINT "IF YOUR PRINTER HAPPENS TO BE THE KIND": PRINT "THAT HAS PROBLEMS WITH CONTROL-F, YOU": PRINT "CAN USE THE AMPERSAND TO GET AROUND IT."
  110. 1090  GOSUB 1160: PRINT  CHR$(12): HOME : HTAB 9: INVERSE : PRINT " TRICKS WITH AMPERSAND ": NORMAL : PRINT : PRINT 
  111. 1100  PRINT "HERE'S HOW IT'S DONE:": PRINT : PRINT "1. BEFORE CONNECTING THE PRINTER WITH": PRINT "   PR#1, PERFORM THE FUNCTION (E.G.": PRINT "   VARIABLE X-REF).": PRINT 
  112. 1110  PRINT "2. CONNECT THE PRINTER WITH PR#1 (IF": PRINT "   IT'S IN SLOT 1).": PRINT : PRINT "3. TYPE "Q$"& <RETURN>"Q$".": PRINT 
  113. 1120  PRINT "THIS KIND OF TRICK CAN ALSO BE USED TO": PRINT "GET X-REF AND VARIABLE DISPLAY PRINTER": PRINT "LISTINGS WIDER THAN 40 COLUMNS": PRINT "(CONTRARY TO WHAT IT SAYS ON PAGE 16 OF": PRINT "THE DOCUMENTATION).": PRINT 
  114. 1130  PRINT "JUST SEND "Q$"CONTROL-I <WIDTH> N"Q$" TO THE": PRINT "PRINTER AFTER TYPING PR#1."
  115. 1140  GOSUB 1160: RUN 
  116. 1150  GET A$: RUN 
  117. 1160  REM <CTRL-J><CTRL-J>PAUSE<CTRL-J><CTRL-J>
  118. 1170  VTAB 24: HTAB 3: PRINT "<RETURN> TO CONTINUE, <Q> TO QUIT ";: GET A$
  119. 1180  IF A$ < >"Q"  THEN  RETURN 
  120. 1190  RUN