10 RANDOMIZE USR (PEEK VAL "23627"+VAL "256"*PEEK VAL "23628")
62257*K/[A]e MERGE @ GO SUB VAL <> NEXT CODE OPEN # RETURN >G2H/2▟/ STEP Df!USR USR COPY 6 GO SUB VAL INVERSE ! AND fUSR INVERSE ! NEW f`USR INVERSE !g[Q]USR STEP [R]g> PRINT STEP f STEP gf STEP xi STEP f LET RETURN (= PRINT POKE STEP gf STEP DfNOT xi:T/ RETURN /(!+g4!&gCODE 2]2 RANDOMIZE /<> INVERSE !i> STEP Hf8 STEP Yf GO SUB INVERSE *!i GO SUB [i> COPY STEP Hf CIRCLE STEP Yf GO SUB 7 NEXT > OPEN # RETURN STEP b> OPEN # RETURN <> NEXT 0u GO SUB _ OPEN # RETURN zCOS RUN <> CLS SAVE STEP vfv{ RETURN > PLOT NEXT <> MERGE PRINT MERGE >x STEP [C]f VERIFY RETURN 8 PLOT MOVE z RETURN FOR LET MOVE <>{ RETURN 0z RETURN 0!X THEN : THEN THEN : THEN THEN : THEN Ww<><>&> CLEAR COPY GO SUB a CLEAR SCREEN$ GO SUB i$SGN PAUSE <> DIZZY part2 (Rus.) COMPRESED AND UNILOADER BY G.R. MAX DNIEPROPETROVSK dizz20 C OR INVERSE ~ RETURN STR$ VERIFY *6/$= DRAW STR$ CODE EXP ( STEP vg INVERSE # FLASH <> STEP cg PRINT OR MERGE STEP [E]g CLS STEP [M]g CLS MOVE STR$ <> OR MERGE STEP [E]g RANDOMIZE LPRINT FOR GO SUB B FOR STEP [E]g RANDOMIZE MOVE STR$ <>~ THEN ACS #<>~ THEN PLOT CLS LN g STEP INVERSE g SAVE >vvvEXP >= GO TO OR STEP hCODE ▝o_H THEN $$ PRINT STEP h} AND o_A BORDER STR$ <> OR STEP h$>[B]o_H THEN $$ PRINT STEP h$} AND o_A RESTORE STR$ <>&PUSR <>
