home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / EDIT.bas < prev    next >
BASIC Source File  |  2020-08-13  |  1KB  |  31 lines

  1. 1 P$ = "/ERIC/TEST/"
  2. 10  IF  PEEK(104) < >20  THEN  POKE 104,20: POKE 20 *256,0: PRINT  CHR$(4)"RUN"P$"EDIT"
  3. 12  PRINT : PRINT 
  4. 15  GOSUB 130: REM  GET FILE
  5. 20  PRINT  CHR$(4)"BLOAD"P$"EDIT.OBJ"
  6. 30  INPUT "1)UPPER CASE SHARPS 2)LOWER CASE FLATS:";UC
  7. 40  IF UC <1  OR UC >2  THEN 30
  8. 50  IF UC = 1  THEN  POKE 2048 +3,0
  9. 60  IF UC = 2  THEN  POKE 2048 +3,1
  10. 70  PRINT  CHR$(4)"PR#3"
  11. 80  CALL 8 *256
  12. 90  CALL 8 *256 +11: REM   FIND END ADRS -->$19,$1A 
  13. 100 EA =  PEEK(16 +9) + PEEK(16 +10) *256
  14. 105  PRINT 
  15. 110  PRINT "ENDING ADRS="EA
  16. 120  GOSUB 600
  17. 125  END 
  18. 130  REM   GET FILENAME  
  19. 132  INPUT "FILE TO LOAD (*=NONE RET=CAT):";FU$
  20. 133  IF  LEFT$(FU$,1) = "*"  THEN 140
  21. 134  IF FU$ = ""  THEN  PRINT  CHR$(4)"CAT": GOTO 132
  22. 135  PRINT  CHR$(4)"BLOAD "FU$",A$2000"
  23. 140  RETURN 
  24. 600  REM   SAVE FILE  
  25. 625  IF  LEFT$(FU$,1) = "*"  THEN 640
  26. 630  PRINT "FILE="FU$: INPUT "SAVE THIS MODIFIED FILE? (Y/N):";YN$: IF YN$ < >"Y"  AND YN$ < >"N"  THEN  PRINT "YES OR NO?": PRINT : GOTO 630
  27. 632  IF YN$ = "N"  THEN 650
  28. 635  PRINT  CHR$(4)"BSAVE "FU$",A$2000,E"EA
  29. 637  GOTO 650
  30. 640  PRINT "IF YOU WANT TO SAVE FILE, USE ENDING ADDRESS SHOWN ABOVE"
  31. 650  RETURN