1 'COLOR BASIC HI RES DEMO. LAUREN32 2024
10 GOSUB190:CLEAR100,9749
15 A=0:I=0:BD=0:SX=0:SY=0:CC=0:P1=0:VR=0:VX=0:BD=9750:VR=10240:VX=16383
20 ?"LOADING USR ROUTINES...":GOSUB110
25 ?"LOADING SPRITES...":GOSUB120
30 ?"CLEARING VRAM...":GOSUB100
35 ?"READY!"
40 GOSUB170
45 IFPEEK(339)=251THENGOSUB180:?"BYE BYE!":END
50 IFPEEK(338)=251THENGOSUB160
55 GOSUB130:GOSUB140
60 FORI=1TO10:GOSUB150:NEXT
65 POKE339,255:POKE338,255:POKE342,255
70 GOTO45
75 END
100 POKE275,38:POKE276,242:POKEBD,40:POKEBD+1,0:POKEBD+2,64:POKEBD+3,0:A=USR(BD)
101 RETURN
110 FORI=0TO13:READA:POKE9970+I,A:NEXT
111 DATA 189,179,237,31,3,174,196,111,128,172,66,38,250,57
112 FORI=0TO250:READA:POKE9986+I,A:NEXT
113 DATA 126,39,14,126,39,22,126,39,158,126,39,32,189,179,237,31,3,141,79,57,189,179,237,31,3,141,101,126,180,244,189,179,237,31,3,141,1,57,166,68,230,69,183,39,247,247,39,248,174,72,166,128,129,9,39,4,167,67,141,38
114 DATA 108,68,230,68,240,39,247,225,70,38,235,182,39,247,167,68,108,69,230,69,240,39,248,225,71,38,219,182,39,247,246,39,248,167,68,231,69,57,52,119,141,94,141,115,52,2,230,67,61,53,2,52,4,198,3,61,83,228,164,234
115 DATA 228,231,164,53,2,53,119,57,141,66,141,87,52,4,198,3,61,228,164,30,137,53,4,193,0,39,5,68,68,90,38,251,30,137,79,57,189,179,237,31,3,166,68,183,39,247,230,69,141,184,166,68,230,69,76,167,68,161,70,47
116 DATA 243,182,39,247,92,225,71,34,6,167,68,231,69,32,229,57,52,87,166,66,230,69,61,31,1,230,68,84,84,58,31,16,227,196,31,2,53,87,57,52,113,134,252,164,68,52,2,230,68,224,228,83,196,3,142,39,249,58,53,2,166,132,53,113,57,1,1,1,4,16,64
117 RETURN
120 FORI=0TO195:READA:POKE9770+I,A:NEXT
121 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,9,1,1,1,1,3,3,3,3,3,1,1,1,1,9,9,1,1,1,1,1,3,1,1,1,1,1,9,9,9,1,1,1,1,1,3,1,1,1,1,1,9,9,9,9,1,1,1,1,3,1,1,1,1,9,9,9,9,9,1,1,1,1,3,1,1,1,1,9,9,9,9,9,9,9,1,1,1,1,1,9,9,9,9,9,9,9,9,1,1,3,3,3,1,1,9,9,9,9
122 DATA 9,9,1,1,3,1,1,1,3,1,1,9,9,9,9,9,1,1,3,1,1,1,1,1,1,9,9,9,9,1,1,1,3,1,1,1,1,1,1,1,9,9,9,1,1,1,3,1,1,1,3,1,1,1,9,9,1,1,1,1,1,3,3,3,1,1,1,1,1,9,1,1,1,1,1,1,1,1,1,1,1,1,1,9
123 RETURN
130 POKEBD+3,0:POKEBD+4,SX:POKEBD+5,SY:POKEBD+6,SX+13:POKEBD+7,SY+13:POKE275,39:POKE276,8:A=USR(BD)
131 RETURN
140 SX=RND(114)-1:SY=RND(178)-1
141 POKE275,39:POKE276,11:POKEBD+4,SX:POKEBD+5,SY:POKEBD+6,14:POKEBD+7,14:POKEBD+8,38:POKEBD+9,42:A=USR(BD)
142 RETURN
150 POKE275,39:POKE276,5:POKEBD+4,RND(128)-1:POKEBD+5,RND(192)-1:A=USR(BD)
151 IFA=0 THENA=2ELSEIFA=2THENA=0
152 POKEBD+3,A:POKE275,39:POKE276,2:A=USR(BD)
153 RETURN
160 IF(PEEK(65314)AND-8)=232THENP1=224ELSEP1=232
161 POKE65314,P1 OR(PEEK(65314)AND7)
162 RETURN
170 POKE65478,0:POKE65480,0:POKE65483,0:POKE65484,0:POKE65487,0:POKE65488,0:POKE65490,0:POKE65472,0:POKE65475,0:POKE65477,0
171 POKE65314,224 OR(PEEK(65314)AND7):POKEBD,40:POKEBD+1,0:POKEBD+2,32:POKEBD+3,0
172 RETURN
180 POKE65478,0:POKE65481,0:POKE65482,0:POKE65484,0:POKE65486,0:POKE65488,0:POKE65490,0:POKE65472,0:POKE65474,0:POKE65476,0
181 POKE65314,0 OR(PEEK(65314)AND7)
182 RETURN
190 CLS
191 ?"LAUREN32 PRESENTS...":FORI=1TO3:EXEC42963:NEXT
192 ?"HI-RES GFX...":FORI=1TO3:EXEC42963:NEXT
193 ?"IN unextended COLOR BASIC!":FORI=1TO3:EXEC42963:NEXT
194 ?"PRESS Q TO QUIT":?"HOLD P TO CHANGE PALETTE":?"AND HAVE A NICE DAY!"
195 ?"LOADING...":IFPEEK(32768)=69THEN?"SORRY, NO EXTENDED BASIC ALLOWED. BYE..."
196 IFPEEK(116)=63THEN?"16K";ELSEIFPEEK(116)=127THEN?"32K+";
197 ?" RAM DETECTED."
198 RETURN
200 REM DUMMY