---
uuid: "1693987734516600767"
title: "LASER1"
date: "1998-06-14"
permalink: "/LASER1.html"
description:
categories:
---
CLS
RANDOMIZE
SCREEN 9
RESTART:
GOSUB BIGI:
REDOX:
X = RND(0)
IF X > 320 THEN REDOX:
REDOY:
Y = RND(0)
IF Y > 620 THEN REDOY:
RECOL:
COL = RND(0)
IF COL > 15 THEN RECOL:
IF COL = 0 THEN RECOL:
IF COL = 8 THEN RECOL:
Z = Y
FOR N = 1 TO 23
FOR E = 1 TO 23
PSET (X, Z), COL
Z = Z + 2
NEXT E
Z = Y
X = X + 2
NEXT N
G$ = INKEY$
IF G$ = "" THEN RESTART:
SCREEN 0
END
BIGI:
FOR A = 283 TO 335
PSET (A, 628), 7
PSET (A, 578), 15
NEXT A
FOR B = 578 TO 628
PSET (283, B), 7
PSET (335, B), 15
NEXT B
FOR C = 295 TO 322
PSET (C, 603), 15
NEXT C
FOR D = 588 TO 618
PSET (295, D), 7
PSET (322, D), 15
NEXT D
RETURN