--- title: "Feast Of Classics" type: "article" slug: "feast-of-classics" url: "http://localhost/article/feast-of-classics/" markdown_url: "http://localhost/article/feast-of-classics.md" published_at: "2025-02-24T01:47:49+00:00" modified_at: "2025-02-27T12:48:52+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "This program will play one of seven musics (including the MENU music). To choose a music just press at any time the letter of the music you have chosen. You can also choose to play all musics (except the MENU music), to do so just press [G] and the musics will be played over and…" category: - name: "Byte Power" slug: "byte-power" taxonomy: "category" url: "http://localhost/category/periodicals/byte-power/" post_tag: - name: "Downloadable" slug: "downloadable" taxonomy: "post_tag" url: "http://localhost/tag/downloadable/" - name: "TS 2068" slug: "ts2068" taxonomy: "post_tag" url: "http://localhost/tag/ts2068/" model: - name: "Timex/Sinclair 2068" slug: "ts-2068" taxonomy: "model" url: "http://localhost/model/ts-2068/" indiv: - name: "Eric Boisvert" slug: "boisvert-eric" taxonomy: "indiv" url: "http://localhost/indiv/boisvert-eric/" publication_r: id: 38570 title: "Byte Power 1st Class Magazine" type: "periodical" url: "http://localhost/periodical/byte-power-1st-class/" authors_r: - name: "Eric Boisvert" slug: "boisvert-eric" taxonomy: "indiv" url: "http://localhost/indiv/boisvert-eric/" issues_articles: - id: 38571 title: "Byte Power Aug 1986" type: "issue" url: "http://localhost/issue/byte-power/" pubdate: "August 1986" archive_link: false article_media: - id: 59111 title: "Feast Of Classics" type: "computer_media" url: "http://localhost/computer_media/feast-of-classics/" --- # Feast Of Classics This program will play one of seven musics (including the MENU music). To choose a music just press at any time the letter of the music you have chosen. You can also choose to play all musics (except the MENU music), to do so just press [G] and the musics will be played over and over again. To Quit the program just press [Q] at any time. Loading Name FEAST Loading Time 1 min 15 seconds Program Type Music Entertanment Written By Eric Boisvert ## Source Code: 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 0I$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 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 \iHB&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" ```