home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30a.dsk / JANUARY.1987 / WPL.PRINT.CR.txt < prev    next >
Text File  |  2023-02-26  |  2KB  |  142 lines
  1.    P  ************************
  2.    P  *      WPL.PRINT       *
  3.    P  *  By I. Larry Morris  *
  4.    P  *  Copyright (C) 1987  *
  5.    P  *  By MicroSPARC, Inc  *
  6.    P  *  Concord, MA  01742  *
  7.    P  ************************
  8.    P  (Modified for ProDOS and ImageWriter Printer)
  9.    P  (Modified for ImageWriter 'CR' character)
  10.    PND
  11.    PAS=$C
  12.    PGO ST
  13. NR PLM 8
  14.    E
  15.    F//:/
  16.    Y?
  17.    B
  18.    PPR
  19.    PPR Generating line numbers ...
  20.    PSX 0
  21.    PSY 0
  22.    PSZ 0
  23. LP PSX +1
  24.    PCS /10/(X)/
  25.    PGO IY
  26.    PGO AP
  27. IY PSX 0
  28.    PSY +1
  29.    PCS /10/(Y)/
  30.    PGO IZ
  31.    PGO AP
  32. IZ PSY 0
  33.    PSZ +1
  34. AP F<><>(Z)(Y)(X):  <
  35.    Y?
  36.    PGO LP
  37.    F<><<
  38.    Y?
  39.    E
  40.    F<>???:  :<<
  41.    Y?
  42.    PRT
  43.    E
  44.    F/://
  45.    Y?
  46.    PRT
  47. ST PPR 
  48.    PPR                   ***  PRINT.FILE  ***
  49.    PPR
  50. FL PIN Enter file name (ESCape = Quit): =$A
  51.    PCS /$A//
  52.    PGO QT
  53.    PCS /$A//
  54.    PGO FL
  55. DT PPR
  56.    PCS *$C**
  57.    PGO D2
  58.    PGO OP
  59. D2 PIN Enter date: =$C
  60.    PCS *$C**
  61.    PGO D2
  62.    PPR
  63. OP PIN Select option (1 = All, 2 = WPL): =$D
  64.    PCS /$D/1/
  65.    PGO LD
  66.    PCS /$D/2/
  67.    PGO LD
  68.    PGO OP
  69. LD NY
  70.    L $A
  71.    B
  72.    F<<><
  73.    Y?
  74.    PPM 0
  75.    PRM 80
  76.    PTM 1
  77.    PBM 0
  78.    PPN 1
  79.    PPL 60
  80.    PPI 66
  81.    PLI 0
  82.    PSP 0
  83.    PPD 1
  84.    PCR 0
  85.    PLJ
  86.    PTL**!$A ... $C"*Page #*
  87.    PBL
  88.    PAS replaced =$B
  89.    PPR 
  90.    PPR Substituting characters ...
  91.    PPR
  92.    F//!{esc}"/A
  93.    PPR {esc}$B
  94.    F//![A]"/A
  95.    PPR ctrl-A$B
  96.    F//![G]"/A
  97.    PPR ctrl-G$B
  98.    F/ /![K]"/A
  99.    PPR ctrl-K$B
  100.    F/ /![L]"/A
  101.    PPR ctrl-L$B
  102.    F//![N]"/A
  103.    PPR ctrl-N$B
  104.    F//![O]"/A
  105.    PPR ctrl-O$B
  106.    F//![Q]"/A
  107.    PPR ctrl-Q$B
  108.    F//![R]"/A 
  109.    PPR ctrl-R$B
  110.    F//![T]"/A
  111.    PPR ctrl-T$BF/( </</A
  112.    PPR ( <$B
  113.    F/> )/>/A
  114.    PPR > )$B
  115.    F/\/!{backslash}"/A
  116.    PPR {backslash}$B
  117.    PCS /$D/1/
  118.    PGO AL
  119.    PSR NR
  120.    PGO PR
  121. AL PLM 5
  122.    B
  123.    F#%,#%,#A
  124.    PPR .$B
  125.    F<><<
  126.    Y?
  127.    F<><!*&$"><A
  128.    PPR {cr}$B
  129. PR E
  130.    F<<>.ff<
  131.    Y?
  132.    PPR
  133.    PNP
  134.    PGO ST
  135. QT PPR
  136.    NY
  137.    PTL
  138.    PIN End of PRINT   (Press RETURN)
  139.  
  140.  
  141.  
  142.