Listing of file='MENU.BAS;01' on disk='vmedia/alltronics-sector.ccvf'
10 POKE 32940,255:POKE 32941,145:CLEAR 100 100 PLOT 6,2,12,14:PRINT "ALLTRONICS ENHANCEMENTS FOR THE COMPUCOLOR" 200 PRINT "SCREEN EDITOR. (C) 1980 BY ALLTRONICS" 250 PLOT 15,10:PRINT "YOU WILL NEED THIS ALLTRONICS DISK, A DISK" 260 PRINT "TO CONTAIN THE ENHANCED EDITOR WITH AT LEAST 23(HEX)" 270 PRINT "FREE SECTORS, AND THE COMPUCOLOR DISK DESCRIBED BELOW:" 300 PLOT 15,10:PRINT "PLEASE INSERT A DISKETTE CONTAINING AN UNMODIFIED" 400 PRINT "COPY OF THE" 450 PLOT 10,9:PRINT "COMPUCOLOR SCREEN EDITOR V1.0 12/03/79" 500 PLOT 10:PRINT "ON THE DEFAULT DISK DRIVE." 550 PLOT 10:INPUT "PRESS ENTER WHEN READY";RP$ 600 B$= "LOAD EDITOR.PRG;1 9200":PLOT 10:PRINT B$:PLOT 27,4:PRINT B$:PLOT 27,27 700 IF PEEK (28672+ 20* 128)= 32THEN 1000 800 PRINT "ERROR LOADING FILE. PRESS ENTER TO RETRY";:INPUT "";RP$:GOTO 100 1000 REM VERIFY ORIGINAL INTEGRITY 1100 VS$= "V1.0"+ CHR$ (6)+ CHR$ (4)+ " 12/03/79" 1200 J= 36035+ 4096:FOR N= 1 TO LEN (VS$) 1300 IF PEEK (J)< > ASC (MID$ (VS$,N,1))THEN 2000 1400 J= J+ 1:NEXT N 1500 IF PEEK (34064+ 4096)< > 245OR PEEK (34074+ 4096)< > 247THEN 2000 1600 PLOT 12,6,2:PRINT "VERIFY OK." 1700 PLOT 10:PRINT "NOW REMOVE THE COMPUCOLOR DISK AND" 1800 PRINT "RE-INSERT THE ALLTRONICS DISTRIBUTION DISK." 1900 GOTO 2500 2000 PRINT "VERIFY OF ORIGINAL COMPUCOLOR SCREEN EDITOR FAILED" 2100 PRINT "ONLY THE VERSION SPECIFIED ABOVE IS SUPPORTED.":PLOT 10:INPUT "PRESS ENTER TO RETRY";RP$:GOTO 100 2500 PLOT 10:INPUT "PRESS ENTER WHEN READY.";RP$ 2600 B$= "LOAD SCRMOD.LDA;1 8200 9200":PLOT 12,6,2:PRINT B$:PLOT 27,4:PRINT B$:PLOT 27,27 2700 IF PEEK (28672+ 1* 128)= 32THEN 3000 2800 PLOT 10:INPUT "LOAD FAILED. PRESS ENTER TO RETRY";RP$:PLOT 12:GOTO 1800 3000 PLOT 12:PRINT "LAST STEP: INSERT A DISKETTE WITH AT LEAST" 3100 PRINT "23(HEX) FREE SECTORS IN THE DEFAULT DRIVE" 3200 PLOT 10:INPUT "PRESS ENTER WHEN READY.";RP$ 3300 B$= "SAVE EDITOR.PRG 8200-9316 8200 9200":PLOT 10:PRINT B$:PLOT 27,4:PRINT B$:PLOT 27,27 3400 PRINT "END OF PROCEDURE" 3500 PLOT 10,10:PRINT "PLEASE DON'T FORGET TO PRESS CTL-SHIFT RESET TO RESET" 3600 PRINT "THE HIGH RAM LIMIT BEFORE RUNNING EDITOR."