1 REM 
2 REM                              
3 REM          QA-2002       
4 REM                              
5 REM   HUDSON SOFT -  
6 REM                              
7 REM   1982x12q  T.SANO           
8 REM                              
9 REM 
30 M=5:TEMPO5:GOSUB3000
40 GOSUB2000
50 GOSUB2500
55 PRINT"":GOSUB1000
60 X=INT(3*RNG(1)+1)
61 ON X GOTO63,64,65
63 H$=GL$:GOTO70
64 H$=CL$:GOTO70
65 H$=P$
70 COLOR 6:PRINT"          ****    ***"
75 MUSIC"R2D2F2D2F2G4"
80 COLOR 5:PRINT:INPUT"          -=1,=2,-=3 ";A
90 '
93 IF (A=0)+(A>=4) THEN 80
97 GOSUB4000:MUSIC"C1"
100 IF X=A THENCOLOR 3:PRINTTAB(5);H$:GOTO 200
110 IF X=1 THENCOLOR 3:PRINTTAB(5);GL$:GOTO 140
120 IF X=2 THENCOLOR 3:PRINTTAB(5);CL$:GOTO 160
130 IF X=3 THENCOLOR 3:PRINTTAB(5);P$:GOTO 180
140 IF A=2 THEN220
150 IF A=3 THEN250
160 IF A=1 THEN250
170 IF A=3 THEN220
180 IF A=1 THEN220
190 IF A=2 THEN250
200 GOSUB1120
210 GOTO50
220 FOR Z=1 TO2000:NEXT:F=F-1:GOSUB1300
240 GOTO50
250 FOR Z=1 TO2000:NEXT:M=M-1:GOSUB1600
270 GOTO50
280 REM
285 MUSIC"B2R0G1"
290 END
300 COLOR 6:PRINT"        "
310 PRINT"        - -"
320 PRINT"         "
330 PRINT"          "
340 PRINT"        -"
350 PRINT"         "
360 COLOR 6:PRINT"       "
370 PRINT"      "
380 PRINT"      "
390 PRINT"      "
400 PRINT"      "
405 RETURN
410 COLOR 4:PRINT"      "
420 PRINT"      "
430 PRINT"       "
440 PRINT"       "
450 PRINT"       "
455 PRINT"       "
460 RETURN
500 COLOR 6:PRINT"        "
510 PRINT"         -"
520 PRINT"         "
530 PRINT"          "
540 PRINT"        . "
550 PRINT"          "
560 PRINT"       "
570 PRINT"       "
580 PRINT"      "
590 PRINT"       "
600 PRINT"           "
605 RETURN
610 PRINT"       . "
620 PRINT"           "
630 PRINT"      "
640 PRINT"           "
650 PRINT"            "
660 PRINT"            "
670 RETURN
700 COLOR2:PRINT"        "
710 PRINT"         "
720 PRINT"         "
730 PRINT"          "
740 PRINT"        - "
750 PRINT"          "
760 PRINT"       "
770 PRINT"           "
780 PRINT"      . ."
790 PRINT"       "
800 PRINT"           "
805 RETURN
810 PRINT"       . "
820 PRINT"         "
830 PRINT"       "
840 PRINT"           "
850 PRINT"            "
860 PRINT"            "
870 RETURN
1000 COLOR 2:PRINT"                  "
1010 PRINT"                     "
1020 PRINT"                     "
1030 PRINT"                       "
1040 PRINT"                   "
1045 MUSIC"G1F0D1"
1050 COLOR 4:PRINT
1060 PRINT"              "
1070 PRINT"                     "
1080 PRINT"               "
1090 PRINT"               "
1100 PRINT"                 "
1105 MUSIC"G1F0D1"
1110 PRINT:RETURN
1120 REM
1130 COLOR 6:PRINT"g h"
1140 FOR Z=1 TO2000:NEXT
1290 RETURN
1300 REM
1305 MUSIC"G0B0G0B0G0B0"
1310 IF F=0 THEN1450
1320 COLOR 3:PRINT"g   !!h"
1330 FOR Z=1 TO3000:NEXT
1340 GOTO1590
1450 COLOR 3:PRINT"g    !!h"
1460 PRINT
1470 GOTO280
1590 RETURN
1600 REM
1610 COLOR 2:PRINT"***g !!!***h"
1615 MUSIC"G0F0D0F0"
1620 COLOR 3:PRINT:PRINT"g h"
1630 FOR Z=1 TO3000:NEXT
1640 PRINT""
1650 IF M=4 THEN1700
1660 IF M=3 THEN1720
1670 IF M=2 THEN1740
1680 IF M=1 THEN1760
1700 GOSUB500:GOSUB410
1710 GOTO1800
1720 GOSUB500:GOSUB610
1730 GOTO1800
1740 GOSUB700:GOSUB610
1750 GOTO1800
1760 GOSUB700:GOSUB810
1770 COLOR 2:PRINT"-!! g!!h"
1775 MUSIC"A5R0"
1777 FOR Z=1 TO1000:NEXT:PRINT" "
1780 GOTO280
1800 FOR Z=1 TO2000:NEXT
1990 RETURN
2000 REM
2010 COLOR 4:PRINT"**g **h"
2015 GOSUB2500
2020 COLOR 5:PRINT:PRINT"  g    h"
2030 COLOR 4:PRINT:INPUT" g    h";F
2040 '
2050 COLOR 6:PRINT:PRINT" g h"
2060 FOR Z=1 TO2000:NEXT
2100 PRINT""
2110 GOSUB300:GOSUB410
2120 COLOR 3:PRINT"g  .h"
2125 MUSIC"C0D0C0D0C0D0C0D0"
2130 FOR Z=1 TO3000:NEXT
2200 RETURN
2500 MUSIC"G2F2D2F2G4A2G2F2D1R0D2C4"
2510 MUSIC"D4F4D1R0D2C2#A2C2D2C2#A2G4"
2520 RETURN
3000 REM*** -  - ***
3010 J1$="  "
3020 J2$=""
3030 GL$=J1$+J2$
3040 J1$="  "
3050 J2$=""
3060 GR$=J1$+J2$
3100 J1$="      "
3110 J2$=""
3120 CL$=J1$+J2$
3130 J1$="      "
3140 J2$=""
3150 CR$=J1$+J2$
3300 J1$="               "
3310 J2$=""
3320 J3$=""
3330 P$=J1$+J2$+J3$
3400 RETURN
4000 REM ***  ***
4010 ON A GOTO 4100,4200,4300
4100 COLOR 4:PRINT"";TAB(30);GR$:RETURN
4200 COLOR 4:PRINT"";TAB(30);CR$:RETURN
4300 COLOR 4:PRINT"";TAB(30);P$:RETURN