1000 :
1010 REM THIS PGM PERFORMS 2 FUNCTIONS
1020 REM (1) IT IS THE BASIC LOADER FOR
1030 REM     THE SCREEN SWITCH ML PGM &
1040 REM (2) IT INITIALISES 680-727
1050 REM     WITH VALUES TO BE USED IN
1055 REM     ZERO PAGE LOCATIONS 43-66
1060 REM     FOR THE SCREEN SWITCH ML
1065 REM     PGM.
1067 :
1070 POKE51,255:POKE52,159:POKE53,255:POKE54,158:POKE55,255:POKE56,159
1075 GOSUB10000        :REM LOAD ML PGM
1080 SA=PEEK(43)+PEEK(44)*256
1090 EA=PEEK(55)+PEEK(56)*256
1100 INPUT"ENTER REGION 0 ENDING ADDR ==>";R0
1110 IFR0<SAGOTO2050
1120 IFR0>EAORR0=EAGOTO2100
1130 AD=R0:GOSUB9000
1140 POKE51,LB:POKE52,HB :REM SETUP R0
1150 POKE53,LB:POKE54,HB :REM MEMORY
1160 POKE55,LB:POKE56,HB :REM LIMITS.
1170 FORI=0TO23:POKE680+I,PEEK(43+I):NEXT
1180 :
1190 REM SET REGION 1 POINTERS IN 704-727
1200 :
1210 POKER0+1,0       :REM FOR BASIC
1220 R1=R0+2          :REM RGN 1 ADDR
1230 AD=R1:GOSUB9000      :REM START OF
1240 POKE704,LB:POKE705,HB:REM BASIC.
1250 AD=R1+2:GOSUB9000    :REM START OF
1260 POKE706,LB:POKE707,HB:REM VARIABLS
1270 AD=R1+9:GOSUB9000
1280 POKE708,LB:POKE709,HB:REM ARRAYS
1290 POKE710,LB:POKE711,HB:REM START,END
1300 AD=EA:GOSUB9000
1310 POKE712,LB:POKE713,HB:REM STRINGS
1320 POKE714,LB:POKE715,HB:REM UTILITY
1330 POKE716,LB:POKE717,HB:REM MEM LIMIT
1340 FORI=718TO725:POKEI,0:NEXT
1350 AD=R1-1:GOSUB9000
1360 POKE726,LB:POKE727,HB:REM DATA STM
1370 :
1380 PRINT"REGION 0 &[160]1 INITIALISED"
1390 PRINT"REGION ACTIVATED = 0"
1400 SYS40704:END
2000 :
2010 REM  ERROR MESSAGES
2020 :
2050 PRINT"REGION 0 ENDING ADDR,";R0;"<[160]REGION 0 STARTING ADDR,";SA
2060 PRINT"PLEASE REENTER REGION 0 STARTING ADDR"
2070 GOTO1100
2080 :
2100 PRINT"REGION 0 ENDING ADDR,";R0;"> MEMORY LIMIT,";EA
2110 GOTO2060
2120 :
9000 HB=INT(AD/256):LB=AD-(HB*256):RETURN
10000 :
10010 REM  DATA STATEMENTS FOR ML PGM
10020 :
10100 DATA 120,173,20,3,141,171,159,173,21,3,141,172,159,169,39,141,20,3,169
10110 DATA 159,141,21,3,162,0,160,48,189,168,2,157,173,159,232,136,208
10120 DATA 246,88,96,165,197,201,64,240,122,201,3,240,7,201,4,240,3,76
10130 DATA 167,159,174,170,159,240,2,162,24,160,0,141,223,159,185,43,0
10140 DATA 157,173,159,232,200,192,24,144,244,173,223,159,201,3,240,8
10150 DATA 162,0,142,170,159,76,102,159,162,1,142,170,159,162,24,160,0
10160 DATA 189,173,159,153,43,0,232,200,192,24,144,244,165,43,141,129
10170 DATA 2,165,44,141,130,2,165,55,141,131,2,165,56,141,132,2,173,170
10180 DATA 159,9,176,141,228,159,172,134,2,162,0,189,224,159,240,13,41
10190 DATA 191,157,35,4,152,157,35,216,232,76,149,159,108,171,159,0,49
10200 DATA 234,1,8,146,49,174,49,79,69,253,79,253,79,255,79,126,4,2,0
10210 DATA 55,33,4,0,0,8,1,80,50,99,50,99,50,99,255,159,255,159,0,160
10220 DATA 249,156,0,0,144,0,0,0,0,80,51,0,4,210,199,206,189,176,0,117
10230 DATA 117,0,0,117,117,0,0,117,117,0,0,117,117,128,0,117,117,0,0,117
10240 DATA 117,0,0,255,255
10250 FORI= 40704TO 40959
10260 READJ:X=X+J:POKEI,J:NEXT
10270 IFX= 28726THENRETURN
10280 PRINT"DATA STATEMENTS INVALID":END