; Program:  PAMS
; Original: Author Joe Wright (Original called AREA10)
; Date:     20 June 1987
; Altered to suit Australian PAMS list by Mike Greenhill
; Date: Sometime around the end of March 1988


VERS	EQU	10		; RE-released under the name of PAMS
REVS    EQU	03		; Current PAMS list revision 
DECA	EQU     08		; This Decade
YEAR    EQU     08		; This Year


; Inspired by AREA10 by Joe Wright

; Which in turn was :

; Inspired by AREACODE by Kelly Smith circa 1981...

; ==========
;    NOTE
; ==========   

;      ALL CREDIT FOR THE CODE MUST GO TO THE ORIGINAL AUTHORS

;      ALL I HAVE DONE IS RECONFIGURE THE DATA BASE EQUATES FOR

;      THE AUSTRALIAN PAMS LIST. ANY OTHER CHANGES TO THE MAIN 

;      CODE HAS BEEN MARKED THUS: <##>


; Any text below in double quotes (ie ""   "")  is taken directly from
; the source of AREA16.


; Like AREA and indeed AREACODE,PAMS searches a simple data base for telephone
; area codes. It will also search for actual phone numbers, BBS names ,modem 
; speeds and any other misc. information that is in the data base.
; ""You may use any part of an area code or name for the search.All matches
; will be reported."" Unfortunatley at this stage area code sequences that also
; appear as parts of actual telephone numbers will cause the record of an "out
; of area BBS" to be shown. Also when extracting records of BBS's with a two
; digit area code eg Brisbane 07. All area codes with a preceding 07 will be
; included .Such as 075,079,070  etc. To overcome this the area code may be 
; entered as 07<SPACE> followed by RETURN/ENTER.Due to the layout and the 
; amount of information I have endevoured to display on the screen it is      
; possible to view only 3 records at a time. You will be prompted with
; [MORE] whilst there are un-viewed records to search.This of course may
; be changed to suit your individual requirements by editing the data equates
; and re-assembling.The more records to be displared at once the LESS each must
; contain.
;	I shall endevour to keep this up to date and will change the suffix
; to indicate the current version/date.

; This source has been re-rleased in this form with the permission of the
; author of AREA. If you change any of the main body of code please 
; re-submit to him.You may do this via me by leaving a message and the
; new code on EXCALIBUR BBS (057) 83-1964 or type "MIKE" from within the 
; program to find my current address/number.


;				Mike Greenhill

; The form I have used for the records is given at the end of the data.



;""The form of the record is fairly free except that a three digit
; area code is expected as the first three characters of the record.""

;""Each record is terminated with a single null (db 0).

; The end of all records is terminated with a second null.""




LINES	EQU	03		;## Number of records before [More]
				;##  Set to suit Australian PAMS list.
; General System Equates

BDOS	EQU	5		; BDOS entry point
CONO	EQU	2		; Console output function
RCON	EQU	10		; Read console function

CR	EQU	13		; Carriage return
LF	EQU	10		; Line feed

BASE	EQU	0
TBUF	EQU	BASE+80H	; Default buffer
TPA	EQU	BASE+100H

	ORG	TPA

	JMP	START
SIGN:	DB	CR,LF,CR,LF,CR,LF					  ;##
	DB	'PAMS Ver ',VERS/10+'0','.',VERS MOD 10+'0'               ;##
	DB	CR,LF,'Revision Date 0',REVS+'0',' 19',YEAR+'0',DECA+'0'  ;##
	DB	CR,LF,'Original code by Joe Wright'                       ;##
	DB      CR,LF,'AUSTRALIAN Version by Mike Greenhill'              ;##
	DB	CR,LF,'Re-released with kind permission',CR,LF,0          ;##

START:	LXI	H,SIGN		; Point to signon message
	CALL	PSTR		; Print string at (HL)
	CALL	CRLF		; New line
	LDA	TBUF+2		; First character of command string
	CPI	'?'		; Check for help		   ;was '/'##
	JZ	HELP 		; Report help and return to CCP   
	CALL	TERM		; Terminate the input line (null)
	JNZ	SEARCH		; Search for user's string, return to CCP
STRT:	CALL	HELP		; Report help
STRT1:	XRA	A
	STA	FOUND		; Show nothing found
	MVI	A,LINES
	STA	LINE		; Restore line count to LINES
	CALL	PRINT		; Ask for target
	DB	CR,LF,LF, ' Enter Area, BBS name or modem speed : ',0  ;##
	CALL	RDCON		; Wait for it
	RZ			; No selection, quit
	CALL	CRLF		; Turn up a new line
	LXI	H,TBUF+1	; Point to user's string
	CALL	CAPSTR		; Capitalize it
	CALL	SEARCH		; This time, don't return to CCP but..
	JMP	STRT1		; Start over

; Advance HL to first non-space

SKSP:	MOV	A,M		; Get a character
	CPI	0		; Is it a null?
	RZ			; First non-space is a null
	SUI	' '		; Is it a space?
	RNZ			; Return if not
	INX	H		; Next
	JMP	SKSP		; Try again

SEARCH:	LXI	H,TBUF+1	; Point to user's string
	CALL	SKSP		; Skip leading spaces
	JZ	STRT		; First non-space was a null
	XCHG			; Target to DE
	LXI	H,AREAS+1	; Point to database
SRCH0:	PUSH	D		; Save pointer to target
	JMP	SRCH2		; Get the search underway

SRCH1:	POP	D		; Get target address
	PUSH	D		; And save it again

SRCH2:	LDAX	D		; Get next byte from target
	ORA	A		; Check for null
	JZ	GOTONE		; End of this compare
	MOV	A,M		; Get one from database
	ORA	A		; Is it a null?
	JNZ	SRCH3		; Nope..
	INX	H		; Point to the next one
	MOV	A,M		; Get it
	ORA	A		; Is it a null as well?
	JZ	ENDLST		; Finished if so, continue if not.

SRCH3:	CALL	CAPS		; Capitalize character from database
	XCHG			; Point HL at target
	CMP	M		; Same as target byte?
	XCHG
	INX	H		; Point to next byte in database
	JNZ	SRCH1		; Not the same, start over
	INX	D		; Point to next target byte
	JMP	SRCH2		; Try next character

ENDLST:	POP	H		; Point to target
	LDA	FOUND		; Get found flag
	ORA	A		; Any found?
	RNZ			; Yes, normal end
	CALL	PRINT
	DB	' Reference ',0
	CALL	PSTR		; Print the target string
	CALL	PRINT
	DB	' Not Found.',0
	RET

GOTONE:	LDA	FOUND
	ORA	A
	CNZ	CRLF
	ORI	255
	STA	FOUND		; Leave message for endlst
	CALL	PRINT
	DB	CR,LF,LF,' STD AREA :  ',0                                ;##
	CALL	LAST		; Point HL to beginning of record

	MVI	B,3		; Three digits for area code
P3:	MOV	A,M		; Get a digit
	INX	H		; Point to next
	CALL	COUT		; Ship it
	DCR	B		; Count down
	JNZ	P3		; Again

	CALL	PRINT
	DB	'   ',0		;   "-" Deleted by Mike
	CALL	PSTR		; Print the rest of the database record

	PUSH	H		; Save pointer to next record
	LXI	H,LINE		; Point to line count
	DCR	M		; Count down
	JNZ	GOT1		; Not at limit
	MVI	M,LINES		; Limit was reached, LINES to LINE
	CALL	SAK		; Wait for, and echo, user's response
