Feast Of Classics

    0 REM @!gh GO SUB VAL <> LPRINT ▚ LPRINT   3000USR USR USR NOT < CAT 003USR 0USR  ▚  COPY USR ?USR USR 0000 LIST USR COPY LLIST   COPY LPRINT g NEW  3USR DRAW NOT ?0 LIST 0 CAT TO USR DRAW USR LPRINT   LLIST ▚xf▚`03? DRAW NOT NOT 0 LIST LIST DRAW <0? COPY  ▝ COPY ▜ BORDER ▝ RANDOMIZE LPRINT x LPRINT 0 DRAW 0USR USR NOT USR 0 LIST DRAW LIST ?< CAT DRAW NEXT USR    RETURN 00USR <00   00USR 00USR USR LPRINT ▝ SAVE LPRINT FREE  COPY LPRINT ``  DRAW 00USR USR 0<USR LIST 0USR DRAW USR ? DRAW  @ \a@`PEEK LINE  USR 00@p0 TO LPRINT 0USR USR < ▖0USR COPY LIST 0 COPY   \a   \c LINE  ▚\k▙8`▞▛$@,/SIN F&@&,SIN USR ,`▞▛,\a PLAY LEN ▚ COPY COPY © COPY LIST @▀`USR \iSCREEN$  <>I$CHR$ D▘D\a'0C\c▌ PLAY JI<>$p DIM , IF D\c\a PLAY JI? COPY COPY LPRINT ` COPY COPY RETURN @STICK\iSCREEN$  )<>$CBIN \c\a▘D\aBIN \aA\c▌ PLAY JO) H)$▛BIN \c\a$J SAVE 8 ▙ @\c\k "B)B\c\a▌D\aA* PLAY JH)$H)BIN  ▌\ap$BH USR XUSR @PEEK \j LPRINT "A AND 8A▝ LLIST ▀`qVAL$ 8LN READ ▗ CONTINUE \kIINKEY$8 AND \iH<B&8I▞▗LN LLIST ▚8 LPRINT @ ` @` `  \a LPRINT USR 8AUSR USR < CLS SAVE USR > 0@ USR USR  "@> 8AUSR USR TO 0USR USR LPRINT @ LINE INPUT \qD@ ")A▙8`SIN USR  a LPRINT ,&@I,b DEF FN LEN  J AND ,a &$LEN ▛VAL &USR \iA&\iLEN \q LET ▝\b 6c AND , LPRINT ic▙SIN USR  a LPRINT ,&@ $\a$`") LPRINT ,aATTR LIST VAL$ REM LPRINT CONTINUE LPRINT SCREEN$ HSCREEN$ ▌SCREEN$  VAL$ LPRINT VAL$ $rD\cG$I \b<> C<>$pa$0J@a)L $JDVAL HPOINT   PLAY A)$J@G$\c>\a▞ DIM  \b$\cG$I \b<> C<>$p&$$\a PLAY ▀ ")0@\c\cD PLAY FN ▌SCREEN$ AT VAL$ @ LINE LSCREEN$ LINE VAL$ LPRINT SCREEN$ BIN J\q REM AT \q LINE >=SCREEN$ PLAY  ▞$KBIN \c\a ERASE D PLAY I LET )I) Ha$\aKUSR a)D$KBIN \aH DIM PLAY C▞$J@SCREEN$ I<\b *\bPOINT LET $SGN ERASE D PLAY I LET )I) H"BIN $\a PLAY a*POINT \c\cD PLAY FN ▌SCREEN$ ▗SCREEN$ @ PLAY HFN DN\qSCREEN$ ▗ SCREEN$ NVAL$ ▗"AJ\c\a\cD PLAY I "▝)I)$H)A$\aJAD)$ri PLAY A$IUSR "SCREEN$ I \a@"\c)▝$\q\cD PLAY I "▝)I)$H&B$p PLAY *BPOINT BIN $FN SCREEN$ INPUT ▗ REM @ PLAY HVAL$ ▌*\q CONTINUE DH\qVAL$ ▗\qSCREEN$ BFN ▗C▚▗I▀ha▗\kI b AND LN 3▚\c AND \iH<C NEW   READ ▚8a#8I  READ ▚\ca▙8 AND A▙8H>B&LN 3USR \i LLIST H@"▞INKEY$\ik "c AND LN 08B&LN `NOT a▗\kI b AND LN 3▚\c AND \iHB\k READ ▚8A AND LN 08`N▖ INPUT ▘▙*`BIN N REM REM FN NEW n\q STOP ▚@ `  ▙ LPRINT INT ▌tO▌\h CONTINUE u CONTINUE OINT \ht▌KINT MERGE MERGE ▌KtINT OuIN u\huOu.u STOP \h LET ▌ LET t LET K LET ' LET INT .O.INT t LET O\hO LET t.O\hO. CONTINUE CONTINUE \h STOP \\o STOP CONTINUE STOP \o LET .tINT t LET tINT t\st CONTINUE u CONTINUE OINT t▌INT SCREEN$ OSCREEN$ ▌'Kt▌tINT t' INVERSE INT OR INVERSE OR INVERSE MERGE Kt▌tINT t' INVERSE INT OR INVERSE MERGE ' MERGE OR \dRNDINT OR INT INVERSE INT \dn]bnbn REM \dRNDINT OR INT INVERSE 'tINT n\dINT \hINT K. INVERSE INT OR LET K▌ STOP SAVE RND OR \d CONTINUE O STOP t' LET OR INVERSE INVERSE ' INVERSE ' INVERSE 9 INVERSE 9 INVERSE ▌▌ LET \oBIN O STOP Orr▌INT ' LET ▌' LET 9_▌INT STOP STOP O STOP ▌' LET 9▌9 INVERSE LET ' LET OR \d SAVE \d\d\mCODE OR INVERSE LET ' LET OR \d OR LET '\h\d OR MERGE ' MERGE OR \d INVERSE '\d' INVERSE '\d' MERGE 'RND' MERGE 'RND'INT INVERSE INT \dn\dINT INVERSE STOP n\dCODE INVERSE CODE \dnRND INVERSE n INVERSE RND INVERSE n INVERSE CODE INVERSE SAVE INVERSE CODE INVERSE SAVE INVERSE /LN u\h\O\hIN uIN OINT STOP \O\\h\INT K.'K'K_▌INT STOP \O\\h\INT K.'K_INT _' INVERSE LET .'.K. INVERSE RND\dRND\dRND\d OR INVERSE LET .'.RND INVERSE .K INVERSE .KINT .KINT \KINT \DRNDCODE RND\dRNDCODE RNDu.K_K'K_KUbRND\d\dRNDINT OR INT \dn\d SAVE \dRNDINT OR INVERSE '\d' INVERSE '\d' MERGE 'RND' MERGE '\d' LET 'CODE ' LET 'CODE 'nINT nINT .K OR K.K OR K' MOVE SAVE MOVE ' MOVE SAVE MOVE 9tINT t9t INVERSE tt INVERSE n INVERSE t INVERSE n INVERSE t INVERSE INT \dnI]nI]n'RND OR MERGE Ktu CONTINUE OINT t▌INT SCREEN$ OSCREEN$ ▌'Kt▌tINT t' INVERSE INT OR INVERSE OR INVERSE MERGE Kt▌tINT t' INVERSE INT OR INVERSE MERGE Kt▌tINT t' INVERSE INT OR INVERSE MERGE ' MERGE OR \dRNDINT OR INT INVERSE INT \dn]b REM n\dINT OR INVERSE 't▌INT RETURN _9'__▌INT MERGE INT ▌_IN IN rOINT MERGE _▌INT MERGE rOOIN IN MERGE __9'__▌INT MERGE INT ▌_IN IN rOINT MERGE _▌INT MERGE rOOIN IN MERGE _'9_''9_▌_▌INT MERGE ▌▌▌_▌INT MERGE MERGE ▌ MERGE ▌'▌' REM '▌▌' REM '9_''9''9_t99'9_▌INT MERGE _▌INT MERGE rO'IN IN MERGE _'9_''9_▌_▌INT MERGE ▌▌▌_▌INT MERGE MERGE ▌ MERGE ▌'▌' REM '▌▌' REM '9_''9''9_t99'9_▌INT MERGE _▌INT MERGE rOOIN IN MERGE _ RETURN COPY IN rOINT MERGE rIN r MERGE LET MERGE \s MERGE \s LET MERGE _▌INT MERGE ▌INT MERGE rINT MERGE rIN DrIN uSCREEN$ IN DIN D MERGE \s▌_9'9_▌_▌INT MERGE INT 'INT MERGE '9' MERGE '_9O_Or▌rIN INT IN CONTINUE IN rOINT MERGE rIN CONTINUE Drr. RETURN ▌▌_ RETURN ▌_K'K_K▌\s RETURN ▌▌▌ SAVE INVERSE SAVE \s SAVE ▌ SAVE 'K'_\s▌▌_ RETURN ▌_K'K_K▌\s RETURN ▌▌▌ SAVE INVERSE SAVE \s SAVE ▌ SAVE 'K'_\s__K RETURN 99_9' RETURN ▌▌▌ SAVE SAVE INVERSE 'K_K'INT INT INVERSE INVERSE INT INVERSE INVERSE ▌ SAVE SAVE LET SAVE SAVE INT LET ''O''KK_▌INT ▌ LET INT INT INT INT LET LET ▌'' LET '' LET ' LET INT KKKO MERGE __O__O_O\h\hINT LET O_\s RETURN ▌▌__99'▌''▌'▌▌ SAVE INVERSE 'K_ SAVE 'K_▌'K_▌\s▌_K''K_▌▌__K RETURN 99_9' RETURN ▌▌▌ SAVE SAVE INVERSE 'K_K'INT INT INVERSE INVERSE INT INVERSE INVERSE ▌ SAVE SAVE LET SAVE SAVE INT LET ''O''KK_▌INT ▌ LET INT INT INT INT LET LET ▌'' LET '' LET ' LET INT KKKO MERGE __O__O_O\h\hINT LET O_\s RETURN ▌▌__99'▌''▌'▌▌ SAVE INVERSE 'K_ SAVE 'K_▌'K_▌\s▌_K''K_▌▌ RETURN _\s MERGE ▌\s MERGE _\s▌ MERGE __\s MERGE ▌\s_t9_9 REM 9_ RETURN _\s MERGE ▌\s MERGE _\s▌ MERGE __\s MERGE ▌\s_t9_9 REM 9_ RETURN REM SAVE REM _ MERGE _\s_▌_ MERGE REM SAVE REM _ MERGE _\s_▌___\s_▌ MERGE REM SAVE REM _ MERGE _\s_▌_ MERGE REM SAVE REM _ MERGE _\s_▌___\s_▌ MERGE OR INVERSE REM ' REM INVERSE REM ' REM INVERSE OR INVERSE REM OR REM ' REM INVERSE REM ' OR INVERSE REM '' REM INVERSE REM OR ' REM INVERSE OR REM INVERSE OR ' OR OR OR REM '_ REM INVERSE REM INVERSE REM ' OR INVERSE REM '' REM INVERSE REM OR ' RETURN FLASH ▗'>=Qo▗ATTR ▌                                RESTORE FOR FOR LLIST s#r+<> RESTORE ATN FOR GO SUB B PAUSE RESTORE >bkLN  CLS EXP  SAVE STOP ATN RESTORE FOR B0 CLS MERGE !j\>w!H\>w!▟\>w STEP REM > OPEN # RETURN NOT CODE \j!\>w!5\h GO SUB [C\h STEP i\h!7\h GO SUB [5\h FOR GO SUB \q FOR 6!5\h GO SUB [5\h STEP i\h!9\h GO SUB [5\h FOR GO SUB \q FOR 6!5\h GO SUB [5\h STEP i\h!;\h GO SUB [5\h FOR GO SUB \q FOR 6!5\h GO SUB [5\h STEP i\h!;\h GO SUB [;\h@ STEP z\h> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT :9\h OPEN # PLOT > OPEN # PRINT :7\h OPEN # PLOT > OPEN # PRINT >> OPEN # PLOT *7\hATN GO SUB RCHR$ S\iNOT w\j!=\h STEP i\h> OPEN # PRINT :=\h OPEN # PLOT !?\h STEP i\h!;\h GO SUB [;\h STEP s\h!?\h GO SUB [?\h STEP s\h*?\hATN GO SUB R LINE \n\iNOT t\i!=\h GO SUB [=\h STEP i\h*=\hATN GO SUB R LINE EXP \iNOT _\i!A\h:\w#6*A\hATN GO SUB R LINE ERASE \iNOT RESTORE \j!;\h GO SUB [;\h STEP s\h*;\h GO SUB R IF LOAD \iNOT EXP \i!=\h STEP i\h> OPEN # PRINT :=\h OPEN # PLOT !?\h STEP i\h!?\h GO SUB [?\h STEP s\h*?\hATN GO SUB R LINE ,\jNOT !=\h GO SUB [=\h STEP s\h*=\hATN GO SUB R LINE H\jNOT CLS \i*5\h GO SUB [E\hATN GO SUB R LINE X\jNOT <=\h*G\hATN GO SUB RCHR$ t\j!5\h GO SUB [C\h STEP i\hNOT <=\hNOT CODE \j!A\h:\w#6*A\hATN GO SUB R LINE \a\jNOT RESTORE \j!;\h GO SUB [;\h STEP s\h*;\hATN GO SUB R LINE AT \jNOT w\jNOT H\j!=\h STEP i\h STEP █\l!C\h▀ STEP i\h!E\h▗ STEP i\h!G\h STEP i\hNOT TAN \h> OPEN # PRINT >? OPEN # PLOT !G\h STEP i\h*A\hATN GO SUB RCHR$ /\k!=\h STEP i\h STEP █\l!C\h▗ STEP i\h!E\h▌ STEP i\hNOT TAN \h*A\hATN GO SUB RCHR$ e\k!=\h STEP i\h STEP █\l!C\h▌ STEP i\h!E\h▟ STEP i\hNOT TAN \h*A\hATN GO SUB RCHR$ \l\k!=\h STEP i\h STEP █\l!C\h▟ STEP i\h!E\h▙ STEP i\hNOT TAN \h*A\hATN GO SUB RCHR$ MOVE \k!=\h STEP i\h STEP █\l!C\h▙ STEP i\h!E\h\e STEP i\hNOT TAN \h*A\hATN GO SUB RCHR$ \l!=\h STEP i\h STEP █\l!C\h\e STEP i\h!E\h\g STEP i\hNOT TAN \h*A\hATN GO SUB RCHR$ =\l!=\h STEP i\h STEP █\l!C\h\g STEP i\h!E\h\h STEP i\hNOT TAN \h*A\hATN GO SUB RCHR$ ©\l!=\h STEP i\h STEP █\l!C\h▗ STEP i\h!E\h\h STEP i\h!G\h STEP i\hNOT TAN \h*A\hATN GO SUB RCHR$ ▄\l<>NOT CODE \j STEP [h>> BEEP >=\h BEEP > BEEP \h STEP FLASH !> BEEP !;\h STEP i\h!;\h GO SUB [;\h STEP s\h*;\hATN GO SUB R LINE VERIFY \lNOT INT \l<>@
    1 IF PEEK 23681<>0 THEN PRINT AT 0,0;: RANDOMIZE USR 38808: NEW 
    2 CLS : LIST 9999: STOP 
 9999 SAVE "FEAST" LINE 1: VERIFY "FEAST"