home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / utils / docs220.arc / PRINT-ARC220DOCS (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  60 lines
  1. 0 LIST 20-
  2. 1 OPEN4,4,7 : TAB=12 : OPEN1,8,3,"ARC220GUID/PAGES,S,R"
  3. 2 FOR LOOP=1TO65 : LINE$=LINE$+"-" : BLANK$=BLANK$+" " : NEXT LOOP
  4. 3 LL$=LINE$ : PAGE=PAGE+1 : FOR LINE=1TO58 : INPUT#1,A$ : SS=ST
  5. 4 IF PAGE=1 OR PAGE=2 THEN LL$=L$
  6. 5 IF LINE=1 THEN PRINT#4 : PRINT#4
  7. 6 PRINT#4,"";TAB(TAB);A$ : IF LINE=1 THEN PRINT#4,"";TAB(TAB);LL$ : PRINT#4
  8. 7 IF LINE=58 THEN PRINT#4 : PRINT#4,"";TAB(TAB+57);"[208]AGE";PAGE :PRINT#4:PRINT#4
  9. 8 IF SS<>0 THEN 10
  10. 9 NEXT LINE : GOTO 3
  11. 10 CLOSE1 : CLOSE4 : END
  12. 11 "[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  13. 12 "(null)          LEFT$APPINESS  IS          (null)
  14. 13 "[221]          [199]OOD [211]OFTWARE          [221]
  15. 14 "(null)              WITH               (null)
  16. 15 "[221]       [199]OOD [196]OCUMENTATION!       [221]
  17. 16 "(null) ------------------------------- (null)
  18. 17 "[221]  [199]OOD [196]OCUMENTATION FROM DRPCS  [221]
  19. 18 "/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  20. 19 :
  21. 20 "[212]O PRINT OUT 36 PAGES OF NEATLY
  22. 21 "FORMATTED DOCUMENTATION FOR ATN(null)LEN220,
  23. 22 "JUST REMOVE LINE 0 OF THIS PROGRAM
  24. 23 "AND RUN IT AGAIN AFTER YOUR PRINTER
  25. 24 "IS ON AND READY
  26. 25 :
  27. 26 "* (null)HERE ARE 2088 RECORDS IN THE (null)VAL(null)
  28. 27 "  FILE CALLED  'ARC220GUID/PAGES'
  29. 28 "* (null)HE FIRST BYTE OF EACH RECORD IS
  30. 29 "  THE DOUBLE-QUOTES  'CHR$(34)'
  31. 30 "  THUS ALLOWING THE USE OF THE
  32. 31 "  [201][206][208][213][212]# COMMAND TO READ THE DATA
  33. 32 "* EACH RECORD (LINE TO BE PRINTED)
  34. 33 "  IS A MAXIMUM OF 65 CHARACTERS
  35. 34 "* EACH 'PAGE' OF TEXT TO BE PRINTED
  36. 35 "  IS IN 'SETS' OF 58 RECORDS
  37. 36 "* (null)HIS PROGRAM PRINTS 2 BLANK LINES
  38. 37 "  TO THE PRINTER, THEN THE FIRST
  39. 38 "  RECORD OF THE 'SET' OF 58 (THE
  40. 39 "  [200][197][193][196][197][210] OF THE PAGE).  [212]HEN THE
  41. 40 "  PROGRAM PRINTS A 65-CHARACTER
  42. 41 "  DOTTED LINE, ONE MORE BLANK LINE,
  43. 42 "  THEN THE NEXT 57 RECORDS, THEN
  44. 43 "  ANOTHER BLANK LINE, A 'PAGE #'
  45. 44 "  LINE, AND FINALLY 2 BLANK LINES
  46. 45 "  (FOR A TOTAL OF 66 LINES)
  47. 46 "* RIGHT$T THEN DOES FURTHER LOOPS UNTIL
  48. 47 "  ALL THE PAGES HAVE BEEN PRINTED
  49. 48 "* 66 LINES MAKES ONE PAGE OF
  50. 49 "  PRINTED DOCUMENTATION
  51. 50 "* (null)ORMAL SPACING IS 6 LINES PER
  52. 51 "  INCH; STANDARD PAPER IS 11 INCHES
  53. 52 "  LONG (11 TIMES 6 IS 66)
  54. 53 "* 58 RECORDS PER PAGE TIMES 36
  55. 54 "  PAGES IS 2088 RECORDS
  56. 55 "* [193]LTER THE VALUE OF THE VARIABLE
  57. 56 "  'TAB' IN LINE 1 TO ADJUST THE
  58. 57 "  POSITION OF THE LEFT MARGIN
  59. 58 "  (LEAVE ROOM FOR 3-HOLE PUNCHING)
  60.