Listing of file='KALIDOS' on disk='vmedia/games-droz00.wvd.zip'
# Sector 254, program filename = 'KALIDOS' 0001 REM %^ AL BREVELERI'S KALIDOSCOPE 1000 DIM K$(6,13)1, B$6 1010 B$ = HEX(602A5C8B2F2D) 1020 X = 8 1030 Y = 31 1040 FOR I = 2 TO 6 1050 FOR J = 1 TO 13 1060 READ A 1070 K$(I,J) = STR(B$,A,1) 1080 NEXT J 1090 NEXT I 1100 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 1110 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4 1120 DATA 2,3,3,3,2,6,6,6,2,5,5,5,2 1130 DATA 6,6,2,5,5,5,2,3,3,3,2,6,2 1140 DATA 2,1,1,1,2,1,1,1,2,1,1,1,2 1150 PRINT HEX(0306) 1160 Q = RND(1)*5+2 1170 FOR R = 0 TO 7 1180 FOR C = R TO 0 STEP -2 1190 IF RND(1) < .5 THEN 1220 1200 P = 1 1210 GOTO 1230 1220 P = Q 1230 IF R <> 0 THEN 1260 1240 PRINT AT(X+R,Y+2*C) ; K$(P,13) 1250 GOTO 1540 1260 IF C <> 0 THEN 1340 1270 PRINT AT(X+R,Y) ; K$(P,1) 1280 PRINT AT(X+R/2,Y+(3*R)) ; K$(P,5) 1290 PRINT AT(X-R/2,Y+(3*R)) ; K$(P,9) 1300 PRINT AT(X-R,Y) ; K$(P,1) 1310 PRINT AT(X-R/2,Y-(3*R)) ; K$(P,5) 1320 PRINT AT(X+R/2,Y-(3*R)) ; K$(P,9) 1330 GOTO 1540 1340 IF C <> R THEN 1420 1350 PRINT AT(X+R,Y+2*R) ; K$(P,3) 1360 PRINT AT(X,Y+4*R) ; K$(P,7) 1370 PRINT AT(X-R,Y+2*R) ; K$(P,11) 1380 PRINT AT(X-R,Y-2*R) ; K$(P,3) 1390 PRINT AT(X,Y-4*R) ; K$(P,7) 1400 PRINT AT(X+R,Y-2*R) ; K$(P,11) 1410 GOTO 1540 1420 PRINT AT(X+R,Y+2*C) ; K$(P,2) 1430 PRINT AT(X+(R+C)/2,Y+(3*R-C)) ; K$(P,4) 1440 PRINT AT(X+(R-C)/2,Y+(3*R+C)) ; K$(P,6) 1450 PRINT AT(X-(R-C)/2,Y+(3*R+C)) ; K$(P,8) 1460 PRINT AT(X-(R+C)/2,Y+(3*R-C)) ; K$(P,10) 1470 PRINT AT(X-R,Y+2*C) ; K$(P,12) 1480 PRINT AT(X-R,Y-2*C) ; K$(P,2) 1490 PRINT AT(X-(R+C)/2,Y-(3*R-C)) ; K$(P,4) 1500 PRINT AT(X-(R-C)/2,Y-(3*R+C)) ; K$(P,6) 1510 PRINT AT(X+(R-C)/2,Y-(3*R+C)) ; K$(P,8) 1520 PRINT AT(X+(R+C)/2,Y-(3*R-C)) ; K$(P,10) 1530 PRINT AT(X+R,Y-2*C) ; K$(P,12) 1540 NEXT C 1550 NEXT R 1600 GOTO 1160