' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2024.09.09.00.00]) on 2025.03.09 at 06:17 (Coordinated Universal Time)
_TITLE "HYPNOT"
' This program by Charlie Veniot is a port (and very minor mod) of a QB64 program by bplus
' The program by bplus is a port and mod of a ZBASIC program ("HYPNOT") found on the internet archive

''_Title "Z Basic port to QB64 mod bplus 2025-03-08"
_INITAUDIO : _SNDWAVE "SAWTOOTH"
SCREEN _NEWIMAGE(320, 200, 12)
LOCATE 6, 4 : PRINT "Warning: turn down volume if high!"

count_down = 6
DO
    LOCATE 12, 20 : PRINT "...zzz " + count_down + " secs";
    SLEEP 1 : count_down = count_down - 1
LOOP UNTIL count_down = 0


CLS
_KEYCLEAR
LOCATE 6, 4 : PRINT "Incoming transmission on screen."
_DELAY 2
CLS
DO
    X1 = 0 : Y1 = 0 : X2 = 320 : Y2 = 200 : XPLUS = INT( RND * 15 ) : YPLUS = INT( RND * 15 )
    C = INT( RND * 16 )
    COLOR C
    SOUND (C + 1) * 1000 - 500, 0.25
    FOR BNUM = 0 TO 150 STEP 15
        IF LEN( INKEY$ ) = 1 _
           THEN : CLS : BNUM = 152
           ELSE : X1 = X1 + XPLUS: Y1 = Y1 + YPLUS: X2 = X2 - XPLUS: Y2 = Y2 - YPLUS
                  LINE ( X1, Y1 ) - ( X2, Y2 ), , B
        END IF
    NEXT
    _DELAY 0.001
LOOP