LSD Megademo: LSD.B

Is a part of release: LSD Megademo
File size: 1440
md5: 14ad62d992ca19ac184eab0e434d8c61
  8224TAN TAN !▙ REM !Q] MERGE xNOT NOT 3 STEP w NEXT  GO SUB ss!PNOT d MERGE  GO SUB VAL !v$▚ PRINT <> GO SUB LN !0▝~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1ATTR NOT  LLIST ; LET w IF 1 NEXT NOT SCREEN$  NEXT 1PIa>0 CLEAR © GO SUB y* POKE /"O![ MERGE NOT NOT 3 STEP SIN ` STEP ^ STEP #[ STEP  LPRINT `CODE >=2[(>© FLASH  RETURN 0 STOP  STEP FN a INVERSE ![M][F#"$[!FN a OR  RESTORE  STEP W[ GO SUB S1[ LLIST STR$ { AND ▟_ THEN ▘W~[C]w GO SUB [R] REM A[M]?[<> NEXT  OR J THEN 9>,8 AND  INVERSE ! NEXT  STEP [H][y*▝>S▘NOT /▚STR$  MERGE  OR  INVERSE ! [S] MOVE $ THEN c  GO SUB <>CHR$ <> INVERSE  RESTORE NOT 0=%*3-MTtk=,8:] COPY  ERASE ▛ COPY 8"# b▝ BEEP ▖<@ COPY  INPUT  DRAW ©0D[J] RETURN  COPY 8 THEN /ACS / OR / THEN / PAPER / LINE / TO / OPEN #/ INK ▛ FLASH / FLASH / FLASH /-[C]/PNOT [I]ACS 1X COPY ![!@ LPRINT P!!EG INVERSE [D] COPY © COPY  COPY  POKE FN K POKE BIN S▝BIN R▛P RANDOMIZE USR 57344 ▘@ BEEP  LLIST ▞? SAVE  COPY ?▞ p L 0[L]j[A]"SCREEN$ ▖jSCREEN$ [A]© FORMAT W COPY BIN © COPY  CIRCLE jVAL ▝AT FN  COPY x COPY  OUT >=▖SCREEN$ [Q]SCREEN$  PAPER FN ▖ MERGE ` MERGE UX▖ COPY USR  COPY IN  LIST ▚U@U▗ASN P▘▖▜[Q]0U[C]UU`SCREEN$ SCREEN$ IN ATTR j[Q] ▞ DRAW @`ATTR SCREEN$ SCREEN$ USR QU▟USR  RETURN  COPY USR ATTR ? LIST  RANDOMIZE SCREEN$ USR ▖V@UU▞ RETURN O▖ CLEAR  COPY ▗VUXP▝ CLS  COPY ▖UUP[U▖SCREEN$ SCREEN$ VAL SCREEN$ ATTR ▝5▖5UV%▜*SCREEN$ SCREEN$ [Q]"SCREEN$ SCREEN$ ▝SCREEN$ #`+▘ STOP ▗@@▜x@ LPRINT S COPY USR  POKE ▝©[U]>=IN ! COPY 6G GO SUB VAL  STEP <` STEP [J]^ STEP  CIRCLE ^NOT ▜`!]JH  OR  MERGE  GO SUB VAL  MOVE STR$  STEP <>^ PAUSE !J▝T] OR [S] GO TO <>z NEW USR { AND  _ CIRCLE z VERIFY W<>!=_[Q]P STEP  CLS ^!M_▞" STOP ^![Q]▘[R]▘08▝_RASN <>~#PI>= MERGE  RESTORE  STEP _ LLIST  MOVE  PAUSE ▜&o))< RESTORE  INVERSE  LLIST  INVERSE ~ INVERSE ACS o&A) CLEAR TAN ASN [F] NEXT  INVERSE #y RETURN 8 FLASH <>NOW LOADINGSTR$ .▝CHR$ .▛FLASH INTRO0..PTMp▟.CHRIS'PART 1p0▝2p"0"▝3PD▞JOKEMETER fLIMITED BOBSwANIMAp▙▛VECTOR BALL"@[B]FIGURESPLANET+POFN ▗WAVESQR ▙BORDER SCROLLYPSQR [S]..THE END RESTORE !} AND ▟o THEN ▗g",` LLIST <>_[D] RETURN USR 8 VERIFY W THEN ?7 THEN ?SCREEN$  NEW  SAVE SCREEN$ g{USR [E]SCREEN$  NEW <=SCREEN$ o{ NEW G> CLEAR ACS w|USR  NEW  PLOT  g9 NEW  > PLOT  @w LN <>[B]X CLS v DRAW PEEK (4#@@CHR$ `<> NEXT >? GO SUB G GO SUB V CLEAR !:/!X' INK  CLS v[H] OPEN # RETURN <▝T6@ GO SUB VAL !@@ COPY u RESTORE Y▘@[0X▚~INT (5#00 GO TO CHR$  RESTORE `<><> CLOSE #