940 TEXT : HOME : VTAB 18: INVERSE : PRINT "WARNING:";: NORMAL : PRINT " TO AVOID CONFLICTS WITH THIS PROGRAM AND ITS VARIABLE SPACE, DO NOT EDIT CODE FROM $800 TO $3000 OR ABOVE $8000. RATHER, EDIT ABOVE $3000, SAVE IT, AND THEN RELOCATE IT."
950 PRINT : PRINT "** COPYRIGHT 1984 BY MICROSPARC INC. **": VTAB 2: HTAB 10: INVERSE : PRINT " MACHINE CODE EDITOR ": NORMAL : PRINT : PRINT
960 PRINT "1 - BLOAD A PROGRAM FOR EDITING"
970 PRINT "2 - BSAVE EDITED PROGRAM"
980 PRINT "3 - START EDIT"
990 PRINT "4 - EDIT MODE - (CONTINUE)"
1000 PRINT "5 - EDIT ON/OFF TOGGLE SWITCH"
1010 PRINT "6 - DISPLAY MACHINE CODE - ONLY"
1020 PRINT "7 - QUIT"
1030 PRINT : INPUT "WHICH NUMBER? ";OPT$
1040 OPT = VAL(OPT$): IF OPT <1 OR OPT >7 GOTO 1030
1050 IF OPT = 7 THEN TEXT : HOME : END
1060 OPT = VAL(OPT$)
1070 ON OPT GOTO 1200,1430,1550,1670,1740,1080
1080 REM DISPLAY MACHINE LANG. CODE
1090 HOME : VTAB 4: PRINT "** DISASSEMBLE MACHINE LANGUAGE CODE **": PRINT
1100 INPUT "ENTER BEGINNING ADDRESS IN HEX =$";AD$
1110 LG = LEN(AD$)
1120 IF LG = 0 OR LG >4 GOTO 1190
1130 GOSUB 650: REM EDIT ADDR
1140 ON ER GOTO 1190
1150 DISPLAY = 1
1160 IF ER = 0 THEN PRINT : PRINT TAB( 19);"DECIMAL ADDR=";DE: PRINT : PRINT "HIT RETURN TO STEP THRU INSTRUCTIONS"
1190 PRINT "ERROR IN HEX ADDRESS =$";AD$: PRINT "HIT ANY KEY TO TRY AGAIN": GOSUB 910: GET A$: GOTO 1100
1200 REM #1 BLOAD A PROGRAM FOR EDIT
1210 HOME : FLASH : PRINT "WARNING:";: NORMAL : PRINT " LOADING A PROGRAM BETWEEN $800 AND $";H$;" WILL CLOBBER THIS PROGRAM.....TO PREVENT THIS LOAD AT $2500, EDIT YOURPROGRAM, SAVE IT, AND THEN RELOCATE IT"
1220 VTAB 8: PRINT " ** BLOAD A PROGRAM FOR EDITING **"
1230 VTAB 10: CALL -958: INPUT "FILE NAME:";PGM$: IF VAL(PGM$) >0 OR LEN(PGM$) >15 THEN 1230
1440 HOME : VTAB 4: PRINT " ** BSAVE EDITED PROGRAM **": VTAB 6: CALL -958: INPUT "FILE NAME:";NM$: IF NM$ = "" THEN 930
1450 IF VAL(NM$) >0 OR LEN(NM$) >15 THEN 1440
1460 PRINT : CALL -958: INPUT "ENTER BEGINNING ADDRESS $";AA$: IF AA$ = "" THEN PRINT "ERROR IN HEX ADDRESS": PRINT "PRESS A KEY TO CONTINUE": GET K$: PRINT : VTAB 7: GOTO 1460
1470 PRINT : CALL -958: INPUT "ENTER LENGTH OF PROGRAM $";LL$: IF LL$ = "" THEN PRINT "ERROR IN LENGTH";AD$: PRINT "PRESS A KEY TO CONTINUE": GET K$: GOTO 1470