'=========================================================================== ' Subject: ARCADE KOMBAT FATALITY DEMO Date: 12-15-97 (14:07) ' Author: Robert Colletta Code: QB, QBasic, PDS ' Origin: riley007@hotmail.com Packet: DEMOS.ABC '=========================================================================== DECLARE SUB ghosty () 'ARCADE KOMBAT 1998 DEMO by Richard Colletta 'Email me at RILEY007@HOTMAIL.COM 'A SNEAK PEEK AT A WORK IN PROGRESS! 'Send me your comments! 'You may not use these graphics without permission 'For more info on this game read comments at the end of this prog! DECLARE SUB arcade () DECLARE SUB ghosty () DECLARE SUB thepit () SCREEN 13: CLS PSET (1, 1): PRINT "RICHARD COLLETTA'S ARCADE KOMBAT DEMO" PSET (1, 4): PRINT "COMING IN 1998" SLEEP 2 CALL arcade DIM arcad(1 TO 8000) GET (40, 40)-(100, 130), arcad PUT (100, 50), arcad CLS CALL ghosty DIM ghost(1 TO 600) GET (1, 1)-(40, 40), ghost CLS CALL thepit DIM pit(0 TO 500) GET (98, 97)-(136, 129), pit CLS ax = 100: ay = 1 CLS COLOR 4: LOCATE 10, 10: PRINT "FINISH HIM!" PUT (20, 75), arcad PUT (100, 130), ghost FOR i% = 1 TO 280 PUT (i%, 160), pit NEXT SLEEP 1 LOCATE 10, 10: PRINT " " SLEEP 2 PUT (20, 75), arcad FOR i% = 50 TO 1 STEP -1 PUT (20, i%), arcad, PSET: PUT (20, i%), arcad, PSET NEXT FOR x% = 20 TO 100 PUT (x%, y%), arcad, PSET: PUT (x%, y%), arcad, PSET NEXT SLEEP 1 FOR i% = 1 TO 70 'LOCATE 1, 1: PRINT ax; i% PUT (ax, i%), arcad, PSET: 'IF i% < 55 THEN PUT (100, 150), ghost, PSET PUT (ax, i%), arcad, PSET NEXT 'blood 111 - 112 , 4 FOR i% = 1 TO 70 b = INT(RND * 5) IF b = 1 THEN col = 4: IF b = 2 THEN col = 111 IF b = 3 THEN col = 112: IF b = 4 THEN col = 4 PSET (RND * 100 + 10, RND * 10 + 150), col NEXT COLOR 4: LOCATE 8, 10: PRINT "ARCADE WINS" SLEEP 1 LOCATE 10, 10: PRINT "FATALITY!" 'Arcade Kombat is a duel to the death between classic arcade characters. 'Arcade is one of the bosses. There are 21 different players in all to 'choose from. Each character has 3 special moves, 2 fatalities, and an 'arcade fatality in which that character's arcade machine falls on the 'opponent. Since, Arcade is an arcade machine he just jumps on them himself! 'Hope you enjoyed this demo...Try to be patient with me. This takes 'time and planning. RC 1997 SUB arcade PSET (49, 80), 4 PSET (50, 80), 4 PSET (51, 80), 4 PSET (52, 80), 4 PSET (53, 80), 4 PSET (54, 80), 4 PSET (55, 80), 4 PSET (56, 80), 4 PSET (57, 80), 4 PSET (58, 80), 4 PSET (59, 80), 4 PSET (60, 80), 4 PSET (61, 80), 4 PSET (62, 80), 4 PSET (63, 80), 4 PSET (64, 80), 4 PSET (65, 80), 4 PSET (66, 80), 4 PSET (67, 80), 4 PSET (68, 80), 4 PSET (69, 80), 4 PSET (70, 80), 4 PSET (71, 80), 4 PSET (72, 80), 4 PSET (73, 80), 4 PSET (74, 80), 4 PSET (75, 80), 4 PSET (76, 80), 4 PSET (77, 80), 4 PSET (78, 80), 4 PSET (79, 80), 4 PSET (79, 81), 4 PSET (78, 82), 4 PSET (78, 83), 4 PSET (78, 84), 4 PSET (77, 85), 4 PSET (77, 86), 4 PSET (76, 87), 4 PSET (75, 88), 4 PSET (75, 89), 4 PSET (74, 90), 4 PSET (73, 91), 4 PSET (73, 92), 4 PSET (72, 93), 4 PSET (71, 94), 4 PSET (71, 95), 4 PSET (71, 96), 4 PSET (71, 97), 4 PSET (72, 97), 4 PSET (73, 97), 4 PSET (74, 97), 4 PSET (75, 97), 4 PSET (76, 97), 4 PSET (77, 97), 4 PSET (78, 97), 4 PSET (79, 97), 4 PSET (80, 97), 4 PSET (80, 98), 4 PSET (79, 99), 4 PSET (79, 100), 4 PSET (78, 101), 4 PSET (78, 102), 4 PSET (77, 103), 4 PSET (76, 104), 4 PSET (75, 104), 4 PSET (75, 105), 4 PSET (74, 106), 4 PSET (73, 106), 4 PSET (72, 106), 4 PSET (71, 106), 4 PSET (70, 106), 4 PSET (70, 107), 4 PSET (70, 108), 4 PSET (70, 109), 4 PSET (70, 110), 4 PSET (70, 111), 4 PSET (70, 112), 4 PSET (70, 113), 4 PSET (70, 114), 4 PSET (70, 115), 4 PSET (70, 116), 4 PSET (70, 117), 4 PSET (70, 118), 4 PSET (70, 119), 4 PSET (70, 120), 4 PSET (70, 121), 4 PSET (70, 122), 4 PSET (69, 122), 4 PSET (68, 122), 4 PSET (67, 122), 4 PSET (66, 122), 4 PSET (65, 122), 4 PSET (64, 122), 4 PSET (63, 122), 4 PSET (62, 122), 4 PSET (61, 122), 4 PSET (60, 122), 4 PSET (59, 122), 4 PSET (58, 122), 4 PSET (57, 122), 4 PSET (56, 122), 4 PSET (55, 122), 4 PSET (54, 122), 4 PSET (53, 122), 4 PSET (52, 122), 4 PSET (52, 121), 4 PSET (52, 120), 4 PSET (52, 119), 4 PSET (52, 118), 4 PSET (52, 117), 4 PSET (52, 116), 4 PSET (52, 115), 4 PSET (52, 114), 4 PSET (52, 113), 4 PSET (52, 112), 4 PSET (52, 111), 4 PSET (52, 110), 4 PSET (52, 109), 4 PSET (52, 108), 4 PSET (52, 107), 4 PSET (52, 106), 4 PSET (52, 105), 4 PSET (52, 104), 4 PSET (52, 103), 4 PSET (51, 102), 4 PSET (51, 101), 4 PSET (51, 100), 4 PSET (51, 99), 4 PSET (50, 98), 4 PSET (50, 97), 4 PSET (50, 96), 4 PSET (50, 95), 4 PSET (49, 94), 4 PSET (49, 93), 4 PSET (49, 92), 4 PSET (49, 91), 4 PSET (48, 90), 4 PSET (48, 89), 4 PSET (48, 88), 4 PSET (48, 87), 4 PSET (47, 86), 4 PSET (47, 85), 4 PSET (47, 84), 4 PSET (47, 83), 4 PSET (46, 82), 4 PSET (46, 81), 4 PSET (46, 80), 4 PSET (47, 80), 4 PSET (48, 80), 4 DRAW "p4, 4" PSET (56, 90), 4 PSET (56, 91), 4 PSET (56, 92), 4 PSET (56, 93), 4 PSET (56, 94), 4 PSET (57, 94), 4 PSET (58, 94), 4 PSET (59, 94), 4 PSET (60, 94), 4 PSET (60, 93), 4 PSET (60, 92), 4 PSET (60, 91), 4 PSET (59, 91), 4 PSET (59, 92), 4 DRAW "bl2;p4,4" PSET (59, 93), 4 PSET (59, 94), 4 PSET (60, 94), 4 PSET (61, 94), 4 PSET (62, 94), 4 PSET (62, 95), 4 PSET (61, 95), 4 PSET (60, 95), 4 PSET (59, 95), 4 PSET (59, 94), 4 PSET (59, 93), 4 PSET (59, 92), 4 PSET (58, 92), 4 PSET (57, 92), 4 PSET (57, 91), 4 PSET (56, 88), 9 PSET (57, 88), 9 PSET (58, 88), 9 PSET (55, 89), 9 PSET (55, 90), 9 PSET (55, 91), 9 PSET (55, 92), 9 PSET (55, 93), 9 PSET (55, 94), 9 PSET (59, 90), 9 PSET (59, 89), 9 PSET (59, 90), 9 PSET (59, 91), 9 PSET (59, 92), 9 PSET (59, 93), 9 PSET (59, 94), 9 PSET (58, 91), 9 PSET (57, 91), 9 PSET (56, 91), 9 PSET (60, 90), 9 PSET (60, 91), 9 PSET (60, 92), 9 PSET (60, 93), 9 PSET (60, 94), 9 PSET (60, 95), 9 PSET (60, 96), 9 PSET (60, 95), 9 PSET (60, 94), 9 PSET (60, 93), 9 PSET (61, 92), 9 PSET (62, 91), 9 PSET (63, 90), 9 PSET (62, 91), 9 PSET (61, 92), 9 PSET (62, 93), 9 PSET (63, 94), 9 PSET (64, 95), 9 PSET (74, 91), 11 PSET (75, 91), 11 PSET (75, 90), 11 PSET (76, 90), 11 PSET (76, 89), 11 PSET (77, 89), 11 PSET (77, 88), 11 PSET (76, 88), 11 PSET (77, 88), 11 PSET (77, 87), 11 PSET (78, 87), 11 PSET (78, 86), 11 PSET (78, 85), 11 PSET (78, 95), 51 PSET (78, 96), 51 PSET (77, 93), 54 PSET (76, 93), 16 PSET (77, 93), 16 PSET (78, 93), 16 PSET (77, 93), 33 PSET (78, 93), 33 PSET (78, 94), 33 PSET (77, 93), 16 PSET (78, 93), 16 PSET (74, 96), 43 PSET (60, 104), 27 PSET (60, 105), 27 PSET (60, 106), 27 PSET (60, 107), 27 PSET (60, 108), 27 PSET (60, 109), 27 PSET (60, 110), 27 PSET (60, 111), 27 PSET (61, 112), 27 PSET (61, 113), 27 PSET (60, 113), 29 PSET (61, 113), 29 PSET (62, 113), 29 PSET (60, 114), 30 PSET (62, 115), 30 PSET (62, 114), 30 PSET (62, 115), 4 PSET (59, 110), 4 PSET (59, 109), 4 PSET (59, 108), 4 PSET (59, 107), 4 PSET (59, 106), 4 PSET (59, 105), 4 PSET (59, 104), 4 PSET (59, 105), 4 PSET (59, 106), 4 PSET (60, 106), 4 PSET (60, 105), 4 PSET (60, 104), 4 PSET (60, 105), 4 PSET (60, 106), 4 PSET (60, 107), 4 PSET (60, 108), 4 PSET (60, 109), 4 PSET (60, 110), 4 PSET (60, 111), 4 PSET (61, 110), 24 PSET (61, 111), 24 PSET (61, 110), 24 PSET (61, 109), 24 PSET (61, 108), 24 PSET (61, 107), 24 PSET (61, 106), 24 PSET (61, 105), 24 PSET (61, 104), 24 PSET (61, 103), 24 PSET (72, 106), 24 PSET (71, 106), 4 PSET (72, 106), 4 PSET (73, 108), 22 PSET (72, 107), 22 PSET (73, 108), 22 PSET (74, 109), 22 PSET (75, 110), 22 PSET (74, 111), 25 PSET (75, 110), 25 PSET (76, 109), 25 PSET (75, 110), 25 PSET (74, 111), 25 PSET (75, 111), 25 PSET (74, 111), 16 PSET (75, 111), 16 PSET (74, 111), 16 PSET (75, 110), 24 PSET (74, 111), 24 PSET (75, 112), 24 PSET (74, 111), 24 PSET (75, 110), 24 PSET (76, 109), 24 PSET (77, 110), 24 PSET (78, 110), 16 PSET (77, 110), 16 PSET (76, 110), 16 PSET (76, 111), 16 PSET (76, 112), 16 PSET (75, 112), 16 PSET (74, 112), 16 PSET (74, 111), 16 PSET (75, 111), 16 PSET (75, 110), 16 PSET (76, 110), 16 PSET (76, 109), 16 PSET (75, 109), 16 PSET (74, 109), 16 PSET (74, 108), 16 PSET (73, 108), 16 PSET (73, 107), 16 PSET (72, 107), 16 PSET (44, 80), 23 PSET (45, 80), 23 PSET (45, 81), 23 PSET (45, 82), 23 PSET (45, 82), 23 PSET (44, 82), 23 PSET (44, 81), 23 PSET (44, 82), 23 PSET (44, 83), 23 PSET (45, 83), 23 PSET (46, 83), 23 PSET (46, 84), 23 PSET (45, 84), 23 PSET (45, 85), 23 PSET (46, 85), 23 PSET (46, 86), 23 PSET (45, 86), 23 PSET (45, 87), 23 PSET (46, 87), 23 PSET (47, 87), 23 PSET (47, 88), 23 PSET (46, 88), 23 PSET (46, 89), 23 PSET (47, 89), 23 PSET (47, 90), 23 PSET (46, 90), 23 PSET (47, 92), 23 PSET (47, 91), 23 PSET (48, 91), 23 PSET (48, 92), 23 PSET (48, 93), 23 PSET (48, 94), 23 PSET (48, 95), 23 PSET (49, 95), 23 PSET (49, 96), 23 PSET (49, 97), 23 PSET (49, 98), 23 PSET (49, 99), 23 PSET (50, 99), 23 PSET (50, 100), 23 PSET (50, 101), 23 PSET (50, 102), 23 PSET (50, 103), 23 PSET (51, 103), 23 PSET (51, 104), 23 PSET (51, 105), 23 PSET (51, 106), 23 PSET (51, 107), 23 PSET (51, 108), 23 PSET (51, 109), 23 PSET (51, 110), 23 PSET (51, 111), 23 PSET (51, 112), 23 PSET (51, 113), 23 PSET (51, 114), 23 PSET (51, 115), 23 PSET (51, 116), 23 PSET (51, 117), 23 PSET (51, 118), 23 PSET (51, 119), 23 PSET (51, 120), 23 PSET (51, 121), 23 PSET (51, 122), 23 PSET (50, 121), 23 PSET (50, 120), 23 PSET (50, 119), 23 PSET (50, 118), 23 PSET (50, 117), 23 PSET (50, 116), 23 PSET (50, 115), 23 PSET (50, 114), 23 PSET (50, 113), 23 PSET (50, 112), 23 PSET (50, 111), 23 PSET (50, 110), 23 PSET (50, 109), 23 PSET (50, 108), 23 PSET (50, 107), 23 PSET (50, 106), 23 PSET (50, 105), 23 PSET (50, 104), 23 PSET (49, 104), 23 PSET (49, 103), 23 PSET (49, 102), 23 PSET (49, 101), 23 PSET (49, 100), 23 PSET (48, 100), 23 PSET (48, 99), 23 PSET (48, 98), 23 PSET (48, 97), 23 PSET (48, 96), 23 PSET (74, 92), 9 PSET (75, 92), 9 PSET (76, 91), 9 PSET (77, 90), 9 PSET (78, 89), 9 PSET (78, 88), 9 PSET (79, 87), 9 PSET (79, 86), 9 PSET (79, 85), 9 PSET (78, 84), 9 END SUB SUB ghosty PSET (15, 11), 53 PSET (15, 10), 53 PSET (16, 10), 53 PSET (16, 9), 53 PSET (17, 9), 53 PSET (17, 8), 53 PSET (18, 8), 53 PSET (19, 8), 53 PSET (20, 8), 53 PSET (21, 8), 53 PSET (22, 8), 53 PSET (23, 8), 53 PSET (24, 8), 53 PSET (24, 9), 53 PSET (25, 9), 53 PSET (25, 10), 53 PSET (26, 10), 53 PSET (26, 11), 53 PSET (26, 12), 53 PSET (26, 13), 53 PSET (26, 14), 53 PSET (26, 15), 53 PSET (27, 16), 53 PSET (28, 17), 53 PSET (29, 18), 53 PSET (29, 19), 53 PSET (29, 20), 53 PSET (29, 21), 53 PSET (29, 22), 53 PSET (28, 21), 53 PSET (27, 20), 53 PSET (26, 19), 53 PSET (26, 18), 53 PSET (26, 19), 53 PSET (26, 20), 53 PSET (26, 21), 53 PSET (26, 22), 53 PSET (26, 23), 53 PSET (26, 24), 53 PSET (26, 25), 53 PSET (26, 26), 53 PSET (25, 25), 53 PSET (24, 26), 53 PSET (23, 25), 53 PSET (22, 26), 53 PSET (21, 25), 53 PSET (20, 26), 53 PSET (19, 25), 53 PSET (18, 26), 53 PSET (17, 25), 53 PSET (16, 26), 53 PSET (15, 25), 53 PSET (15, 24), 53 PSET (15, 23), 53 PSET (15, 22), 53 PSET (15, 21), 53 PSET (15, 20), 53 PSET (15, 19), 53 PSET (15, 18), 53 PSET (15, 19), 53 PSET (14, 20), 53 PSET (13, 21), 53 PSET (13, 20), 53 PSET (13, 21), 53 PSET (12, 22), 53 PSET (12, 21), 53 PSET (12, 20), 53 PSET (12, 19), 53 PSET (13, 18), 53 PSET (14, 17), 53 PSET (15, 16), 53 PSET (15, 15), 53 PSET (15, 14), 53 PSET (15, 13), 53 PSET (15, 12), 53 PSET (16, 11), 53 PSET (16, 12), 53 PSET (16, 13), 53 PSET (16, 14), 53 PSET (16, 15), 53 PSET (16, 16), 53 PSET (15, 17), 53 PSET (14, 18), 53 PSET (13, 19), 53 PSET (14, 19), 53 PSET (15, 19), 53 PSET (16, 19), 53 PSET (16, 20), 53 PSET (16, 21), 53 PSET (16, 22), 53 PSET (16, 23), 53 PSET (16, 24), 53 PSET (16, 25), 53 PSET (16, 24), 53 PSET (17, 24), 53 PSET (18, 24), 53 PSET (18, 25), 53 PSET (18, 24), 53 PSET (19, 24), 53 PSET (20, 24), 53 PSET (20, 25), 53 PSET (20, 24), 53 PSET (21, 24), 53 PSET (22, 24), 53 PSET (22, 25), 53 PSET (22, 24), 53 PSET (23, 24), 53 PSET (24, 24), 53 PSET (24, 25), 53 PSET (24, 24), 53 PSET (25, 24), 53 PSET (25, 23), 53 PSET (25, 22), 53 PSET (25, 21), 53 PSET (25, 20), 53 PSET (25, 19), 53 PSET (25, 18), 53 PSET (25, 17), 53 PSET (25, 16), 53 PSET (25, 15), 53 PSET (25, 14), 53 PSET (25, 13), 53 PSET (25, 12), 53 PSET (25, 11), 53 PSET (24, 11), 53 PSET (24, 10), 53 PSET (23, 10), 53 PSET (23, 9), 53 PSET (22, 9), 53 PSET (21, 9), 53 PSET (20, 9), 53 PSET (19, 9), 53 PSET (18, 9), 53 PSET (18, 10), 53 PSET (17, 10), 53 PSET (17, 11), 53 PSET (17, 12), 53 PSET (17, 13), 53 PSET (17, 14), 53 PSET (17, 15), 53 PSET (17, 16), 53 PSET (16, 16), 53 PSET (16, 17), 53 PSET (17, 17), 53 PSET (17, 18), 53 PSET (16, 18), 53 PSET (16, 19), 53 PSET (17, 19), 53 PSET (17, 20), 53 PSET (17, 21), 53 PSET (17, 22), 53 PSET (17, 23), 53 PSET (18, 23), 53 PSET (19, 23), 53 PSET (20, 23), 53 PSET (21, 23), 53 PSET (22, 23), 53 PSET (23, 23), 53 PSET (24, 23), 53 PSET (24, 22), 53 PSET (24, 21), 53 PSET (24, 20), 53 PSET (24, 19), 53 PSET (24, 18), 53 PSET (24, 17), 53 PSET (24, 16), 53 PSET (24, 15), 53 PSET (24, 14), 53 PSET (24, 13), 53 PSET (24, 12), 53 PSET (23, 12), 53 PSET (23, 11), 53 PSET (22, 11), 53 PSET (22, 10), 53 PSET (21, 10), 53 PSET (20, 10), 53 PSET (19, 10), 53 PSET (19, 11), 53 PSET (18, 11), 53 PSET (18, 12), 53 PSET (18, 13), 53 PSET (18, 14), 53 PSET (18, 15), 53 PSET (18, 16), 53 PSET (18, 17), 53 PSET (18, 18), 53 PSET (18, 19), 53 PSET (18, 20), 53 PSET (18, 21), 53 PSET (18, 22), 53 PSET (19, 22), 53 PSET (20, 22), 53 PSET (21, 22), 53 PSET (22, 22), 53 PSET (23, 22), 53 PSET (24, 22), 53 PSET (24, 21), 53 PSET (24, 20), 53 PSET (24, 19), 53 PSET (24, 18), 53 PSET (24, 17), 53 PSET (24, 16), 53 PSET (24, 15), 53 PSET (24, 14), 53 PSET (23, 14), 53 PSET (23, 13), 53 PSET (22, 13), 53 PSET (22, 12), 53 PSET (21, 12), 53 PSET (21, 11), 53 PSET (20, 11), 53 PSET (20, 12), 53 PSET (20, 13), 53 PSET (19, 13), 53 PSET (19, 12), 53 PSET (19, 13), 53 PSET (19, 14), 53 PSET (19, 15), 53 PSET (19, 16), 53 PSET (19, 17), 53 PSET (19, 18), 53 PSET (19, 19), 53 PSET (19, 20), 53 PSET (19, 21), 53 PSET (20, 21), 53 PSET (21, 21), 53 PSET (22, 21), 53 PSET (23, 21), 53 PSET (23, 20), 53 PSET (23, 19), 53 PSET (23, 18), 53 PSET (23, 17), 53 PSET (23, 16), 53 PSET (23, 15), 53 PSET (23, 14), 53 PSET (22, 14), 53 PSET (22, 13), 53 PSET (21, 13), 53 PSET (21, 14), 53 PSET (21, 15), 53 PSET (21, 16), 53 PSET (21, 17), 53 PSET (21, 18), 53 PSET (21, 19), 53 PSET (21, 20), 53 PSET (22, 20), 53 PSET (22, 19), 53 PSET (22, 18), 53 PSET (22, 17), 53 PSET (22, 16), 53 PSET (22, 15), 53 PSET (21, 15), 53 PSET (20, 15), 53 PSET (20, 14), 53 PSET (20, 15), 53 PSET (20, 16), 53 PSET (20, 17), 53 PSET (20, 18), 53 PSET (20, 19), 53 PSET (20, 20), 53 PSET (20, 19), 53 PSET (20, 18), 53 PSET (20, 17), 53 PSET (21, 17), 53 PSET (22, 17), 53 PSET (23, 17), 53 PSET (24, 17), 53 PSET (25, 17), 53 PSET (26, 17), 53 PSET (26, 16), 53 PSET (26, 17), 53 PSET (27, 17), 53 PSET (27, 18), 53 PSET (28, 18), 53 PSET (28, 19), 53 PSET (28, 20), 53 PSET (28, 19), 53 PSET (27, 19), 53 PSET (26, 19), 53 PSET (25, 19), 53 PSET (17, 14), 16 PSET (17, 15), 16 PSET (17, 16), 16 PSET (23, 15), 16 PSET (23, 14), 16 PSET (23, 15), 16 PSET (23, 16), 16 PSET (19, 21), 16 PSET (20, 21), 16 PSET (21, 21), 16 PSET (19, 21), 16 PSET (20, 21), 16 PSET (20, 22), 16 PSET (21, 22), 16 PSET (20, 22), 16 PSET (19, 22), 16 PSET (22, 13), 30 PSET (22, 14), 30 PSET (23, 14), 30 PSET (17, 14), 30 PSET (21, 13), 52 PSET (22, 13), 52 PSET (23, 13), 52 PSET (24, 13), 53 PSET (25, 13), 53 PSET (24, 13), 53 PSET (23, 13), 53 PSET (22, 13), 53 PSET (21, 13), 53 PSET (21, 14), 53 PSET (21, 15), 53 PSET (21, 16), 53 PSET (21, 17), 53 PSET (21, 16), 53 PSET (22, 16), 53 PSET (22, 15), 53 PSET (22, 14), 53 PSET (22, 13), 53 PSET (22, 12), 53 END SUB SUB thepit PSET (101, 100), 23 PSET (102, 100), 23 PSET (103, 100), 23 PSET (104, 100), 23 PSET (105, 100), 23 PSET (106, 100), 23 PSET (107, 100), 23 PSET (108, 100), 23 PSET (109, 100), 23 PSET (110, 100), 23 PSET (111, 100), 23 PSET (112, 100), 23 PSET (113, 100), 23 PSET (114, 100), 23 PSET (115, 100), 23 PSET (116, 100), 23 PSET (117, 100), 23 PSET (118, 100), 23 PSET (119, 100), 23 PSET (120, 100), 23 PSET (121, 100), 23 PSET (122, 100), 23 PSET (123, 100), 23 PSET (124, 100), 23 PSET (125, 100), 23 PSET (126, 100), 23 PSET (127, 100), 23 PSET (128, 100), 23 PSET (129, 100), 23 PSET (130, 100), 23 PSET (131, 100), 23 PSET (131, 101), 23 PSET (131, 102), 23 PSET (131, 103), 23 PSET (131, 104), 23 PSET (131, 105), 23 PSET (131, 106), 23 PSET (131, 107), 23 PSET (131, 108), 23 PSET (131, 109), 23 PSET (131, 110), 23 PSET (131, 111), 23 PSET (131, 112), 23 PSET (131, 113), 23 PSET (130, 113), 23 PSET (129, 113), 23 PSET (128, 113), 23 PSET (127, 113), 23 PSET (126, 113), 23 PSET (125, 113), 23 PSET (124, 113), 23 PSET (123, 113), 23 PSET (122, 113), 23 PSET (121, 113), 23 PSET (120, 113), 23 PSET (119, 113), 23 PSET (118, 113), 23 PSET (117, 113), 23 PSET (116, 113), 23 PSET (115, 113), 23 PSET (114, 113), 23 PSET (113, 113), 23 PSET (112, 113), 23 PSET (111, 113), 23 PSET (110, 113), 23 PSET (109, 113), 23 PSET (108, 113), 23 PSET (107, 113), 23 PSET (106, 113), 23 PSET (105, 113), 23 PSET (104, 113), 23 PSET (103, 113), 23 PSET (103, 112), 23 PSET (103, 111), 23 PSET (103, 110), 23 PSET (103, 109), 23 PSET (103, 108), 23 PSET (103, 107), 23 PSET (103, 106), 23 PSET (103, 105), 23 PSET (103, 104), 23 PSET (103, 103), 23 PSET (103, 102), 23 PSET (103, 101), 23 PSET (102, 101), 23 PSET (101, 101), 23 PSET (101, 102), 23 PSET (101, 103), 23 PSET (101, 104), 23 PSET (101, 105), 23 PSET (101, 106), 23 PSET (101, 107), 23 PSET (101, 108), 23 PSET (101, 109), 23 PSET (101, 110), 23 PSET (101, 111), 23 PSET (101, 112), 23 PSET (101, 113), 23 PSET (102, 113), 23 PSET (102, 112), 23 PSET (102, 111), 23 PSET (102, 110), 23 PSET (102, 109), 23 PSET (102, 108), 23 PSET (102, 107), 23 PSET (102, 106), 23 PSET (102, 105), 23 PSET (102, 104), 23 PSET (102, 103), 23 PSET (102, 102), 23 PSET (102, 101), 23 PSET (103, 101), 23 PSET (104, 101), 23 PSET (105, 101), 23 PSET (106, 101), 23 PSET (107, 101), 23 PSET (108, 101), 23 PSET (109, 101), 23 PSET (110, 101), 23 PSET (111, 101), 23 PSET (112, 101), 23 PSET (113, 101), 23 PSET (114, 101), 23 PSET (115, 101), 23 PSET (116, 101), 23 PSET (117, 101), 23 PSET (118, 101), 23 PSET (119, 101), 23 PSET (120, 101), 23 PSET (121, 101), 23 PSET (122, 101), 23 PSET (123, 101), 23 PSET (124, 101), 23 PSET (125, 101), 23 PSET (126, 101), 23 PSET (127, 101), 23 PSET (128, 101), 23 PSET (129, 101), 23 PSET (130, 101), 23 PSET (130, 102), 23 PSET (130, 103), 23 PSET (130, 104), 23 PSET (130, 105), 23 PSET (130, 106), 23 PSET (130, 107), 23 PSET (130, 108), 23 PSET (130, 109), 23 PSET (130, 110), 23 PSET (130, 111), 23 PSET (129, 111), 23 PSET (128, 111), 23 PSET (127, 111), 23 PSET (126, 111), 23 PSET (125, 111), 23 PSET (125, 112), 23 PSET (126, 112), 23 PSET (127, 112), 23 PSET (128, 112), 23 PSET (129, 112), 23 PSET (130, 112), 23 PSET (129, 112), 23 PSET (128, 112), 23 PSET (127, 112), 23 PSET (126, 112), 23 PSET (125, 112), 23 PSET (124, 112), 23 PSET (123, 112), 23 PSET (122, 112), 23 PSET (121, 112), 23 PSET (120, 112), 23 PSET (119, 112), 23 PSET (118, 112), 23 PSET (117, 112), 23 PSET (116, 112), 23 PSET (115, 112), 23 PSET (114, 112), 23 PSET (113, 112), 23 PSET (112, 112), 23 PSET (111, 112), 23 PSET (110, 112), 23 PSET (109, 112), 23 PSET (108, 112), 23 PSET (107, 112), 23 PSET (106, 112), 23 PSET (105, 112), 23 PSET (104, 112), 23 PSET (104, 111), 23 PSET (104, 110), 23 PSET (104, 109), 23 PSET (104, 108), 23 PSET (104, 107), 23 PSET (104, 106), 23 PSET (104, 105), 23 PSET (104, 104), 23 PSET (104, 103), 23 PSET (105, 103), 23 PSET (105, 102), 23 PSET (104, 102), 23 PSET (105, 102), 23 PSET (106, 102), 23 PSET (107, 102), 23 PSET (108, 102), 23 PSET (109, 102), 23 PSET (110, 102), 23 PSET (111, 102), 23 PSET (112, 102), 23 PSET (113, 102), 23 PSET (114, 102), 23 PSET (115, 102), 23 PSET (116, 102), 23 PSET (117, 102), 23 PSET (118, 102), 23 PSET (119, 102), 23 PSET (120, 102), 23 PSET (121, 102), 23 PSET (122, 102), 23 PSET (123, 102), 23 PSET (124, 102), 23 PSET (125, 102), 23 PSET (126, 102), 23 PSET (127, 102), 23 PSET (128, 102), 23 PSET (129, 102), 23 PSET (129, 103), 23 PSET (128, 103), 23 PSET (127, 103), 23 PSET (126, 103), 23 PSET (125, 103), 23 PSET (124, 103), 23 PSET (123, 103), 23 PSET (122, 103), 23 PSET (121, 103), 23 PSET (120, 103), 23 PSET (119, 103), 23 PSET (118, 103), 23 PSET (117, 103), 23 PSET (116, 103), 23 PSET (115, 103), 23 PSET (114, 103), 23 PSET (113, 103), 23 PSET (112, 103), 23 PSET (111, 103), 23 PSET (110, 103), 23 PSET (109, 103), 23 PSET (108, 103), 23 PSET (107, 103), 23 PSET (106, 103), 23 PSET (105, 103), 23 PSET (105, 104), 23 PSET (106, 104), 23 PSET (107, 104), 23 PSET (108, 104), 23 PSET (109, 104), 23 PSET (110, 104), 23 PSET (111, 104), 23 PSET (112, 104), 23 PSET (113, 104), 23 PSET (114, 104), 23 PSET (115, 104), 23 PSET (116, 104), 23 PSET (117, 104), 23 PSET (118, 104), 23 PSET (119, 104), 23 PSET (120, 104), 23 PSET (121, 104), 23 PSET (122, 104), 23 PSET (123, 104), 23 PSET (124, 104), 23 PSET (125, 104), 23 PSET (126, 104), 23 PSET (127, 104), 23 PSET (128, 104), 23 PSET (129, 104), 23 PSET (129, 105), 23 PSET (128, 105), 23 PSET (127, 105), 23 PSET (126, 105), 23 PSET (125, 105), 23 PSET (124, 105), 23 PSET (123, 105), 23 PSET (122, 105), 23 PSET (121, 105), 23 PSET (120, 105), 23 PSET (119, 105), 23 PSET (118, 105), 23 PSET (117, 105), 23 PSET (116, 105), 23 PSET (115, 105), 23 PSET (114, 105), 23 PSET (113, 105), 23 PSET (112, 105), 23 PSET (111, 105), 23 PSET (110, 105), 23 PSET (109, 105), 23 PSET (108, 105), 23 PSET (107, 105), 23 PSET (106, 105), 23 PSET (105, 105), 23 PSET (105, 106), 23 PSET (106, 106), 23 PSET (107, 106), 23 PSET (108, 106), 23 PSET (109, 106), 23 PSET (110, 106), 23 PSET (111, 106), 23 PSET (112, 106), 23 PSET (113, 106), 23 PSET (114, 106), 23 PSET (115, 106), 23 PSET (116, 106), 23 PSET (117, 106), 23 PSET (118, 106), 23 PSET (119, 106), 23 PSET (120, 106), 23 PSET (121, 106), 23 PSET (122, 106), 23 PSET (123, 106), 23 PSET (124, 106), 23 PSET (125, 106), 23 PSET (126, 106), 23 PSET (127, 106), 23 PSET (128, 106), 23 PSET (129, 106), 23 PSET (129, 107), 23 PSET (128, 107), 23 PSET (127, 107), 23 PSET (126, 107), 23 PSET (125, 107), 23 PSET (124, 107), 23 PSET (123, 107), 23 PSET (122, 107), 23 PSET (121, 107), 23 PSET (120, 107), 23 PSET (119, 107), 23 PSET (118, 107), 23 PSET (117, 107), 23 PSET (116, 107), 23 PSET (115, 107), 23 PSET (114, 107), 23 PSET (113, 107), 23 PSET (112, 107), 23 PSET (111, 107), 23 PSET (110, 107), 23 PSET (109, 107), 23 PSET (108, 107), 23 PSET (107, 107), 23 PSET (106, 107), 23 PSET (105, 107), 23 PSET (105, 108), 23 PSET (106, 108), 23 PSET (107, 108), 23 PSET (108, 108), 23 PSET (109, 108), 23 PSET (110, 108), 23 PSET (111, 108), 23 PSET (112, 108), 23 PSET (113, 108), 23 PSET (114, 108), 23 PSET (115, 108), 23 PSET (116, 108), 23 PSET (117, 108), 23 PSET (118, 108), 23 PSET (119, 108), 23 PSET (120, 108), 23 PSET (121, 108), 23 PSET (122, 108), 23 PSET (123, 108), 23 PSET (124, 108), 23 PSET (125, 108), 23 PSET (126, 108), 23 PSET (127, 108), 23 PSET (128, 108), 23 PSET (129, 108), 23 PSET (129, 109), 23 PSET (128, 109), 23 PSET (127, 109), 23 PSET (126, 109), 23 PSET (125, 109), 23 PSET (124, 109), 23 PSET (123, 109), 23 PSET (122, 109), 23 PSET (121, 109), 23 PSET (120, 109), 23 PSET (119, 109), 23 PSET (118, 109), 23 PSET (117, 109), 23 PSET (116, 109), 23 PSET (115, 109), 23 PSET (114, 109), 23 PSET (113, 109), 23 PSET (112, 109), 23 PSET (111, 109), 23 PSET (110, 109), 23 PSET (109, 109), 23 PSET (108, 109), 23 PSET (107, 109), 23 PSET (106, 109), 23 PSET (105, 109), 23 PSET (104, 109), 23 PSET (104, 110), 23 PSET (105, 110), 23 PSET (106, 110), 23 PSET (107, 110), 23 PSET (108, 110), 23 PSET (109, 110), 23 PSET (110, 110), 23 PSET (111, 110), 23 PSET (112, 110), 23 PSET (113, 110), 23 PSET (114, 110), 23 PSET (115, 110), 23 PSET (116, 110), 23 PSET (117, 110), 23 PSET (118, 110), 23 PSET (119, 110), 23 PSET (120, 110), 23 PSET (121, 110), 23 PSET (122, 110), 23 PSET (123, 110), 23 PSET (124, 110), 23 PSET (125, 110), 23 PSET (126, 110), 23 PSET (127, 110), 23 PSET (128, 110), 23 PSET (129, 110), 23 PSET (130, 110), 23 PSET (130, 111), 23 PSET (129, 111), 23 PSET (128, 111), 23 PSET (127, 111), 23 PSET (126, 111), 23 PSET (125, 111), 23 PSET (124, 111), 23 PSET (123, 111), 23 PSET (122, 111), 23 PSET (121, 111), 23 PSET (120, 111), 23 PSET (119, 111), 23 PSET (118, 111), 23 PSET (117, 111), 23 PSET (116, 111), 23 PSET (115, 111), 23 PSET (114, 111), 23 PSET (113, 111), 23 PSET (112, 111), 23 PSET (111, 111), 23 PSET (110, 111), 23 PSET (109, 111), 23 PSET (108, 111), 23 PSET (107, 111), 23 PSET (106, 111), 23 PSET (105, 111), 23 PSET (112, 113), 24 PSET (112, 114), 24 PSET (112, 115), 24 PSET (112, 116), 24 PSET (112, 117), 24 PSET (112, 118), 24 PSET (112, 119), 24 PSET (112, 120), 24 PSET (112, 121), 24 PSET (112, 122), 24 PSET (112, 123), 24 PSET (112, 124), 24 PSET (112, 125), 24 PSET (112, 126), 24 PSET (112, 127), 24 PSET (112, 128), 24 PSET (113, 128), 24 PSET (114, 128), 24 PSET (115, 128), 24 PSET (115, 127), 24 PSET (115, 126), 24 PSET (115, 125), 24 PSET (115, 124), 24 PSET (115, 123), 24 PSET (115, 122), 24 PSET (115, 121), 24 PSET (115, 120), 24 PSET (115, 119), 24 PSET (115, 118), 24 PSET (115, 117), 24 PSET (115, 116), 24 PSET (115, 115), 24 PSET (115, 114), 24 PSET (114, 114), 24 PSET (113, 114), 24 PSET (113, 115), 24 PSET (113, 116), 24 PSET (113, 117), 24 PSET (113, 118), 24 PSET (113, 119), 24 PSET (113, 120), 24 PSET (113, 121), 24 PSET (113, 122), 24 PSET (113, 123), 24 PSET (113, 124), 24 PSET (113, 125), 24 PSET (113, 126), 24 PSET (113, 127), 24 PSET (114, 127), 24 PSET (114, 126), 24 PSET (114, 125), 24 PSET (114, 124), 24 PSET (114, 123), 24 PSET (114, 122), 24 PSET (114, 121), 24 PSET (114, 120), 24 PSET (114, 119), 24 PSET (114, 118), 24 PSET (114, 117), 24 PSET (114, 116), 24 PSET (114, 115), 24 PSET (113, 113), 23 PSET (112, 113), 23 PSET (111, 113), 23 PSET (116, 116), 21 PSET (116, 117), 21 PSET (116, 116), 21 PSET (116, 115), 21 PSET (116, 114), 21 PSET (117, 114), 21 PSET (118, 114), 21 PSET (119, 114), 21 PSET (119, 115), 21 PSET (119, 116), 21 PSET (119, 117), 21 PSET (119, 118), 21 PSET (119, 119), 21 PSET (119, 120), 21 PSET (119, 121), 21 PSET (119, 122), 21 PSET (119, 123), 21 PSET (119, 124), 21 PSET (119, 125), 21 PSET (119, 126), 21 PSET (119, 127), 21 PSET (119, 128), 21 PSET (118, 128), 21 PSET (117, 128), 21 PSET (116, 128), 21 PSET (116, 127), 21 PSET (116, 126), 21 PSET (116, 125), 21 PSET (116, 124), 21 PSET (116, 123), 21 PSET (116, 122), 21 PSET (116, 121), 21 PSET (116, 120), 21 PSET (116, 119), 21 PSET (116, 118), 21 PSET (116, 117), 21 PSET (116, 116), 21 PSET (116, 115), 21 PSET (117, 115), 21 PSET (118, 115), 21 PSET (118, 116), 21 PSET (118, 117), 21 PSET (118, 118), 21 PSET (118, 119), 21 PSET (118, 120), 21 PSET (118, 121), 21 PSET (118, 122), 21 PSET (118, 123), 21 PSET (118, 124), 21 PSET (118, 125), 21 PSET (118, 126), 21 PSET (117, 126), 21 PSET (117, 127), 21 PSET (118, 127), 21 PSET (117, 127), 21 PSET (117, 126), 21 PSET (117, 125), 21 PSET (117, 124), 21 PSET (117, 123), 21 PSET (117, 122), 21 PSET (117, 121), 21 PSET (117, 120), 21 PSET (117, 119), 21 PSET (117, 118), 21 PSET (117, 117), 21 PSET (117, 116), 21 END SUB