Compucolor.org – Virtual Media

Listing of file='MENU.BAS;02' on disk='vmedia/the_editor_v2-sector.ccvf'

10 REM  SPECIAL MENU FOR 'THE BASIC EDITOR' V2A.82
20 REM  COMPILED BY PETER STANDEN....NOVEMBER 1983
30 REM
40 REM  REPLACES ORIGINAL MENU WHICH WONT LOAD 32K
50 REM  VERSIONS, EDT932 AND EDT832.
60 REM
70 REM  THIS MENU SELECTS ONE OF THE FOUR PROGRAMMES
80 REM  EDT916.PRG, EDT932.PRG, EDT816.PRG, EDT832.PRG
90 REM  BY FIRST CHECKING IF ONLY 16K OF RAM IS FITTED
92 REM  SETS MAXIMUM RAM TO BE USED BY BASIC UNDER THE
94 REM  EDITOR LOAD ADDRESS (E98F..32K RAM; A98F..16K
96 REM  RAM) AND DETERMINES WHICH COMPUCOLOR II VERSION
98 REM  IS BEING USED.
99 REM
100 AD= PEEK (32941)* 256+ PEEK (32940)
110 IF AD= 49151THEN GOTO 160
120 POKE 32940,143:POKE 32941,233
130 CLEAR 512
140 IF PEEK (2346)= 31THEN PLOT 27,4:PRINT "RUN EDT932"
150 PLOT 27,4:PRINT "RUN EDT832"
160 POKE 32940,143:POKE 32941,169
170 CLEAR 512
180 IF PEEK (2346)= 31THEN PLOT 27,4:PRINT "RUN EDT916"
190 PLOT 27,4:PRINT "RUN EDT816"