home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib31a.dsk
/
MAY.1987
/
ENVELOPE.txt
< prev
next >
Wrap
Text File
|
2023-02-26
|
1KB
|
73 lines
p ENVELOPE
start ny
pnd
ppr
ppr
ppr ADDRESS AN ENVELOPE
ppr -------------------
ppr Turn on your printer and
ppr insert an envelope.
ppr -------------------
ppr
enter ny
pin Enter name of addressee: =$c
laddresses
f/$c/
?
pgo search
pgo notfnd
search f/>/
?
stemp.file!<!
y
ny
lenvelope.format
ltemp.file!>!<!n
pyd
pnd
ppr
correct ppr---------------------------
pin Is this correct (y or n)? =$b
pcs/$b/y/
pgo print
pcs/$b/Y/
pgo print
pcs/$b/n/
pgo again
pcs/$b/N/
pgo again
pgo correct
print pnp
plm9
prm79
ppr
ppr
another pin Address another envelope (y or n)? =$a
pcs/$a/y/
pgo start
pcs/$a/Y/
pgo start
pcs/$a/n/
pgo quit
pcs/$a/N/
pgo quit
pgo another
p---
notfnd ny
ppr Name not found - Check spelling?
ppr Did you capitalize name?
again ppr
pin Try name again (y or n)?: =$d
pcs/$d/y/
pgo enter
pcs/$d/Y/
pgo enter
pcs/$d/n/
pgo quit
pcs/$d/N/
pgo quit
ppr
pgo notfnd
quit ny
pdo write