GOT1:	POP	H		; Get the pointer back
	JMP	SRCH1		; Try again
	

HELP:	CALL	PRINT
	DB	CR,LF,CR,LF
	DB	' BBS,Phone Dialing Area Database.',CR,LF
	DB	'  Search for Area Code, Phone No.,BBS Name,Modem Speed.'
	DB	CR,LF
	DB	'  Usage:  PAMS EXCALIBUR, PAMS 002, PAMS V22bis etc.',0
	RET
;###################################################################
;EXTRA:  CALL	PRINT
;	DB	CR,LF,CR,LF,CR,LF
;	DB	'PAMS'                         To be added in next release
;	DB	CR,LF,'EXTRA Help Screen'
;	DB	CR,LF,'-----------------',0	
;	RET



; We have printed LINES lines, report and wait for any keypress

SAK:	CALL	PRINT
	DB	CR,LF,' [More] ',0
	MVI	C,1
	JMP	BDOS		; Go to bdos, return to caller

; Capitalize the string at HL until a null is encountered

CAPSTR:	MOV	A,M		; Get a character
	ORA	A		; Check for null
	RZ			; Finished if so
	CALL	CAPS		; Capitalize it
	MOV	M,A		; Put it back
	INX	H		; Point to the next one
	JMP	CAPSTR		; Again

; Capitalize the character in A if necessary.

CAPS:	CPI	'a'
	RC			; Not lower case, ret
	CPI	'z'+1
	RNC			; Also not lower case, ret
	ANI	5FH		; Force upper case
	RET

RDCON:	LXI	D,TBUF-1	; Max length position
	MVI	A,40		; Any city or state longer ?
	STAX	D		; Store it
	MVI	C,RCON		; Read console function
	CALL	BDOS		; Do it, wait for user input

TERM:	LXI	H,TBUF		; Point to default buffer count
	MOV	E,M		; Count in E
	MVI	D,0
	INX	H		; Point to first character
	PUSH	H		; Save the pointer
	DAD	D		; Point past last character
	MVI	M,0		; Terminate it with a null
	POP	H		; Restore pointer to first character
	MOV	A,M		; Get the first character
	ORA	A		; Return Z if no characters
	RET

; Back up to the first character of the record (area code)

LAST:	DCX	H		; Back up
	MOV	A,M		; Get one
	ORA	A		; Null?
	JNZ	LAST		; Again if not
	INX	H		; Point to first character
	RET

PRINT:	XTHL			; Save HL on top of stack and point to string
	CALL	PSTR		; Print the string
	XTHL			; Restore HL, top of stack is next instruction
	RET

PSTR:	MOV	A,M		; Get a character
	INX	H		; Point to next
	ORA	A		; Is it a null?
	RZ			; Quit if so, else..
	CALL	COUT		; Ship it to the terminal
	JMP	PSTR		; Again

CRLF:	MVI	A,CR		; Carriage return code
	CALL	COUT		; Ship it
        MVI     A,LF            ; ## Extra Line Feed added by Mike
	MVI	A,LF		; Line feed code, fall through to cout

COUT:	PUSH	H
	PUSH	D
	PUSH	B
	PUSH	PSW		; Save all the registers
	MOV	E,A		; Character to E
	MVI	C,CONO		; Console output function
	CALL	BDOS		; Do it
	POP	PSW
	POP	B
	POP	D
	POP	H		; Restore all the registers
	RET

FOUND:	DB	0		; At least one match was found if NZ
LINE:	DB	LINES		; Lines per screen

;""The following database records are free form except that the three-digit
; area code is expected as the first three characters.	They may be of
; any length and may include CR and LF characters where appropriate.""

;"" Please note again that all records are terminated with a null and
; that the end of the records is terminated with a second null.""



AREAS:	DB	0		; Permits finding beginning of first record

;			=============================
;         		+    FROM PAMS LIST 0388    +
;			=============================

