1 CLS
5 READ A, B, C, D, E, F, G, H, I, J
10 A$ = CHR$(A): B$ = CHR$(B): C$ = CHR$(C): D$ = CHR$(D): E$ = CHR$(E)
20 F$ = CHR$(F): G$ = CHR$(G): H$ = CHR$(H): I$ = CHR$(I): J$ = CHR$(J)
30 DATA 219,220,223,240,196,206,215,92,111,1
100 C = 0: Z = 39: GOSUB 1000: COLOR 14: PRINT E$
200 C = 0: Z = 39: GOSUB 1000: COLOR 13: PRINT J$
300 C = 0: Z = 38: GOSUB 1000: COLOR 14, 0: PRINT CHR$(178); : COLOR 15, 0: PRINT A$; : COLOR 14: PRINT CHR$(178)
310 C = 0: Z = 39: GOSUB 1000: COLOR 15: PRINT A$
320 C = 0: Z = 39: GOSUB 1000: COLOR 2: PRINT A$
330 C = 0: Z = 38: GOSUB 1000: COLOR 2: PRINT A$; A$; A$
340 C = 0: Z = 38: GOSUB 1000: COLOR 14, 2: PRINT B$; : COLOR 2, 0: PRINT A$; : COLOR 29, 2: PRINT "."; : COLOR 15, 0: PRINT " "
350 C = 0: Z = 37: GOSUB 1000: COLOR 2: PRINT A$; A$; : COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$
360 C = 0: Z = 37: GOSUB 1000: COLOR 2: PRINT A$; : COLOR 31, 2: PRINT "."; : COLOR 2, 0: PRINT A$; A$; : COLOR 14, 2: PRINT C$; : COLOR 15, 0: PRINT " "
370 C = 0: Z = 36: GOSUB 1000: COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$; A$; : COLOR 9, 2: PRINT J$; : COLOR 2, 0: PRINT A$; A$
380 C = 0: Z = 35: GOSUB 1000: COLOR 2: PRINT A$; A$; A$; : COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$; A$; : COLOR 21, 2: PRINT "."; : COLOR 2, 0: PRINT A$
390 C = 0: Z = 35: GOSUB 1000: COLOR 2: PRINT A$; : COLOR 14, 4: PRINT F$; : COLOR 2, 0: PRINT A$; A$; A$; : COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$; A$
400 C = 0: Z = 34: GOSUB 1000: COLOR 14, 2: PRINT B$; : COLOR 2: PRINT A$; A$; A$; : COLOR 27, 2: PRINT "."; : COLOR 2, 0: PRINT A$; A$; A$; : COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$
410 C = 0: Z = 34: GOSUB 1000: COLOR 2: PRINT A$; : COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$; A$; : COLOR 9, 4: PRINT B$; : COLOR 2, 0: PRINT A$; A$; A$; A$; : COLOR 14, 2: PRINT C$; : COLOR 15, 0: PRINT " "
420 C = 0: Z = 33: GOSUB 1000: COLOR 2: PRINT A$; : COLOR 11, 1: PRINT D$; : COLOR 2, 0: PRINT A$; A$; : COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$; A$; : COLOR 10, 5: PRINT G$; : COLOR 2, 0: PRINT A$; A$; A$; A$
430 C = 0: Z = 33: GOSUB 1000: C = 2: Z = 6: GOSUB 1000: COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$; A$; : COLOR 17, 2: PRINT "."; : COLOR 2, 0: PRINT A$; A$
440 C = 0: Z = 33: GOSUB 1000: COLOR 2: PRINT A$; : COLOR 20, 2: PRINT "."; : COLOR 2, 0: PRINT A$; A$; : COLOR 13, 5: PRINT H$; : COLOR 2, 0: PRINT A$; A$; A$; : COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$; A$; A$
450 C = 0: Z = 33: GOSUB 1000: C = 2: Z = 6: GOSUB 1000: COLOR 28, 2: PRINT "."; : COLOR 2, 0: PRINT A$; A$; A$; : COLOR 14, 2: PRINT C$; B$; : COLOR 2, 0: PRINT A$
455 K$ = CHR$(186): L$ = CHR$(205)
460 C = 0: Z = 34: GOSUB 1000: COLOR 14, 0: PRINT I$; : COLOR 0, 0: PRINT A$; A$; A$; : COLOR 6: PRINT A$; A$; A$; : COLOR 0: PRINT A$; A$; : COLOR 1, 0: PRINT A$; : COLOR 13, 1: PRINT K$; : COLOR 1, 0: PRINT A$
470 C = 0: Z = 33: GOSUB 1000: COLOR 5: PRINT A$; : COLOR 14, 5: PRINT K$; : COLOR 5, 0: PRINT A$; : COLOR 0: PRINT A$; : COLOR 4: PRINT A$; A$; A$; A$; A$; : COLOR 0: PRINT A$; : COLOR 13, 1: PRINT L$; F$; L$; : COLOR 0, 0: PRINT A$: COLOR 15, 0
480 C = 0: Z = 33: GOSUB 1000: COLOR 5: PRINT A$; : COLOR 14, 5: PRINT K$; : COLOR 5, 0: PRINT A$; : COLOR 0, 0: PRINT A$; A$; : COLOR 4: PRINT A$; A$; A$; : COLOR 0: PRINT A$; A$; : COLOR 1: PRINT A$; : COLOR 13, 1: PRINT K$; : COLOR 1, 0: PRINT A$
487 REM I$ = INKEY$: IF I$ = "" THEN GOTO 487
488 REM IF I$ = "q" OR I$ = "Q" THEN GOTO 999
499 FOR I = 1 TO 2
500 SOUND 440, 9
505 GOSUB 2000
510 SOUND 440, 9
520  GOSUB 2000
525 SOUND 440, 18
530 GOSUB 2000
540 NEXT I
550 SOUND 440, 9
560 SOUND 523, 9
570 SOUND 349, 9
575 GOSUB 2000
580 SOUND 349, 9
581 SOUND 440, 36
582 FOR I = 1 TO 4: SOUND 493, 9
583 GOSUB 2000
584 NEXT I
585 SOUND 493, 9
586 SOUND 440, 9
587 GOSUB 2000
588 SOUND 440, 9
589 GOSUB 2000
600 SOUND 440, 9
605 GOSUB 2000
610 SOUND 440, 9
620 SOUND 392, 9
625 GOSUB 2000
630 SOUND 392, 9
635 SOUND 440, 9
640 SOUND 392, 18
645 SOUND 523, 18
650 FOR I = 1 TO 2
655 SOUND 440, 9
660 GOSUB 2000
665 SOUND 440, 9
670 GOSUB 2000
675 SOUND 440, 18
680 GOSUB 2000
685 NEXT I
690 SOUND 440, 9
691 SOUND 523, 9
692 SOUND 349, 9
693 GOSUB 2000
694 SOUND 349, 9
695 SOUND 440, 36
696 FOR I = 1 TO 4
697 SOUND 493, 9
698 GOSUB 2000
699 NEXT I
700 SOUND 493, 9
705 FOR I = 1 TO 3
710 SOUND 440, 9
715 GOSUB 2000
720 NEXT I
725 SOUND 523, 9
730 GOSUB 2000
735 SOUND 523, 9
740 SOUND 493, 9
745 SOUND 392, 9
750 SOUND 349, 36
999 SYSTEM
1000 COLOR C: FOR I = 1 TO Z: PRINT A$; : NEXT I: RETURN
2000 SOUND 32767, 1
2001 I$ = INKEY$: IF I$ = "Q" OR I$ = "q" THEN GOTO 999
2010 RETURN


