Videostop: VIDEOST.B

Is a part of release: Videostop
File size: 3618
md5: 87c6cd192e33d98f9772c24f99ac8174
  10 PAPER USR VAL "23858": POKE VAL "23624",USR VAL "24465": CLEAR VAL "24199": RANDOMIZE USR VAL "5e4": LOAD  "videost cd"CODE 
  20 RANDOMIZE USR VAL "24200"
  30 RANDOMIZE USR VAL "24200"
  168270 DRAW X GO SUB VAL <> RETURN  AND [C][C][C][C] AND  RETURN  RETURN  NEW  AND  NEW  NEW  NEW ▘ RETURN  RETURN  AND [C] PAUSE  AND [O]▘ RETURN  RETURN  AND SIN  NEW  PAUSE [C] AND  RETURN  RETURN  PLOT   NEW  AND INKEY$▘ NEW  RETURN  RETURN ▘[O]▚ PAUSE [C] AND  RETURN  RETURN  AND [O]▚[C][C] AND  RETURN  RETURN ▘ PAUSE  NEW  NEW  DEF FN  DEF FN  RETURN  RETURN  AND [C] AND [C][C] AND  RETURN  RETURN  AND [C][C]CHR$  PAUSE  AND  RETURN  RETURN  AND [C][C][C][C] AND  RETURN  NEXT  INK  OPEN # RETURN  FLASH  RETURN  NEW   PLOT  OIN USR  STEP   CLEAR 0 IF ! RETURN +|ASN   RANDOMIZE  STEP  CLEAR 0 FOR [M] STEP  CLEAR 0 DATA > AND LN 0 LPRINT $  LET <> STEP   CLEAR 0 MERGE x RETURN  CLOSE #0 POKE  STEP   CLEAR  FORMAT  INK : DRAW O2 DRAW  INK &VAL  0 INVERSE u THEN TAB USR yO INVERSE ~TAB USR  INVERSE #SIN . STEP  CLEAR  FORMAT > THEN LN  THEN VAL  ERASE  CLEAR |TAB gzCOS   LINE | RETURN <> STEP   CLEAR  FORMAT NOT ; CLEAR >=>© FLASH  RETURN  FORMAT POINT  NEW  ( NEXT y/O>> OPEN # RETURN 7<> INK yATN (@! DRAW 5~([ RETURN 0B! DRAW 4,,5* DRAW ~ AND 2_ DRAW * DRAW w$w$w$w$w$w$w$w INK NOT # CLEAR  RETURN > GO SUB DPI INK NOT # CLEAR >G2▙Y2Y2[A]Y2[B]Y##NOT ▘ CLEAR O GO SUB [ DRAW * DRAW  PAUSE EXP  CLEAR X RETURN ~NOT  GO TO  CLEAR z NEW  LINE  MOVE  CLEAR  PAUSE  OPEN # CLEAR P-:::NOT  GO TO  CLEAR ~~} NEW  LINE  DATA  CLEAR - PAUSE  NEW  CLEAR h% GO SUB DNOT  GO TO  CLEAR ~~| NEW (% GO SUB S DRAW " DRAW ! DRAW " DRAW ![C]H" DRAW >@2 DRAW  GO SUB D GO SUB D GO SUB DPI INK NOT # CLEAR *, DRAW  THEN < THEN  IF  DRAW > COPY  CONTINUE <ATN  GO SUB B0 IF ▜▜▜MD))){ RETURN   DATA <>CODE 2 DRAW  INVERSE !! DRAW  STEP _ RETURN  STEP  RETURN >2 DRAW >#2[L] CLEAR  INVERSE *. DRAW  GO SUB [, DRAW > COPY 7!k RETURN  RESTORE !? RESTORE NOT  DRAW !X' INK ><>2[L] CLEAR >@ STEP  CLEAR  CIRCLE  CLEAR 6PNOT  GO SUB VAL <> CLEAR 6 STEP R;; LLIST @ MERGE  MERGE  INK  USR X INK #N THEN 9( PLOT  8#~ INK ( INK z NEW  { AND  _z8 VERIFY WC INK  MOVE  MERGE   VERIFY  MOVE  MOVE z INPUT PW MERGE  INK  Y INK #N THEN 9( PLOT  8#~ INK ( INK K INK  MOVE  RESTORE !  FOR  LLIST  MERGE   OUT  MOVE <> COPY  COPY  COPY  COPY [J]<ff~f BORDER '*+dCODE  CIRCLE 5[P] BEEP + LOAD <ff~f BORDER #NOT f~ff BORDER 'H@[I]USR  CONTINUE  LPRINT  GO TO [E]!`tn IF 3cFN ©C>▟3eDdS$6+NOT f~ff BORDER #<r<f<E@[A][A]LN TAN @ TO  OR N LET  LPRINT ▗ OVER [Q]qd;#;183/▝>- POKE [G] PAUSE BIN  VERIFY x POKE  INPUT : NEW [D]tABS E@HVH9 STOP  PRINT H}91!<r<f<#<f<Y6USR `@USR ▘i@&[N] VERIFY ▛py CLEAR < FLASH w LOAD ▛[A]ATTR K▞^'q~"M POKE ABS  OUT  RETURN R FOR LN @[P]E AND Ow GO SUB  THEN [G]<=▙FN  TO  REM K GO SUB  LLIST +[Q]RND LPRINT <f<# RETURN a|`` LIST =R,v]?z▟`.<> CLOSE #U` @@'FN 6 STEP [M]_@VAL$  VERIFY `@3 STEP ▜VAL$ >=VAL$ nE RUN [Q]ASN P DIM  REM  LIST [R]C POKE ! RETURN a|`` LIST #~Z<'D70&:^w[D]m PRINT  LINE [P]1USR >ACS `[Q] CIRCLE [A]`[Q]0 LIST  LPRINT 9N'▙ OUT  BEEP Z@0▗LN ;<r(!WqFN ▝[R] CAT [D] DEF FN <=NFN !~Z<U*`[A]0 LIST 0 CIRCLE LN P FORMAT  USR 0[Q]@[Q]@)LN [A] SAVE +USR )SIN TAN  CONTINUE 4@[I][I]D▖0 DATA tC▙Ko GO TO  INPUT  VERIFY FN zAT ( CLOSE #@L LIST Q DRAW ff|` LIST %l+K[P]VAL$ y INVERSE ▚[Q] INPUT  GO SUB  DIM ▚ CIRCLE aR!_[M]#5▚ RUN k_;J[F]0[H]} CAT > FOR  NEXT  TO TAB  LOAD IN  LOAD  TO  COPY VAL$ v NEW  OR CODE  DRAW ff|` LIST #|ff|f PLOT  %j  USR  [Q]USR ``USR [Q]`USR  @ [Q]@USR [Q][Q]@ LPRINT `[Q] LPRINT @ LPRINT   LPRINT p LPRINT  LPRINT USR  USR VAL [Q][Q] @)!s|ff|f PLOT  # RETURN a|`a RETURN %l8vSCREEN$ (vA's!=k?_AZ[R]),O>nU/3)_O1▚6g}/?P![Q] OPEN #}zK7 [ FLASH BIN q RETURN a|`a RETURN #<r<f<%l[L] VERIFY E OPEN #v▛v NEXT [F] CONTINUE [A] FORMAT  LIST @ LIST ▖[Q] LPRINT @@([Q] [Q] LPRINT USR P (` LIST P LIST [C]0NOT  PRINT WG OPEN # RUN  LET RVAL$  PRINT s RANDOMIZE P'F MERGE  NEXT mK LOAD _ DEF FN WTAB ▖#<r<f<#<r<f<%[K] INPUT [B]4ACS [i[E] FORMAT V;>= CAT B|1IN [B]▙T BRIGHT %j[P][A]SGN w2 GO TO EXP  FOR  LOAD  COPY  ERASE [Q] RESTORE  NEW  GO SUB [M] RUN [K] COPY  FORMAT ?<=ABS COS di CLEAR ![H] DATA  RETURN EXP TAN 8lR RETURN  INK VAL$ ,{Dr  LIST @<r<f<#~a|`a~% INPUT qn RUN UHyL9%>7 THEN ATTR 0J LPRINT @%G LINE [H]u PLOT  3 OR  CIRCLE  LET FUSR 5!~a|`a~# BORDER fvnf BORDER %j0@ [Q] OVER TAB [S]l#[T]S<>Z5HFNOT L.©;W<L[G](N OUT -6 CONTINUE  RETURN LN hP(X(H[Q][Q])L▝AT T! FORMAT JVAL  q BORDER fvnf BORDER #~Z<%T▝` LET  LLIST qa)0p BUSR @A169~Z<xBIN x TO x!p COPY  LET W3> LOAD '[VAL$ >=v[ DRAW oAT [F]v REM } PAUSE : STEP !,ATN  RUN @;5 CLS }o©~▚?ACS + DRAW AT w[I] RETURN [ PAUSE ABS  CLS POINT A'`A// CAT +zPEEK IGSCREEN$ FT"(>=LEN ACS  GO TO 3INKEY$1}[K]g▝ PAPER [K]{UH<,LAxBIN x TO x+00%P LET  NEXT [K] BEEP  GO TO { COPY  CLS Oo+[R] CLS @@▖ LPRINT [A]RjEXP  OUT *[R]STR$ e CLOSE # MOVE  LIST  LPRINT VAL  FORMAT  FORMAT 0AT KJINT  NEW [J] BEEP <>w` INVERSE  qYbuP INVERSE e[O]2USR @/-▝ FOR  BEEP o8'00+00# DEF FN  READ  READ LEN  AND  CLEAR  PRINT  CLS O>=n[M] mmATN "PIW OR ATTR [S]@P PAPER E▞_ewOSTR$ !▝AT  CIRCLE ASN `[K]D IF @AX< LIST SIN [F]o^%00+00% IF { LOAD W STEP  CLEAR [P]©F7R DRAW  LPRINT U VERIFY u COPY [U] RANDOMIZE  RESTORE  RANDOMIZE YA BEEP IN ~w REM  LOAD  RETURN p#&P[K]ATTR  COPY  INVERSE [L]u.o LPRINT L1 PRINT  VERIFY @'00USIN INT NTAN [D]uf RETURN  BRIGHT    @[I]( INPUT C2USR  SAVE q'L LPRINT [A]PX( POKE DVAL$ ▗ CONTINUE P▘M[U]L ERASE  ERASE  FORMAT ( STOP y(@FN EXP x[C]hABS (ZVAL$  DEF FN  POKE `[A] @U#@[A][I]P@@@A@ @TAB [A] USR +T -;-7/<'*?(,Y-n1CaYC;/2<>[ $=.[nGcSwVwn6N;#N<>©?-▙M&[A] USR !%llI[G][G] IF [O]j SAVE [Q][Q][A]P CIRCLE [A] VAL FN 0 LPRINT USR PX`>=[I] SAVE :yio GO SUB [C]; BORDER <1l` PRINT z PRINT LEN  NEXT y~ PLOT  ASN AT USR  LIST @@USR   LPRINT @`[Q] LIST [D]` VERIFY  CIRCLE h[I] RANDOMIZE  PRINT  LLIST ` PTAN ` FORMAT >=USR  LIST  LIST USR VAL USR 0 %#▚▚NOT %, COPY f[K]8 GO TO AEXP @[Q]-"@@ $USR INKEY$ PRINT }& RUN PEEK : NEXT  STEP 1@ OUT  FOR Nr[J]INT  RESTORE MCOS [R]@U_ BORDER T"FSTR$ K▚▚NOT #NOT ff READ `NOT #[ OUT NATTR J[G][N]=A PRINT *|© OUT IN } COPY  RANDOMIZE [M]▝▖HT CLOSE # IF [L] GO SUB  CLS oR[F]$ATTR 5M57▙{[O][O]INOT ff READ `NOT #NOT f` LPRINT fNOT %lq) IF SQR r[P]COS VAL$ }A5N'[I]6=4IN D PAUSE [P] STOP  INPUT i@ !@ FORMAT  CLOSE #bl8 CLS [J] SAVE 5[G]v? !'m DEF FN 7@/6 RESTORE [K]#fKNOT f` LPRINT fNOT #USR ` LPRINT  LPRINT `USR )`[M]L CONTINUE X OVER  CONTINUE  RANDOMIZE SGN [T PAUSE L LIST SGN d INVERSE [N] DEF FN  SAVE l DEF FN  COPY > CLOSE #LN dBIN dUSR AT [C]▖ ``@-8 [Q]@>=hH LPRINT @@$ LPRINT x CONTINUE ▖0LN ( FORMAT USR (P@@OUSR ` LPRINT  LPRINT `USR o COPY  COPY [H]E5 COPY  COPY  STEP 3+Q5C