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