home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
TEST
/
EDIT.bas
< prev
next >
Wrap
BASIC Source File
|
2020-08-13
|
1KB
|
31 lines
1 P$ = "/ERIC/TEST/"
10 IF PEEK(104) < >20 THEN POKE 104,20: POKE 20 *256,0: PRINT CHR$(4)"RUN"P$"EDIT"
12 PRINT : PRINT
15 GOSUB 130: REM GET FILE
20 PRINT CHR$(4)"BLOAD"P$"EDIT.OBJ"
30 INPUT "1)UPPER CASE SHARPS 2)LOWER CASE FLATS:";UC
40 IF UC <1 OR UC >2 THEN 30
50 IF UC = 1 THEN POKE 2048 +3,0
60 IF UC = 2 THEN POKE 2048 +3,1
70 PRINT CHR$(4)"PR#3"
80 CALL 8 *256
90 CALL 8 *256 +11: REM FIND END ADRS -->$19,$1A
100 EA = PEEK(16 +9) + PEEK(16 +10) *256
105 PRINT
110 PRINT "ENDING ADRS="EA
120 GOSUB 600
125 END
130 REM GET FILENAME
132 INPUT "FILE TO LOAD (*=NONE RET=CAT):";FU$
133 IF LEFT$(FU$,1) = "*" THEN 140
134 IF FU$ = "" THEN PRINT CHR$(4)"CAT": GOTO 132
135 PRINT CHR$(4)"BLOAD "FU$",A$2000"
140 RETURN
600 REM SAVE FILE
625 IF LEFT$(FU$,1) = "*" THEN 640
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
632 IF YN$ = "N" THEN 650
635 PRINT CHR$(4)"BSAVE "FU$",A$2000,E"EA
637 GOTO 650
640 PRINT "IF YOU WANT TO SAVE FILE, USE ENDING ADDRESS SHOWN ABOVE"
650 RETURN