home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / VULCAN / STARTUP (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-05-12  |  541 b   |  21 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10 D$ =  CHR$(4): TEXT : PRINT  CHR$(21): HOME 
  2. 20  PRINT "AE Vulcan Main Menu":DF = 1
  3. 30  READ N: FOR I = 1 TO N: READ A$(I): NEXT 
  4. 40  DATA 4,"BACKUP II","PARTITION MANAGER","PARK HEADS","QUIT TO BASIC"
  5. 50  VTAB 2: PRINT : FOR I = 1 TO N: IF DF = I  THEN  INVERSE 
  6. 60  PRINT " "I" -- "A$(I); TAB( 28)" ": NORMAL : NEXT 
  7. 70  PRINT : PRINT "Use Arrows, 1-"N", or Return": CALL  -958
  8. 80 A =  PEEK( -16384): IF A <128  THEN 80
  9. 90  POKE  -16368,0:A = A -128: IF A >48  THEN 160
  10. 100  IF A = 13  THEN A = DF +48: GOTO 160
  11. 110  IF (A = 21)  OR (A = 10)  THEN DF = DF +1
  12. 120  IF (A = 8)  OR (A = 11)  THEN DF = DF -1
  13. 130  IF DF <1  THEN DF = N
  14. 140  IF DF >N  THEN DF = 1
  15. 150  GOTO 50
  16. 160 A = A -48: IF A <1  OR A >N  THEN 40
  17. 170  PRINT : HOME : ON A GOTO 200,300,400,9000
  18. 200  PRINT D$"-BACKUPII"
  19. 300  PRINT D$"-PART.MANAGER"
  20. 400  PRINT D$"-PARK.HEADS"
  21. 9000  END