10 CALL CLEAR
20 CALL SCREEN(6)
30 CALL CHAR(97,"103810387C7C7C38")
40 CALL CHAR(113,"")
50 CALL CHAR(104,"3C6EDFDFFFFF7E3C")
60 CALL COLOR(9,16,6)
70 CALL COLOR(10,2,6)
80 CALL COLOR(11,16,6)
90 DATA "aaaqqqaaqqaqqqaqaqqqaqaqqaqaaaa","aqqaqaqqaqaqqqaqaqqqaqaaqaqaqqq","aaaqqaqqaqaqaqaqaqqqaqaqaaqaqaa"
100 DATA "aqqaqaqqaqaqaqaqaqqqaqaqqaqaqqa","aaaqqqaaqqqaqaqqaaaqaqaqqaqaaaa","qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"
110 DATA "qqqqDIqOSVALDOqCONTENTIq1985qqq"
120 CALL COLOR(5,16,6)
130 CALL COLOR(6,16,6)
140 CALL COLOR(7,16,6)
150 CALL COLOR(4,16,6)
160 CALL COLOR(3,16,6)
170 FOR TT=1 TO 7
180 READ T$
190 FOR A=1 TO 31
200 CALL HCHAR(TT+8,A+1,ASC(SEG$(T$,A,1)))
210 NEXT A
220 NEXT TT
230 CALL HCHAR(7,22,104)
240 CALL SOUND(200,3000,5)
250 FOR A=1 TO 1000
260 NEXT A
270 CALL CLEAR
280 CALL SCREEN(16)
290 CALL COLOR(1,16,2)
300 A$="aqaqaqa"
310 F$="aGAMEaOVERaSaNa"
320 F=0
330 CP=1
340 PU=0
350 ST=0
360 SP=0
370 TI=1
380 CALL CHAR(40,"3C6EDFDFFFFF7E3C")
390 CALL CHAR(41,"")
400 CALL CHAR(129,"3F3D39352D35393D")
410 CALL CHAR(144,"38787C74FEFCFCB")
420 CALL CHAR(145,"7078686C747F3F44")
430 CALL CHAR(146,"7EFEFE5858787C1E")
440 CALL CHAR(112,"00303C7F7CF0C")
450 CALL CHAR(136,"00303C7F7CF0C")
460 CALL CHAR(137,"")
470 CALL CHAR(128,"FFFFFF")
480 CALL COLOR(13,3,2)
490 CALL COLOR(2,2,14)
500 CALL COLOR(3,16,2)
510 CALL COLOR(4,16,2)
520 CALL COLOR(5,2,10)
530 CALL COLOR(6,2,10)
540 CALL COLOR(14,16,14)
550 CALL COLOR(7,2,10)
560 CALL COLOR(8,2,11)
570 CALL COLOR(15,16,6)
580 CALL HCHAR(12,1,41,32)
590 FOR A=13 TO 19
600 CALL HCHAR(A,1,113,32)
610 NEXT A
620 CALL HCHAR(20,1,41,32)
630 CALL VCHAR(12,32,129,9)
640 CALL HCHAR(9,14,83)
650 CALL HCHAR(8,14,128,5)
660 CALL HCHAR(22,11,80)
670 CALL HCHAR(23,13,62,6)
680 CALL HCHAR(5,4,84)
690 CALL HCHAR(5,6,49)
700 CALL HCHAR(4,4,128,4)
710 T=31
720 P=14
730 N=15
740 CALL HCHAR(15,3,104)
750 IF CP=2 THEN 860
760 FOR A=14 TO 16
770 CALL HCHAR(A,2,A+130)
780 NEXT A
790 CALL HCHAR(15,3,104)
800 FOR A=7 TO 1 STEP-2
810 FOR B=1 TO A
820 CALL HCHAR((T-11)-B,T,ASC(SEG$(A$,B,1)))
830 NEXT B
840 T=T-1
850 NEXT A
860 FOR RI=12 TO 20
870 CALL KEY(1,K,S)
880 IF(RI=12)-(RI=20)THEN 890 ELSE 920
890 CALL HCHAR(RI,8,136)
900 CALL HCHAR(RI,8,137)
910 GOTO 940
920 CALL HCHAR(RI,8,112)
930 CALL HCHAR(RI,8,113)
940 IF K=18 THEN 970
950 NEXT RI
960 GOTO 860
970 FOR X=1 TO 6
980 CALL KEY(1,K,S)
990 CALL HCHAR(22,12+X,128)
1000 IF S=0 THEN 1040
1010 NEXT X
1020 CALL HCHAR(22,13,32,6)
1030 GOTO 970
1040 CALL HCHAR(15,3,113)
1050 CALL HCHAR(16,2,104)
1060 CALL HCHAR(16,2,146)
1070 CALL HCHAR(16,3,104)
1080 CALL SOUND(-10,-7,0)
1090 CALL SOUND(-4200,-5,28,110,18)
1100 ON RI-11 GOTO 1110,2090,2540,1790,1310,1800,2560,2110,1130
1110 RESTORE 3040
1120 GOTO 1140
1130 RESTORE 3050
1140 CALL HCHAR(16,3,113)
1150 FOR A=1 TO 2
1160 READ R,C
1170 CALL HCHAR(R,C,104)
1180 CALL HCHAR(R,C,113)
1190 NEXT A
1200 READ R,C
1210 CALL HCHAR(R,C,40)
1220 CALL HCHAR(R,C,41)
1230 CALL SOUND(-4200,-6,20)
1240 FOR A=7 TO 31
1250 CALL HCHAR(RI,A,40)
1260 CALL HCHAR(RI,A,41)
1270 NEXT A
1280 CALL SOUND(-100,-8,0)
1290 GOTO 2430
1300 CALL HCHAR(16,3,113)
1310 IF(CP=2)*((RI>Y)*(RI<W))THEN 3160
1320 FOR A=3 TO 27
1330 CALL HCHAR(RI,A,113)
1340 CALL HCHAR(RI,A+1,104)
1350 NEXT A
1360 IF(RI=16)-((R<>16)*(X=6))THEN 1380
1370 CALL HCHAR(16,28,113)
1380 CALL VCHAR(N,29,113,3)
1390 CALL SOUND(-10,-7,0)
1400 CALL HCHAR(RI,28,113)
1410 CALL HCHAR(RI,29,104)
1420 CALL VCHAR(P,30,113,5)
1430 CALL SOUND(-10,-7,0)
1440 CALL HCHAR(RI,29,113)
1450 CALL HCHAR(RI,31,104)
1460 IF RI<>16 THEN 1520
1470 ON X GOTO 1480,1690,1740,1520,1590,1480
1480 CALL VCHAR(14,31,113,5)
1490 Y=1
1500 W=21
1510 GOTO 2430
1520 CALL VCHAR(P-1,31,113,7)
1530 IF P-1<>13 THEN 2430
1540 CALL HCHAR(22,13,32,6)
1550 Y=30
1560 IF CP=2 THEN 3460
1570 PU=PU+30
1580 GOTO 3690
1590 RANDOMIZE
1600 Z=INT(2*RND+13)
1610 CALL VCHAR(Z,31,113,6)
1620 IF Z=13 THEN 1660
1630 Y=14
1640 W=21
1650 GOTO 2430
1660 Y=1
1670 W=18
1680 GOTO 2430
1690 CALL VCHAR(13,31,113,4)
1700 CALL HCHAR(18,31,113)
1710 Y=1
1720 W=16
1730 GOTO 2430
1740 CALL VCHAR(16,31,113,4)
1750 CALL HCHAR(14,31,113)
1760 Y=16
1770 W=21
1780 GOTO 2430
1790 ON X GOTO 1810,1810,1300,1890,1890,2040
1800 ON X GOTO 1850,1850,1300,1930,1930,1990
1810 P=13
1820 Y=1
1830 W=17
1840 GOTO 1300
1850 P=15
1860 Y=15
1870 W=21
1880 GOTO 1300
1890 N=14
1900 P=13
1910 Y=1
1920 W=16
1930 GOTO 1300
1940 N=16
1950 P=15
1960 Y=16
1970 W=21
1980 GOTO 1300
1990 N=16
2000 P=15
2010 Y=17
2020 W=21
2030 GOTO 1300
2040 N=14
2050 P=13
2060 Y=1
2070 W=15
2080 GOTO 1300
2090 RESTORE 3060
2100 GOTO 2120
2110 RESTORE 3070
2120 FOR A=1 TO 4
2130 READ R,C
2140 CALL HCHAR(R,C,104)
2150 CALL HCHAR(R,C,113)
2160 NEXT A
2170 IF(CP=2)*((RI>Y)*(RI<W))THEN 3100
2180 FOR A=6 TO 30
2190 CALL HCHAR(RI,A,113)
2200 CALL HCHAR(RI,A+1,104)
2210 NEXT A
2220 IF RI=13 THEN 2240
2230 IF X>3 THEN 2330 ELSE 2250
2240 IF X>3 THEN 2380 ELSE 2250
2250 CALL HCHAR(RI,31,113)
2260 IF RI=19 THEN 2300
2270 Y=1
2280 W=14
2290 GOTO 2430
2300 Y=18
2310 W=21
2320 GOTO 2430
2330 CALL SOUND(-10,-7,0)
2340 CALL VCHAR(17,31,113,3)
2350 Y=1
2360 W=21
2370 GOTO 2430
2380 CALL SOUND(-10,-7,0)
2390 CALL VCHAR(13,31,113,3)
2400 Y=1
2410 W=21
2420 GOTO 2430
2430 CALL HCHAR(20,31,137)
2440 CALL HCHAR(12,31,137)
2450 CALL HCHAR(22,13,32,6)
2460 FOR A=1 TO 500
2470 NEXT A
2480 ON CP GOTO 2510,2490
2490 CP=1
2500 GOTO 3240
2510 CP=2
2520 IF TI<11 THEN 710
2530 IF(TI=11)*(F=2)THEN 710 ELSE 3240
2540 RESTORE 3080
2550 GOTO 2570
2560 RESTORE 3090
2570 FOR A=1 TO 4
2580 READ R,C
2590 CALL HCHAR(R,C,104)
2600 CALL HCHAR(R,C,113)
2610 NEXT A
2620 IF(CP=2)*((RI>Y)*(RI<W))THEN 3100
2630 FOR A=6 TO 28
2640 CALL HCHAR(RI,A,113)
2650 CALL HCHAR(RI,A+1,104)
2660 NEXT A
2670 IF RI=18 THEN 2690
2680 IF X>3 THEN 2700 ELSE 2790
2690 IF X>3 THEN 2870 ELSE 2960
2700 CALL HCHAR(15,29,113)
2710 CALL VCHAR(14,30,113,3)
2720 CALL SOUND(-10,-7,0)
2730 CALL HCHAR(14,29,113)
2740 CALL HCHAR(14,31,104)
2750 CALL VCHAR(13,31,113,5)
2760 Y=1
2770 W=15
2780 GOTO 2430
2790 CALL HCHAR(14,30,113)
2800 CALL SOUND(-10,-8,0)
2810 CALL HCHAR(14,29,113)
2820 CALL HCHAR(14,31,104)
2830 CALL VCHAR(13,31,113,3)
2840 Y=1
2850 W=14
2860 GOTO 2430
2870 CALL HCHAR(17,29,113)
2880 CALL VCHAR(16,30,113,3)
2890 CALL SOUND(-10,-7,0)
2900 CALL HCHAR(18,29,113)
2910 CALL HCHAR(18,31,104)
2920 CALL VCHAR(15,31,113,5)
2930 Y=17
2940 W=21
2950 GOTO 2430
2960 CALL HCHAR(18,30,113)
2970 CALL SOUND(-10,-7,0)
2980 CALL HCHAR(18,29,113)
2990 CALL HCHAR(18,31,104)
3000 CALL VCHAR(17,31,113,3)
3010 Y=17
3020 W=21
3030 GOTO 2430
3040 DATA 14,4,13,5,12,6
3050 DATA 18,4,19,5,20,6
3060 DATA 16,3,15,4,14,5,13,6
3070 DATA 16,3,17,4,18,5,19,6
3080 DATA 16,3,15,4,14,5,14,6
3090 DATA 16,3,17,4,18,5,18,6
3100 FOR A=6 TO 30
3110 CALL HCHAR(RI,A,113)
3120 CALL HCHAR(RI,A+1,104)
3130 NEXT A
3140 CALL HCHAR(RI,31,113)
3150 GOTO 2430
3160 FOR A=3 TO 30
3170 CALL HCHAR(RI,A,113)
3180 CALL HCHAR(RI,A+1,104)
3190 NEXT A
3200 CALL HCHAR(RI,31,113)
3210 CALL SOUND(-100,-8,0)
3220 GOTO 2430
3230 REM  PUNTI 
3240 FOR A=13 TO 19 STEP 2
3250 CALL GCHAR(A,31,BI)
3260 IF BI=113 THEN 3280
3270 RB=RB+1
3280 NEXT A
3290 FOR A=14 TO 18 STEP 2
3300 CALL GCHAR(A,30,BI)
3310 IF BI=113 THEN 3330
3320 RB=RB+1
3330 NEXT A
3340 FOR A=15 TO 17 STEP 2
3350 CALL GCHAR(A,29,BI)
3360 IF BI=113 THEN 3380
3370 RB=RB+1
3380 NEXT A
3390 CALL GCHAR(16,28,BI)
3400 IF BI=113 THEN 3420
3410 RB=RB+1
3420 IF RB=0 THEN 3460
3430 PU=PU+(10-RB)
3440 GOTO 3510
3450 REM  SPEAR 
3460 PU=PU+20
3470 SP=SP+1
3480 CALL HCHAR(6,12,92,SP)
3490 IF TI=10 THEN 3500 ELSE 3510
3500 F=1
3510 P$=STR$(PU)
3520 FOR A=1 TO LEN(P$)
3530 CALL HCHAR(9,15+A,ASC(SEG$(P$,A,1)))
3540 CALL SOUND(100,PU+440,5)
3550 NEXT A
3560 IF TI=11 THEN 3750
3570 IF TI<10 THEN 3590
3580 IF(TI=10)*(F>0)THEN 3590 ELSE 3750
3590 CP=1
3600 RB=0
3610 TI=TI+1
3620 T$=STR$(TI)
3630 FOR A=1 TO LEN(T$)
3640 CALL HCHAR(5,5+A,ASC(SEG$(T$,A,1)))
3650 CALL SOUND(50,-1,5)
3660 NEXT A
3670 GOTO 710
3680 REM  STRIKE 
3690 ST=ST+1
3700 CALL SOUND(300,1047,5,1319,5,1568,5)
3710 CALL HCHAR(4,12,88,ST)
3720 IF TI=10 THEN 3730 ELSE 3510
3730 F=2
3740 GOTO 3510
3750 FOR A=1 TO LEN(F$)
3760 CALL HCHAR(16,7+A,ASC(SEG$(F$,A,1)))
3770 NEXT A
3780 CALL KEY(0,K,S)
3790 IF K=83 THEN 270
3800 IF K=78 THEN 3820
3810 GOTO 3780
3820 END
