ULTIMATE SCREEN: Ultimate ?.B

  0 RANDOMIZE USR 0
  33024 PAPER / NEXT  MOVE  MERGE c.C GO SUB VAL <>1= RETURN >?!X RESTORE - MOVE wCH GO SUB VAL  RESTORE  MERGE !1 IF P RESTORE  MERGE ▜o&))~ACS , SAVE  MOVE  LLIST   NEW  MOVE  LLIST VAL VAL &o_> RETURN W MERGE ! IF A^, CLS A^,~, RANDOMIZE  MOVE  GO SUB VAL @!!Z RESTORE  MOVE -u MERGE  OR  RESTORE  OR  GO SUB VAL STR$ USR X4 OR y PLOT   OPEN # RETURN 45 RETURN 4ACODE  OPEN # RETURN 5 RETURN 4{ACS STR$  BORDER  LLIST , RESTORE   LLIST  LLIST STR$  MOVE k-q THEN 4 GO SUB VAL  INVERSE !IN STR$ POINT 6{7 STEP V RETURN 0SIN  OPEN # RETURN  MERGE  OR  OR  LLIST  MOVE STR$ - GO SUB VAL COS {!IN USR  RESTORE $ OR > STEP  RETURN  RANDOMIZE  GO SUB VAL ▜8 STEP  RETURN  RANDOMIZE  READ  RESTORE  GO SUB VAL  LLIST  READ ▜0 FOR STR$ >=AN# THEN  THEN  OR  CLOSE # IF  INVERSE ▜ ~# CIRCLE ▜ THEN  THEN  PAUSE  RESTORE `▗n}[D][N] TO  BEEP K COPY rsINKEY$X<=Y CAT f CLOSE #X CONTINUE  POKE ▘ NEW  PLOT   OPEN # RETURN 7<>Ultimate screen is loading   Loading error, rewind the tape !