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