home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / STARTUP.BAK.bas < prev   
BASIC Source File  |  2020-08-13  |  2KB  |  35 lines
  1. 5 SLOT = 5: REM   SLOT OF VULCAN HARD DISK
  2. 10 ER = 62248:D$ =  CHR$(4):ID =  INT( PEEK(49048)/8):II = (ID <16)  AND (ID = (2 * INT(ID/2)))
  3. 20  PRINT  CHR$(21): TEXT : HOME 
  4. 30 Q$ = "PREFIX: /ERIC/    SLOT 5, DRIVE 2": GOSUB 500
  5. 35  VTAB 5:Q$ = "0) Exit to BASIC": GOSUB 500
  6. 60  VTAB 7:Q$ = "1) Exit to ProDOS": GOSUB 500
  7. 61  VTAB 9:Q$ = "2) Boot /HARD": GOSUB 500
  8. 64  VTAB 11
  9. 65  PRINT "3) MIDI Menu"
  10. 70  VTAB 20:Q$ = "Please Select an Option: ": GOSUB 500: VTAB 20: HTAB ( LEN(Q$))
  11. 80  GET Q$: PRINT Q$
  12. 90  POKE  -16368,0
  13. 100  IF Q$ = "2"  THEN  PRINT  CHR$(4)"prefix,s5,d1": PRINT  CHR$(4)"prefix/hard": PRINT  CHR$(4)"-startup"
  14. 110  IF Q$ = "0"  OR Q$ =  CHR$(13)  OR Q$ =  CHR$(27)  THEN  HOME : END 
  15. 111  REM  -STARTCOM TO LOAD EXTRA COMMANDS
  16. 120  IF Q$ = "1"  THEN  PRINT D$"bye"
  17. 125  IF Q$ = "3"  THEN  PRINT : PRINT D$"prefix /HARD/PROJECT": PRINT D$"-MIDI.SETUP"
  18. 130  PRINT  CHR$(7): GOTO 70
  19. 200  ONERR  GOTO 250
  20. 205  IF Q$ = "1"  THEN  PRINT  CHR$(4)"PREFIX/HARD/AEPC/MEG16"
  21. 207  IF Q$ = "2"  THEN  PRINT  CHR$(4)"PREFIX/HARD/AEPC/MEG6"
  22. 210 F$ = "PC.TRANSPORTER": PRINT D$"VERIFY"F$
  23. 220  POKE 216,0: PRINT D$"-"F$
  24. 250  CALL ER
  25. 260  ONERR  GOTO 290
  26. 270 F$ = "STARTAEPC": PRINT D$"VERIFY"F$
  27. 280  POKE 216,0: PRINT D$"-"F$
  28. 290  CALL ER
  29. 300  HOME : VTAB 10:Q$ = "PC.TRANSPORTER and STARTAEPC Not Found": GOSUB 500: PRINT 
  30. 310  VTAB 15:Q$ = "Cannot Run PC Transporter": GOSUB 500: PRINT : NEW 
  31. 500  IF   NOT II  THEN  PRINT Q$: RETURN 
  32. 510  FOR I = 1 TO  LEN(Q$):C$ =  MID$ (Q$,I,1)
  33. 520  IF C$ > = "a"  THEN C$ =  CHR$( ASC(C$) -32)
  34. 530  PRINT C$;
  35. 540  NEXT : PRINT : RETURN