home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / logit.ba < prev    next >
Text File  |  2006-10-19  |  926b  |  12 lines
  1. 0 'LOGIT.BA - By Richard Hanson
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLEAR512
  4. 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
  5. 4 CLS:PRINT@55,R" LOGIT.BA "N:PRINT@280,"          "R" Go "N" "R"Note"N"                "R"Menu"N;:KEYON:ONKEYGOSUB,,6,7,,,,10
  6. 5 A$=INKEY$:IFA$=""THEN5
  7. 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
  8. 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
  9. 8 CLS:BEEP:PRINT:PRINT:PRINT"        Too long!":FORX=1TO100:NEXTX:GOTO7
  10. 9 PRINT#1,C$:GOTO4
  11. 10 MENU:IFERR=52THENPRINT"Error="ERR" - Line "ERL:INPUTX:CALL21586
  12.