home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / PRO.BYTER.SHK / PRO.BYTER / STARTUP.bas < prev    next >
BASIC Source File  |  2000-01-01  |  3KB  |  32 lines
  1. 1  GOTO 100: REM <CTRL-M><CTRL-M><CTRL-M>PRO-BYTER<CTRL-M>COPYRIGHT (C) 1985<CTRL-M>BERT KERSEY AND JACK CASSIDY<CTRL-M>BEAGLE BROS, INC.<CTRL-M>3990 OLD TOWN AVENUE<CTRL-M>SAN DIEGO, CALIFORNIA 92110<CTRL-M><CTRL-M>
  2. 2  PRINT  CHR$(4)"SAVE/PRO.BYTER/STARTUP": END 
  3. 100 V$ = "01-APR-86"
  4. 105  SPEED= 255: POKE 49166,0: ONERR  GOTO 10000
  5. 110  PRINT  CHR$(21): NORMAL : TEXT : HOME :D$ =  CHR$(4): PRINT D$"PREFIX/PRO.BYTER":PFX$ = "/PRO.BYTER/"
  6. 200  INVERSE : VTAB 1: HTAB 15: PRINT ":" SPC( 11)":": HTAB 15: PRINT "  PRO-BYTER  ": HTAB 15: PRINT ":" SPC( 11)":": NORMAL : PRINT : HTAB 12: PRINT "COPYRIGHT (C) 1985": HTAB 8: PRINT "BERT KERSEY & JACK CASSIDY": HTAB 13: PRINT "BEAGLE BROS, INC.": PRINT : FOR I = 1 TO 999: NEXT 
  7. 250  FOR I = 1 TO 39 - LEN(V$): VTAB 9: HTAB I: PRINT " "V$: NEXT : VTAB 9
  8. 300  INVERSE : PRINT " RUN A PROGRAM:": NORMAL : HTAB 36: PRINT : PRINT "  [B] BYTEZAP.PRO . . . . . . .PAGE  5    [C] CATA.LOG . . . . . . . . . . .36    [D] DATE.SET. . . . . . . . . . . 37    [Z] MEM.ZAP. . . . . . . . . . . .44"
  9. 350  PRINT "  [N] NOTES (MANUAL UPDATE) . . . . .4    [Q] QUIT & RUN ANOTHER PROGRAM . . 4"
  10. 400  PRINT : INVERSE : PRINT " SEE A DIRECTORY:": PRINT : NORMAL : PRINT "  [M] MAIN DIRECTORY . . . . . .PAGE 4    [F] FREEBIES SUBDIRECTORY . . . . .4    [H] HOME.MOVIES SUBDIRECTORY . . . 4": TEXT 
  11. 500  VTAB 24: HTAB 1: PRINT "  PRESS B,C,D,Z,N,Q,M,F OR H: " CHR$(8);: GET A$: GOSUB 9999: PRINT A$;: ON A$ = "Q"  OR A$ =  CHR$(27) GOTO 6010: ON A$ = "M" GOTO 7000: ON A$ = "F" GOTO 8000: ON A$ = "H" GOTO 9000: ON A$ < >"B"  AND A$ < >"C"  AND A$ < >"D"  AND A$ < >"Z"  AND A$ < >"N" GOTO 500
  12. 600  VTAB 9: IF A$ < >"N"  THEN  HOME : PRINT "TO RETURN TO THE MENU, TYPE " CHR$(34)"-STARTUP" CHR$(34)"."
  13. 700  ON A$ = "B" GOTO 1000: ON A$ = "C" GOTO 2000: ON A$ = "D" GOTO 3000: ON A$ = "Z" GOTO 4000: ON A$ = "N" GOTO 5000: END 
  14. 1000  PRINT D$"-BYTEZAP.PRO"
  15. 2000  PRINT D$"-CATA.LOG"
  16. 3000  PRINT D$"-DATE.SET"
  17. 4000  PRINT D$"-MEM.ZAP"
  18. 5000  PRINT D$"-NOTES"
  19. 6000  VTAB 20: PRINT : CALL  -958: PRINT  CHR$(4)"PREFIX": INPUT PFX$: PRINT "THE CURRENT PREFIX IS:": PRINT PFX$;: END 
  20. 6010  VTAB 22: PRINT : CALL  -958: END 
  21. 7000  ONERR  GOTO 9050
  22. 7010  HOME : PRINT D$"CAT": GOTO 9050
  23. 8000  ONERR  GOTO 9050
  24. 8010  HOME : PRINT D$"PREFIX"PFX$"FREEBIES": PRINT D$"CAT": GOTO 9020
  25. 9000  ONERR  GOTO 9050
  26. 9010  HOME : PRINT D$"PREFIX"PFX$"HOME.MOVIES": PRINT D$"CAT"
  27. 9020  HTAB 18: PRINT "^^^": SPEED= 195: FOR I = 31 TO 1  STEP  -1: HTAB I: PRINT  MID$ ("(YOU CAN RUN ANY BAS PROGRAM.)",I,1);: NEXT : SPEED= 255: PRINT : HTAB 18: PRINT "---": VTAB 22
  28. 9050  INVERSE : PRINT " SELECT:";:V =  PEEK(37) +1:H =  PEEK(36) +2: NORMAL : PRINT "    [M] MAIN MENU": HTAB 13: PRINT "[Q] QUIT NOW";: IF V = 24  THEN V = 23
  29. 9060  VTAB V: HTAB H: PRINT " " CHR$(8);: GET A$: GOSUB 9999: ON A$ = "M" GOTO 100: ON A$ < >"Q"  AND A$ < > CHR$(27) GOTO 9060
  30. 9070  GOTO 6000
  31. 9999 A$ =  CHR$( ASC(A$) -32 *(A$ >"_")): RETURN 
  32. 10000  POKE 216,0: RESUME