Rem:******CONTACTBASE V2.1 MAY 1993 STEVE BYE*************
Rem
Rem please note I am no longer developing this program
Rem
WARN=0 : Music 1 : MS=1
WIBB:
If WARN=1 Then WARN=0 : Goto _MENU
Screen Open 0,320,200,16,Lowres
Hide : Flash Off : Curs Off : Cls 0
Unpack 4 To 0 : _BOUNCE : Wait 80
Fade 4 : Wait 60
Rem:************************************
Global RECORD,NAME$,DRESS$,PHONE$,MESSAGE$,DAT$,RECORDS,MON,Y$,X,SW$,Q$,WARN,KC
Open Random 1,"contactlist"
Field 1,40 As NAME$,160 As DRESS$,20 As PHONE$,240 As MESSAGE$,10 As DAT$
RECLEN=470
RECORDS=Lof(1)/RECLEN
If RECORDS=0 Then Goto _MENU
RECORD=1
Get 1,RECORD
Rem:***************menu***********************
_MENU:
Cls 0
Unpack 5 To 0
Paper 0 : Pen 1 : Curs Off : Show On : Change Mouse 2
Reserve Zone 5
Set Zone 1,80,95 To 217,111
Set Zone 2,76,113 To 220,130
Set Zone 3,77,132 To 216,148
Set Zone 4,91,150 To 201,162
Set Zone 5,129,168 To 162,180
Pen 5
KEEY:
_TXTSCR
While Mouse Key=0
Wend
MZ=Mouse Zone
If MZ=1 Then _SHUTTER : _INFO : Goto _MENU
If MZ=3 Then _SHUTTER : _INPUT : Goto WIBB
If MZ=2 and RECORDS>0 Then Pen 12 : _SHUTTER : Gosub _PRINTDATA : Goto _MENU
If MZ=2 and RECORDS=0 Then Cls 0 : Locate 0,10 : Pen 3 : Centre "NO RECORDS AVAILABLE" : Print : Centre "THE RECORDS FILE IS MISSING," : Print : Centre "START A NEW FILE BY JOINING CONTACTBASE" : Wait 60 : While Mouse Key=0 : Wend : Goto _MENU
If MZ=5 Then Stop
If MZ=4 and MS=1 Then Music Off : MS=0 : Wait 20 : Goto KEEY
If MZ=4 and MS=0 Then Music 1 : MS=1 : Wait 20 : Goto KEEY
Goto KEEY
Rem:***************join list*********************
Shared Y$,MX,DW
Procedure _INPUT
NAM:
Screen Open 0,640,200,16,Hires
NE=0
Inverse Off : Paper 0 : Pen 5 : Curs Off : Cls 0 : Home
Centre "PLEASE TYPE YOUR MESSAGE, ONLY PRESS RETURN WHEN FINISHED ON EACH SECTION."
Print : Centre "ALL YOUR TEXT WILL BE CONVERTED TO UPPER CASE. USE BACKSPACE TO DELETE"
Print : Centre "YOU WILL BE ENTRY NUMBER "+Str$(RECORDS+1)
