10 REM*********************************
20 REM*                               *
30 REM*  DEMO PROGRAM FOR HIRES       *
40 REM*        ROUTINES               *
50 REM*                               *
60 REM*********************************
70 REM
80 REM
90 IF A=0THEN A=1:LOAD "HIRES.MC",8,1
100 AD=49152
110 SH=AD:REM SET UP HIRES
120 TX=AD+3:REM TEXT RESTORE
130 CH=AD+6:REM CLEAR SCREEN
140 CC=AD+9:REM CLEAR COLOUR
150 PH=AD+12:REM PLOT HIRES
160 PC=AD+15:REM PLOT COLOUR
170 PB=AD+18:REM PLOT BOTH
180 XL=251:REM X LOW
190 XH=252:REM X HIGH
200 YL=253:REM Y COORD
210 CB=2:REM COLOUR BYTE
220 PX=254:REM PLOT INDICATOR
230 REM
240 REM MENU
250 REM
260 PRINT "[147]"
270 PRINT "[158]    HEIGHT OF RESOLUTION - DEMO"
280 PRINT:PRINT TAB(10);"1.  RANDOM DOT PLOT"
290 PRINT:PRINT TAB(10);"2.  RANDOM COLOUR BOXES"
300 PRINT:PRINT TAB(10);"3.  BOTH TOGETHER"
310 PRINT:PRINT TAB(10);"[158]ENTER OPTION"
320 GET I$:IF I$="" THEN 320
330 IF I$>"3" OR I$<"1" THEN 320
331 I=VAL(I$)
340 ON I GOSUB 1000,2000,2000
360 SYS TX:GOTO 260
900 REM
910 REMRANDOM  DOTS
920 REM
1000 POKE CB,7:SYS SH:POKE PX,1
1010 GOSUB 5000
1020 GET I$:IF I$="" THEN 1010
1030 RETURN
1900 REM
1910 REM RANDOM BOXES
1920 REM
2000 POKE CB,7:SYS SH:POKE PX,1
2010 GOSUB 6000
2020 GET I$:IF I$="" THEN 2010
2030 RETURN
4900 REM
4910 REM DO A DOT
4920 REM
5000 X=INT(RND(1)*319):Y=INT(RND(1)*200)
5010 POKE YL,Y:POKE XH,INT(X/256):POKE XL,X-256*INT(X/256)
5020 SYS PH
5040 RETURN
5900 REM
5910 REM RANDOM COLOUR BOX
5920 REM
6000 X=INT(RND(1)*319):Y=INT(RND(1)*200)
6010 POKE YL,Y:POKE XH,INT(X/256):POKE XL,X-256*INT(X/256)
6020 CO=INT(RND(1)*255):POKE CB,CO:IF I=2 THEN SYS PC:GOTO 6030
6025 SYS PB
6030 RETURN