1 CALL MAGNIFY(3) :: CALL CLEAR :: CALL SCREEN(2) :: FOR T=1 TO 14 :: CALL COLOR(T,2,2) :: NEXT T
2 DIM F1(90),F2(90),F3(133),L1(90),L2(90),L3(133)
5 RESTORE 10000
6 RESTORE 5000
7 READ A1 :: FOR I=1 TO A1 :: READ L1(I),F1(I) :: NEXT I
8 READ A2 :: FOR I=1 TO A2 :: READ L2(I),F2(I) :: NEXT I
9 READ A3 :: FOR I=1 TO A3 :: READ L3(I),F3(I) :: NEXT I
10 READ A,A$ :: IF A=0 THEN 30
20 CALL CHAR(A,A$) :: GOTO 10
30 RESTORE 90
40 FOR T=1 TO 24 :: READ A$
50 DISPLAY AT(T,1):A$
60 NEXT T
65 CALL VCHAR(1,31,118,96) :: CALL HCHAR(11,13,127)
66 FOR T=1 TO 14 :: CALL COLOR(T,2,7) :: NEXT T
67 CALL SPRITE(#1,88,2,1,28,2,4)
68 CALL POSITION(#1,Y,X) :: IF X<99 THEN 68
69 CALL SPRITE(#1,88,2,36,99,0,4)
70 CALL POSITION(#1,Y,X) :: IF X<119 THEN 70
71 CALL SPRITE(#1,92,2,36,118,0,0)
90 DATA vvvvvvvvvvvvvvvvvvvvvvvvvvvv,vvvvvvvvvvvvv89vvvvvvvvvvvvv,vvvvvvvvv567    :;<vvvvvvvvv
95 DATA vvvvvvv34          =>vvvvvvv,vvvvvv12            ?@vvvvvv
100 DATA vvvvv0     z          Avvvvv,vvvv/      {  \x8b\x8c\x8c\x8c\x8d   \x84Bvvvv
110 DATA vvv-.     |v\x80 vvvvv  \x85vCDvvv,"vvv,      }v\x81 \x8atvt\x89  \x86v\x88Evvv",vv+       ~v\x82 \x8fvvv\x8e  \x8at\x89 Fvv
120 DATA vv*        t\x83 \x8fvvv\x8e  \x8fv\x8e Gvv,vv)       \x8av\x89 \x8fvtv\x8e  \x8ft\x8e Hvv,vv        \x8ft\x8b\x8c\x8dvvv\x8b\x8c\x8c\x8dv\x8e  vv
130 DATA v(      \x8b\x8c\x8dvvvvvvvvvvvv\x8e  Iv,v(      \x8avvvvvvvvvvvvvv\x8e  Iv,vv      \x8fvvvvvvvvvvvvvv\x8b\x8c vv
140 DATA vvU     \x8fvvvvvvvvvvvvvvvuJvv,vvT     \x8fvvvvvvvvvvvvvvv Kvv,vvS     \x8fvvvvvvvvvvvvvvv Lvv,vvvR    \x8fvvvvvvvvvvvvvvvMvvv
150 DATA vvvQP xysvvvvvvvvvvvvvvvNvvv,vvvvOwvvvvvvvvvvvvvvvvvvvvvv
151 DATA vvvvvvvvvvvvvvvvvvvvvvvvvvvv,vvvvvvvvvvvvvvvvvvvvvvvvvvvv
190 S1,S2,S3=1 :: LA=L1(1) :: LB=L2(1) :: LC=L3(1)
200 GS1=8 :: GS2=6 :: GS3=20 :: GOSUB 6000
210 LA,LB=2 :: LC=1 :: GS1=44 :: GS2=42 :: S1=9 :: S2=7 :: S3=21 :: GS3=132 :: GOSUB 6000
220 GOTO 210
5000 DATA 44,8,659,8,698,8,659,8,440,8,523,8,415,8,440,8,440,2,523,1,659,1,523
5001 DATA 2,698,1,880,1,698,2,494,1,587,1,494,1,30000,1,494,1,659,1,494
5002 DATA 8,523,8,440,8,494,8,523,8,349,8,392,16,440
5003 DATA 2,330,2,440,2,523,2,659,1,784,1,698,1,659,5,698,2,30000,2,392,2,494
5004 DATA 2,587,1,698,1,659,1,587,5,659
5010 DATA 42,16,111,16,111,8,111,8,148,8,440,8,440,2,440,1,523,1,440,2,587,1,698,1,587
5011 DATA 2,392,1,494,1,392,1,30000,1,415,1,494,1,415
5012 DATA 8,440,8,349,8,392,8,440,8,294,8,294,16,262
5013 DATA 2,330,2,330,2,440,2,523,1,659,1,587,1,523,5,587,2,30000,2,392,2,392
5014 DATA 2,494,1,587,1,523,1,494,5,523
5020 DATA 132,16,110,16,110,8,110,8,147,1,110,1,220,1,110,1,220,1,110,1,220,1,110,1,220
5030 DATA 1,110,1,220,1,110,1,220,1,110,1,220,1,110,1,220
5031 DATA 1,110,1,220,1,110,1,220,1,175,1,349,1,175,1,349
5032 DATA 1,123,1,247,1,123,1,247,1,330,1,165,1,330,1,165
5033 DATA 1,175,1,349,1,175,1,349,1,175,1,349,1,175,1,349
5034 DATA 1,147,1,294,1,147,1,294,1,147,1,294,1,147,1,294
5035 DATA 1,165,1,330,1,165,1,330,1,165,1,330,1,165,1,330
5036 DATA 1,110,1,220,1,110,1,220,1,110,1,220,1,110,1,220
5037 DATA 1,117,1,175,1,117,1,175,1,117,1,175,1,117,1,175
5038 DATA 1,117,1,196,1,117,1,196,1,117,1,196,1,117,1,196
5039 DATA 1,165,1,330,1,165,1,330,1,165,1,330,1,165,1,330
5040 DATA 1,110,1,220,1,110,1,220,1,110,1,220,1,110,1,220
5041 DATA 1,110,1,30000,1,110,1,30000,1,110,1,30000,1,110,1,30000
5042 DATA 1,147,1,220,1,294,1,220,1,147,1,220,1,294,1,220
5043 DATA 1,196,1,294,1,392,1,294,1,196,1,294,1,392,1,294
5044 DATA 1,131,1,196,1,262,1,196,1,131,1,196,1,262,1,196
6000 LA=LA-1 :: LB=LB-1 :: LC=LC-1
6010 CALL SOUND(-500,F1(S1),0,F2(S2),0,F3(S3),0)
6020 IF LA=0 THEN S1=S1+1 :: IF S1>GS1 THEN RETURN ELSE LA=L1(S1) ELSE Q=(Q>Q)-(Q<Q)*Q :: Q=Q
6030 IF LB=0 THEN S2=S2+1 :: IF S2>GS2 THEN RETURN ELSE LB=L2(S2) ELSE Q=Q+Q :: Q=(Q>Q)-(Q<Q)*Q :: Q=Q
6040 IF LC=0 THEN S3=S3+1 :: IF S3>GS3 THEN RETURN ELSE LC=L3(S3) ELSE Q=Q+1 :: Q=-(S3>A3)-(S3<=A3)*S3 :: Q=L3(S3)
6050 GOTO 6000
6100 LA=LA-1 :: LB=LB-1 :: LC=LC-1
6110 CALL SOUND(-500,F1(S3),F2(S2),0,F3(S3),0)
6120 IF LA=0 THEN S1=S1+1 :: IF S1>GS1 THEN RETURN ELSE LA=L1(S1) ELSE Q=(Q>Q)-(Q<Q)*Q :: Q=Q
6130 IF LB=0 THEN S2=S2+1 :: IF S2>GS2 THEN RETURN ELSE LB=L2(S2) ELSE Q=Q+Q :: Q=(Q>Q)-(Q<Q)*Q :: Q=Q
6140 IF LC=0 THEN S3=S3+1 :: IF S3>GS3 THEN RETURN ELSE LC=L3(S3) ELSE Q=Q+Q :: Q=(Q>Q)-(Q<Q)*Q :: Q=Q
6150 GOTO 6100
10000 DATA 136,F8F8FCFCFEFEFFFFFFF8F0F0E0E0E0E0FF1F0F0F07070707FEFEFFFFFFFFFFFF
10010 DATA 140,7E7EFFFFFFFFFFFF7F7FFFFFFFFFFFFFE0E0E0E0E0E0E0E00707070707070707
10020 DATA 128,80808080C0C0C0C0E0E0E0E0F0F0F0F0F8F8F8F8FCFCFCFCFEFEFEFEFFFFFFFF
10030 DATA 132,18183C3C7E7EFFFF0101030307070F0F1F1F3F3F7F7FFFFF8080C0C0E0E0F0F0
10040 DATA 120,03030303075F3FFFC0C0C0C0C1EFFFFF181818183C3C3C3C7E7E7E7EFFFFFFFF
10050 DATA 124,0101010103030303070707070F0F0F0F1F1F1F1F3F3F3F3F7F7F7F7FFFFFFFFF
10060 DATA 116,FFFFFFE7E7E7E7FFFFF8E0C0C0808080FFFFFFFFFFFFFFFF0105030F1F7F7FFF
10070 DATA 40,FEFEFEFEFEFEFEFEC0C0C0C080808080F0F0F0F0E0E0E0E0FFFFFEFEFCFCF8F8
10080 DATA 44,F0F0E0E0C0C08080FFFFFFFFFEFEFCF8C080800000000000FFFEFCF8F8F0E0E0
10090 DATA 48,FFFEFCF8F0E0C080FFFFFFFCF8E0C080E080000000000000FFFFFFFFFFFEFCF0
10100 DATA 52,FFFCF0C000000000FFFFFFFFFFFCF0C0FFFFFFF000000000FFF0000000000000
10110 DATA 56,FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF0F000000000000FFFFFF0F00000000
10120 DATA 60,FFFFFFFFFF3F0F03FF3F0F0300000000FFFFFFFFFF7F3F0F0701000000000000
10130 DATA 64,FFFFFF3F1F070301FF7F3F1F0F070301FF7F3F1F1F0F07078381C1C0E0E0F0F0
10140 DATA 68,FFFFFFFF7F7F3F1F0F0F070703030101FFFF7F7F3F3F1F1F0F0F0F0F07070707
10150 DATA 72,03030303030101017F7F7F7F7F7F7F7F0101010103030303070707070F0F0F0F
10160 DATA 76,1F1F3F3F7F7FFFFF0101030307070F0F1F3F7F7FFFFFFFFFE0E0F0F8F8FCFEFF
10170 DATA 80,00000000008080C0F8FCFEFEFFFFFFFF8080C0C0E0E0F0F0F8F8FCFCFEFEFFFF
10180 DATA 84,E0E0E0E0F0F0F0F080808080C0C0C0C0
10190 DATA 115,0F1F3FBFFFFFFFFF,88,01071F3F7FFF9F270B0307068E7C300080C08032F3E7FFFFFFFFBE5E14240800
10200 DATA 92,000103070F0F1F1F1E1C090901010000C0E0E0ECDCFCF8F0E0E0E0B09880C070
10210 DATA 0,