;                     *******-- NEW SOUTH WALES --*******


        DB      '02 '
        DB      CR,LF,'2000 and Beyond TBBS  '
        DB      CR,LF,'522-6514  '
        DB      CR,LF,'V21 V22 V23 B103 B212  ',0
 
        DB      '047'
        DB      CR,LF,'ABCOM  '
        DB      CR,LF,'36-4165  '
        DB      CR,LF,'V21 V22 V22bis V23  ',0
 
        DB      '02 '
        DB      CR,LF,'ACE (NSW) BBS  '
        DB      CR,LF,'529-2059  '
        DB      CR,LF,'V21  ',0
 
        DB      '02 '
        DB      CR,LF,'Alpha Juno BBS  '
        DB      CR,LF,'774-1543  '
        DB      CR,LF,'V22 V22bis  ',0
 
        DB      '02 '
        DB      CR,LF,'Amiga Zone BBS  '
        DB      CR,LF,'771-6351  '
        DB      CR,LF,'V21 V22 V23 B103 B212  '
        DB      CR,LF,'2100- 0700 Daily  ',0
 
        DB      '02 '
        DB      CR,LF,'Amstrad ABBS  '
        DB      CR,LF,'981-2966  '
        DB      CR,LF,'V21 V22 V22bis V23  ',0
             
        DB      '02 '
        DB      CR,LF,'Apple Users Group BBS  '
        DB      CR,LF,'498-7084  '
        DB      CR,LF,'V21  ',0

        DB      '02 '
        DB      CR,LF,'Aquarius  '
        DB      CR,LF,'686-2798  '
        DB      CR,LF,'V21 V22 V22bis V23 B103 B212  ',0

        DB      '02 '
        DB      CR,LF,'Arco-Tel BBS  '
        DB      CR,LF,'683-3956  '
        DB      CR,LF,'V21 V22 V22bis V23  ',0

        DB      '02 '
        DB      CR,LF,'Arknet  '
        DB      CR,LF,'868-4836  '
        DB      CR,LF,'V22 V22bis B103  '
        DB      CR,LF,'0000 - 1600  ',0

        DB      '02 '
        DB      CR,LF,'Arrow KBBS  '
        DB      CR,LF,'451-2660  '
        DB      CR,LF,'V21 V22 V23  ',0
 
        DB      '02 '
        DB      CR,LF,'AUGUR TBBS  '
        DB      CR,LF,'311-3052  '
        DB      CR,LF,'V21 V22 V22bis V23  ',0

        DB      '02 '
        DB      CR,LF,'Australian Pick User"s BBS  '
        DB      CR,LF,'631-8603  '
        DB      CR,LF,'V21 V22 V22bis V23  ',0

        DB      '047'
        DB      CR,LF,'Beauford BBS  '
        DB      CR,LF,'58-6542  '
        DB      CR,LF,'V21 V22  ',0
 

        DB      '02'
        DB      CR,LF,'Blackboard BBS  '
        DB      CR,LF,'526-1343'
        DB      CR,LF,'V21  ',0
 
        DB      '02 '
        DB      CR,LF,'Bramblebush  '
        DB      CR,LF,'829-1809  '
        DB      CR,LF,'V21 V22  '
        DB      CR,LF,'Mon - Sat: 24 Hours  ',0
 
        DB      '02 '
        DB      CR,LF,'Cesspit  '
        DB      CR,LF,'543-7204  '
        DB      CR,LF,'V21 V22 V23 B103  ',0

        DB      '02 '
        DB      CR,LF,'Club Amiga BBS  '
        DB      CR,LF,'521-6338  '
        DB      CR,LF,'V21 V22 B103 B212  ',0
 
        DB      '02 '
        DB      CR,LF,'Club Mac Remote Maccess System  '
        DB      CR,LF,'73-1992  '
        DB      CR,LF,'V21 V22 V22bis V23  ',0

        DB      '02 '
        DB      CR,LF,'Club-80 RTRS  '
        DB      CR,LF,'332-2494  '
        DB      CR,LF,'V21 V22 V22bis V23 B103 B212  ',0

        DB      '02 '
        DB      CR,LF,'Co-Co Connection  '
        DB      CR,LF,'618-3591  '
        DB      CR,LF,'V21 V22 V22bis  ',0

        DB      '043'
        DB      CR,LF,'Coastal Opus BBS  '
        DB      CR,LF,'23-2275  '
        DB      CR,LF,'V21 V22 V22bis V23  ',0

        DB      '02 '
        DB      CR,LF,'CoCo Arena  '
        DB      CR,LF,'646-5573  ',0

        DB      '02 '
        DB      CR,LF,'Comet C-64 BBS  '
        DB      CR,LF,'599-7342  ',0

        DB     '043'
        DB     CR,LF,'CommLink BBS  '
        DB     CR,LF,'41-3135  '
        DB     CR,LF,'V21 V22  ',0

        DB      '02 '
        DB      CR,LF,'Commodore C-64 BBS  '
        DB      CR,LF, '664-2334  '
        DB      CR,LF,'V21 V22 V23  ',0

        DB      '02 '
        DB      CR,LF,'Commodore Pursuit KBBS  '
        DB      CR,LF,'522-9507  '
        DB      CR,LF,'V21 V22 V23  ',0

        DB      '02 '
        DB      CR,LF,'Contact BBS  '
        DB      CR,LF,'798-6368  '
        DB      CR,LF,'V21 V22 V23 B103 B212  ',0

        DB      '02 '
        DB      CR,LF,'CSACE BBS  '
        DB      CR,LF,'529-8249  '
        DB      CR,LF,'V21  ',0

        DB     '02 '
        DB     CR,LF,'Cursor Contact KBBS  '
        DB     CR,LF,'637-8131  '
        DB     CR,LF,'V21  ',0

        DB      '02 '
        DB      CR,LF,'Cybersoft Opus  '
        DB      CR,LF,'212-2261  '
        DB      CR,LF,'V22 V22bis V23  ',0

        DB      '02 '
        DB      CR,LF,'Delta Net  '
        DB      CR,LF,'457-8281  '
        DB      CR,LF,'V21 V22 V23  ',0

        DB      '02 '
        DB      CR,LF,'Dick Smiths RIBM  '
        DB      CR,LF,'887-2276  ',0

        DB      '02 '
        DB      CR,LF,'Dingo"s Den BBS  '
        DB      CR,LF,'888-2203  '
        DB      CR,LF,'V21 V22 V22bis V23  ',0

        DB      '02 '
        DB      CR,LF,'Down Under KBBS  '
        DB      CR,LF,'674-6647  '
        DB      CR,LF,'V21  ',0

        DB      '02 '
        DB      CR,LF,'Dream Time FRP  '
        DB      CR,LF,'93-5225  '
        DB      CR,LF,'2100 - 0700 Daily  ',0

        DB      '02 '
        DB      CR,LF,'Eagle"s Nest C-64 BBS  '
        DB      CR,LF,'451-0535  '
        DB      CR,LF,'V21  ',0

        DB      '02 '
        DB      CR,LF,'EasyComm Opus  '
        DB      CR,LF,'558-9620  '
        DB      CR,LF,'V21 V22 V22bis  ',0


        DB      '02 '
        DB      CR,LF,'Fido Australia  '
        DB      CR,LF,'959-3712  '
        DB      CR,LF,'V21 V22 V22bis  ',0

        DB      '02 '
        DB      CR,LF,'First Nice MIDILine  '
        DB      CR,LF,'868-4347  '
        DB      CR,LF,'V22 V22bis B103 PEP  ',0

        DB      '047'
        DB      CR,LF,'Freeze World  '
        DB      CR,LF,'33-3094  '
        DB      CR,LF,'V21  '
        DB      CR,LF,'2130 - 0730  ',0

        DB      '02 '
        DB      CR,LF,'Galactic Federation  '
        DB      CR,LF,'233-5040  '
        DB      CR,LF,'V22 V22bis  ',0

        DB      '02 '
        DB      CR,LF,'Galaxy RAPL  '
        DB      CR,LF,'875-3943  '
        DB      CR,LF,'V21  ',0

        DB      '02 '
        DB      CR,LF,'GCS  '
        DB      CR,LF,'570-9861  '
        DB      CR,LF,'V21 V22  ',0

        DB      '060'
        DB      CR,LF,'HighTech  '
        DB      CR,LF,'25-1813  '
        DB      CR,LF,'V21 V22 V22bis V23 B103 B212  ',0

        DB      '042'
        DB      CR,LF,'Illawarra C-64 BBS  '
        DB      CR,LF,'61-8230  ',0

        DB      '02 '
        DB      CR,LF,'Info-Centre BBS  '
        DB      CR,LF,'344-9511  ',0

        DB      '02 '
        DB      CR,LF,'Landover BBS  '
        DB      CR,LF,'319-1793  '
        DB      CR,LF,'V21 V22 V22bis V23 B103 B212  ',0

        DB      '02 '
        DB      CR,LF,'Lodestone BBS  '
        DB      CR,LF,'456-3264  '
        DB      CR,LF,'V22 V22bis B103  ',0
 
        DB      '02 '
        DB      CR,LF,'Manly BBS '
        DB      CR,LF,'977-6820  '
        DB      CR,LF,'V21 V22 V23  ',0

        DB      '049'
        DB      CR,LF,'Matrix (Maitland) BBS  '
        DB      CR,LF,'38-5057  '
        DB      CR,LF,'V21 V22  ',0

        DB      '049'
        DB      CR,LF,'Matrix (Newcastle) BBS  '
        DB      CR,LF,'29-5279  '
        DB      CR,LF,'V21 V22  ',0

        DB      '02 '
        DB      CR,LF,'Micro Design Lab  '
        DB      CR,LF,'663-0151  ',0

        DB      '02 '
        DB      CR,LF,'Micro Mart C Users  '
        DB      CR,LF,'560-3607  '
        DB      CR,LF,'V21 V22 V22bis V23  ',0

  	DB      '02 '
	DB	CR,LF,'Midnight Quest  '
	DB	CR,LF,'519-3579  '
	DB      CR,LF,'V21 V22 V23   '
	DB	CR,LF,'Weekdays: 1700 - 0900  '
	DB	'Weekends: 24 Hours  ',0

	DB	'02 '
	DB	CR,LF,'Milliway"s  '
	DB	CR,LF,'357-7027  '
        DB	CR,LF,'V21 V22  '
	DB	CR,LF,'2130 - 0730 Daily  ',0
 
	DB	'02 '
	DB	CR,LF,'Mirage Arcane  '
	DB	CR,LF,'665-5970  '
        DB      CR,LF,'V22 V22bis B103  '
	DB	CR,LF,'Daily: 2200 - 0700  ',0

	DB	'02 '
	DB	CR,LF,'Moebius Trip  '
	DB	CR,LF,'439-7072  ',0

	DB	'063'
	DB	CR,LF,'Mudgee Connection  '
	DB	CR,LF,'72-1898  '
	DB	CR,LF,'V21 V22 V22bis V23  '
	DB	CR,LF,'2100 - 0700  ',0
 
	DB	'02 '
	DB	CR,LF,'Nebula RAPL  '
	DB	CR,LF,'407-2729  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 '
	DB	CR,LF,'NetComm Australia  '
	DB	CR,LF,'887-3297  '
	DB	CR,LF,'V22 V22bis PEP  '
	DB	CR,LF,'Weekdays: 1900 - 0900  '
	DB	'Weekends: 24 Hours  ',0

	DB	'046'
	DB	CR,LF,'New Frontiers CBCS  '
	DB	CR,LF,'25-6954  '
	DB	CR,LF,'V21 V22 V23 B103 B212  ',0

	DB	'049'
	DB	CR,LF,'Newcastle Amiga BBS  '
	DB	CR,LF,'58-7350  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'049'
	DB	CR,LF,'Newcastle Micro Club RCPM  '
	DB	CR,LF,'68-5289  '
	DB	CR,LF,'V21 V22 V22bis V23  '
	DB	CR,LF,'Weekdays: 1700 - 0830  '
	DB	'Weekends: 24 Hours  ',0

	DB	'02 '
	DB	CR,LF,'Night Shift BBS  '
	DB	CR,LF,'635-8175  '
	DB	CR,LF,'V21 V22 V23 B103 B212  '
	DB	CR,LF,'2030 - 0500 Daily  ',0

	DB	'02 '
	DB	CR,LF,'Nightmare BBS  '
	DB	CR,LF,'545-???2  '
	DB      CR,LF,'V21 V22 V22bis  ',0

	DB	'060'
	DB	CR,LF,'Palantir C-64 BBS  '
	DB	CR,LF,'40-1284  '
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212  '

	DB	'02 '
	DB	CR,LF,'Paragon Bulletin Board  '
	DB	CR,LF,'597-7477  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 '
	DB	CR,LF,'Phantomland  '
	DB	CR,LF,'399-7716  '
	DB	CR,LF,'V21 V22 V23  ',0

	DB 	'02 '
	DB	CR,LF,'Playground BeeBS  '
	DB	CR,LF,'53-9688  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 '
	DB	CR,LF,'Poet"s Dilemma  '
	DB	CR,LF,'804-6412  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 '
	DB	CR,LF,'Program Paradise  '
	DB	CR,LF,'969-5861  '
	DB	CR,LF,'V21 V22 V22bis V23  '
	DB	CR,LF,'1900 - 0700 Daily  ',0

	DB	'02 ' 
	DB	'Prophet TBBS  '
	DB	CR,LF,'628-5222  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 '
	DB	CR,LF,'Raucous BBS  '
	DB	CR,LF,'261-5329  '
	DB	CR,LF,'V21 V22 V23  '
	DB	CR,LF,'Daily: 0900 - 1800  ',0

	DB	'02 '
	DB	CR,LF,'RCOM C-64 BBS  '
	DB	CR,LF,'667-1930  '
	DB	CR,LF,'V21 V22 V23 V23ORG B103 B212  ',0

	DB	'02 '
	DB	CR,LF,'RUNX  '
	DB	CR,LF,'487-2533  '
	DB	CR,LF,'V21  ',0

	DB	'02 '
	DB	CR,LF,'SBA BBS  '
	DB	CR,LF,'411-1850  '
	DB	CR,LF,'V22 V22bis  ',0

	DB	'02 '
	DB	CR,LF,'Sci-Fi BBS  '
	DB	CR,LF,'646-4865  '
	DB	CR,LF,'V21 V22 V23  ',0

	DB	'02 '
	DB	CR,LF,'Scorpio BBS  '
	DB	CR,LF,'621-7487  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 '
	DB	CR,LF,'Sentry  '
	DB	CR,LF,'428-4687  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'O2 '
	DB	CR,LF,'Shore BBS  '
	DB	CR,LF,'959-3936  '
	DB	CR,LF,'V21  '
	DB	CR,LF,'Weekdays: 1800 - 0730  '
	DB	'Weekends: 24 Hours  ',0

	DB	'02 '
	DB	CR,LF,'SMUG Bee RCP/M  '
	DB	CR,LF,'520-5181  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 '
	DB	CR,LF,'Software Connection  '
	DB	CR,LF,'451-2954  '
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212  ',0

	DB	'02 '
	DB	CR,LF,'Software Tools  '
	DB	CR,LF,'449-2618  '
	DB	CR,LF,'V22bis PEP  ',0

	DB	'02 '
	DB	CR,LF,'Sorcerer Users Group  '
	DB	CR,LF,'626-8020  '
	DB	CR,LF,'V22 V22bis B103  ',0

	DB	'065'
	DB	CR,LF,'Sorcim microS  '
	DB	CR,LF,'59-8854  '
	DB	CR,LF,'V22 V22bis PEP  '
	DB	CR,LF,'2100 - 0800 Daily  ',0

	DB	'042'
	DB	CR,LF,'Steel City  '
	DB	CR,LF,'83-7247  '
	DB	CR,LF,'V21 V22 V22bis V23  '
	DB	CR,LF,'1830 - 2330 Daily  ',0

	DB	'02 '
	DB	CR,LF,'Sydney PC Users RIBM  '
	DB	CR,LF,'221-5520  '
	DB	CR,LF,'V21 V22 V23  ',0

	DB	'02 '
	DB	CR,LF,'Tachyonics  '
	DB	CR,LF,'438-2682  '
	DB	CR,LF,'V21 V22  ',0

	DB	'02 '
	DB	CR,LF,'The Black Hole  '
	DB	CR,LF,'81-4253  '
	DB	CR,LF,'V21 V22 V23 B103 B212  ',0

	DB	'02 '
	DB	CR,LF,'The Galactic Federation  '
	DB	CR,LF,'233-5040  '
	DB	CR,LF,'V21 V22 V22bis V23  '
	DB 	CR,LF,'Weekdays: 1700 - 0900  '
	DB	'Weekends: 24 Hours  ',0

	DB	'047'
	DB	CR,LF,'The Guild FRP BBS  '
	DB	CR,LF,'21-8625  '
	DB	CR,LF,'V21  '
	DB	CR,LF,'2100 - 0800 Daily  ',0

	DB	'02 '
	DB	CR,LF,'The Kiwi Konektion  '
	DB	CR,LF,'439-6178  '
	DB	CR,LF,'V21 V22 V22bis V23  '
	DB	CR,LF,'Mon - Thur 1800 - 0800  '
	DB	CR,LF,'Fri - 1700 - Mon 0800  ',0

	DB	'049'
	DB	CR,LF,'The Library  '
	DB	CR,LF,'62-2931  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 '
	DB	CR,LF,'The Lost Tavern  '
	DB	CR,LF,'938-6836  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 ' 
	DB	CR,LF,'TNT Shuttle  '
	DB	CR,LF,'319-3112  '
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212  ',0

	DB	'02 '
	DB	CR,LF,'Trantor  '
 	DB	CR,LF,'43-6899  '
	DB	CR,LF,'V21 V22 V22bis B103 B212  ',0

	DB	'063' 
 	DB	CR,LF,'Triops BBS  '
	DB	CR,LF,'62-9715  ' 
	DB	CR,LF,'V21  '
	DB	CR,LF,'Daily: 2100 to 0900  ',0

	DB	'02 '
	DB	CR,LF,'Ventura Publisher BBS  '
	DB	CR,LF,'449-0463  ',0

	DB	'02 '
	DB	CR,LF,'VIP BBS  '
	DB	CR,LF,'319-3207  ',0

	DB	'02 '
	DB	CR,LF,'Yet Another Bulletin Board  '
	DB	CR,LF,'804-6837  '
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212  ',0

	DB	'02 '
	DB	CR,LF,'Your Computer  '
	DB	CR,LF,'669-1385  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'02 '
	DB	CR,LF,'Zeta RTRS  '
	DB	CR,LF,'627-4177  '
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212  ',0


  

