' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.08.29.03.37]) on 2023.08.29 at 16:47 (Coordinated Universal Time)
' Port to BASIC Anywhere Machine by Charlie Veniot
' of the "stars.bas" QBasic program found at https://www.bamsoftware.com/hacks/qbasic/index.html

SCREEN 13

CONST NUM = 50
CONST INC = 40
CONST ICANSEE = 50

DIM x(1 TO NUM)
DIM y(1 TO NUM)
DIM z(1 TO NUM)

FOR i = 1 TO NUM
x(i) = RND * 320 - 160
y(i) = RND * 200 - 100
z(i) = RND * ICANSEE
NEXT

DO
FOR i = 1 TO NUM
PSET (INC * (x(i) / z(i)) + 160, INC * (y(i) / z(i)) + 100), 0
IF z(i) <= 1 THEN
z(i) = ICANSEE
x(i) = RND * 320 - 160
y(i) = RND * 200 - 100
ELSE
z(i) = z(i) - 1
END IF
PSET (INC * (x(i) / z(i)) + 160, INC * (y(i) / z(i)) + 100), z(i) MOD 17 + 15
NEXT
_delay 0.04
LOOP