10 ON ERROR REPORT:ON ERROR OFF:OSCLI"BEEP OFF":END
20 MODE7
30 PRINT"1.....Duurr Doo Duurr"
40 PRINT"2.....Star Wars"
50 PRINT"3.....Ski Sunday"
60 PRINT"4.....MF 2"
70 REPEATA$=GET$:UNTIL INSTR("1234",A$)
80 IF A$="1" RESTORE 180
90 IF A$="2" RESTORE 210
100 IF A$="3" RESTORE 250
110 IF A$="4" RESTORE 280
120 *BEEP
130 REPEAT
140 READ A$:PRINTA$;
150 UNTIL A$=""
160 *BEEP OFF
170 GOTO20
180 DATA "€€€€€€0<0<0<llllll0<0<0<€€€€€€0<0<0<llllllpppppptttttt$0$0$0``````$0$0$0tttttt$0$0$0``````\\\\\\XXXXXX8D8D8Dtttttt8D8D8DXXXXXX8D8D8Dttttttppppppllllll4(4(4(XXXXXX4(4(4(lllllllllllltttttt||||||"
190 DATA "€€€€€€0<0<0<llllll0<0<0<€€€€€€0<0<0<llllllpppppptttttt$0$0$0``````$0$0$0tttttt$0$0$0``````\\\\\\XXXXXX8D8D8Dtttttt8D8D8Dllllll4(4(4(tttttt||||||€€€€€€0<0<0<llllll0<0<0<PPPPPPllllll€€€€€€€€€€€€"
200 DATA ""
210 DATA " <<<<<<<<<<<<<<<<<<<<<<<<<<<444000000(((PPPPPPPPP<<<<<<<<<<<<<<<<<<<<<<<<<<<444000000(((PPPPPPPPP<<<<<<<<<<<<<<<<<<<<<<<<<<<444000000444(((((((((((((((((((((((("
220 DATA "<<<<<<DDDDDDDDDDDDDDDDDDDDDDDDdddddd``````XXXXXXPPPPPPPPPPPPXXX```XXXXXXDDDDDDLLLLLLLLLLLLLLLLLL<<<<<<DDDDDDDDDDDDDDDDDDDDDDDDdddddd``````XXXXXXPPPPPPllllllllllllXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
230 DATA "<<<<<<DDDDDDDDDDDDDDDDDDDDDDDDdddddd``````XXXXXXPPPPPPPPPPPPXXX```XXXXXXDDDDDDLLLLLLLLLLLLLLLLLL<<<<<<PPPPPPHHHHHH@@@@@@<<<<<<444444000000(((((( <<<<<<<<<<<<<<<<<<<<<<<<"
240 DATA ""
250 DATA "tttlllttthhhttt```tttXXXtttTTTtttXXXttt```ttthhhDDDXXXTTTLLLXXXDDDXXX<<<XXX888XXX<<<XXXDDDXXXLLLXXXlllhhh```lllXXXlllTTT"
260 DATA "lllLLLlllDDDlllLLLlllTTTlllXXXlllhhh```hhhllltttlllhhhlll```tttlllttthhhtttlllttt"
270 DATA ""
280 DATA "\\\dddlllddd\\\llllllllll\\\dddlllddd\\\llllllllllXXX\\\ddd\\\XXXddddddddddXXX\\\ddd\\\XXXddddddddddPPPXXX\\\XXXPPP\\\\\\\\\\PPPXXX\\\XXXPPP\\\\\\\\\\\\\\\"
290 DATA "XXXPPPPPPPPPHHHHHHHHHHHHHHHHHHHHHHHH@@@@@@@@@HHHHHHHHH@@@@@@<<<<<<<<<<<<<<<<<<<<<LLLLLLLLLLLLLLLLLLLLLLLLXXXXXXXXXXXXXXXXXXXXXXXXllllllllllllllllllllllll"
300 DATA ""
310
320