;             *******  AUSTRALIAN CAPITAL TERRITORY  ********


	DB	'062' 
	DB	CR,LF,'ACT Amiga BBS  '
	DB	CR,LF,'58-9967  '
	DB	CR,LF,'V21 V22 V22bis B103 B212  ',0

	DB	'062' 
	DB	CR,LF,'AMIGA Opus  '
	DB	CR,LF,'58-9967  '
	DB	CR,LF,'V22 V22bis B103  ',0

	DB	'062' 
	DB	CR,LF,'Commodore Users Group BBS  '
	DB	'81-0847  ',0
 
	DB	'062'
	DB	CR,LF,'PC Exchange RIBM  '
	DB	CR,LF,'58-1406  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'062' 
	DB	CR,LF,'PCUG Bulletin Board  '
	DB	CR,LF,'59-1244  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'062' 
	DB	CR,LF,'Pharmacy BBS  '
	DB	CR,LF,'92-3875  '
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212  ',0
 

  
;			*****  VICTORIA  *****


	DB	'03 '
	DB	CR,LF,'ABE  '
	DB	CR,LF,'288-3599  '
	DB	CR,LF,'V21 V22  ',0

	DB	'03 ' 
	DB	CR,LF,'ACES High  '
	DB	CR,LF,'878-2918  '
 	DB	CR,LF,'V22 B103  ',0
 
	DB	'03 '
	DB	CR,LF,'Alpha Centauri BBS  '
	DB	CR,LF,'874-3559  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'03 '
	DB	CR,LF,'AM-NET RTDOS  '
	DB	CR,LF,'366-7055  '
	DB	CR,LF,'V21 V23  '
	DB	CR,LF,'PACKET RADIO  ',0

	DB	'03 ' 
	DB	CR,LF,'AmigaLink  '
	DB	CR,LF,'792-3918  '
	DB	CR,LF,'V21 V22 V23  ',0

	DB	'03 ' 
	DB	CR,LF,'Angler"s Den  '
	DB	CR,LF,'876-4118  '
 	DB	CR,LF,'V21 V22 V23  '
	DB	CR,LF,'Weekdays: 0900 - 2300  '
	DB	'Weekends: 24 Hours  ',0

	DB	'03 '
	DB	CR,LF,'Anzugs OPUS  '
	DB	CR,LF,'887-0678  '
	DB	CR,LF,'V22 V22bis B103 B212  ',0

	DB	'03 '
	DB	CR,LF,'Apple Hackers BBS  '
	DB	CR,LF,'762-1582  ',0

	DB	'03 '
	DB	CR,LF,'Atlantis RBBS-PC  '
	DB	CR,LF,'277-6824  ',0

	DB	'03 '
	DB	CR,LF,'AUSOM System #1  '
	DB	CR,LF,'877-1990  ',0

	DB 	'053'
	DB	CR,LF,'Ballarat C.A.E.  '
	DB	CR,LF,'339-285  '
	DB	CR,LF,'V21 V22 V23  ',0

	DB	'052' 
	DB	CR,LF,'Bayside  '
	DB	CR,LF,'53-1110  '
	DB	CR,LF,'V21 V22 V23  ',0

	DB	'03 ' 
	DB	CR,LF,'Big Tedd"s Fido BBS  '
	DB	CR,LF,'509-6067  '
	DB	CR,LF,'V21  '
	DB	CR,LF,'2100 - 1800 Daily  ',0

	DB	'03 '
	DB	CR,LF,'Brainstorm BBS  '
	DB	CR,LF,'758-7086  '
	DB	CR,LF,'V22  ',0

	DB 	'03 ' 
	DB	CR,LF,'C-64 BBS  '
	DB	CR,LF,'489-4555  ',0

	DB      '03 '
	DB	CR,LF,'Cave 76  '
	DB	CR,LF,'882-9197  '
	DB	CR,LF,'V21  '
	DB	CR,LF,'Daily: 2200 - 0800  ',0
	
 	DB	'03 '
	DB	CR,LF,'Compusoft BBS  '
	DB	CR,LF,'386-6019  '
	DB	CR,LF,'V22  ',0

	DB	'03 '
	DB	CR,LF,'Crystal Palace  '
	DB	CR,LF,'725-1923  ',0

	DB	'03 '
	DB	CR,LF,'Cystal Symphony Opus  '
	DB	CR,LF,'874-4176  '
	DB	CR,LF,'Daily: 2200 - 0700  ',0

	DB	'03 ' 
	DB	CR,LF,'Custom Programming OPUS  '
	DB	CR,LF,'848-3331  '
	DB	CR,LF,'V21 V22 V23 B103 B212  ',0
 
	DB	'03 '
	DB	CR,LF,'DECUS  '
	DB	CR,LF,'62-5806  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'03 ' 
	DB	CR,LF,'Down Under Software Amiga/IBM  '
	DB	CR,LF,'429-8079  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'03 '
	DB	CR,LF,'East Suburb Eighty User Group  '
	DB	CR,LF,'819-3115  '
	DB	CR,LF,'V21 V22 V23 V23ORG  ',0
 
	DB	'03 '
	DB	CR,LF,'Eastcomm Opus BBS  '
	DB	CR,LF,'288-0775  '
	DB	CR,LF,'V21 V22 V23 V23ORG  ',0

	DB	'03 ' 
	DB	CR,LF,'Eastwood R/ZSYS & PBBS  '
	DB	CR,LF,'870-4623  '
	DB	CR,LF,'V22 V23  ',0

	DB	'03 ' 
	DB	CR,LF,'Electronic Cross-Over BBS  '
	DB	CR,LF,'367-5816  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'03 ' 
 	DB	CR,LF,'Engbase CBCS  '
 	DB	CR,LF,'29-6336  '
 	DB	CR,LF,'V21 V22  ',0

	DB	'03 ' 
 	DB	CR,LF,'Entropy BBS  '
 	DB	CR,LF,'583-9747  '
 	DB	CR,LF,'V21 V22 V23  ',0

	DB	'057' 
 	DB	CR,LF,'EXCALIBUR-64 RCP/M  '
	DB	CR,LF,'83-1964  '
	DB	CR,LF,'V21 V22 V23 V23ORG  '
	DB	CR,LF,'Weekdays: 08-12 16-23  '
	DB	'Weekends: 24 Hours  ',0

	DB	'051' 
 	DB	CR,LF,'Gippsland Mail-Bus  '
 	DB	CR,LF,'27-7245  ',0

	DB	'03 ' 
 	DB	CR,LF,'MACE-ATARI BBS  '
	DB	CR,LF,'899-6203  '
	DB	CR,LF,'V21 V22 V23  ',0
 
	DB	'03 '
	DB	CR,LF,'Maxitel BBS  '
	DB	CR,LF,'882-6188  '
	DB	CR,LF,'V21  ',0

	DB	'03 ' 
	DB	CR,LF,'MBUG Australia Inc  '
	DB	CR,LF,'882-1571  '
	DB	CR,LF,'V21 V23  ',0

	DB	'03 ' 
 	DB	CR,LF,'Melbourne Atari BBS  '
 	DB	CR,LF,'391-5927  '
	DB	CR,LF,'****  Weekends ONLY  **** ',0
 
	DB	'03 '
	DB	CR,LF,'Melbourne Data Exchange  '
	DB	CR,LF,'561-6556  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'03 ' 
	DB	CR,LF,'Melbourne PIE  '
	DB	CR,LF,'877-5568  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'03 '
	DB	CR,LF,'MESA RBBS  '
	DB	CR,LF,'754-5081  '
 	DB	CR,LF,'V21 V22 V23 V23ORG  ',0

	DB	'03 ' 
	DB	CR,LF,'Micom BBS  '
	DB	CR,LF,'762-5088  ',0
 
 	DB	'03 '
	DB	CR,LF,'Midnight Frog BBS  '
	DB	CR,LF,'596-1589'
	DB	CR,LF,'V21 V22 V22bis V23  ',0
 
	DB	'054' 
 	DB	CR,LF,'MIN-NET BBS  '
	DB	CR,LF,'41-3013  ',0

	DB	'03 ' 
	DB	CR,LF,'Motel International  '
	DB	CR,LF,'509-9611  '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'059' 
	DB	CR,LF,'MouseText  '
	DB	CR,LF,'42-5528  '
 	DB	CR,LF,'V23  '
	DB	CR,LF,'1000 - 2200  '
	DB  	CR,LF,'*** VIDEO-TEX ***',0

	DB	'03 ' 
 	DB	CR,LF,'Museum BBS  '
	DB	CR,LF,'662-3336  '
	DB	CR,LF,'V21 V22 V23 B103 B212  ',0

	DB	'052' 
	DB	CR,LF,'Omegatex Videotex Service  '
	DB	CR,LF,'22-1670  '
	DB	CR,LF,'V23  '
	DB	CR,LF,'**** VIDEO-TEX ONLY ****',0

	DB	'03 '
	DB	CR,LF,'Osborne Australian BB  '
	DB	CR,LF,'890-4096',0

	DB	'03 ' 
	DB	CR,LF,'Outer Limits BBS  '
	DB	CR,LF,'725-6650  '
	DB	CR,LF,'V21 V22 V23 '

	DB	'03 ' 
	DB	CR,LF,'Pacific Island  '
	DB	CR,LF,'890-2174  ',0

	DB	'03 ' 
	DB	CR,LF,'PC Connection IBBS  '
	DB	CR,LF,'528-3750 '
	DB	CR,LF,'V21 V22 V22bis V23  ',0

	DB	'03 ' 
	DB	CR,LF,'PC User BBS  '
	DB	CR,LF,'819-5392  '

	DB	'03 '
	DB	'PC-Oasis Ssystem'
	DB	'NO FURTHER INFORMATION',0

	DB	'03'
	DB	CR,LF,'Pegasus'
	DB	CR,LF,'725-4948',0

 
	DB	'03 ' 
	DB	'Public Resource #1'
	DB	'NO FURTHER INFORMATION',0

	DB	'03 ' 
	DB	CR,LF,'Sams'
	DB	CR,LF,'563-1117'
	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'03 ' 
	DB	CR,LF,'Software Bank'
	DB	CR,LF,'820-1632'
	DB	CR,LF,'V21 V22 V22bis V23',0
 
 	DB	'03 '
	DB	CR,LF,'Sotec BBS'
	DB	CR,LF,'890-8166'
	DB	CR,LF,'V22'
	DB	CR,LF,'Weekdays: 1700 - 0900  '
	DB	'Weekends: 24 Hours',0

	DB	'03 ' 
	DB	CR,LF,'Southern Mail'
	DB	CR,LF,'725-1621'
	DB	CR,LF,'V22 V22bis',0

	DB	'03 ' 
	DB	CR,LF,'Tardis BBS'
	DB	CR,LF,'859-3109'
	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'03 ' 
	DB	CR,LF,'Telegraph Road BBS-PC'
	DB	'743-6173'
	DB	CR,LF,'V21',0

	DB	'03 ' 
 	DB	CR,LF,'Teletex Connection'
	DB	CR,LF,'470-6827'
 	DB	CR,LF,'V23'
	DB	CR,LF,'0600 - 2200'
	DB	CR,LF,'*** VIDEO-TEX ***',0
	
	DB	'03 ' 
	DB	CR,LF,'The Dreamscape BBS'
	DB	CR,LF,'562-0489'
	DB	CR,LF,'V21 V22 V22bis V23'
	DB	CR,LF,'0700 - 2359 Daily',0

	DB	'03 ' 
	DB	CR,LF,'The Info-Source BBS'
	DB	CR,LF,'397-1165'
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212',0
 
	DB	'03 ' 
	DB	CR,LF,'The Krime Philes CBCS'
	DB	CR,LF,'743-0324'
 	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'03 ' 
	DB	CR,LF,'The MACBOARD'
	DB	CR,LF,'435-9152'
	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'03 ' 
	DB	CR,LF,'The Magic Pudding'
	DB	CR,LF,'NO FURTHER INFORMATION',0

	DB	'03 ' 
	DB	CR,LF,'The NATIONAL CBCS'
	DB	CR,LF,'25-6904',0

	DB	'03 '
	DB	CR,LF,'The Real Connection'
 	DB	CR,LF,'288-0331',0

	DB	'03 ' 
	DB	CR,LF,'The Software Bank'
	DB	CR,LF,'820-1632'
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212',0

	DB	'03 ' 
	DB	CR,LF,'The Time Warp'
	DB	CR,LF,'813-1663'
	DB	CR,LF,'V21 V22',0
 
	DB	'03 '
	DB	CR,LF,'The Twilite Zone'
	DB	CR,LF,'562-0686'
	DB	CR,LF,'V21 V22',0

	DB	'03 ' 
	DB	CR,LF,'The Ultimate C-64'
	DB	CR,LF,'735-5551'
	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'03 ' 
	DB	CR,LF,'Thongheads Welfare BBS'
	DB	CR,LF,'419-9256'
	DB	CR,LF,'V21 V22 V22bis'
	DB	CR,LF,'Weekdays: 1800 - 0900  '
	DB	'Weekends: 24 Hours',0
 
	DB	'03 ' 
	DB	CR,LF,'VIDEOTEXT/4000'
	DB	CR,LF,'741-3295'
	DB	CR,LF,'V23 *** VIDEO-TEX ONLY ***'
	DB	CR,LF,'0600 - 2300',0

	DB	'03 ' 
	DB	CR,LF,'Yarra Valley BBS'
	DB	CR,LF,'736-1814'
	DB	CR,LF,'V21 V22 V23'
	DB	CR,LF,'Daily: 1000 - 0800',0

	DB	'03 ' 
	DB	CR,LF,'Zoist'
	DB	CR,LF,'467-2871'
	DB	CR,LF,'V21',0


