Scumball: SCUMBA.R.B

Is a part of release: Scumball
File size: 36864
md5: 8e14d766125cc8df5906ebf16cb3e507
  1 CLOSE #USR 0:  DISKED BY FANTOMASSOFT 1994    COPY " NEXT  GO SUB > THEN 7 GO SUB T GO SUB G THEN 7 THEN 7 GO SUB O GO SUB f!@@ COPY u GO SUB VAL 18@!lkmk[D][E]CODE w GO SUB VAL  OPEN # RETURN  OPEN #>2=/2H/2k/1 COPY W INVERSE !^ CLEAR !@[M]LN  GO SUB WFN POINT  GO SUB L_ GO SUB _ GO SUB O INVERSE VAL$ FN POINT ATTR  GO SUB s@*@/AT  GO SUB LTAB  INVERSE wFN ATTR AT / CLEAR w{ INVERSE VAL$ AT FN / GO SUB ~ INVERSE w/ GO SUB LATTR TAB  CLEAR wo INVERSE f RESTORE  INVERSE # CLEAR # INVERSE # CLEAR #xLEN CHR$ wf FLASH  READ  FOR [T] RETURN  REM  POKE  FLASH n BEEP 0u ERASE  CIRCLE -SIN ? OR /▜ BEEP  PLOT  BIN &4 MERGE  CLS  PAPER CHR$ 4[K] RESTORE ▙W INVERSE  AND nFN PIv[O]u MERGE  TO  POKE Y[Q]AT  RANDOMIZE urVAL$ o ERASE 'S[ AND STR$  PLOT  8L$kwySQR 6 AND *©E9 LLIST U NEXT u DEF FN Bm FOR SW GO TO [J]HASN POINT ATN  REM POINT N LOAD [H] OR >=POINT  LOAD © FORMAT EXP  PRINT SQR  OPEN # DIM LEN PEEK I DATA @"▗ CONTINUE tBIN ,.!%. PAUSE Y0FSCREEN$  RANDOMIZE PIACS J OVER FN [O] DATA zh[G][J] PLOT   PLOT  - FLASH  INPUT W FORMAT CHR$  OPEN #▘[E]EXP  INVERSE STR$  OUT  LOAD  CLS g'1.:k FOR  PLOT   DEF FN  LLIST  BORDER L5(0 STEP LEN I[B]EXP POINT  PAUSE OO STOP [I]/n INVERSE )Z INVERSE )#>1▞EXP O▟ STOP Y9AT INT w CIRCLE ? CLEAR %R CAT NOT n[N]8LEN  CLS  RETURN oSTR$ ASN  IF $[D]FN ?2SGN ? GO TO $< BEEP x; GO SUB SCREEN$ d/~POINT  BRIGHT U DEF FN KCOS |pj DRAW  CIRCLE <>v CAT [A] DIM  OVER sE POKE A4▜ OR EXP AT l5AT VAL [O] DIM >=RND PAUSE [C]6K,uFN  IF CHR$  READ  MERGE u OPEN #<= BORDER [G] OUT  DEF FN SIN FN ▗ DEF FN f CAT AT ( PRINT D TO J->= INK  CLEAR  LLIST 5▟(RSQR aCHR$ ]CABS  LET  PLOT  RQ[O] CAT  BORDER  OVER  READ POINT - LIST EXP VAL [O]j INPUT  THEN  ERASE SIN  DATA c[G]y,[E]]ti OUT |[S] CLEAR [H]^ LPRINT 8▞b PAUSE h FOR IN  LET IN  CLEAR L PAUSE > NEXT ▖F<>$▚~▜Hv[N]# GO SUB ~ATTR H[Q]QT DEF FN  OPEN #DFN [A] INK 9 MOVE _[E] INK  LINE H▗w(|INKEY$Z TO j[O][0AU BEEP 3ATN   LIST pAT ~ DATA  CLEAR E GO TO ▛hVNFN } STEP L BORDER  BORDER [STR$ [T]  RESTORE w THEN v[J]e