--- 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