;		      ******** QUEENSLAND ********


	DB	'070' 
	DB	CR,LF,'Access North Queensland'
	DB	CR,LF,'51-0566'
	DB	CR,LF,'V21 V22 V23',0

	DB	'07 ' 
	DB	CR,LF,'AMPAK PBBS/RCPM'
	DB	CR,LF,'263-7070'
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212'
	DB	CR,LF,'PACKET RADIO',0

	DB	'07 ' 
	DB	CR,LF,'Apple-Q Node 1'
	DB	CR,LF,'284-6145'
	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'07 ' 
	DB	CR,LF,'Brisbane Commodore User Group'
 	DB	CR,LF,'395-6725'
	DB	CR,LF,'V21 V22 V23',0

	DB 	'07 ' 
	DB	CR,LF,'Brisbane MicroBee User Group'
	DB	CR,LF,'366-4833',0

	DB	'070'
	DB	CR,LF,'Cairns & District IBBS'
	DB	CR,LF,'51-1360',0

	DB	'075' 
	DB	CR,LF,'COM ONE'
	DB	CR,LF,'62-5150'
	DB	CR,LF,'V21'
	DB     	CR,LF,'NOT SURE OF AREA CODE FOR THIS ONE',0

	DB	'07 ' 
	DB	CR,LF,'Commodore Computer Users Group'
	DB	CR,LF,'344-1833'
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212',0

	DB	'077' 
	DB	CR,LF,'Comtel BBS'
	DB	CR,LF,'75-3636'
	DB	CR,LF,'V21 V22',0
 
 	DB	'07 '
	DB	CR,LF,'CORPLEX'
	DB	CR,LF,'350-1300'
	DB	CR,LF,'Weekdays: 1800 - 0600  '
	DB	'Weekends: 24 Hours',0
 
	DB	'07 '
	DB	CR,LF,'Educational RBBS'
	DB	CR,LF,'266-3369'
 	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'07 ' 
	DB	CR,LF,'Electric Dreams BBS'
 	DB	CR,LF,'399-1322'
	DB	CR,LF,'V21 V23',0

	DB	'07 ' 
	DB	CR,LF,'Fix BBS'
	DB	CR,LF,'285-5814'
	DB	CR,LF,'V21 V23',0

	DB	'07 ' 
	DB	CR,LF,'Futex C-64'
	DB	CR,LF,'283-2034',0

	DB	'07 ' 
	DB	CR,LF,'Greenhorn Experimental'
	DB	CR,LF,'345-5010'
	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'07 ' 
	DB	CR,LF,'Hi-Tech CBBS'
	DB	CR,LF,'300-5235'
	DB	CR,LF,'V21 V22 V23',0

	DB	'07 '
 	DB	CR,LF,'Kangaroo Point TAFE'
 	DB	CR,LF,'393-1763'
 	DB	CR,LF,'Weekdays: 0900 - 2200  '
 	DB	'Weekends: 24 Hours',0
 
	DB	'079'
 	DB	CR,LF,'Mackay High School BBS'
	DB	CR,LF,'51-4815'
 	DB	CR,LF,'Weekdays: 1600 - 0730  '
 	DB	'Weekends: 24 Hours',0
 
	DB	'070'
 	DB	CR,LF,'Marlin-Coast BBS'
	DB	CR,LF,'51-7220'
 	DB	CR,LF,'V21 V22 V22bis PEP',0
 
	DB	'07 '
 	DB	CR,LF,'Midnight Express'
 	DB	CR,LF,'350-2174'
 	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'07 ' 
 	DB	CR,LF,'Missing Link BBS'
	DB	CR,LF,'808-3094'
 	DB	CR,LF,'V21 V22 V23',0
 
	DB	'07 '
 	DB	CR,LF,'Ozforum'
 	DB	CR,LF,'209-4294'
	DB	CR,LF,' V21'
 	DB	CR,LF,'Weekdays: 1700 - 0700  '
 	DB	'Weekends: 24 Hours',0

	DB	'07 ' 
 	DB	CR,LF,'Redcliffe Library'
	DB	CR,LF,'283-0315'
 	DB	CR,LF,'V21 V22 V22bis V23'
	DB	CR,LF,'Weekdays: After Hours  '
 	DB	'Weekends: 24 Hours',0
 
	DB	'07 '
 	DB	CR,LF,'Rock Cave BBS'
	DB	CR,LF,'395-1809',0

	DB	'075' 
 	DB	CR,LF,'Sidecar Express BBS'
 	DB	CR,LF,'46-3252'
	DB	CR,LF,'V21 V22 V22bis V23 B103 B212',0
 
	DB	'07 '
 	DB	CR,LF,'Software 80 BBS'
	DB	CR,LF,'369-7103'
 	DB	CR,LF,'V21'
 	DB	CR,LF,'Weekdays: 1930 - 0800  '
 	DB	'Sat 1430 - Mon 0800',0
 
	DB	'077'
 	DB	CR,LF,'Sun City Opus'
	DB	CR,LF,'74-1552'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
	DB	'071'
 	DB	CR,LF,'Sunshine Coast Connection'
	DB	CR,LF,'44-2889'
 	DB	CR,LF,'V21 V22'
 	DB	CR,LF,'Daily: 2000 - 0800',0

	DB	'07 ' 
 	DB	CR,LF,'TommorrowLand BBS'
	DB	CR,LF,'371-0944'
 	DB	CR,LF,'V21 V22 V23',0
 
	DB	'076'
 	DB	CR,LF,'Toowoomba RBBS'
 	DB	CR,LF,'30-1762'
 	DB	CR,LF,'V21'
 	DB	CR,LF,'Daily: 2100 to 0630',0
 
	DB	'07 '
 	DB	CR,LF,'TurboLink Australia'
 	DB	CR,LF,'262-1414',0
 
	DB	'076'
 	DB	CR,LF,'Youth Extension Service (Toowoomba)'
 	DB	CR,LF,'39-1790'
 	DB	CR,LF,'V21 V23',0
 
 
 
