Category : Printer + Display Graphics
Archive   : EGAKAL2.ZIP
Filename : EGAKALB.BAS

'
' EGAKAL EGA Kaleidoscope
'
' Judson D. McClendon
' Sun Valley Systems
' 844 Sun Valley Road
' Birmingham, AL 35215
' (205) 853-8440
' [74415,1003]
'

'
' Compiled using QuickBASIC 4.0 with options /o
'

DEFINT A-Z
RANDOMIZE TIMER
TRUE = -1: MAXCOLORS = 16
X0 = 0: Y0 = 0: X1 = 0: Y1 = 0: X2 = 0: Y2 = 0: XV1 = 0: YV1 = 0: XV2 = 0: YV2 = 0
M = 172: N = 173: F! = 1.8
ESC$ = CHR$(27)

CLS
LOCATE 5, 27: PRINT "K A L E I D O S C O P E"
LOCATE 7, 24: PRINT "(Microsoft BASIC 4.0 version)"
LOCATE 10, 28: PRINT "Judson D. McClendon"
LOCATE 11, 28: PRINT "844 Sun Valley Road"
LOCATE 12, 28: PRINT "Birmingham, AL 35215"
LOCATE 13, 32: PRINT "[74415,1003]"
LOCATE 15, 27: PRINT "Press 'P' to pause,"
LOCATE 16, 27: PRINT "Press ESCape to exit,"
LOCATE 17, 27: PRINT "Press any key to begin/resume:"
K$ = INKEY$
WHILE K$ = ""
K$ = INKEY$
WEND
IF K$ = ESC$ THEN END

SCREEN 9

WHILE TRUE
CLS
X1 = RND * N: X2 = RND * N: Y1 = RND * X1: Y2 = RND * X2
WHILE RND > .01
XV1 = RND * 11 - 5: XV2 = RND * 11 - 5: YV1 = RND * 11 - 5: YV2 = RND * 11 - 5
HC = INT(RND * MAXCOLORS)
WHILE RND > .1
P1 = (M + X1) * F!: Q1 = M - Y1: P2 = (M + X2) * F!: Q2 = M - Y2: LINE (P1, Q1)-(P2, Q2), HC
P1 = (M - Y1) * F!: Q1 = M + X1: P2 = (M - Y2) * F!: Q2 = M + X2: LINE (P1, Q1)-(P2, Q2), HC
P1 = (M - X1) * F!: Q1 = M - Y1: P2 = (M - X2) * F!: Q2 = M - Y2: LINE (P1, Q1)-(P2, Q2), HC
P1 = (M - Y1) * F!: Q1 = M - X1: P2 = (M - Y2) * F!: Q2 = M - X2: LINE (P1, Q1)-(P2, Q2), HC
P1 = (M - X1) * F!: Q1 = M + Y1: P2 = (M - X2) * F!: Q2 = M + Y2: LINE (P1, Q1)-(P2, Q2), HC
P1 = (M + Y1) * F!: Q1 = M - X1: P2 = (M + Y2) * F!: Q2 = M - X2: LINE (P1, Q1)-(P2, Q2), HC
P1 = (M + X1) * F!: Q1 = M + Y1: P2 = (M + X2) * F!: Q2 = M + Y2: LINE (P1, Q1)-(P2, Q2), HC
P1 = (M + Y1) * F!: Q1 = M + X1: P2 = (M + Y2) * F!: Q2 = M + X2: LINE (P1, Q1)-(P2, Q2), HC
X1 = (X1 + XV1) MOD N: Y1 = (Y1 + YV1) MOD N: X2 = (X2 + XV2) MOD N: Y2 = (Y2 + YV2) MOD N
K$ = INKEY$
IF K$ <> "" THEN
IF K$ = ESC$ THEN
SCREEN 0
END
ELSEIF K$ = "P" OR K$ = "p" THEN
WHILE INKEY$ = ""
WEND
END IF
END IF
WEND
WEND
WEND