Chain Reaction: CHAIN.B

  10 REM  NEXT  INVERSE !@> COPY 7 STEP V INVERSE !FN a N> COPY 7 STEP V INVERSE !>=CODE 8P> COPY 7 STEP V GO SUB {[ LET  GO SUB G MOVE  LLIST STR$  INK  CLEAR  LLIST *[ INVERSE ![FN > COPY 7 RESTORE NOT V
  20 CLEAR VAL "24999": BORDER VAL "0": PAPER VAL "0": INK VAL "0": CLS : PRINT  INK 7;AT 18,2;"STUDIO KOMPUTEROWE";AT 19,5;"D.H.JUVENTUS";AT 20,2;"`odz.Mickiewicza26";AT 21,2;"ZAPRASZA od11 do17": RANDOMIZE USR (PEEK VAL "23635"+VAL "256"*PEEK VAL "23636"+VAL "5")