0 CRED = 1
 1  FOR I = 1 TO 100: IF  PEEK ( - 16384) > 127 THEN  GET TYI$: NEXT I
 3  IF TYI$ = "S" THEN CRED = 0
 4  VTAB 10: PRINT "TO RUN WITHOUT CREDITS, HOLD DOWN THE  ": PRINT "[S] KEY WHILE LOADING"
 5  HGR 
 6  HOME 
 7  IF CRED = 0 THEN  GOTO 10
 8  INVERSE : VTAB 23: HTAB 13: PRINT "BY STEVE BENSON"
 9  VTAB 21: HTAB 18: PRINT "RAYS"
 10  FOR I = 1 TO 150
 15  HCOLOR= CC
 20 X =  RND (1) * 279 + 1
 25 CC =  RND (1) * 7 + 1
 30 Y =  RND (1) * 159 + 1
 40  HPLOT 0,0 TO X,Y
 50  NEXT I
 60  GOTO 5