image of READY prompt

Wang2200.org

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$