10 ME = 19: DIM E(ME),E$(ME),TYP(6): FOR I = 1 TO ME: READ E(I),E$(I): NEXT : DATA 16,SYNTAX,53,ILLEGAL QUANTITY,77,OUT OF MEMORY,176,STRING TOO LONG,254,RE-ENTER,6,FILE NOT FOUND,7,VOLUME MISMATCH,8,I/O,12,NO BUFFERS AVAILABLE
11 DATA 13,FILE TYPE MISMATCH,38,SCREEN NAME NOT FOUND,52,SCREEN MEMORY FULL,63,ILLEGAL SCREEN NAME,75,ILLEGAL SCREEN TYPE,6,FILE NOT FOUND,4,WRITE PROTECTED,8,I/O,9,DISK FULL,10,FILE LOCKED
12 FOR I = 1 TO 6: READ TYP(I): NEXT : DATA 3,6,2,5,1,4
15 VTAB 5: ONERR GOTO 30
20 & FRE,I: GOTO 40
25 POKE 216,0
30 PRINT CHR$(4)"BRUN EXTRA.SCREENS"
40 POKE 216,0
50 IF PEEK(16384) < >32 AND PEEK(16385) < >187 THEN PRINT CHR$(4)"BLOADCROP.M"
60 ONERR GOTO 70
65 Z$ = "@Z@Z@Z@Z": & DEL Z$
70 ONERR GOTO 2000
80 & AT 1
100 MN = 6: FOR I = 1 TO MN: READ ME$(I): NEXT : DATA LOAD HI-RES SCREEN FROM DISK,SAVE SCREEN TO MEMORY,CROP SCREEN,LOAD SCREEN FROM MEMORY,LIST SCREENS IN MEMORY,CLEAR VIEWING SCREEN
110 DR = 1:CR = 0: FOR I = 1 TO 6: READ TY$(I): NEXT : DATA HI-RES,DOUBLE HI-RES,LO-RES,DOUBLE LO-RES,40-COLUMN TEXT,80-COLUMN TEXT
120 DIM R(6),B(6): FOR I = 1 TO 6: READ R(I): READ B(I): NEXT : DATA 279,191,559,191,39,47,79,47,39,23,79,23