Rodland: RODLAND.B

  0 PAUSE USR 0:  REM RodlandDisk Version : Kirkov Aleksey> OPEN # RETURN !@@u GO SUB VAL 6DGBG GO SUB O!POINT ] GO SUB _VAL$ w# RANDOMIZE  VERIFY 0/@2RND© SAVE  BEEP [K]lNPI;SGN [L]#"<=Ra&x2 CLOSE #tTAN [E]]#[K]QeACS  BRIGHT G,PIFl NEW  READ w;©▗z©[M][Q] BORDER 9A AND  TO W DATA  LPRINT u[I]EXP <=avINKEY$AT 7{:BIN USR U:H OUT  LPRINT PIy PAUSE INKEY$oC[A]PEEK )iYACS  DEF FN G, PAUSE  ERASE LEN k! LIST [O]In[G]VAL$ 'LABS SIN [B]K/ FORMAT  RETURN i) PLOT  ▙lYABS [C] LET +`w&"ABS PZi LINE [N]y[M]TTAN  INPUT [K] LINE #[E]NO' _* LINE ([Q]x! IF  LPRINT INT 5[I]p[I][C][G][M] FORMAT  CONTINUE Y LIST  MERGE IN c>= NEW  CLOSE #[E] LOAD EXP ▚[B] READ N OR QIN INT I$SQR  RESTORE 0 GO SUB [C]sFN  READ [C]USR H/D;P GO TO CODE  CONTINUE qr<>=[D] PAUSE CODE }bI[^<[J]/TAN k8 NEXT <> CLEAR © GO SUB y<>!`A RESTORE  OR STR$  LLIST LEN >oPEEK  #>dPEEK  >o^#VB<> GO SUB [ POKE / MOVE #>PABS ( NEXT  CIRCLE  INVERSE ~oPI>=&)))< MERGE ~ STEP _ STEP _# PRINT  MOVE  INVERSE # INVERSE z NEW USR { AND  _ CIRCLE z VERIFY W<> GO SUB S POKE /<>