home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
logit.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
926b
|
12 lines
0 'LOGIT.BA - By Richard Hanson
1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
2 CLEAR512
3 MAXFILES=2:DEFSTRE,R,N:POKE64173,0:E=CHR$(27):R=E+"p":N=E+"q":D1$=LEFT$(DAY$,2):D2$=((LEFT$(DATE$,2))+(MID$(DATE$,4,2))):D3$=D1$+D2$:OPEND3$FORAPPENDAS1:ONERRORGOTO3
4 CLS:PRINT@55,R" LOGIT.BA "N:PRINT@280," "R" Go "N" "R"Note"N" "R"Menu"N;:KEYON:ONKEYGOSUB,,6,7,,,,10
5 A$=INKEY$:IFA$=""THEN5
6 D1$=DAY$:D2$=DATE$:D3$=TIME$:PRINT#1,:PRINT#1,"__"D1$"__"D2$"__"D3$"__":CLS:PRINT:PRINTR"Enter persons name:"N" ";:LINEINPUTNA$:PRINT#1,"To: "NA$:PRINT#1,"Re: ";:GOTO4
7 CLS:PRINT@4,R" Comments (240 chrs -- 6 lines):"N:FORX=1TO500:NEXT:PRINT@44,R" In reference to: "NA$N:ONERRORGOTO8:PRINT@80,;:LINEINPUTC$:GOTO9
8 CLS:BEEP:PRINT:PRINT:PRINT" Too long!":FORX=1TO100:NEXTX:GOTO7
9 PRINT#1,C$:GOTO4
10 MENU:IFERR=52THENPRINT"Error="ERR" - Line "ERL:INPUTX:CALL21586