10 REM ***** HIRES-DEMO *****
11 REM
15 V=13*4096 : VC=V+13*256 : REM POINTERS TO VIDEO CHIPS
20 POKE VC,PEEK(VC)AND 254 : REM SET UP VIC CHIP
30 POKE V+24,8 : S=24*1024 : C=16*1024 : REM CHANGE VIDEO MATRIX BASE
40 POKE V+17,PEEK(V+17)OR 32 : REM SELECT BIT MAP MODE
44 REM
45 REM THE HIRES SCREEN IS NOW AT $6000 AND THE COLOUR AT $4000
46 REM
50 FOR X=0 TO 8192 : POKE S+X,0 : NEXT
60 FOR X=0 TO 1024 : POKE C+X,1 : NEXT
64 REM
65 REM THAT CLEARED THE GRAPHICS AREA AND SET IT ALL TO WHITE
66 REM
70 W1=10 : W2=100
80 FOR I=0 TO 6.5 STEP 0.02 : X=W1*SIN(I)+160 : Y=W2*COS(I)+100
90 X=INT(X+0.5) : Y=INT(Y+0.5) : GOSUB 2000
95 NEXT : W1=W1+5 : W2=W2−5 : GOTO 80
1997 REM
1998 REM ***** PLOT SUBROUTINE *****
1999 REM
2000 Y1=INT(Y/8) : Y2=Y−Y1*8
2010 X1=INT(X/8) : X2=X−X1*8
2020 CH=(Y1*320)+(X1*8)+Y2 : BI=2↑(7−X2)
2030 POKE S+CH,PEEK(S+CH)OR BI : RETURN
READY.
