home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
GETPRT.MOD
< prev
next >
Wrap
Text File
|
1989-04-01
|
243b
|
17 lines
;LANS 10-18-88 06:42 GETPRT.MOD
;
ATWRITE 56 5 138 '#3> '
COLOR 15
IF '$scr_type' <> 'D' U-L3
GOTOXY 54 4
GOTO D-L3
U-L3:
GOTOXY 57 4
D-L3:
GET 0 1
SCRIPT selprt.mod
ATWRITE 56 5 4 '#3> '
ATWRITE 60 5 11 '$prtcol'
RETURN
;