Kosmos: KOSMOS.B

  1 RANDOMIZE USR VAL "23884": REM >2k/ STEP !"=/CODE 2H/2Z/2]! LET <>"CHR$ /!@@ LPRINT u GO SUB VAL 6 GO SUB VAL x OPEN # RETURN  DRAW  PRINT CODE  OPEN # RETURN *USR ]~ RETURN  COPY  LINE  POKE ]o&)))< GO SUB [CHR$ ]~ACS  STEP BIN ]# PLOT  *USR ]+"USR ]*CHR$ ]#"CHR$ ] STEP  NEXT ] LPRINT Pz NEW USR { AND  _ CIRCLE z VERIFY W<> COPY   .dtL MOTNAHP YB NOISREV KSID  2 CLS v DRAW CODE 2]/NOT =1COS _!xi STEP  DRAW ] STEP xi!xic STEP  DRAW ]NOT xi