;		   ******* SOUTH AUSTRALIA *******


	DB	'08 ' 
 	DB	CR,LF,'Adam Link BBS'
	DB	CR,LF,'270-2713'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
 	DB	'08 '
 	DB	CR,LF,'Adelaide MicroBee BBS'
 	DB	CR,LF,'212-6569'
 	DB	CR,LF,'V21',0

	DB	'08 ' 
 	DB	CR,LF,'Aquarium BBS'
	DB	CR,LF,'270-4341'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
	DB	'08 '
 	DB	CR,LF,'Burning Bush'
 	DB	CR,LF,'272-8405',0
 
	DB 	'08 '
 	DB	CR,LF,'Cadzow Fido'
	DB	CR,LF,'79-3091'
 	DB	CR,LF,'V21 V23',0

	DB	'08 ' 
 	DB	CR,LF,'Club Opus CBCS'
	DB	CR,LF,'263-5181'
 	DB	CR,LF,'V22 V22bis V23',0

	DB	'08 ' 
 	DB	CR,LF,'Multiple System BBS'
	DB	CR,LF,'255-5116'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
	DB	'08 ' 
 	DB	CR,LF,'Nexus Education Dept BBS'
	DB	CR,LF,'243-2477'
 	DB	CR,LF,'V21',0
 
 	DB	'08 '
 	DB	CR,LF,'Oracle PC-Network'
 	DB	CR,LF,'260-6222'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
	DB	'08 '
 	DB	CR,LF,'S A C BBS'
 	DB	CR,LF,'387-0249'
 	DB	CR,LF,'V21 V22 V23 V23ORG B103 B212',0
 
	DB	'08 '
 	DB	CR,LF,'Sorcerer Users Group BBS'
	DB	CR,LF,'260-6576'
	DB	CR,LF,'V21',0
 
	DB	'08 ' 
 	DB	CR,LF,'The IDN Board'
 	DB	CR,LF,'352-2252'
 	DB	CR,LF,'V21 V22 V22bis',0
 
	DB	'08 '
 	DB	CR,LF,'The Olympic Board'
	DB	CR,LF,'265-4232',0

	DB	'08 ' 
 	DB	CR,LF,'The Postie BBS'
	DB	CR,LF,'347-1046'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
	DB	'08 '
 	DB	CR,LF,'Trivia BBS'
	DB	CR,LF,'377-0049'
 	DB	CR,LF,'V21'
 	DB	CR,LF,'Weekdays: 1800 - 0800  '
 	DB	'Sat 1400 - Mon 0800',0
 
                   
