Listing of file='KALEIDOS' on disk='vmedia/more_games.wvd.zip'
# Sector 723, program filename = 'KALEIDOS' 0010 REM %HEXBLOBS -- AL'S 2236DE DEMO 0011 REM WHAT'S THIS ... 020803 BUSINESS ??? on line 1040. On 8/27/79 we adde d a HEX(0F). 1000 DIM A(3),B(3),C(3),D(3),F(8),M(34,36),S$(24,80)1,Z$1,F$(3)5 1010 MAT READ A,B,C,D : DATA 2,1,1,0,1,-1,0,3,3,2,-1,1 1020 MAT READ F : DATA 1,0,1,0,0,1,0,1 1030 S$()=ALL(00) 1040 PRINT HEX(03060208030F);HEX(0202020F);HEX(020402020F) 1050 PRINT AT(0,28);HEX(0E);" CHARACTER SET GRAPHICS " 1060 PRINT HEX(020402000F) 1070 F$()=HEX(020400000E020402000E020404000E) 1080 V=36 : H=80 1090 N=MOD(N,3)+1 1100 PRINT F$(N) 1110 FOR I=0TO 32 1120 FOR J=ITO 0STEP -2 1130 T=M(I+1,J+3) 1140 U=F(T*4+M(I+1,J+1)+M(I+2,J+2)+M(I+2,J+4)+1) 1150 IF U=TTHEN 1350 1160 M(I+1,J+3)=U 1170 FOR K=1TO 3 1180 P=(A(K)*I+B(K)*J)/2 1190 Q=(C(K)*I+D(K)*J)/2 1200 FOR W=V-PTO V+PSTEP 2*P 1210 FOR X=H-QTO H+QSTEP 2*Q 1220 Y=INT(W/3) : Z=INT(X/2) 1230 Z$=BIN(2^(2*W-6*Y+X-2*Z)) 1240 IF U<>0THEN 1280 1250 Z$=XOR HEX(FF) 1260 S$(Y,Z)=AND Z$ 1270 GOTO 1290 1280 S$(Y,Z)=OR Z$ 1290 Z$=HEX(C0)ADDS$(Y,Z) 1300 PRINT AT(Y,Z);Z$; 1310 KEYIN K$,1380,1380 1320 NEXT X 1330 NEXT W 1340 NEXT K 1350 NEXT J 1360 NEXT I 1370 GOTO 1090 1380 PRINT HEX(0202000F) : LOAD TO9$