home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
qmscr41.zip
/
GETBBS.MOD
< prev
next >
Wrap
Text File
|
1989-04-01
|
563b
|
34 lines
;LANS 10-18-88 06:37 GETBBS.MOD
;
ATWRITE 12 3 13 'P'
ATWRITE 24 3 13 'E'
ATWRITE 35 3 13 'G'
ATWRITE 45 3 13 'F'
ATWRITE 53 3 13 'R'
IF '$0' = 'P' PCB_sel
IF '$0' = 'E' EPC_sel
IF '$0' = 'G' GPB_sel
IF '$0' = 'F' FID_sel
IF '$0' = 'R' RBB_sel
PCB_sel:
ASSIGN BBSlog 'PCB'
ATWRITE 12 3 14 'P'
RETURN
EPC_sel:
ASSIGN BBSlog 'EPC'
ATWRITE 24 3 14 'E'
RETURN
GPB_sel:
ASSIGN BBSlog 'GPB'
ATWRITE 35 3 14 'G'
RETURN
FID_sel:
ASSIGN BBSlog 'FID'
ATWRITE 45 3 14 'F'
RETURN
RBB_sel:
ASSIGN BBSlog 'RBB'
ATWRITE 53 3 14 'R'
RETURN
;