;		   ******* WESTERN AUSTRALIA *******



	DB	'09 ' 
 	DB	CR,LF,'Amiga Mouse BBS'
	DB	CR,LF,'310-3998'
 	DB	CR,LF,'V21 V22 V22bis V23'
 	DB	CR,LF,'Daily: 2030 - 0800',0
 
	DB	'09 '
 	DB	CR,LF,'AMSNet BBS'
	DB	CR,LF,'453-3590'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
	DB	'09 '
 	DB	CR,LF,'Bit-Board'
	DB	CR,LF,'417-3706'
 	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'09 ' 
 	DB	CR,LF,'Computex BBS'
	DB	CR,LF,'447-0522',0
 
	DB	'090'
 	DB	CR,LF,'Kalgoorlie College RCP/M'
	DB	CR,LF,'21-7755'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
	DB	'09 '
 	DB	CR,LF,'Kardinya Turbo BBS'
	DB	CR,LF,'331-1695'
 	DB	CR,LF,'V21 V23',0
 
	DB	'09 '
 	DB	CR,LF,'Lightning BBS Line 1'
	DB	CR,LF,'275-8225'
 	DB	CR,LF,'V22 V22bis B212 PEP'
 
	DB	'09 '
 	DB	CR,LF,'Lightning BBS Line 2'
	DB	CR,LF,'275-7900'
 	DB	CR,LF,'V21 V22 V22bis V23 B103 B212',0
 
	DB	'09 ' 
 	DB	CR,LF,'Murdoch University ES-BBS1'
	DB	CR,LF,'332-2604'
 	DB	CR,LF,'V21',0
 
	DB	'09 '
 	DB	CR,LF,'Nemo 3'
	DB	CR,LF,'370-3333'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
	DB	'09 '
 	DB	CR,LF,'Nemo Games Machine'
	DB	CR,LF,'370-2666'
 	DB	CR,LF,'V21 V22 V22bis V23',0
 
	DB	'09 '
 	DB	CR,LF,'Nemo Multiple BBS RAPL'
 	DB	CR,LF,'370-1855'
 	DB	CR,LF,'V21 V22 V22bis V23',0

	DB	'09 ' 
 	DB	CR,LF,'Oasis ST BBS'
	DB	CR,LF,'383-1480'
 	DB	CR,LF,'V21 V22',0
 
	DB	'09 '
 	DB	CR,LF,'Omen III RTRS'
	DB	CR,LF,'276-2777'
 	DB	CR,LF,'V21 V22 V23',0

	DB	'09 ' 
 	DB	CR,LF,'Omen Mini BBS'
 	DB	CR,LF,'279-8555'
 	DB	CR,LF,'V21 V22 V23',0
 
	DB	'09 '
 	DB	CR,LF,'Pegasus BBS'
	DB	CR,LF,'242-2099'
 	DB	CR,LF,'V21 V22 V22bis V23'
 	DB	CR,LF,'Weekdays: 1700 - 0900  '
 	DB	CR,LF,'Weekends: 24 Hours',0
 
	DB	'09 '
 	DB	CR,LF,'Perth PC Users BBS'
	DB	CR,LF,'227-9229',0

	DB	'09 ' 
 	DB	CR,LF,'Student Access Message Service'
	DB	CR,LF,'321-9721'
 	DB	CR,LF,'V21 V22 V23',0
 
	DB	'09 '
 	DB	CR,LF,'The Gathering BBS'
	DB	CR,LF,'272-4711'
 	DB	CR,LF,'V21 V22 V23',0
 
	DB	'09 '
 	DB	CR,LF,'The Turing Circus'
	DB	CR,LF,'385-2100'
 	DB	CR,LF,'V21 V22 V23 B103 B212',0
 
	DB	'09 '
 	DB	CR,LF,'Treasure Island'
	DB	CR,LF,'271-0471'
 	DB	CR,LF,'V21 V22 V23',0
 
	DB	'09 '
 	DB	CR,LF,'WA Atari BBS'
	DB	CR,LF,'306-2134'
 	DB	CR,LF,'V21 V22',0
 
	DB	'09 '
 	DB	CR,LF,'West Coast BBS'
 	DB	CR,LF,'445-3080',0
 
	DB	'09 '
 	DB	CR,LF,'Z-Node 62'
	DB	CR,LF,'450-0200',0
 
 
 
