P  ************************
   P  *      WPL.PRINT       *
   P  *  By I. Larry Morris  *
   P  *  Copyright (C) 1987  *
   P  *  By MicroSPARC, Inc  *
   P  *  Concord, MA  01742  *
   P  ************************
   P  (Modified for ProDOS and ImageWriter Printer)
   P  (Modified for ImageWriter 'CR' character)
   PND
   PAS=$C
   PGO ST
NR PLM 8
   E
   F//:/
   Y?
   B
   PPR
   PPR Generating line numbers ...
   PSX 0
   PSY 0
   PSZ 0
LP PSX +1
   PCS /10/(X)/
   PGO IY
   PGO AP
IY PSX 0
   PSY +1
   PCS /10/(Y)/
   PGO IZ
   PGO AP
IZ PSY 0
   PSZ +1
AP F<><>(Z)(Y)(X):  <
   Y?
   PGO LP
   F<><<
   Y?
   E
   F<>???:  :<<
   Y?
   PRT
   E
   F/://
   Y?
   PRT
ST PPR 
   PPR                   ***  PRINT.FILE  ***
   PPR
FL PIN Enter file name (ESCape = Quit): =$A
   PCS /$A//
   PGO QT
   PCS /$A//
   PGO FL
DT PPR
   PCS *$C**
   PGO D2
   PGO OP
D2 PIN Enter date: =$C
   PCS *$C**
   PGO D2
   PPR
OP PIN Select option (1 = All, 2 = WPL): =$D
   PCS /$D/1/
   PGO LD
   PCS /$D/2/
   PGO LD
   PGO OP
LD NY
   L $A
   B
   F<<><
   Y?
   PPM 0
   PRM 80
   PTM 1
   PBM 0
   PPN 1
   PPL 60
   PPI 66
   PLI 0
   PSP 0
   PPD 1
   PCR 0
   PLJ
   PTL**!$A ... $C"*Page #*
   PBL
   PAS replaced =$B
   PPR 
   PPR Substituting characters ...
   PPR
   F//!{esc}"/A
   PPR {esc}$B
   F/
/![A]"/A
   PPR ctrl-A$B
   F//![G]"/A
   PPR ctrl-G$B
   F//![K]"/A
   PPR ctrl-K$B
   F//![L]"/A
   PPR ctrl-L$B
   F//![N]"/A
   PPR ctrl-N$B
   F//![O]"/A
   PPR ctrl-O$B
   F//![Q]"/A
   PPR ctrl-Q$B
   F//![R]"/A 
   PPR ctrl-R$B
   F//![T]"/A
   PPR ctrl-T$BF/( </</A
   PPR ( <$B
   F/> )/>/A
   PPR > )$B
   F/\/!{backslash}"/A
   PPR {backslash}$B
   PCS /$D/1/
   PGO AL
   PSR NR
   PGO PR
AL PLM 5
   B
   F#%,#%,#A
   PPR .$B
   F<><<
   Y?
   F<><!*&$"><A
   PPR {cr}$B
PR E
   F<<>.ff<
   Y?
   PPR
   PNP
   PGO ST
QT PPR
   NY
   PTL
   PIN End of PRINT   (Press RETURN)