home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / mfil.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.8 KB  |  66 lines
  1. 1 '    signon subsystem -- make test versions of name files
  2. 2 VERSION$="0.2 {4/25/82}"
  3. 4 '    by dick lieber
  4. 8 CRLF$=CHR$(&HA)+CHR$(&HD)
  5. 10 '
  6. 14 '    WARNING
  7. 18 '
  8. 22 ' If running this program with BASIC-80 the DRIVER.REL jump table
  9. 26 ' must be located at 0F800H.  Unless you change the following
  10. 30 ' location, the program will go away!
  11. 34 '
  12. 38 TESTADDRESS=&HF800
  13. 42 '
  14. 50 DATA "NOACC", "BULLETIN", "INSTRUCT", "SUCESS", "SPECIAL", "OPTION", "BYEBYE"
  15. 53 DATA "the end"
  16. 99 GOTO 10000
  17. 300 '
  18. 310 '    set user number
  19. 320 '
  20. 330 USERMD=TESTADDRESS+9
  21. 340 CALL USERMD(SETUSERNUMBER%)
  22. 350 RETURN
  23. 10000 '
  24. 10010 '    main program
  25. 10020 '
  26. 10030 PRINT:PRINT:PRINT
  27. 10040 PRINT "This program will make test version of all of message text"
  28. 10050 PRINT "files needed to test the SIGNON subsystem."
  29. 10060 PRINT
  30. 10061 IF PEEK(TESTADDRESS) <> &HC3 THEN 
  31.     PRINT "FATAL ERROR!":
  32.     PRINT "The driver test routines are not loaded at ";
  33.         HEX$(TESTADDRESS);"H.":
  34.     END
  35. 10070 PRINT "What user number should the files be stored in > ";
  36. 10080 INPUT SETUSERNUMBER%
  37. 10090 IF SETUSERNUMBER% > 15 THEN GOTO 10060
  38. 10100 GOSUB 300
  39. 10110 STARS$=STRING$(25,"*")
  40. 10120 MIDDLE$="*"+STRING$(23," ")+"*"
  41. 10130 LEFTEND$="*        "
  42. 10140 RIGHTEND$="       *"
  43. 10150 PRINT "Making:"
  44. 10160 PRINT
  45. 10170 WHILE FILENAME$<> "the end"
  46. 10180    READ FILENAME$
  47. 10190    IF FILENAME$="the end" THEN GOTO 10320
  48. 10200    OPEN "O",#1, FILENAME$
  49. 10210    MIDDLEND$=STRING$(8," ")
  50. 10220    LSET MIDDLEND$=FILENAME$
  51. 10230    PRINT FILENAME$
  52. 10235    PRINT #1,CRLF$
  53. 10240    PRINT #1, STARS$
  54. 10250    PRINT #1, MIDDLE$
  55. 10260    PRINT #1, MIDDLE$
  56. 10270    PRINT #1, LEFTEND$+MIDDLEND$+RIGHTEND$
  57. 10280    PRINT #1, MIDDLE$
  58. 10290    PRINT #1, MIDDLE$
  59. 10300    PRINT #1, STARS$
  60. 10310    CLOSE #1
  61. 10320 WEND
  62. 10330 PRINT
  63. 10340 PRINT "These are the files:"
  64. 10350 FILES "????????.   "
  65. 10360 SETUSERNUMBER%=0: GOSUB 300
  66.