;		 ******* NORTHERN TERRITORY *******
 

	DB	'089'
 	DB	CR,LF,'Outback RCPM'
	DB	CR,LF,'27-7111'
 	DB	CR,LF,'V21 V23',0
 


;		       ******* TASMANIA *******
 


	DB 	'002'
 	DB	CR,LF,'Hobart Users Bulletin Board'
	DB	CR,LF,'43-5041'
 	DB	CR,LF,'V21 V22 V23',0

	DB	'003' 
 	DB	CR,LF,'Tassie Bread Board System'
 	DB	CR,LF,'26-4248'
	DB	CR,LF,'V21 V22 V22bis V23',0
 
 
 
;                    ******* NEW ZEALAND *******
 

	DB	'024'
	DB	CR,LF,'Southern Express!'
 	DB	CR,LF,'877-440'
	DB	CR,LF,'(FROM AUSTRALIA 0011-64-24-877-440)'
 	DB	CR,LF,'V21 V22 V23',0



 
;                   ******* PAPUA NEW GUINEA *******
 

	DB	'675'
 	DB	CR,LF,'PNG One'
	DB	CR,LF,'25-6984'
	DB	CR,LF,'(FROM AUSTRALIA 0011-675-25-6984)'
 	DB	CR,LF,'V21 V22 V22bis V23 B103 B212',0


;*****************************************************************************	

 
;     YOU MAY WISH TO USE THIS AREA TO COMPILE YOUR OWN PERSONAL TELEPHONE
;     DIRECTORY AND ADDRESS REGISTER. 

;     EXAMPLE:


	DB 	'   '                       ;LEAVE THIS AREA BLANK IF NOT NEEDED

	DB	CR,LF,LF,'Mike Greenhill'      ;Name Goes Here.

	DB	CR,LF,'ALL ROUND GOOD GUY'  ; Company.

	DB	CR,LF,'12 Church St. OATLANDS.' ;ADDRESS

	DB   	CR,LF,'7120'                    ;POSTCODE

	DB	CR,LF,'(002) 54-1170  (voice)',0    ;Phone Number.






	DB	0		; End of all entries

	END