home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / CBBSCK.BAS < prev    next >
BASIC Source File  |  1989-11-21  |  1KB  |  38 lines
  1. 20 Rem Rev 9-05-84
  2. 50 PRINT "Check format of a file to upload to CBBS as a message using the"
  3. 53 PRINT "cbbs-r directory entry (Assumes CBBS has eXpert+Prompt set)"
  4. 70 PRINT
  5. 100 PRINT "Enter Pathname :";
  6. 150 LINE INPUT F$
  7. 195 ON ERROR GOTO 990
  8. 200 OPEN F$ FOR INPUT AS #1
  9. 240 PRINT
  10. 250 IF EOF(1) THEN PRINT "No To: line" : GOTO 950
  11. 300 LINE INPUT #1, A$
  12. 310 PRINT "To: "; A$
  13. 320 IF LEN(A$) > 24 THEN PRINT "To: line too long" : GOTO 950
  14. 330 IF EOF(1) THEN PRINT "No Subj: line" : GOTO 950
  15. 335 LINE INPUT #1, S$
  16. 336 PRINT "Subject: "; S$
  17. 340 IF LEN(S$) > 24 THEN PRINT "Subject line too long" : GOTO 950
  18. 345 IF EOF(1) THEN PRINT "No Password line" : GOTO 950
  19. 350 LINE INPUT #1, P$
  20. 355 PRINT "Password: ";P$
  21. 357 IF LEN(P$) = 0 THEN GOTO 400
  22. 360 IF LEN(P$) <> 4 THEN PRINT "Password must be 4 chars EXACTLY" : GOTO 950
  23. 400 FOR I = 1 TO 21
  24. 430 IF EOF(1) THEN 800
  25. 450 LINE INPUT #1, L$
  26. 460 PRINT L$
  27. 500 IF LEN(L$) > 80 THEN print : PRINT "Text line too long" : GOTO 950
  28. 600 NEXT I
  29. 650 print : PRINT "Too many lines in message"
  30. 655 goto 950
  31. 800 IF LEN(L$) > 0 THEN print : PRINT "Last line not empty" : GOTO 950
  32. 900 PRINT : PRINT "Messages file "; F$;" looks O.K."; : goto 999
  33. 949 PRINT
  34. 950 print chr$(7) : print "This won't hack it.", chr$(7)
  35. 960 GOTO 999
  36. 990 print : PRINT F$;" File not found"
  37. 999 SYSTEM
  38.