Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - Qwerkey

Pages: 1 [2] 3 4 ... 8
16
Games / Tic Tac Toe Rings by Fellippe Heitor
« on: May 24, 2020, 05:40:12 am »
Tic Tac Toe Rings

Author: @FellippeHeitor
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=2368.0
Version: 1
Tags: [Graphics], [Skill], [Addictive]

Description:
I recently found the game Rings by a studio called Gamezaur. This is my attempt at recreating it.

I won't elaborate on the gameplay here. Keep the concept of "Tic Tac Toe" in mind - except it's single-player mode - and you should master it in no time.

Code: QB64: [Select]
  2.  
  3. $EXEICON:'./assets/images/tttr.ico'
  4.  
  5. $VERSIONINFO:FILEVERSION#=1,0,0,0
  6. $VERSIONINFO:PRODUCTVERSION#=1,0,0,0
  7. $VERSIONINFO:CompanyName=Fellippe Heitor
  8. $VERSIONINFO:ProductName=Tic Tac Toe Ring
  9. $VERSIONINFO:ProductVersion=1.0
  10. $VERSIONINFO:Comments=Based on 'Rings.' by Gamezaur; Created with QB64.
  11. $VERSIONINFO:Web=https://github.com/FellippeHeitor/TicTacToeRing
  12. $VERSIONINFO:InternalName=tictactoering.bas
  13.  
  14. CONST true = -1, false = 0
  15.  
  16. 'Required shared variables for printLarge
  17. DIM SHARED charSet(255, 1 TO 16, 1 TO 8) AS _BYTE
  18.  
  19. initializeCharSetPrintLarge
  20.  
  21. TYPE object
  22.     x AS SINGLE
  23.     y AS SINGLE
  24.     xv AS SINGLE
  25.     yv AS SINGLE
  26.     xa AS SINGLE
  27.     ya AS SINGLE
  28.     set AS STRING * 6
  29.     size AS SINGLE
  30.     start AS SINGLE
  31.     duration AS SINGLE
  32.     state AS _BYTE
  33.     text AS INTEGER
  34.     w AS INTEGER
  35.     h AS INTEGER
  36.     r AS INTEGER
  37.     g AS INTEGER
  38.     b AS INTEGER
  40.  
  41. DIM canvas AS LONG
  42. canvas = _NEWIMAGE(600, 600, 32)
  43.  
  44. SCREEN canvas
  47. _TITLE "Tic Tac Toe Ring"
  49.  
  50. DIM peg(0 TO 12) AS object
  51. DIM del(1 TO 9) AS object
  52.  
  53. DIM emptySet$
  54. emptySet$ = MKI$(-1) + MKI$(-1) + MKI$(-1)
  55. peg(0).set = emptySet$
  56.  
  57. 'set pegs positions
  58. DIM spacing AS INTEGER
  60. setPegs
  61.  
  62. 'set combo messages
  63. DIM megaComboMsg$(1 TO 6)
  64. setComboMessages
  65.  
  67. setRingColors
  68.  
  69. DIM circleImage(1 TO i, 1 TO 3) AS LONG
  70. generateRingImages
  71.  
  72. DIM crownIcon AS LONG
  73. generateCrownIcon
  74.  
  76. DIM bg AS LONG, bgWithoutShelf AS LONG
  77. generateBG
  78.  
  79. 'flash warning
  82. _PUTIMAGE (0, 0), bg
  84. centerLarge (_HEIGHT / 2) - fontHeightLarge(2) / 2, "This game contains bright,", 2
  85. centerLarge (_HEIGHT / 2) + fontHeightLarge(2) / 2, "rapidly flashing colors.", 2
  86.  
  87. DIM music AS _BYTE, sfx AS _BYTE
  88. music = true
  89. sfx = true
  90.  
  91. loadGame
  92.  
  93. 'load sounds
  94. j = TIMER
  95. DIM selectSound AS LONG
  96. selectSound = _SNDOPEN("assets/sounds/select.ogg")
  97. IF selectSound > 0 THEN _SNDVOL selectSound, .3
  98.  
  99. DIM wooshSound AS LONG
  100. wooshSound = _SNDOPEN("assets/sounds/woosh.ogg")
  101. IF wooshSound > 0 THEN _SNDVOL wooshSound, .5
  102.  
  103. DIM woodblock AS LONG
  104. woodblock = _SNDOPEN("assets/sounds/woodblock.wav")
  105.  
  106. DIM track(1 TO 1) AS LONG, mainTrackVolume AS SINGLE
  107. track(1) = _SNDOPEN("assets/music/track1.ogg")
  108. mainTrackVolume = 1
  109. IF track(1) > 0 THEN _SNDVOL track(1), mainTrackVolume
  110.  
  111. DIM comboSound(1 TO 8) AS LONG, a$
  112. RESTORE comboSoundFiles
  113. FOR i = 1 TO 8
  114.     READ a$
  115.     comboSound(i) = _SNDOPEN("assets/sounds/" + a$)
  117.  
  118. comboSoundFiles:
  119. DATA do.ogg,re.ogg,mi.ogg,fa.ogg,sol.ogg,la.ogg,si.ogg,do2.ogg
  120.  
  121. 'if loading sounds took more than 2 seconds, no need to pause
  122. j = TIMER - j
  123. IF j < 2 THEN pause 2 - j
  124.  
  125. DIM thisColor AS INTEGER
  126. doIntro
  127.  
  129.  
  130. 'add divs to bg
  131. bgWithoutShelf = _COPYIMAGE(bg)
  133. LINE (_WIDTH / 2 - (_WIDTH / spacing) * 2, _HEIGHT / 2 - (_HEIGHT / spacing) * 2)-STEP(_WIDTH / spacing * 4, _HEIGHT / spacing * 4), _RGB32(0, 50), BF
  134. LINE (3 + peg(10).x - (_WIDTH / spacing / 2), 3 + peg(10).y - (_WIDTH / spacing / 2))-(3 + peg(12).x + (_WIDTH / spacing / 2), 3 + peg(12).y + (_WIDTH / spacing / 2)), _RGB32(255, 15), BF
  135. LINE (peg(10).x - (_WIDTH / spacing / 2), peg(10).y - (_WIDTH / spacing / 2))-(peg(12).x + (_WIDTH / spacing / 2), peg(12).y + (_WIDTH / spacing / 2)), _RGB32(255, 15), BF
  136.  
  137. 'game
  138. DIM score AS _UNSIGNED LONG, visibleScore AS _UNSIGNED LONG
  139. DIM highscore AS _UNSIGNED LONG, visibleHighScore AS _UNSIGNED LONG
  140. DIM level AS _UNSIGNED LONG, maxColors AS INTEGER
  141. DIM animation(0 TO 8) AS object, gameOver AS _BYTE
  142. DIM particle(5000) AS object, pauseGame AS _BYTE
  143.  
  144. animation(0).duration = .25 'board flash
  145. FOR i = 1 TO 5
  146.     animation(i).duration = .5 'matches
  148. animation(6).duration = 1 'new set spawn
  149. animation(7).duration = 1 'combo info
  150.  
  151. DIM multiplier AS INTEGER
  152. multiplier = 1
  153.  
  154. visibleScore = score
  155. visibleHighScore = highscore
  157.  
  158. DIM button(100) AS object
  159. DIM caption(100) AS STRING
  160. DIM totalButtons AS INTEGER
  161. DIM currentButton AS INTEGER
  162.  
  164.     DO 'main game loop
  165.         'read mouse data
  166.         WHILE _MOUSEINPUT: WEND
  167.  
  168.         'read keyboard
  169.         DIM keyb AS LONG
  170.         keyb = _KEYHIT
  171.  
  172.         IF mainTrackVolume > .5 AND music THEN
  173.             mainTrackVolume = mainTrackVolume - .05
  174.             IF track(1) > 0 THEN _SNDVOL track(1), mainTrackVolume
  175.         END IF
  176.         'redraw board
  177.         _DONTBLEND
  178.         _PUTIMAGE (0, 0), bg
  179.         _BLEND
  180.  
  181.         'print osd
  182.         DIM enterSettings AS _BYTE
  183.         createMainScreenButtons
  184.         IF ABS(keyb) <> 27 AND pauseGame = false AND enterSettings = false THEN doButtons
  185.  
  186.         _PUTIMAGE (25, 28), crownIcon
  187.         COLOR _RGB32(200)
  188.         _PRINTSTRING (52, 28), STR$(visibleHighScore)
  189.  
  190.         COLOR _RGB32(255)
  191.         printLarge 0, 45, STR$(visibleScore), 6
  192.  
  193.         IF multiplier > 1 THEN
  194.             _PRINTSTRING (52, 132), "x" + LTRIM$(STR$(multiplier))
  195.         END IF
  196.  
  197.         drawPegs
  198.         generateNewSets
  199.  
  200.         IF ABS(keyb) <> 27 AND pauseGame = false AND enterSettings = false THEN checkButtons
  201.  
  202.         DIM prevbt AS INTEGER
  203.         IF currentButton <> prevbt THEN
  204.             IF currentButton > 0 AND sfx AND selectSound > 0 THEN _SNDPLAYCOPY selectSound
  205.             prevbt = currentButton
  206.         END IF
  207.  
  208.         IF _MOUSEBUTTON(1) THEN
  209.             'drag?
  210.             DIM dragging AS INTEGER
  211.             DIM mouseDown AS _BYTE
  212.             IF NOT mouseDown THEN
  213.                 'are we beginning to drag a ring or set of rings?
  214.                 dragging = 0
  215.                 FOR i = 10 TO 12
  216.                     IF dist(peg(i).x, peg(i).y, _MOUSEX, _MOUSEY) <= 40 AND peg(i).set <> emptySet$ THEN
  217.                         dragging = i
  218.                         EXIT FOR
  219.                     END IF
  220.                 NEXT
  221.  
  222.                 mouseDown = true
  223.             END IF
  224.         ELSE
  225.             IF mouseDown THEN
  226.                 IF dragging = 0 THEN
  227.                     IF enterSettings = false AND currentButton = 1 THEN
  228.                         enterSettings = true
  229.                         _CONTINUE
  230.                     END IF
  231.  
  232.                     IF pauseGame = false AND currentButton = 2 THEN 'pause
  233.                         pauseGame = true
  234.                         _CONTINUE
  235.                     END IF
  236.                 END IF
  237.  
  238.                 'place rings
  239.                 DIM placed AS _BYTE
  240.                 placed = false
  241.  
  242.                 IF dragging THEN
  243.                     FOR i = 1 TO 9
  244.                         IF dist(peg(i).x, peg(i).y, _MOUSEX, _MOUSEY) <= 40 THEN
  245.                             'check that the chosen peg can hold the current set of rings
  246.                             placed = true
  247.                             FOR j = 1 TO 3
  248.                                 IF CVI(MID$(peg(dragging).set, j * 2 - 1, 2)) > 0 AND CVI(MID$(peg(i).set, j * 2 - 1, 2)) > 0 THEN
  249.                                     placed = false
  250.                                     EXIT FOR
  251.                                 END IF
  252.                             NEXT
  253.                             IF placed THEN
  254.                                 IF woodblock > 0 AND sfx THEN _SNDPLAYCOPY woodblock
  255.                                 FOR j = 1 TO 3
  256.                                     IF CVI(MID$(peg(dragging).set, j * 2 - 1, 2)) > 0 THEN
  257.                                         MID$(peg(i).set, j * 2 - 1, 2) = MID$(peg(dragging).set, j * 2 - 1, 2)
  258.                                     END IF
  259.                                 NEXT
  260.                                 peg(dragging).set = emptySet$
  261.                                 EXIT FOR
  262.                             ELSE
  263.                                 EXIT FOR
  264.                             END IF
  265.                         END IF
  266.                     NEXT
  267.                 END IF
  268.  
  269.                 FOR j = 1 TO 9
  270.                     'prepare backup copies for deletion tagging
  271.                     del(j) = peg(j)
  272.                 NEXT
  273.  
  274.                 'check matches
  275.                 DIM r(1 TO 3) AS INTEGER, previousScore AS _UNSIGNED LONG
  276.                 DIM s$, found1 AS INTEGER, found2 AS INTEGER, scored AS _BYTE
  277.                 DIM totalMatches AS INTEGER
  278.                 totalMatches = 0
  279.                 previousScore = score
  280.                 IF placed THEN
  281.                     'look for 3 same-color rings on peg(i) --> ((o))
  282.                     FOR j = 1 TO 3
  283.                         r(j) = CVI(MID$(peg(i).set, j * 2 - 1, 2))
  284.                     NEXT
  285.                     IF r(1) = r(2) AND r(2) = r(3) THEN
  286.                         score = score + 3 * multiplier
  287.                         animation(0).start = TIMER
  288.                         animation(5).start = TIMER
  289.                         animation(5).x = peg(i).x
  290.                         animation(5).y = peg(i).y
  291.                         animation(5).r = _RED32(c(r(1)))
  292.                         animation(5).g = _GREEN32(c(r(1)))
  293.                         animation(5).b = _BLUE32(c(r(1)))
  294.                         animation(8).r = _RED32(c(r(1)))
  295.                         animation(8).g = _GREEN32(c(r(1)))
  296.                         animation(8).b = _BLUE32(c(r(1)))
  297.                         del(i).set = emptySet$
  298.                         addParticles peg(i).x, peg(i).y, 70, c(r(1))
  299.                         addParticles peg(i).x, peg(i).y, 30, _RGB32(_RED32(c(r(1))) + 30, _GREEN32(c(r(1))) + 30, _BLUE32(c(r(1))) + 30)
  300.                         totalMatches = totalMatches + 1
  301.                     END IF
  302.  
  303.                     'look for line matches |, -, /, \
  304.                     DIM m AS INTEGER, checks AS INTEGER
  305.                     DIM nextPeg(0 TO 2) AS INTEGER
  306.                     FOR m = 1 TO 4
  307.                         SELECT CASE m
  308.                             CASE 1 'across
  309.                                 checks = 3
  310.                                 r(1) = 1
  311.                                 r(2) = 4
  312.                                 r(3) = 7
  313.                                 nextPeg(1) = 1
  314.                                 nextPeg(2) = 2
  315.                             CASE 2 'down
  316.                                 checks = 3
  317.                                 r(1) = 1
  318.                                 r(2) = 2
  319.                                 r(3) = 3
  320.                                 nextPeg(1) = 3
  321.                                 nextPeg(2) = 6
  322.                             CASE 3 'diagonal \
  323.                                 checks = 1
  324.                                 r(1) = 1
  325.                                 nextPeg(1) = 4
  326.                                 nextPeg(2) = 8
  327.                             CASE 4 'diagonal /
  328.                                 checks = 1
  329.                                 r(1) = 3
  330.                                 nextPeg(1) = 2
  331.                                 nextPeg(2) = 4
  332.                         END SELECT
  333.  
  334.                         FOR i = 1 TO checks
  335.                             'look at each ring on the first peg of each row
  336.                             FOR j = 1 TO 3
  337.                                 scored = false
  338.                                 s$ = MID$(peg(r(i)).set, j * 2 - 1, 2)
  339.                                 IF s$ = MKI$(-1) THEN _CONTINUE
  340.                                 found1 = INSTR(peg(r(i) + nextPeg(1)).set, s$)
  341.                                 found2 = INSTR(peg(r(i) + nextPeg(2)).set, s$)
  342.                                 IF found1 > 0 AND found2 > 0 THEN
  343.                                     'match! clear all rings of the same color in this group of pegs
  344.                                     FOR k = 0 TO 2
  345.                                         found1 = INSTR(del(r(i) + nextPeg(k)).set, s$)
  346.                                         DO WHILE found1
  347.                                             MID$(del(r(i) + nextPeg(k)).set, found1, 2) = MKI$(-1)
  348.                                             addParticles del(r(i) + nextPeg(k)).x, del(r(i) + nextPeg(k)).y, 23, c(CVI(s$))
  349.                                             addParticles del(r(i) + nextPeg(k)).x, del(r(i) + nextPeg(k)).y, 10, _RGB32(_RED32(c(CVI(s$))) + 30, _GREEN32(c(CVI(s$))) + 30, _BLUE32(c(CVI(s$))) + 30)
  350.                                             score = score + multiplier
  351.                                             found1 = INSTR(del(r(i) + nextPeg(k)).set, s$)
  352.                                         LOOP
  353.                                     NEXT
  354.                                     scored = true
  355.                                     totalMatches = totalMatches + 1
  356.                                     animation(0).start = TIMER
  357.                                     animation(m).start = TIMER
  358.                                     animation(m).x = peg(r(i)).x
  359.                                     animation(m).y = peg(r(i)).y
  360.                                     animation(m).r = _RED32(c(CVI(s$)))
  361.                                     animation(m).g = _GREEN32(c(CVI(s$)))
  362.                                     animation(m).b = _BLUE32(c(CVI(s$)))
  363.                                     animation(8).r = _RED32(c(CVI(s$)))
  364.                                     animation(8).g = _GREEN32(c(CVI(s$)))
  365.                                     animation(8).b = _BLUE32(c(CVI(s$)))
  366.                                 END IF
  367.  
  368.                                 IF scored THEN MID$(del(r(i)).set, j * 2 - 1, 2) = MKI$(-1)
  369.                             NEXT
  370.                         NEXT
  371.                     NEXT
  372.  
  373.                     FOR j = 1 TO 9
  374.                         'perform deletion, if any items were marked = MKI$(-1)
  375.                         peg(j) = del(j)
  376.                     NEXT
  377.  
  378.                     IF previousScore < score THEN
  379.                         IF wooshSound > 0 AND sfx THEN _SNDPLAYCOPY wooshSound
  380.  
  381.                         multiplier = multiplier + 1
  382.  
  383.                         IF sfx THEN
  384.                             IF multiplier - 1 <= UBOUND(combosound) THEN
  385.                                 IF comboSound(multiplier - 1) > 0 THEN
  386.                                     _SNDPLAYCOPY comboSound(multiplier - 1)
  387.                                 END IF
  388.                             ELSE
  389.                                 IF comboSound(UBOUND(combosound)) > 0 THEN
  390.                                     _SNDPLAYCOPY comboSound(UBOUND(combosound))
  391.                                 END IF
  392.                             END IF
  393.                         END IF
  394.  
  395.                         DIM m$(1 TO 2)
  396.                         m$(1) = megaComboMsg$(_CEIL(RND * UBOUND(megaComboMsg$)))
  397.                         m$(2) = LTRIM$(STR$(multiplier)) + "x combo!"
  398.                         animation(7).start = TIMER
  399.                         animation(8).start = TIMER
  400.                         animation(8).x = _MOUSEX
  401.                         animation(8).y = _MOUSEY
  402.                         animation(8).xa = score - previousScore
  403.                         animation(8).ya = dist(_MOUSEX, _MOUSEY, printWidthLarge(STR$(visibleScore), 6) / 2, 45)
  404.                         animation(8).duration = 5
  405.                     ELSE
  406.                         multiplier = 1
  407.                     END IF
  408.                     IF score > highscore THEN highscore = score
  409.                 END IF
  410.             END IF
  411.             mouseDown = false
  412.             dragging = 0
  413.         END IF
  414.  
  415.         hoverHighlight
  416.         checkAvailableMoves
  417.         drawRings
  418.         doAnimations
  419.         updateScore
  420.         updateParticles
  421.  
  422.         'update display
  423.         _DISPLAY
  424.  
  425.         IF enterSettings THEN
  426.             addParticles _MOUSEX, _MOUSEY, 30, _RGB32(255)
  427.             addParticles _MOUSEX, _MOUSEY, 30, _RGB32(67, 172, 183)
  428.             settingsScreen
  429.             enterSettings = false
  430.         END IF
  431.  
  432.         IF pauseGame THEN
  433.             addParticles _MOUSEX, _MOUSEY, 30, _RGB32(255)
  434.             addParticles _MOUSEX, _MOUSEY, 30, _RGB32(67, 172, 183)
  435.             keyb = -27
  436.             pauseGame = false
  437.         END IF
  438.  
  439.         'limit fps
  440.         _LIMIT 60
  441.  
  442.         DIM userQuit AS _BYTE
  443.         userQuit = _EXIT
  444.         IF keyb = -27 THEN EXIT DO
  445.     LOOP UNTIL gameOver OR userQuit
  446.  
  447.     saveGame
  448.  
  449.     IF userQuit THEN SYSTEM
  450.  
  451.     endScreen
  452.  
  454.  
  455. SUB setPegs
  456.     SHARED spacing AS INTEGER
  457.     SHARED peg() AS object
  458.     SHARED emptySet$
  459.  
  460.     DIM l AS SINGLE, i AS INTEGER, j AS SINGLE, k AS SINGLE
  461.     spacing = 6
  462.     l = -(_HEIGHT / spacing)
  463.     FOR i = 1 TO 12
  464.         j = j + 1
  465.         IF j > 3 THEN j = 1: l = l + (_HEIGHT / spacing)
  466.         SELECT CASE j
  467.             CASE 1: k = -_WIDTH / spacing
  468.             CASE 2: k = 0
  469.             CASE 3: k = _WIDTH / spacing
  470.         END SELECT
  471.         peg(i).x = _WIDTH / 2 + k
  472.         peg(i).y = _HEIGHT / 2 + l
  473.         peg(i).set = emptySet$
  474.     NEXT
  476.  
  477. SUB setComboMessages
  478.     SHARED megaComboMsg$()
  479.     DIM i AS INTEGER
  480.  
  481.     RESTORE megaComboMsgs
  482.     FOR i = 1 TO UBOUND(megaComboMsg$)
  483.         READ megaComboMsg$(i)
  484.     NEXT
  485.     megaComboMsgs:
  486.     DATA Fantastic,Outstanding,Amazing,Awesome,MEGA,SUPER
  488.  
  489. SUB setRingColors
  490.     SHARED i AS INTEGER
  492.  
  493.     i = i + 1: c(i) = _RGB32(0, 78, 249) 'blue
  494.     i = i + 1: c(i) = _RGB32(0, 100, 0) 'green
  495.     i = i + 1: c(i) = _RGB32(222, 61, 44) 'red
  496.     i = i + 1: c(i) = _RGB32(216, 216, 44) 'yellow
  497.     i = i + 1: c(i) = _RGB32(233, 139, 17) 'orange
  498.     i = i + 1: c(i) = _RGB32(222, 105, 161) 'pink
  499.     i = i + 1: c(i) = _RGB32(139, 11, 205) 'purple
  500.     i = i + 1: c(i) = _RGB32(55, 211, 211) 'cyan
  501.     i = i + 1: c(i) = _RGB32(255, 255, 255) 'white
  502.     i = i + 1: c(i) = _RGB32(100, 100, 100) 'dark gray
  504.  
  505. SUB generateRingImages
  506.     DIM j AS INTEGER, k AS INTEGER
  508.     SHARED circleImage() AS LONG
  509.  
  510.     FOR j = 1 TO UBOUND(c)
  511.         FOR k = 1 TO 3
  512.             circleImage(j, k) = _NEWIMAGE(k * 29, k * 29, 32)
  513.             _DEST circleImage(j, k)
  514.             PAINT (0, 0), _RGB32(255, 0, 255)
  515.             CircleFill _WIDTH / 2, _HEIGHT / 2, k * 14, c(j)
  516.             CircleFill _WIDTH / 2, _HEIGHT / 2, k * (8 + k), _RGB32(255, 0, 255)
  517.             _CLEARCOLOR _RGB32(255, 0, 255)
  518.         NEXT
  519.     NEXT
  521.  
  522. SUB generateCrownIcon
  523.     SHARED crownIcon AS LONG
  524.     DIM i AS INTEGER, j AS INTEGER
  525.     DIM px AS INTEGER
  526.  
  527.     RESTORE crownIconData
  528.     crownIcon = _NEWIMAGE(24, 14, 32)
  529.     _DEST crownIcon
  530.     FOR i = 0 TO 13
  531.         FOR j = 0 TO 23
  532.             READ px
  533.             SELECT CASE px
  534.                 CASE 1
  535.                     PSET (j, i), _RGB32(0)
  536.                 CASE 2
  537.                     PSET (j, i), _RGB32(205, 161, 0)
  538.             END SELECT
  539.         NEXT
  540.     NEXT
  541.  
  542.     crownIconData:
  543.     DATA 0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0
  544.     DATA 0,0,0,0,0,0,0,0,0,0,1,2,2,1,0,0,0,0,0,0,0,0,0,0
  545.     DATA 0,0,0,0,0,0,0,0,0,0,1,2,2,1,0,0,0,0,0,0,0,0,0,0
  546.     DATA 0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,0
  547.     DATA 1,2,2,1,0,0,0,0,0,0,1,2,2,1,0,0,0,0,0,0,1,2,2,1
  548.     DATA 1,2,2,1,0,0,0,0,0,0,1,2,2,1,0,0,0,0,0,0,1,2,2,1
  549.     DATA 0,1,1,2,1,1,0,0,0,1,2,2,2,2,1,0,0,0,1,1,2,1,1,0
  550.     DATA 0,0,1,2,2,2,1,1,0,1,2,2,2,2,1,0,1,1,2,2,2,1,0,0
  551.     DATA 0,0,1,2,2,2,2,2,1,2,2,2,2,2,2,1,2,2,2,2,2,1,0,0
  552.     DATA 0,0,0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0
  553.     DATA 0,0,0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0
  554.     DATA 0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0
  555.     DATA 0,0,0,0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0
  556.     DATA 0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0
  558.  
  559. SUB generateBG
  560.     SHARED bg AS LONG
  561.     DIM i AS SINGLE
  562.  
  563.     bg = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
  564.     _DEST bg
  565.     FOR i = 0 TO _HEIGHT - 1 STEP _HEIGHT / 60
  566.         LINE (0, 0)-(_WIDTH - 1, i), _RGB32(139, 116, 177, 5), BF
  567.     NEXT
  569.  
  570. SUB doIntro
  571.     SHARED thisColor AS INTEGER
  573.     SHARED circleImage() AS LONG
  574.     SHARED track() AS LONG
  575.     SHARED bg AS LONG
  576.     SHARED music AS _BYTE
  577.  
  578.     DIM x AS SINGLE, y AS SINGLE, j AS INTEGER
  579.     DIM introRings(1 TO 30) AS object
  580.     DIM i AS INTEGER
  581.  
  582.     FOR i = 1 TO UBOUND(introRings)
  583.         introRings(i).xa = RND * _PI(2)
  584.         introRings(i).xv = RND * 5
  585.         introRings(i).r = RND * 30 + 50
  586.         introRings(i).set = MKI$(-1) + MKI$(-1) + MKI$(_CEIL(RND * UBOUND(c)))
  587.     NEXT
  588.  
  589.     addParticles _WIDTH / 2, _HEIGHT / 2, 5000, _RGB32(255)
  590.  
  591.     DIM introTimer AS SINGLE
  592.     introTimer = TIMER
  593.     IF track(1) > 0 AND music THEN _SNDLOOP track(1)
  594.     DO
  595.         _DONTBLEND
  596.         _PUTIMAGE (0, 0), bg
  597.         _BLEND
  598.  
  599.         FOR i = 1 TO UBOUND(introRings)
  600.             introRings(i).xa = introRings(i).xa + .01
  601.             introRings(i).r = introRings(i).r + introRings(i).xv
  602.             x = _WIDTH / 2 + COS(introRings(i).xa) * introRings(i).r
  603.             y = _HEIGHT / 2 + SIN(introRings(i).xa) * introRings(i).r
  604.  
  605.             FOR j = 1 TO 3
  606.                 thisColor = CVI(MID$(introRings(i).set, j * 2 - 1, 2))
  607.                 IF thisColor > 0 THEN
  608.                     _PUTIMAGE (x - (_WIDTH(circleImage(thisColor, j)) / 2), y - (_HEIGHT(circleImage(thisColor, j)) / 2)), circleImage(thisColor, j)
  609.                 END IF
  610.             NEXT
  611.         NEXT
  612.  
  613.         updateParticles
  614.  
  615.         LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(255, map(TIMER - introTimer, 4, 6, 0, 255)), BF
  616.  
  617.         COLOR _RGB32(0)
  618.         centerLarge (_HEIGHT / 2) - fontHeightLarge(2) + 3, "Tic Tac Toe", 2
  619.         centerLarge (_HEIGHT / 2) + 3, "Rings", 7
  620.         centerLarge _HEIGHT - fontHeightLarge(2) + 3, "Fellippe Heitor, 2020", 1
  621.  
  622.         COLOR _RGB32(255)
  623.         centerLarge (_HEIGHT / 2) - fontHeightLarge(2), "Tic Tac Toe", 2
  624.         centerLarge (_HEIGHT / 2), "Rings", 7
  625.         centerLarge _HEIGHT - fontHeightLarge(2), "Fellippe Heitor, 2020", 1
  626.  
  627.         LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(255, map(TIMER - introTimer, 0, 1.5, 255, 0)), BF
  628.         LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(255, map(TIMER - introTimer, 4, 5, 0, 255)), BF
  629.         LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(0, map(TIMER - introTimer, 5, 6, 0, 255)), BF
  630.  
  631.         WHILE _MOUSEINPUT: WEND
  632.         _DISPLAY
  633.         _LIMIT 60
  634.     LOOP UNTIL TIMER - introTimer > 6 OR _KEYHIT OR _MOUSEBUTTON(1)
  636.  
  637.  
  638. SUB drawPegs
  639.     SHARED peg() AS object
  640.  
  641.     DIM i AS INTEGER
  642.     FOR i = 1 TO 9
  643.         CircleFill peg(i).x, peg(i).y, 3, _RGB32(255)
  644.     NEXT
  646.  
  647. SUB generateNewSets
  648.     SHARED peg() AS object
  649.     SHARED animation() AS object
  651.     SHARED emptySet$
  652.     SHARED level AS _UNSIGNED LONG, maxColors AS INTEGER
  653.  
  654.     DIM i AS INTEGER
  655.     DIM j AS INTEGER
  656.  
  657.     'new sets must be generated according to
  658.     'current board's available positions
  659.     IF peg(10).set + peg(11).set + peg(12).set = emptySet$ + emptySet$ + emptySet$ THEN
  660.         level = level + 1
  661.         maxColors = map(level, 1, 60, 3, UBOUND(c)) 'as level goes up, add more colors
  662.         IF maxColors < 3 THEN maxColors = 3
  663.         IF maxColors > UBOUND(c) THEN maxColors = UBOUND(c)
  664.  
  665.         DIM pegsUsed AS STRING, thisPeg AS INTEGER, newPeg AS INTEGER
  666.         pegsUsed = ""
  667.         FOR i = 10 TO 12
  668.             'reset this peg
  669.             peg(i).set = emptySet$
  670.  
  671.             'choose an existing peg randomly
  672.             newPeg = _CEIL(RND * 9)
  673.             thisPeg = newPeg
  674.             DO
  675.                 IF INSTR(peg(thisPeg).set, MKI$(-1)) > 0 AND INSTR(pegsUsed, MKI$(thisPeg)) = 0 THEN
  676.                     'found a peg with an empty slot or more
  677.                     EXIT DO
  678.                 END IF
  679.                 thisPeg = thisPeg + 1
  680.                 IF thisPeg > 9 THEN thisPeg = 1
  681.                 IF thisPeg = newPeg THEN
  682.                     'full circle
  683.                     thisPeg = 0
  684.                     EXIT DO
  685.                 END IF
  686.             LOOP
  687.  
  688.             'store the chosen peg's id
  689.             IF thisPeg > 0 THEN pegsUsed = pegsUsed + MKI$(thisPeg)
  690.  
  691.             'generate a set, with random colors
  692.             DO
  693.                 FOR j = 1 TO 3
  694.                     IF MID$(peg(thisPeg).set, j * 2 - 1, 2) = MKI$(-1) THEN
  695.                         IF RND * 100 < 30 THEN
  696.                             MID$(peg(i).set, j * 2 - 1, 2) = MKI$(_CEIL(RND * maxColors))
  697.                         END IF
  698.                     END IF
  699.                 NEXT
  700.             LOOP WHILE peg(i).set = emptySet$ 'can't be empty
  701.             IF INSTR(peg(i).set, MKI$(-1)) = 0 THEN 'can't be full
  702.                 j = _CEIL(RND * 3)
  703.                 MID$(peg(i).set, j * 2 - 1, 2) = MKI$(-1)
  704.             END IF
  705.         NEXT
  706.         animation(6).start = TIMER
  707.     END IF
  709.  
  710. SUB doAnimations
  711.     DIM i AS INTEGER, j AS SINGLE, k AS SINGLE, l AS SINGLE
  712.     SHARED animation() AS object
  713.     SHARED peg() AS object
  714.     SHARED totalMatches AS INTEGER
  715.     SHARED m$(), spacing AS INTEGER
  716.     SHARED visibleScore AS _UNSIGNED LONG
  717.  
  718.     FOR i = 0 TO UBOUND(animation)
  719.         IF TIMER - animation(i).start <= animation(i).duration THEN
  720.             DIM animSize AS SINGLE
  721.             animSize = map(TIMER - animation(i).start, 0, animation(i).duration, 50, 0)
  722.             SELECT CASE i
  723.                 CASE 0 'board flash
  724.                     LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(255, map(TIMER - animation(i).start, 0, animation(i).duration, 100, 0)), BF
  725.                 CASE 1 'across
  726.                     FOR j = 0 TO _WIDTH STEP _WIDTH / 30
  727.                         FOR k = 1 TO animSize STEP 5
  728.                             CircleFill j, animation(i).y, k, _RGB32(animation(i).r, animation(i).g, animation(i).b, 20)
  729.                         NEXT
  730.                     NEXT
  731.                 CASE 2 'down
  732.                     FOR j = 0 TO _WIDTH STEP _WIDTH / 30
  733.                         FOR k = 1 TO animSize STEP 5
  734.                             CircleFill animation(i).x, j, k, _RGB32(animation(i).r, animation(i).g, animation(i).b, 20)
  735.                         NEXT
  736.                     NEXT
  737.                 CASE 3 'diagonal \
  738.                     FOR j = 0 TO _WIDTH STEP _WIDTH / 30
  739.                         FOR k = 1 TO animSize STEP 5
  740.                             CircleFill j, j, k, _RGB32(animation(i).r, animation(i).g, animation(i).b, 20)
  741.                         NEXT
  742.                     NEXT
  743.                 CASE 4 'diagonal /
  744.                     FOR j = 0 TO _WIDTH STEP _WIDTH / 30
  745.                         FOR k = 1 TO animSize STEP 5
  746.                             CircleFill j, _HEIGHT - j, k, _RGB32(animation(i).r, animation(i).g, animation(i).b, 20)
  747.                         NEXT
  748.                     NEXT
  749.                 CASE 5 'single peg ((o))
  750.                     FOR k = 1 TO animSize * 2
  751.                         CircleFill animation(i).x, animation(i).y, k, _RGB32(animation(i).r, animation(i).g, animation(i).b, 20)
  752.                     NEXT
  753.                 CASE 6 'new peg set
  754.                     FOR k = 10 TO 12
  755.                         CIRCLE (peg(k).x, peg(k).y), animSize * 1.5, _RGB32(255, animSize / 2)
  756.                         CIRCLE (peg(k).x, peg(k).y), animSize, _RGB32(255, animSize)
  757.                     NEXT
  758.                 CASE 7 'combo info
  759.                     k = INT(map(animSize, 50, 40, 1, 4))
  760.                     IF k < 1 THEN k = 1
  761.                     IF k > 4 THEN k = 4
  762.                     COLOR _RGB32(0, 80)
  763.                     FOR l = -4 TO 4 STEP 8
  764.                         IF totalMatches > 1 THEN
  765.                             printLarge (l + _WIDTH - printWidthLarge(m$(1), k)) / 2, (l + _HEIGHT - fontHeightLarge(k)) / 2 - fontHeightLarge(k), m$(1), k
  766.                         END IF
  767.                         printLarge (l + _WIDTH - printWidthLarge(m$(2), k)) / 2, (l + _HEIGHT - fontHeightLarge(k)) / 2, m$(2), k
  768.                     NEXT
  769.                     COLOR _RGB32(255)
  770.                     IF totalMatches > 1 THEN
  771.                         printLarge (_WIDTH - printWidthLarge(m$(1), k)) / 2, (_HEIGHT - fontHeightLarge(k)) / 2 - fontHeightLarge(k), m$(1), k
  772.                     END IF
  773.                     printLarge (_WIDTH - printWidthLarge(m$(2), k)) / 2, (_HEIGHT - fontHeightLarge(k)) / 2, m$(2), k
  774.                 CASE 8 'score increase
  775.                     DIM a AS SINGLE
  776.                     animation(8).x = lerp(animation(8).x, printWidthLarge(STR$(visibleScore), 6) / 2, .06)
  777.                     animation(8).y = lerp(animation(8).y, 45, .06)
  778.                     a = dist(animation(8).x, animation(8).y, printWidthLarge(STR$(visibleScore), 6) / 2, 45)
  779.                     IF a <= 30 THEN
  780.                         animation(8).start = 0
  781.                     END IF
  782.                     a = map(a, 0, animation(8).ya, 0, 1024)
  783.                     COLOR _RGB32(animation(8).r, animation(8).g, animation(8).b, a)
  784.                     printLarge 2 + animation(8).x, 2 + animation(8).y, LTRIM$(STR$(animation(8).xa)), 4
  785.                     COLOR _RGB32(255, a)
  786.                     printLarge animation(8).x, animation(8).y, LTRIM$(STR$(animation(8).xa)), 4
  787.             END SELECT
  788.         END IF
  789.     NEXT
  791.  
  792. SUB saveGame
  793.     SHARED score AS _UNSIGNED LONG, highscore AS _UNSIGNED LONG
  794.     SHARED level AS _UNSIGNED LONG
  795.     SHARED gameOver AS _BYTE
  796.     SHARED peg() AS object
  797.     SHARED music AS _BYTE, sfx AS _BYTE
  798.  
  799.     DIM i AS INTEGER
  800.  
  801.     OPEN "tictactoering.dat" FOR BINARY AS #1
  802.     DIM signature AS STRING
  803.     signature = "tttring"
  804.     PUT #1, 1, signature
  805.     PUT #1, , music
  806.     PUT #1, , sfx
  807.     PUT #1, , score
  808.     PUT #1, , highscore
  809.     PUT #1, , level
  810.     PUT #1, , gameOver
  811.     FOR i = 1 TO 12
  812.         PUT #1, , peg(i)
  813.     NEXT
  814.     CLOSE #1
  816.  
  817. SUB loadGame
  818.     SHARED score AS _UNSIGNED LONG, highscore AS _UNSIGNED LONG
  819.     SHARED level AS _UNSIGNED LONG
  820.     SHARED gameOver AS _BYTE
  821.     SHARED peg() AS object
  822.     SHARED music AS _BYTE, sfx AS _BYTE
  823.  
  824.     DIM i AS INTEGER
  825.  
  826.     OPEN "tictactoering.dat" FOR BINARY AS #1
  827.     IF LOF(1) THEN
  828.         DIM signature AS STRING
  829.         signature = SPACE$(7)
  830.         GET #1, 1, signature
  831.         IF signature <> "tttring" THEN
  832.             CLOSE #1
  833.             EXIT SUB
  834.         END IF
  835.         GET #1, , music
  836.         GET #1, , sfx
  837.         GET #1, , score
  838.         GET #1, , highscore
  839.         GET #1, , level
  840.         GET #1, , gameOver
  841.  
  842.         IF gameOver = false THEN
  843.             FOR i = 1 TO 12
  844.                 GET #1, , peg(i)
  845.             NEXT
  846.         ELSE
  847.             gameOver = false
  848.             score = 0
  849.             level = 0
  850.         END IF
  851.     ELSE
  852.         'user just upgraded from first versions?
  853.         'retrieve their highscore and kill old file
  854.         CLOSE #1
  855.         IF _FILEEXISTS("tictactoering.score") THEN
  856.             OPEN "tictactoering.score" FOR BINARY AS #1
  857.             IF LOF(1) THEN
  858.                 GET #1, 1, score
  859.                 GET #1, , highscore
  860.                 GET #1, , level
  861.                 GET #1, , gameOver
  862.  
  863.                 IF gameOver = false THEN
  864.                     FOR i = 1 TO 12
  865.                         GET #1, , peg(i)
  866.                     NEXT
  867.                 ELSE
  868.                     gameOver = false
  869.                     score = 0
  870.                     level = 0
  871.                 END IF
  872.             END IF
  873.             CLOSE #1
  874.             KILL "tictactoering.score"
  875.         END IF
  876.     END IF
  877.     CLOSE #1
  879.  
  880. SUB addParticles (x AS SINGLE, y AS SINGLE, total AS INTEGER, c AS _UNSIGNED LONG)
  881.     DIM addedP AS INTEGER, p AS INTEGER
  882.     DIM a AS SINGLE
  883.     SHARED particle() AS object
  884.  
  885.     addedP = 0: p = 0
  886.     DO
  887.         p = p + 1
  888.         IF p > UBOUND(particle) THEN EXIT DO
  889.         IF particle(p).state = true THEN _CONTINUE
  890.         addedP = addedP + 1
  891.         particle(p).state = true
  892.         particle(p).x = x
  893.         particle(p).y = y
  894.         a = RND * _PI(2)
  895.         particle(p).xv = COS(a) * (RND * 10)
  896.         particle(p).yv = SIN(a) * (RND * 10)
  897.         particle(p).r = _RED32(c)
  898.         particle(p).g = _GREEN32(c)
  899.         particle(p).b = _BLUE32(c)
  900.         particle(p).size = _CEIL(RND * 3)
  901.         particle(p).start = TIMER
  902.         particle(p).duration = RND
  903.     LOOP UNTIL addedP >= total
  905.  
  906. SUB updateScore
  907.     STATIC lastScoreUpdate AS SINGLE, lastHighScoreUpdate AS SINGLE
  908.     SHARED visibleScore AS _UNSIGNED LONG, score AS _UNSIGNED LONG
  909.     SHARED visibleHighScore AS _UNSIGNED LONG, highscore AS _UNSIGNED LONG
  910.     SHARED animation() AS object, woodblock AS LONG
  911.     SHARED sfx AS _BYTE
  912.  
  913.     IF visibleScore < score AND TIMER - lastScoreUpdate > .05 AND animation(8).start = 0 THEN
  914.         visibleScore = visibleScore + 1
  915.         IF woodblock > 0 AND sfx THEN _SNDPLAYCOPY woodblock
  916.         lastScoreUpdate = TIMER
  917.     END IF
  918.  
  919.     IF visibleHighScore < highscore AND TIMER - lastHighScoreUpdate > .05 AND animation(8).start = 0 THEN
  920.         visibleHighScore = visibleHighScore + 1
  921.         lastHighScoreUpdate = TIMER
  922.     END IF
  924.  
  925. SUB updateParticles
  926.     DIM i AS INTEGER
  927.     SHARED particle() AS object
  928.  
  929.     FOR i = 1 TO UBOUND(particle)
  930.         CONST gravity = .1
  931.         IF particle(i).state THEN
  932.             particle(i).xv = particle(i).xv + particle(i).xa
  933.             particle(i).x = particle(i).x + particle(i).xv
  934.             particle(i).yv = particle(i).yv + particle(i).ya + gravity
  935.             particle(i).y = particle(i).y + particle(i).yv
  936.  
  937.             IF particle(i).x > _WIDTH OR particle(i).x < 0 OR particle(i).y > _HEIGHT OR particle(i).y < 0 THEN
  938.                 particle(i).state = false
  939.             ELSE
  940.                 CircleFill particle(i).x, particle(i).y, particle(i).size, _RGB32(particle(i).r, particle(i).g, particle(i).b, map(TIMER - particle(i).start, 0, particle(i).duration, 255, 0))
  941.             END IF
  942.         END IF
  943.     NEXT
  945.  
  946. SUB hoverHighlight
  947.     SHARED peg() AS object
  948.     SHARED emptySet$
  949.     SHARED dragging AS INTEGER
  950.  
  951.     STATIC highLit AS INTEGER, glow AS SINGLE, glowStep AS SINGLE
  952.     DIM halo AS INTEGER
  953.     DIM i AS INTEGER, k AS SINGLE, j AS SINGLE
  954.  
  955.     IF dragging THEN EXIT SUB
  956.  
  957.     FOR i = 10 TO 12
  958.         IF peg(i).set = emptySet$ THEN _CONTINUE
  959.         IF dist(peg(i).x, peg(i).y, _MOUSEX, _MOUSEY) <= 40 THEN
  960.             k = 0
  961.             IF MID$(peg(i).set, 5, 2) <> MKI$(-1) THEN
  962.                 halo = 40
  963.             ELSEIF MID$(peg(i).set, 3, 2) <> MKI$(-1) THEN
  964.                 halo = 25
  965.             ELSE
  966.                 halo = 12
  967.             END IF
  968.  
  969.             IF highLit <> i THEN
  970.                 highLit = i
  971.                 glow = 10
  972.                 glowStep = .2
  973.             END IF
  974.  
  975.             IF glowStep = 0 THEN glowStep = .2
  976.             glow = glow + glowStep
  977.             IF glow < 8 THEN glow = 8: glowStep = glowStep * -1
  978.             IF glow > 16 THEN glow = 16: glowStep = glowStep * -1
  979.  
  980.             FOR j = glow TO 8 STEP -.5
  981.                 k = k + .8
  982.                 CircleFill peg(i).x, peg(i).y, halo + k, _RGB32(255, j)
  983.                 CircleFill peg(i).x, peg(i).y, (halo / 2) + k, _RGB32(0, j)
  984.             NEXT
  985.  
  986.             EXIT FOR
  987.         END IF
  988.     NEXT
  990.  
  991. SUB checkAvailableMoves
  992.     SHARED dragging AS INTEGER
  993.     SHARED peg() AS object
  994.     SHARED emptySet$
  995.     SHARED gameOver AS _BYTE
  996.     SHARED placed AS _BYTE
  997.  
  998.     DIM i AS INTEGER, j AS INTEGER, k AS INTEGER
  999.  
  1000.     IF dragging = 0 THEN
  1001.         IF peg(10).set <> emptySet$ OR peg(11).set <> emptySet$ OR peg(12).set <> emptySet$ THEN
  1002.             gameOver = true 'glass is half empty; consider no more moves
  1003.             FOR i = 10 TO 12
  1004.                 IF peg(i).set <> emptySet$ THEN
  1005.                     'can this set fit the board?
  1006.                     FOR j = 1 TO 9
  1007.                         placed = true
  1008.                         FOR k = 1 TO 3
  1009.                             IF CVI(MID$(peg(i).set, k * 2 - 1, 2)) > 0 AND CVI(MID$(peg(j).set, k * 2 - 1, 2)) > 0 THEN
  1010.                                 placed = false
  1011.                                 EXIT FOR
  1012.                             END IF
  1013.                         NEXT
  1014.                         IF placed THEN gameOver = false: EXIT FOR
  1015.                     NEXT
  1016.                 END IF
  1017.                 IF gameOver = false THEN EXIT FOR 'no need to test further, there's still hope
  1018.             NEXT
  1019.         END IF
  1020.  
  1021.         IF gameOver = false THEN
  1022.             'is board full?
  1023.             'that means we used all sets and no matches were found = game over
  1024.             DIM board$
  1025.             board$ = ""
  1026.             FOR i = 1 TO 9
  1027.                 board$ = board$ + peg(i).set
  1028.             NEXT
  1029.             IF INSTR(board$, MKI$(-1)) = 0 THEN gameOver = true
  1030.         END IF
  1031.     END IF
  1033.  
  1034. SUB drawRings
  1035.     DIM i AS INTEGER
  1036.     SHARED peg() AS object
  1037.     SHARED circleImage() AS LONG
  1038.     SHARED dragging AS INTEGER
  1039.     SHARED thisColor AS INTEGER
  1040.  
  1041.     DIM x AS SINGLE, y AS SINGLE
  1042.     DIM j AS INTEGER
  1043.  
  1044.     FOR i = 1 TO 12
  1045.         IF i = dragging THEN
  1046.             x = _MOUSEX
  1047.             y = _MOUSEY
  1048.         ELSE
  1049.             x = peg(i).x
  1050.             y = peg(i).y
  1051.         END IF
  1052.  
  1053.         FOR j = 1 TO 3
  1054.             thisColor = CVI(MID$(peg(i).set, j * 2 - 1, 2))
  1055.             IF thisColor > 0 THEN
  1056.                 _PUTIMAGE (x - (_WIDTH(circleImage(thisColor, j)) / 2), y - (_HEIGHT(circleImage(thisColor, j)) / 2)), circleImage(thisColor, j)
  1057.             END IF
  1058.         NEXT
  1059.     NEXT
  1061.  
  1062. SUB CircleFill (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  1063.     DIM x0 AS SINGLE, y0 AS SINGLE
  1064.     DIM e AS SINGLE
  1065.  
  1066.     x0 = R
  1067.     y0 = 0
  1068.     e = -R
  1069.     DO WHILE y0 < x0
  1070.         IF e <= 0 THEN
  1071.             y0 = y0 + 1
  1072.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  1073.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  1074.             e = e + 2 * y0
  1075.         ELSE
  1076.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  1077.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  1078.             x0 = x0 - 1
  1079.             e = e - 2 * x0
  1080.         END IF
  1081.     LOOP
  1082.     LINE (x - R, y)-(x + R, y), C, BF
  1084.  
  1085. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  1086.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  1088.  
  1089. FUNCTION lerp! (start!, stp!, amt!)
  1090.     DIM mult AS INTEGER
  1091.     IF start! < stp! THEN mult = -1 ELSE mult = 1
  1092.     lerp! = (mult * amt!) * (stp! - start!) + start!
  1094.  
  1095. FUNCTION dist! (x1!, y1!, x2!, y2!)
  1096.     dist! = _HYPOT((x2! - x1!), (y2! - y1!))
  1098.  
  1099. SUB printLarge (x AS SINGLE, y AS SINGLE, text$, fontSize AS INTEGER)
  1100.     DIM i AS LONG, j AS LONG, c AS LONG, char AS _UNSIGNED _BYTE
  1101.  
  1102.     IF fontSize = 0 THEN fontSize = 1
  1103.  
  1104.     FOR c = 1 TO LEN(text$)
  1105.         char = ASC(text$, c)
  1106.         FOR i = 1 TO 16
  1107.             FOR j = 1 TO 8
  1108.                 IF charSet(char, i, j) THEN
  1109.                     IF _PRINTMODE <> 2 THEN
  1110.                         LINE ((x - fontSize) + j * fontSize + ((c - 1) * (fontSize * 8)), (y - fontSize) + i * fontSize)-STEP(fontSize - 1, fontSize - 1), _DEFAULTCOLOR, BF
  1111.                     END IF
  1112.                 ELSE
  1113.                     IF _PRINTMODE = 3 OR _PRINTMODE = 2 THEN
  1114.                         LINE ((x - fontSize) + j * fontSize + ((c - 1) * (fontSize * 8)), (y - fontSize) + i * fontSize)-STEP(fontSize - 1, fontSize - 1), _BACKGROUNDCOLOR, BF
  1115.                     END IF
  1116.                 END IF
  1117.             NEXT
  1118.         NEXT
  1119.     NEXT
  1121.  
  1122. SUB centerLarge (y AS SINGLE, text$, fontSize AS INTEGER)
  1123.     printLarge (_WIDTH - printWidthLarge(text$, fontSize)) / 2, y, text$, fontSize
  1125.  
  1126. FUNCTION fontHeightLarge (fontSize AS INTEGER)
  1127.     fontHeightLarge = fontSize * 16
  1129.  
  1130. FUNCTION fontWidthLarge (fontSize AS INTEGER)
  1131.     fontWidthLarge = fontSize * 8
  1133.  
  1134. FUNCTION printWidthLarge (text$, fontSize AS INTEGER)
  1135.     printWidthLarge = fontWidthLarge(fontSize) * LEN(text$)
  1137.  
  1138. SUB initializeCharSetPrintLarge
  1139.     DIM char, row, column
  1140.     RESTORE charSet8x16
  1141.     FOR char = 0 TO 255
  1142.         FOR row = 1 TO 16
  1143.             FOR column = 1 TO 8
  1144.                 READ charSet(char, row, column)
  1145.             NEXT
  1146.         NEXT
  1147.     NEXT
  1148.  
  1149.     charSet8x16:
  1150.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,-1,0,0,0,0,0,0,-1,-1,0,-1,0,0,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1151.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1152.     DATA 0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
  1153.     DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,0,0,0,0,-1,0,0,-1,0,0,0,0,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,0,0,0,-1,-1,0,0,-1,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0
  1154.     DATA -1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1
  1155.     DATA 0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,-1,0,0,-1,-1,-1,0,0,-1,-1,-1,0,0,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1
  1156.     DATA -1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1
  1157.     DATA 0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1
  1158.     DATA -1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1159.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0
  1160.     DATA -1,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0
  1161.     DATA 0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,0,-1,-1,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1
  1162.     DATA -1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1163.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1
  1164.     DATA -1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1165.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,0,0
  1166.     DATA 0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0
  1167.     DATA 0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0
  1168.     DATA -1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0
  1169.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0
  1170.     DATA -1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1
  1171.     DATA -1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0
  1172.     DATA 0,-1,-1,0,0,0,-1,0,0,-1,-1,0,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,0,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,0,0,-1,-1,0,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,0,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0
  1173.     DATA -1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0
  1174.     DATA 0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,0,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1
  1175.     DATA -1,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0
  1176.     DATA -1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1
  1177.     DATA -1,-1,-1,-1,0,0,-1,0,-1,-1,0,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1
  1178.     DATA -1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0
  1179.     DATA 0,-1,-1,0,-1,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0
  1180.     DATA 0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1181.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1
  1182.     DATA 0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1
  1183.     DATA 0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1
  1184.     DATA 0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0
  1185.     DATA -1,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1
  1186.     DATA -1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1187.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1188.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,0,-1,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1189.     DATA 0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0
  1190.     DATA 0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1
  1191.     DATA 0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1192.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1193.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1194.     DATA -1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0
  1195.     DATA 0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1
  1196.     DATA -1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0
  1197.     DATA -1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0
  1198.     DATA -1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1
  1199.     DATA -1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1
  1200.     DATA -1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1
  1201.     DATA 0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1
  1202.     DATA -1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,-1,-1
  1203.     DATA -1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0
  1204.     DATA -1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,-1,-1,-1,0,0,-1,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1205.     DATA 0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,0,-1,0,0,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1206.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,0,0,0,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,0,0,0,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,0,0,0,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,0,0,0,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,0,0,0,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,0,0,0,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,0,0,0,0,-1,0,0,0,-1,0,-1,0,0,0,-1,0,0,0,-1,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,-1,0,0,-1,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,-1,0,0,-1,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,-1,0,0,-1,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,-1,0,0,-1,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,-1,0,0,-1,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,-1,0,0,-1,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,-1,0,0,-1,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,-1,0,-1,-1,0,-1,-1,-1,0,-1,0,-1,-1,-1,0,-1,-1
  1207.     DATA -1,-1,-1,0,-1,-1,-1,0,-1,0,-1,-1,-1,0,-1,-1,-1,-1,-1,0,-1,-1,-1,0,-1,0,-1,-1,-1,0,-1,-1,-1,-1,-1,0,-1,-1,-1,0,-1,0,-1,-1,-1,0,-1,-1,-1,-1,-1,0,-1,-1,-1,0,-1,0,-1,-1,-1,0,-1,-1,-1,-1,-1,0,-1,-1,-1,0,-1,0,-1,-1,-1,0,-1,-1,-1,-1,-1,0,-1,-1,-1,0,-1,0,-1,-1,-1,0,-1,-1,-1,-1,-1,0,-1,-1,-1,0,-1,0,-1,-1,-1,0,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0
  1208.     DATA 0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1
  1209.     DATA 0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1
  1210.     DATA -1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1
  1211.     DATA -1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1212.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0
  1213.     DATA -1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0
  1214.     DATA 0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1
  1215.     DATA -1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,-1,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0
  1216.     DATA -1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,-1,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1217.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1
  1218.     DATA -1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1219.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1
  1220.     DATA 0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
  1221.     DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1
  1222.     DATA -1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,0,0,0,-1,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1223.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1224.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1225.     DATA 0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1
  1226.     DATA 0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,-1,-1,-1,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,-1,-1,-1,-1,-1,-1,0,-1
  1227.     DATA -1,0,-1,-1,0,-1,-1,-1,-1,0,-1,-1,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,-1,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1
  1228.     DATA -1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0
  1229.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1230.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,-1,-1,0,-1,-1,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1231.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,0,0,0,0,-1,-1,0,0,-1,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,0,0,0,0,-1,-1,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,0,0,0,-1,-1,0,0,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1232.     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1234.  
  1235. SUB pause (duration AS SINGLE)
  1236.     DIM j AS SINGLE
  1237.     j = TIMER
  1238.     DO
  1239.         _DISPLAY
  1240.         _LIMIT 30
  1241.     LOOP UNTIL TIMER - j > duration OR _KEYHIT
  1243.  
  1244. SUB endScreen
  1245.     SHARED gameOver AS _BYTE, keyb AS LONG
  1246.     SHARED animation() AS object, peg() AS object
  1247.     SHARED bg AS LONG, bgWithoutShelf AS LONG
  1248.     SHARED m$(), emptySet$
  1249.     SHARED userQuit AS _BYTE
  1250.     SHARED score AS _UNSIGNED LONG, visibleScore AS _UNSIGNED LONG
  1251.     SHARED level AS _UNSIGNED LONG
  1252.  
  1253.     DIM k AS INTEGER, i AS INTEGER
  1254.  
  1255.     IF gameOver OR keyb = -27 THEN
  1256.         'flash and screenshot
  1257.         DIM screenshot AS LONG, screenshot2 AS LONG
  1258.         screenshot = _COPYIMAGE(_DISPLAY)
  1259.  
  1260.         animation(0).start = TIMER
  1261.         DO
  1262.             DIM screenshotSize AS INTEGER, zoomOut AS INTEGER
  1263.             zoomOut = 200
  1264.             screenshotSize = map(TIMER - animation(0).start, 0, .5, _WIDTH, _WIDTH - zoomOut)
  1265.             IF screenshotSize < _WIDTH - zoomOut THEN screenshotSize = _WIDTH - zoomOut
  1266.             CLS
  1267.             _PUTIMAGE (0, 0), bgWithoutShelf
  1268.             _PUTIMAGE ((_WIDTH - screenshotSize) / 2, 0)-STEP(screenshotSize, screenshotSize), screenshot
  1269.             IF TIMER - animation(0).start < .3 THEN
  1270.                 LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(255, map(TIMER - animation(0).start, 0, .3, 0, 255)), BF
  1271.             END IF
  1272.             updateParticles
  1273.             _DISPLAY
  1274.             _LIMIT 60
  1275.         LOOP UNTIL TIMER - animation(0).start > .75
  1276.  
  1277.         IF gameOver THEN
  1278.             m$(1) = "Game Over"
  1279.             COLOR _RGB32(255)
  1280.             k = 4
  1281.             printLarge (_WIDTH - printWidthLarge(m$(1), k)) / 2, _HEIGHT - fontHeightLarge(k) * 2.5, m$(1), k
  1282.         END IF
  1283.  
  1284.         screenshot2 = _COPYIMAGE(_DISPLAY)
  1285.  
  1286.         'end screen buttons
  1287.         SHARED currentButton AS INTEGER
  1288.         SHARED totalButtons AS INTEGER
  1289.         SHARED button() AS object, caption() AS STRING
  1290.  
  1291.         currentButton = 0
  1292.         totalButtons = 2
  1293.         FOR i = 1 TO 2
  1294.             button(i).h = _FONTHEIGHT + 10
  1295.             button(i).w = _PRINTWIDTH("  Continue  ")
  1296.         NEXT
  1297.  
  1298.         DIM startX AS INTEGER
  1299.         startX = (_WIDTH - button(1).w * totalButtons) / 2
  1300.         FOR i = 1 TO totalButtons
  1301.             button(i).y = _HEIGHT - fontHeightLarge(3) * 2
  1302.             button(i).x = startX
  1303.             startX = startX + button(i).w
  1304.         NEXT
  1305.  
  1306.         IF gameOver THEN
  1307.             caption(1) = "Restart"
  1308.             caption(2) = "Quit"
  1309.         ELSE
  1310.             caption(1) = "Continue"
  1311.             caption(2) = "Restart"
  1312.         END IF
  1313.  
  1314.         DO
  1315.             SHARED mainTrackVolume AS SINGLE, track() AS LONG, music AS _BYTE
  1316.             IF music THEN
  1317.                 IF mainTrackVolume < 1 THEN
  1318.                     mainTrackVolume = mainTrackVolume + .05
  1319.                     IF track(1) > 0 THEN _SNDVOL track(1), mainTrackVolume
  1320.                 END IF
  1321.             END IF
  1322.  
  1323.             keyb = _KEYHIT
  1324.             WHILE _MOUSEINPUT: WEND
  1325.             DIM mx AS INTEGER, my AS INTEGER
  1326.             mx = _MOUSEX
  1327.             my = _MOUSEY
  1328.  
  1329.             _PUTIMAGE (0, 0), screenshot2
  1330.             doButtons
  1331.             DIM mouseDown AS _BYTE
  1332.             checkButtons
  1333.  
  1334.             DIM prevbt AS INTEGER
  1335.             IF currentButton <> prevbt THEN
  1336.                 SHARED selectSound AS LONG, sfx AS _BYTE
  1337.                 IF currentButton > 0 AND sfx AND selectSound > 0 THEN _SNDPLAYCOPY selectSound
  1338.                 prevbt = currentButton
  1339.             END IF
  1340.  
  1341.             SELECT CASE keyb
  1342.                 CASE 19200 'left
  1343.                     currentButton = 1
  1344.                 CASE 19712 'right
  1345.                     currentButton = 2
  1346.                 CASE -13
  1347.                     mouseDown = true
  1348.                 CASE -27
  1349.                     EXIT DO
  1350.             END SELECT
  1351.  
  1352.             IF _MOUSEBUTTON(1) THEN
  1353.                 mouseDown = true
  1354.             ELSE
  1355.                 IF mouseDown THEN
  1356.                     SELECT CASE currentButton
  1357.                         CASE 1
  1358.                             keyb = -121
  1359.                             EXIT DO
  1360.                         CASE 2
  1361.                             keyb = -110
  1362.                             EXIT DO
  1363.                     END SELECT
  1364.                     addParticles mx, my, 30, _RGB32(255)
  1365.                     addParticles mx, my, 30, _RGB32(122, 89, 144)
  1366.                 END IF
  1367.                 mouseDown = false
  1368.             END IF
  1369.  
  1370.             updateParticles
  1371.  
  1372.             userQuit = _EXIT
  1373.             _DISPLAY
  1374.             _LIMIT 30
  1375.         LOOP UNTIL keyb = -13 OR keyb = -27 OR keyb = -110 OR keyb = -78 OR keyb = -121 OR keyb = -89 OR userQuit
  1376.  
  1377.         IF (gameOver AND (keyb = -110 OR keyb = -78)) OR userQuit THEN SYSTEM
  1378.  
  1379.         IF (gameOver AND (keyb = -13 OR keyb = -121 OR keyb = -89)) OR (gameOver = false AND (keyb = -110 OR keyb = -78)) THEN
  1380.             IF track(1) > 0 AND music THEN _SNDSTOP track(1): _SNDLOOP track(1) 'restart main track
  1381.             gameOver = false
  1382.             score = 0
  1383.             visibleScore = 0
  1384.             level = 0
  1385.             animation(0).start = TIMER
  1386.             FOR i = 1 TO 12
  1387.                 peg(i).set = emptySet$
  1388.             NEXT
  1389.         ELSE
  1390.             'bring screenshot back to front
  1391.             animation(0).start = TIMER
  1392.             DO
  1393.                 zoomOut = 200
  1394.                 screenshotSize = map(TIMER - animation(0).start, 0, .5, _WIDTH - zoomOut, _WIDTH)
  1395.                 IF screenshotSize > _WIDTH THEN screenshotSize = _WIDTH
  1396.                 CLS
  1397.                 _PUTIMAGE (0, 0), bgWithoutShelf
  1398.                 _PUTIMAGE ((_WIDTH - screenshotSize) / 2, 0)-STEP(screenshotSize, screenshotSize), screenshot
  1399.                 IF TIMER - animation(0).start <= .3 THEN
  1400.                     LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(255, map(TIMER - animation(0).start, 0, .3, 0, 255)), BF
  1401.                 END IF
  1402.                 _DISPLAY
  1403.                 _LIMIT 60
  1404.             LOOP UNTIL TIMER - animation(0).start > .5
  1405.         END IF
  1406.  
  1407.         _FREEIMAGE screenshot
  1408.         _FREEIMAGE screenshot2
  1409.         _KEYCLEAR
  1410.         currentButton = 0
  1411.     END IF
  1413.  
  1414. SUB settingsScreen
  1415.     SHARED gameOver AS _BYTE, keyb AS LONG
  1416.     SHARED animation() AS object, peg() AS object
  1417.     SHARED bg AS LONG, bgWithoutShelf AS LONG
  1418.     SHARED m$(), emptySet$
  1419.     SHARED userQuit AS _BYTE
  1420.     SHARED score AS _UNSIGNED LONG, visibleScore AS _UNSIGNED LONG
  1421.     SHARED level AS _UNSIGNED LONG
  1422.  
  1423.     'flash and screenshot
  1424.     DIM screenshot AS LONG
  1425.     screenshot = _COPYIMAGE(_DISPLAY)
  1426.  
  1427.     animation(0).start = TIMER
  1428.     DO
  1429.         DIM screenshotSize AS INTEGER, zoomOut AS INTEGER
  1430.         zoomOut = 400
  1431.         screenshotSize = map(TIMER - animation(0).start, 0, .5, _WIDTH, _WIDTH - zoomOut)
  1432.         IF screenshotSize < _WIDTH - zoomOut THEN screenshotSize = _WIDTH - zoomOut
  1433.         CLS
  1434.         _PUTIMAGE (0, 0), bgWithoutShelf
  1435.         _PUTIMAGE (0, (_HEIGHT - screenshotSize) / 2)-STEP(screenshotSize, screenshotSize), screenshot
  1436.         IF TIMER - animation(0).start < .3 THEN
  1437.             LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(255, map(TIMER - animation(0).start, 0, .3, 0, 255)), BF
  1438.         END IF
  1439.  
  1440.         updateParticles
  1441.         _DISPLAY
  1442.         _LIMIT 60
  1443.     LOOP UNTIL TIMER - animation(0).start > .75
  1444.  
  1445.     SHARED button() AS object
  1446.     SHARED caption() AS STRING
  1447.     SHARED totalButtons AS INTEGER
  1448.     SHARED currentButton AS INTEGER
  1449.  
  1450.     'settings buttons
  1451.     SHARED music AS _BYTE, sfx AS _BYTE
  1452.     DIM i AS INTEGER
  1453.     currentButton = 0
  1454.     totalButtons = 4
  1455.     FOR i = 1 TO totalButtons - 1
  1456.         button(i).h = _FONTHEIGHT + 10
  1457.         button(i).w = _PRINTWIDTH("  ENOUGH WIDTH FOR ALL CHOICES  ")
  1458.     NEXT
  1459.  
  1460.     caption(3) = "Return to game"
  1461.  
  1462.     DIM startY AS INTEGER
  1463.     startY = (_HEIGHT - button(1).h * totalButtons - 1) / 2
  1464.     FOR i = 1 TO totalButtons - 1
  1465.         button(i).y = startY
  1466.         button(i).x = _WIDTH - _WIDTH / 3 - button(i).w / 2
  1467.         startY = startY + button(i).h
  1468.     NEXT
  1469.  
  1470.     button(4).x = 0
  1471.     button(4).y = (_HEIGHT - screenshotSize) / 2
  1472.     button(4).w = screenshotSize
  1473.     button(4).h = screenshotSize
  1474.  
  1475.     DO
  1476.         CLS
  1477.         _PUTIMAGE (0, 0), bgWithoutShelf
  1478.         _PUTIMAGE (0, (_HEIGHT - screenshotSize) / 2)-STEP(screenshotSize, screenshotSize), screenshot
  1479.  
  1480.         DIM mx AS INTEGER, my AS INTEGER
  1481.         WHILE _MOUSEINPUT: WEND
  1482.         mx = _MOUSEX
  1483.         my = _MOUSEY
  1484.         keyb = _KEYHIT
  1485.         userQuit = _EXIT
  1486.  
  1487.         IF music THEN
  1488.             caption(1) = "Music: ON"
  1489.         ELSE
  1490.             caption(1) = "Music: OFF"
  1491.         END IF
  1492.  
  1493.         IF sfx THEN
  1494.             caption(2) = "Sound effects: ON"
  1495.         ELSE
  1496.             caption(2) = "Sound effects: OFF"
  1497.         END IF
  1498.  
  1499.         doButtons
  1500.         DIM mouseDown AS _BYTE
  1501.         checkButtons
  1502.  
  1503.         DIM prevbt AS INTEGER
  1504.         IF currentButton <> prevbt THEN
  1505.             SHARED selectSound AS LONG
  1506.             IF currentButton > 0 AND sfx AND selectSound > 0 THEN _SNDPLAYCOPY selectSound
  1507.             prevbt = currentButton
  1508.         END IF
  1509.  
  1510.         SELECT CASE keyb
  1511.             CASE 18432 'up
  1512.                 currentButton = currentButton - 1
  1513.                 IF currentButton < 1 THEN currentButton = 1
  1514.             CASE 20480 'down
  1515.                 currentButton = currentButton + 1
  1516.                 IF currentButton > totalButtons THEN currentButton = totalButtons
  1517.             CASE 19200 'left
  1518.                 IF currentButton < 4 THEN currentButton = 4
  1519.             CASE 19712 'right
  1520.                 IF currentButton = 4 THEN currentButton = 1
  1521.             CASE -13
  1522.                 mouseDown = true
  1523.                 IF currentButton > 0 THEN
  1524.                     mx = button(currentButton).x + button(currentButton).w / 2
  1525.                     my = button(currentButton).y + button(currentButton).h / 2
  1526.                 END IF
  1527.             CASE -27
  1528.                 EXIT DO
  1529.         END SELECT
  1530.  
  1531.         IF _MOUSEBUTTON(1) THEN
  1532.             mouseDown = true
  1533.         ELSE
  1534.             IF mouseDown THEN
  1535.                 SELECT CASE currentButton
  1536.                     CASE 1
  1537.                         music = NOT music
  1538.                         SHARED track() AS LONG
  1539.                         IF track(1) > 0 AND music THEN _SNDLOOP track(1)
  1540.                         IF track(1) > 0 AND music = false THEN _SNDSTOP track(1)
  1541.                     CASE 2
  1542.                         sfx = NOT sfx
  1543.                         SHARED wooshSound AS LONG
  1544.                         IF wooshSound > 0 AND sfx THEN _SNDPLAYCOPY wooshSound
  1545.                     CASE 3, 4
  1546.                         EXIT DO
  1547.                 END SELECT
  1548.                 addParticles mx, my, 30, _RGB32(255)
  1549.                 addParticles mx, my, 30, _RGB32(67, 172, 183)
  1550.             END IF
  1551.             mouseDown = false
  1552.         END IF
  1553.  
  1554.         'game title
  1555.         COLOR _RGB32(0)
  1556.         centerLarge (_HEIGHT / 7) + 3, "Settings", 4
  1557.         centerLarge (_HEIGHT - _HEIGHT / 4) - fontHeightLarge(2) + 3, "Tic Tac Toe", 2
  1558.         centerLarge (_HEIGHT - _HEIGHT / 4) + 3, "Rings", 7
  1559.  
  1560.         COLOR _RGB32(255)
  1561.         centerLarge (_HEIGHT / 7), "Settings", 4
  1562.         centerLarge (_HEIGHT - _HEIGHT / 4) - fontHeightLarge(2), "Tic Tac Toe", 2
  1563.         centerLarge (_HEIGHT - _HEIGHT / 4), "Rings", 7
  1564.  
  1565.         updateParticles
  1566.  
  1567.         _DISPLAY
  1568.         _LIMIT 30
  1569.     LOOP UNTIL userQuit
  1570.  
  1571.     IF (gameOver AND (keyb = -110 OR keyb = -78)) OR userQuit THEN SYSTEM
  1572.  
  1573.     'bring screenshot back to front
  1574.     animation(0).start = TIMER
  1575.     DO
  1576.         zoomOut = 200
  1577.         screenshotSize = map(TIMER - animation(0).start, 0, .5, _WIDTH - zoomOut, _WIDTH)
  1578.         IF screenshotSize > _WIDTH THEN screenshotSize = _WIDTH
  1579.         CLS
  1580.         _PUTIMAGE (0, 0), bgWithoutShelf
  1581.         _PUTIMAGE (0, (_HEIGHT - screenshotSize) / 2)-STEP(screenshotSize, screenshotSize), screenshot
  1582.         IF TIMER - animation(0).start <= .3 THEN
  1583.             LINE (0, 0)-(_WIDTH - 1, _HEIGHT - 1), _RGB32(255, map(TIMER - animation(0).start, 0, .3, 0, 255)), BF
  1584.         END IF
  1585.         _DISPLAY
  1586.         _LIMIT 60
  1587.     LOOP UNTIL TIMER - animation(0).start > .5
  1588.  
  1589.     _FREEIMAGE screenshot
  1590.     _KEYCLEAR
  1591.     currentButton = 0
  1593.  
  1594. SUB createMainScreenButtons
  1595.     SHARED totalButtons AS INTEGER
  1596.     SHARED caption() AS STRING
  1597.     SHARED button() AS object
  1598.     SHARED currentButton AS INTEGER
  1599.  
  1600.     totalButtons = 1
  1601.     caption(1) = "Settings"
  1602.     button(1).h = _FONTHEIGHT + 10
  1603.     button(1).w = _PRINTWIDTH(caption(1) + "    ")
  1604.     button(1).y = _HEIGHT - button(1).h - 1
  1605.     button(1).x = _WIDTH - button(1).w - 1
  1606.  
  1607.     'caption(2) = CHR$(221) + CHR$(222)
  1608.     'button(2).h = _FONTHEIGHT + 10
  1609.     'button(2).w = _PRINTWIDTH(caption(2) + "    ")
  1610.     'button(2).y = 0
  1611.     'button(2).x = button(1).x - button(2).w
  1613.  
  1614. SUB doButtons
  1615.     SHARED totalButtons AS INTEGER
  1616.     SHARED caption() AS STRING
  1617.     SHARED button() AS object
  1618.     SHARED currentButton AS INTEGER
  1619.     DIM i AS INTEGER
  1620.  
  1621.     FOR i = 1 TO totalButtons
  1622.         LINE (button(i).x, button(i).y)-STEP(button(i).w, button(i).h), _RGB32(255), B
  1623.         IF i = currentButton THEN
  1624.             LINE (button(currentButton).x, button(currentButton).y)-STEP(button(currentButton).w, button(currentButton).h), _RGB32(255, 80), BF
  1625.             COLOR _RGB32(0)
  1626.             DIM shadowDepth AS INTEGER
  1627.             shadowDepth = 2
  1628.             _PRINTSTRING (button(i).x + (button(i).w - _PRINTWIDTH(caption(i))) / 2 + shadowDepth, button(i).y + button(i).h / 2 - _FONTHEIGHT / 2 + shadowDepth), caption(i)
  1629.         END IF
  1630.         COLOR _RGB32(255)
  1631.         _PRINTSTRING (button(i).x + (button(i).w - _PRINTWIDTH(caption(i))) / 2, button(i).y + button(i).h / 2 - _FONTHEIGHT / 2), caption(i)
  1632.     NEXT
  1634.  
  1635. SUB checkButtons
  1636.     SHARED totalButtons AS INTEGER
  1637.     SHARED caption() AS STRING
  1638.     SHARED button() AS object
  1639.     SHARED currentButton AS INTEGER
  1640.     DIM i AS INTEGER
  1641.     STATIC lastMouseX AS INTEGER, lastMouseY AS INTEGER
  1642.  
  1643.     IF _MOUSEX <> lastMouseX OR _MOUSEY <> lastMouseY THEN
  1644.         lastMouseX = _MOUSEX
  1645.         lastMouseY = _MOUSEY
  1646.  
  1647.         currentButton = 0
  1648.         FOR i = 1 TO totalButtons
  1649.             IF _MOUSEX > button(i).x AND _MOUSEX < button(i).x + button(i).w AND _MOUSEY > button(i).y AND _MOUSEY < button(i).y + button(i).h THEN
  1650.                 currentButton = i
  1651.                 EXIT FOR
  1652.             END IF
  1653.         NEXT
  1654.     END IF



https://github.com/FellippeHeitor/TicTacToeRing/archive/master.zip

17
Games / Moon Lander by Richard Frost
« on: May 19, 2020, 05:16:56 am »
Moon Lander

Author: @Richard Frost
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=1022.0
Version: May 15, 2020
Tags: [Graphics], [Skill]

Description:
Lunar Lander based on a 1974 program running on a DEC PDP/11 with GT40 vector display terminal at the University of Alberta.  Initially written in QB4.5 (hence the convoluted code to save space), upgraded to use some QB64 features.  Updated May 15, 2020 -  More effects (at warp speeds) and cookies!

Controls:
The multifarious keyboard controls are given by pressing F1 (Help) when the program is run.

Source Code:
Code: QB64: [Select]
  1. ' Moon Lander by rfrost@mail.com
  2.  
  3. $EXEICON:'.\astro.ico'
  5.  
  6. DEFINT A-Z
  7. DIM SHARED a '                                                        angle of craft
  8. DIM SHARED a51i '                                                     Area 51 initializations
  9. DIM SHARED APdisengage '                                              AutoPilot disengage
  10. DIM SHARED ASO '                                                      ascent stage only
  11. DIM SHARED auto '                                                     autopilot
  12. DIM SHARED background '                                               for instrument panel
  13. DIM SHARED bh '                                                       black hole
  14. DIM SHARED bhx, bhy '                                                 black hole
  15. DIM SHARED bbit '                                                     blinking bit synced to time
  16. DIM SHARED bolthit, bolthitf, boltx '                                 Deathstar hit vehicle, feature
  17. DIM SHARED borgl, borgr, borgt '                                      left right top, distance
  18. DIM SHARED bstyle1, bstyle2 '                                         Borg matrix/lines/Moire
  19. DIM SHARED bw '                                                       black and white
  20. DIM SHARED c '                                                        usually color
  21. DIM SHARED canvas& '                                                  primary screen
  22. DIM SHARED cbh '                                                      constant black holes
  23. DIM SHARED center '                                                   varies according to gs (graphics start)
  24. DIM SHARED chs '                                                      parachute size
  25. DIM SHARED contact '                                                  landed
  26. DIM SHARED convo '                                                    conversation active LM/CM
  27. DIM SHARED cpal '                                                     color palette, normal/green/b&w (32 color kludge/fun)
  28. DIM SHARED craft '                                                    color
  29. DIM SHARED crash '                                                    layer of debris
  30. DIM SHARED cwd, cwsi, cwsd '                                          car wash distance, angles
  31. DIM SHARED cybilltime! '                                              time on screen
  32. DIM SHARED darkstarc '                                                deathstar color set
  33. DIM SHARED darkstars '                                                deathstar spin rate
  34. DIM SHARED darkstart '                                                   "      thickness
  35. DIM SHARED dead$ '                                                    end condition
  36. DIM SHARED debug$ '                                                   messages to God
  37. DIM SHARED demo '                                                     ground features compressed
  38. DIM SHARED doclock '                                                  it's Howdy Doody time
  39. DIM SHARED dosbox '                                                   flag
  40. DIM SHARED dsinit '                                                   deathstar
  41. DIM SHARED eou '                                                      end of universe
  42. DIM SHARED fb$ '                                                      landing feedback/analysis
  43. DIM SHARED flx '                                                      US/USSR flag position
  44. DIM SHARED fuel, fuel! '                                              color of, quantity left
  45. DIM SHARED gh, glmin, glmax '                                         ground height, level
  46. DIM SHARED grav! '                                                    gravity
  47. DIM SHARED gs '                                                       flight area x start
  48. DIM SHARED gstyle '                                                   ground style
  49. DIM SHARED inpause '                                                  flag
  50. DIM SHARED invincible '                                               impervious to threats
  51. DIM SHARED iscd '                                                     don't attempt to write!
  52. DIM SHARED jitter '                                                   shift-T to control
  53. DIM SHARED LEDc '                                                     color
  54. DIM SHARED LEDtri '                                                   tri-color flag
  55. DIM SHARED level '                                                    surface is
  56. DIM SHARED LGMc '                                                     Little Green Man color
  57. DIM SHARED liftoff '                                                  AS only
  58. DIM SHARED lmsl '                                                     LM shield/laser color
  59. DIM SHARED lob '                                                      landed on Borg
  60. DIM SHARED lockfuel '                                                 cheat!
  61. DIM SHARED lp, rp, xp, th1, th2 '                                     pads, radar, thrusters
  62. DIM SHARED magic '                                                    cheat! (instant landing)
  63. DIM SHARED mdelay '                                                   PgUp/PgDn controlled
  64. DIM SHARED msflag '                                                   making surfaces
  65. DIM SHARED mstar '                                                    make stars
  66. DIM SHARED nation '                                                   1 US, 2 USSR (flags & fireworks)
  67. DIM SHARED ok '                                                       at landing, to plant flag
  68. DIM SHARED okrick '                                                   diagnostics
  69. DIM SHARED osc '                                                      on screen count
  70. DIM SHARED oscar '                                                    semaphore land/sea flags
  71. DIM SHARED panelinit '                                                replot flag
  72. DIM SHARED paraf '                                                    parachute flag
  73. DIM SHARED pload '                                                    panel load flag
  74. DIM SHARED porb '                                                     pointers/bargraphs
  75. DIM SHARED ptk '                                                      points to kill (gasoline) ExplodeLM
  76. DIM SHARED px!, py! '                                                 vehicle position on screen
  77. DIM SHARED ra '                                                       random angle
  78. DIM SHARED radarf '                                                   radar on/off
  79. DIM SHARED rads '                                                     Luna radiation
  80. DIM SHARED radiationdeath '                                           flag
  81. DIM SHARED rdtime! '                                                  fun with high res screen (my picture)
  82. DIM SHARED regen '                                                    all star files
  83. DIM SHARED rfx, rfy '                                                 craft jigger
  84. DIM SHARED rick '                                                     debug flag
  85. DIM SHARED rmin, dmin '                                               stars
  86. DIM SHARED settings$ '                                                lander.set
  87. DIM SHARED sf '                                                       surface feature
  88. DIM SHARED shield '                                                   flag
  89. DIM SHARED shoot '                                                    flag
  90. DIM SHARED showmap '                                                  locations of things shown at top
  91. DIM SHARED sia '                                                      shells in air
  92. DIM SHARED skyoff '                                                   for faster performance
  93. DIM SHARED starship '                                                 Enterprise (double shift twice)
  94. DIM SHARED ufof '                                                     for ufo
  95. DIM SHARED sspinit1, sspinit2 '                                       Surveyor
  96. DIM SHARED starfiles '                                                use stars1,2 or 3 (few/med/lots)
  97. DIM SHARED starinit '                                                 flag
  98. DIM SHARED shipi&, shipx '                                            starship
  99. DIM SHARED starstatus '                                               0 off, 1 on, 234 more info
  100. DIM SHARED suri '                                                     surface index
  101. DIM SHARED sx0, sy0 '                                                 LM radar/laser location
  102. DIM SHARED sx1, sy1 '                                                 LM left landing pad
  103. DIM SHARED sx2, sy2 '                                                 LM right landing pad
  104. DIM SHARED temp '                                                     temperature
  105. DIM SHARED thrust! '                                                  0 - 100
  106. DIM SHARED tilef '                                                    tile variation
  107. DIM SHARED vx!, vy! '                                                 LM velocity
  109. DIM SHARED warp! '                                                    vx! >= 100
  110. DIM SHARED wi, wi2 '                                                  width (distance between pads)
  111. DIM SHARED wx!, wy! '                                                 vehicle position on screen
  112. DIM SHARED x '                                                        = suri + px!
  113. DIM SHARED xoff '                                                     offset for v=5-20, Surv & Etna
  114. DIM SHARED zoom '                                                     starfield
  115.  
  116. DIM SHARED blue, green, gunmetal, red, gasoline, gray2, white, gray
  117. DIM SHARED dred, gold, black2, orange, blue2, yellow, white2
  118.  
  119. DIM SHARED q1, q2, q3, q4, h, t, th, tsix, aspect!, pf! '             constants
  120.  
  121. q1 = 6400: q2 = 860: q3 = 639: q4 = 349: h = 100: th = 200: t = 10: tsix = 360
  122. pf! = .5: aspect! = 1.4: grav! = 1.6
  123.  
  124. qt = 2000 '                                                           3 arrays below weren't loading properly with q2
  125. DIM SHARED LMx(qt), LMy(qt), LMc(qt) '                                LM+exhaust x,y,color
  126.  
  127. DIM SHARED LMrx(1400), LMry(1400) '                                   LM+exhaust x,y after rotation
  128. DIM SHARED LMoc(705), LMci(3) '                                       LM colors,original colors, index
  129. DIM SHARED c!(360), s!(360) '                                         sines and cosines
  130. DIM SHARED ex(6), ey(6), exv(6), eyv(6), ei(6), ek(6), exl(6) '       sky objects
  131. DIM SHARED f$(40) '                                                   support files
  132. DIM SHARED mes$(1), omes$(1), sm!(1) '                                messages at screen top
  133. DIM SHARED sf(10, 2), sf$(10) '                                       surface features start/end/middle
  134. DIM SHARED shx(20), shy(20), sha(20) '                                shells (IBM weapons) x,y,angle
  135. DIM SHARED shvx(20), shvy(20), shd(20) '                              velocity, distance
  136. DIM SHARED rtl!(2), rtlc(2) '                                         radiation/temperature/lightning
  137. DIM SHARED gh(6400) '                                                 ground height
  138.  
  139. DIM clocka(2) '                                                       clock angles
  140. DIM cmp&(30) '                                                        CM patterns
  141. DIM convo$(50) '                                                      LM/CM
  142. DIM SHARED gbuff(800) '                                               DS liftoff
  143. DIM skyset1(t), skyset2(t) '                                          skycrud
  144. DIM SHARED p(127, 13), p2(127, 7) '                                   vga and cga fonts
  145. DIM SHARED tflags(30)
  146.  
  147. begin:
  148. GOSUB init1
  150.     GOSUB init2
  151.     WHILE LEN(INKEY$): WEND '                                         clear keyboard buffer
  152.     DO: _LIMIT mdelay
  153.         GOSUB Autopilot
  154.         GOSUB Plotscreen
  155.         GOSUB KeyAndMouse
  156.         IF restart THEN GOTO begin '                                  restore defaults
  157.         IF warp! < 1 THEN GOSUB CheckHit
  158.     LOOP UNTIL contact OR LEN(dead$)
  159.     GOSUB CheckDead
  160.     IF contact THEN
  161.         Evaluate savea, a + ma '                                      landing feedback contact/currentø
  162.         wu2! = TIMER + 1
  163.         GOSUB pause '                                                 landed, Enter for liftoff
  164.         IF restart THEN GOTO begin '                                  restore defaults
  165.         IF k <> 60 THEN GOSUB CheckDead '                             F2 demo restart
  166.     END IF
  168.  
  169. CheckDead:
  170. z$ = LEFT$(LEFT$(dead$, 1) + " ", 1)
  171. IF INSTR(" CBE", z$) = 0 THEN '                                       not Crashed, Borg, Eaten by BH
  172.     ExplodeLM
  173.     contact = 0
  175. dead$ = ""
  177.  
  178. Autopilot:
  179. aboveborg = 0
  180. IF (ek(2) = -1) OR (ek(2) > h) THEN borgt = 0
  181. IF (skyoff = 0) AND (sy1 < borgt) AND (px! > borgl) AND (px! < borgr) THEN aboveborg = 1
  182. super = 0
  183. IF vert OR hover THEN
  184.     GOSUB GetAlt
  185.     i! = alt! / 8 + pf! '                                             thrust target
  186.     IF jitter AND (alt! < t) THEN i! = i! * 2 '                       optional, faster
  187.     IF aboveborg THEN i! = 1
  188.     GOSUB idealthrust
  189.     thrust! = sbest!
  190.     super = -(sbest! > h) '                                           add side thusters
  191.     IF thrust! > h THEN thrust! = h
  193. IF thrust! < 0 THEN thrust! = 0
  195.  
  196. CutOrOutOfFuel:
  197. IF fuel! = 0 THEN shield = 0 '                                        shields need fuel
  198. IF cut = 0 THEN
  199.     cut = 1
  200.     cvy! = vy!
  201.     ctime! = TIMER
  202.     tfollow = 0 '                                                     terrain following
  203.     thrust! = 0
  206.  
  207. idealthrust: '                                                        for hover or descend
  208. IF (alt! < pf!) AND (jitter = 0) THEN i! = .05 '                      soft landing
  209. IF hover THEN i! = hoverc '                                           target
  210. hoverc = hoverc - SGN(hoverc) '                                       up/down
  211. fmin! = q1 '                                                          conventient large number (6400)
  212. ma! = (vmass + fuel!) / th '                                          mass (actually 54% fuel)
  213. ts! = s!((a + 270) MOD tsix) / ma! / power
  214. IF jitter THEN us! = RND * t + 1 ELSE us! = .1
  215. IF powerloss THEN us! = h
  216. FOR z! = 0 TO (h + t) STEP us! '                                      find best thrust 0-110
  217.     fo! = z! * ts!
  218.     aa! = ABS(vy! + grav! + fo! - i!)
  219.     IF aa! < fmin! THEN fmin! = aa!: sbest! = z!
  220.     IF aa! > fmin! THEN EXIT FOR
  221. NEXT z!
  223.  
  224. GoSkyObject:
  225. IF (ek(p) <> -1) AND (contact = 0) THEN
  226.     auto = 0
  227.     a = -ma
  228.     wa = -ma
  229.     lock1 = 0
  230.     suri = ex(p) - center
  231.     GOSUB slimit
  232.     IF p > 2 THEN ey(p) = th '                                        BH, worm, comet, alien
  233.     px! = center
  234.     IF p = 2 THEN py! = 130 '                                         above Borg
  235.     vx! = exv(p)
  236.     eyv(p) = 0
  239.  
  240. KeyAndMouse:
  242.     lb = ABS(_MOUSEBUTTON(1))
  243.     rb = ABS(_MOUSEBUTTON(2))
  244.     IF mouseswap THEN SWAP lb, rb '                                   whatever floats your boat
  245.     IF TIMER < ignoreuntil! THEN lb = 0: rb = 0 '                     2 lines for debouncing
  246.     IF lb OR rb THEN ignoreuntil! = TIMER + .25
  247.     ww = wa '                                                         stash current wanted angle
  248.     wa = wa + lb - rb '                                               want angle
  249.     IF wa <> ww THEN '                                                if changed
  250.         IF inpause THEN i$ = CHR$(13): GOTO gotit '                   either button to cause liftoff
  251.         apd = 1 '                                                     autopilot disconnect warning
  252.         auto = 0 '                                                    autopilot
  253.         GOTO endk '                                                   don't bother checking keys
  254.     END IF
  255.     mw = mw + _MOUSEWHEEL
  257. IF mw <> 0 THEN '                                                     wheel moved
  258.     thrust! = INT(thrust!) - mw
  259.     IF thrust! < 0 THEN thrust! = 0
  260.     IF thrust! > h THEN thrust! = h
  261.     apd = 1 '                                                         autopilot disconnect warning
  262.     auto = 0 '                                                        autopilot
  263.     hover = 0 '                                                       hover off
  264.     vert = 0 '                                                        vertical control off
  265.     mw = 0 '                                                          zap
  266.     GOTO endk '                                                       don't bother checking keys
  268.  
  269. DEF SEG = 0
  270. status = PEEK(&H417) '                                                7ins 6caps 5num 4scrl 3alt 2ctrl 1ls 0rs
  271.  
  272. IF ((status AND 1) > 0) AND ((status AND 2) > 0) THEN '               both shift (cookie!)
  273.     IF rdtime! > 0 THEN starship = 1 '                                must have pressed shift-shift twice, another cookie
  274.     rdtime! = TIMER + 5 '                                             Rick display time
  276.  
  277. IF status AND 8 THEN start1! = TIMER: mpass& = 0 '                    alt, reset speed timer
  278.  
  279. IF status AND 4 THEN '                                                ctrl
  280.     i$ = RIGHT$(" " + INKEY$, 1)
  281.     kk = ASC(i$)
  282.     IF (kk = 3) OR (kk = 19) THEN '                                   c or s
  283.         nfile:
  284.         image = image + 1
  285.         f$ = "CAP" + RIGHT$("0000" + LTRIM$(STR$(image)), 3) + ".BMP"
  286.         IF _FILEEXISTS(f$) THEN GOTO nfile
  287.         SaveImage f$
  288.         IF _FILEEXISTS(f$) THEN mes$(1) = "Screen captured to " + f$
  289.         GOTO endk
  290.     END IF
  292.  
  293. i$ = INKEY$ '                                                         consult human
  294. li = LEN(i$)
  295. IF li = 0 THEN RETURN
  296.  
  297. IF i$ = "|" THEN MakeStarFiles '                                      takes hours!
  298.  
  299. k = ASC(RIGHT$(i$, 1))
  300. IF k = 27 THEN Quit
  301. IF inpause AND (k = 32) THEN
  302.     k = 13 '                                                          transform spacebar to Enter
  303.     i$ = RIGHT$(CHR$(0) + CHR$(k), li) '                              gentlemen, we can rebuild him
  305.  
  306. gotit:
  307. IF (i$ = "\") AND (shx(0) = 0) AND (contact = 0) THEN '               LM drops bomb
  308.     IF (cwd < 50) AND (sy1 > 300) THEN dead$ = "Smooth move, Exlax!" 'kill self in car wash
  309.     sia = sia + 1 '                                                   shells in air
  310.     shvx(0) = vx! + 3 + RND * t
  311.     shvy(0) = 0
  312.     shx(0) = suri + sx0
  313.     shy(0) = sy0
  314.     shd(0) = 1
  316.  
  317. IF i$ = "[" THEN bw = bw XOR 1: Setcolor '                            crude method for b&w
  318. IF i$ = "]" THEN
  319.     ufof = ufof XOR 1
  320.     mes$(0) = "UFO " + OnOff$(ufof)
  321.     IF ufof THEN
  322.         GOSUB SkyStuff
  323.         p = 6: GOSUB GoSkyObject
  324.     END IF
  326.  
  327. IF i$ = "=" THEN GOSUB lmshow '                                       show LM data - pointless but amusing
  328. IF i$ = "'" THEN pdiv = (pdiv + 1) MOD 4 '                            Henon speed, also slows down thrust display
  329. IF radiationdeath THEN i$ = "": RETURN '                              you're dead and cannot pass this point
  330.  
  331. IF i$ = "`" THEN '                                                    Deathstar size - thought a smaller one wouuld be faster - it is - not by much
  332.     dsinit = 0
  333.     dstype = 2 + (MID$(f$(37), 6, 1) = "m")
  334.     MID$(f$(37), 6, 1) = MID$("sm", dstype, 1)
  336. IF i$ = "~" THEN darkstarc = darkstarc XOR 1 '                        color
  337. IF i$ = "@" THEN darkstart = darkstart XOR 1 '                        thickness
  338.  
  339. IF inpause THEN '                                                     hit "p" or landed
  340.     IF i$ = "b" THEN '                                                Big Dipper
  341.         rmin = 9 '                                                    right ascension
  342.         dmin = 30 '                                                   declination
  343.         starinit = 0
  344.         RETURN
  345.     END IF
  346.     IF li = 2 THEN '                                                  arrow keys move stars
  347.         rdol = rmin + dmin '                                          detect change
  348.         rmin = rmin + (k = 75) - (k = 77) '                           left right
  349.         rmin = (rmin + 24) MOD 24 '                                   RA limit 0 - 24
  350.         dmin = dmin - (k = 80) * t + (k = 72) * t '                   declination up down
  351.         IF dmin = h THEN dmin = -80 '                                 limit -90 - 90
  352.         IF dmin = -h THEN dmin = 80
  353.         IF (rmin + dmin) <> rdol THEN starinit = 0 '                  changed, replot stars
  354.     END IF
  356. IF li = 2 THEN GOTO is2 '                                             extended key
  357.  
  358. IF i$ = "_" THEN '                                                    star twinkle
  359.     twinkle = twinkle XOR 1
  360.     mes$(0) = "STAR TWINKLE " + OnOff$(twinkle)
  362. IF i$ = ";" THEN fpl = 1 '                                            force power loss
  363. IF k = 9 THEN ex(1) = (suri + px!) - SGN(exv(1)) * h '                TAB summon DS
  364. p = INSTR(")!@#$%^&*(", i$)
  365. IF p AND (contact = 0) THEN GetSurface p - 1 '                        shifted-number for 1 of 10 surfaces
  366. p = INSTR("01234", i$) '                                              stars off/on/info
  367. IF p THEN starstatus = p - 1
  368. IF k = 8 THEN '                                                       backspace, random star position
  369.     rmin = INT(RND * 24) '                                            random RA
  370.     dmin = (INT(RND * 18) - 9) * t '                                  random dec
  371.     starinit = 0
  373. IF i$ = "." THEN
  374.     tfollow = tfollow XOR 1
  375.     auto = 0
  376.     vert = 1
  377.     mes$(0) = "TERRAIN FOLLOWING " + OnOff$(tfollow)
  379. p = (i$ = "<") - (i$ = ">") '                                         jump left/right
  380. IF (contact = 0) AND (p <> 0) THEN
  381.     suri = suri + 40 * p '                                            surface index
  382.     GOSUB slimit '                                                    limit suri
  383.     IF lock1 THEN hover = 1: lock1 = 0
  385. IF (i$ = "+") AND (zoom < 2) THEN zoom = zoom + 1: starinit = 0
  386. IF (i$ = "-") AND (zoom > 0) THEN zoom = zoom - 1: starinit = 0
  387. IF i$ = "?" THEN rick = rick XOR 1 '                                  show speed of processing graph
  388. IF okrick AND (i$ = "U") THEN tilef = (tilef + 1) MOD 3 '             alternate tilings
  389. IF i$ = "/" THEN
  390.     cpal = (cpal + 1) MOD 4 '                                         cycle green/black & white/normal monitor
  391.     mes$(0) = "": mes$(1) = ""
  392.     IF cpal = 1 THEN mes$(0) = "GT40 mode"
  393.     IF cpal = 2 THEN mes$(1) = "Hyperion mode!"
  394.     IF cpal = 3 THEN mes$(1) = "Do not adjust your set.  We control the horizontal and the vertical!"
  396. IF k = 32 THEN '                                                      cycle thru features
  397.     IF lock1 > 0 THEN '                                               on auto, landing zone selected, abort landing
  398.         abort = 1
  399.         mes$(0) = "ABORT!"
  400.         IF vx! = 0 THEN vx! = .01
  401.         RETURN
  402.     END IF
  403.     IF convo THEN '                                                   or speed up rendesvous
  404.         sct! = .2
  405.         sc! = TIMER
  406.         RETURN
  407.     END IF
  408.  
  409.     IF skyoff THEN tmod = t ELSE tmod = 16
  410.     jf = (jf + 1) MOD tmod
  411.     '          01234567890123456
  412.     i$ = MID$("mtsiHg5wleObBWoR", jf + 1, 1) '                        cycle thru ground and sky features
  413.     k = ASC(i$)
  414.     IF demo AND (jf = 7) THEN i$ = "e" '                              skip LGM in demo, because it's on the grave
  416.  
  417. p = INSTR("RObBWo", i$) '                                             jump to CM, deathstar, etc.
  418. IF p AND (skyoff = 0) THEN p = p - 1: GOSUB GoSkyObject
  419.  
  420. IF i$ = "A" THEN
  421.     lam = lam XOR 1 '                                                 land at McDonalds
  422.     IF lam AND (auto = 0) THEN i$ = "a" '                             turn on autopilot
  424. IF i$ = "a" THEN '                                                    autopilot
  425.     abort = 0 '                                                       in case it was on
  426.     tfollow = 0
  427.     auto = auto XOR 1 '                                               toggle
  428.     IF auto AND (radarf = 0) THEN radarf = 2
  429.     IF auto = 0 THEN hover = 1 '                                      be nice, help user
  430.     pt! = TIMER '                                                     restart countdown
  432. IF i$ = "c" THEN GOSUB CutOrOutOfFuel
  433. IF i$ = "C" THEN doclock = doclock XOR 1
  434. IF i$ = "d" THEN dump = dump XOR 1 '                                  fuel
  435. IF i$ = "D" THEN restart = 1 '                                        restart with defaults
  436. IF (i$ = "E") AND (starstatus > 0) THEN '                             end of universe
  437.     IF eou = 0 THEN eou = -1 ELSE eou = eou + 1 '                     restart or speedup
  439. IF i$ = "F" THEN
  440.     fuel! = h
  441.     lockfuel = 1
  443. IF i$ = "f" THEN lockfuel = lockfuel XOR 1 '                          THIS cheat the GT40 had, using toggle switches!
  444. IF i$ = "G" THEN gstyle = (gstyle + 1) MOD 6 '                        ground style
  445. IF i$ = "h" THEN hover = hover XOR 1: apd = 1 '                       apd=autopilot disconnect warning
  446. IF i$ = "I" THEN
  447.     invincible = ABS(invincible) XOR 1
  448.     mes$(0) = "INVINCIBLE MODE " + OnOff$(invincible)
  449.     GOSUB ReadLM '                                                    to change thrusters
  451. IF i$ = "j" THEN
  452.     darkstars = (darkstars + 1) MOD 5
  453.     mes$(0) = "Deathstar rotation" + STR$(darkstars)
  455. IF i$ = "k" THEN '                                                    kill threats or, if none, shoot at ground feature
  456.     firel = 1 '                                                       fire laser
  457.     FOR z = 1 TO 20 '                                                 IBM shells
  458.         shd(z) = 1
  459.     NEXT z
  461. IF i$ = "L" THEN GetSurface -1 '                                      level ground
  462. IF (i$ = "M") AND ((contact + inpause) = 0) THEN '                    laser level & land
  463.     magic = magic + 1
  465. IF (i$ = "n") AND inpause THEN nation = ((nation - 1) XOR 1) + 1 '    flag 1 US, 2 USSR
  466. IF i$ = "p" THEN GOSUB pause '                                        pause LM movement
  467. IF (i$ = "P") AND (contact = 0) AND (warp! < 1) AND (paraf = 0) THEN
  468.     paraf = 1 '                                                       parachute!
  469.     chs = 0
  470.     a = 0
  471.     GOSUB CutOrOutOfFuel
  473. IF i$ = "q" THEN Quit
  474. IF i$ = "Q" THEN
  475.     oscar = oscar XOR 1 '                                            land or sea flags for LGM
  476.     IF oscar THEN z$ = "SEA" ELSE z$ = "LAND"
  477.     mes$(0) = "LGM flags: " + z$
  479. IF i$ = "r" THEN
  480.     IF cut THEN '                                                     restart engine
  481.         cut = 0
  482.         hover = 1
  483.         power = opower
  484.         powerloss = 0
  485.     ELSE
  486.         IF auto = 0 THEN
  487.             radarf = (radarf + 1) MOD 3
  488.             mes$(0) = "Radar " + MID$("OFFON FAT", radarf * 3 + 1, 3)
  489.         END IF
  490.     END IF
  492. IF i$ = "S" THEN MakeSur: restart = 1 '                               generate new surfaces
  493. IF i$ = "T" THEN jitter = jitter XOR 1 '                              thrust computation
  494. IF i$ = "u" THEN '                                                    instrument panel on/off
  495.     zz = gs
  496.     gs = (SGN(gs) XOR 1) * 85 '                                       graphics start
  497.  
  498.     panelinit = 0
  499.     pif = -1
  500.  
  501.     z = (gs + 30) - px!
  502.     IF (gs > 0) AND (z > 0) THEN
  503.         px! = px! + z
  504.         suri = suri - z
  505.         GOSUB slimit
  506.     END IF
  508. IF i$ = "v" THEN '                                                    vertical automatic
  509.     IF tfollow THEN
  510.         tfollow = 0
  511.         mes$(0) = "TERRAIN FOLLOWING OFF"
  512.     END IF
  513.     vert = vert XOR 1
  514.     apd = 1 '                                                         autopilot disconnect warning
  516. IF i$ = "x" THEN starinit = 0: starfiles = (starfiles + 1) MOD 3 '    star density
  517. IF i$ = "X" THEN starinit = 0: regen = 1: Stars '                     regenerate single star file
  518. IF i$ = "y" THEN
  519.     mouseswap = mouseswap XOR 1
  520.     IF mouseswap THEN z$ = "reversed" ELSE z$ = "normal"
  521.     mes$(0) = "Mouse buttons " + z$
  523. IF i$ = "Y" THEN min = 3: sec = 45 '                                  black hole at 3:50
  524. IF (i$ = "z") AND (crash = 0) THEN
  525.     mes$(0) = "" '
  526.     mes$(1) = "" '                                                    erase radiation messages
  527.     dead$ = "SELF-DESTRUCT"
  529.  
  530. IF i$ = "}" THEN
  531.     GOSUB CutOrOutOfFuel
  532.     sgs = gs: gs = 0
  533.     srf = radarf: radarf = 0
  534.     GOSUB Plotscreen
  535.     dissolve
  536.     dead$ = " "
  537.     gs = sgs: radarf = srf
  539.  
  540. '          1234567890
  541. p = INSTR("5wlemtsiHg", i$) '                                         jump to feature
  542. IF p AND (contact = 0) THEN
  543.     sf = p
  544.     IF demo AND sf = 9 THEN sf = t
  545.     IF (sf(sf, 1) >= suri) AND (sf(sf, 0) < (suri + q3)) THEN '       already in vicinity of IBM
  546.         IF sf = 8 THEN shoot = 1 '                                    tell IBM to fire
  547.         IF demo THEN '                                                IBM at special location in demo mode, deal with it
  548.             px! = sf(sf, 2) - 3130
  549.             suri = 3130
  550.         END IF
  551.     ELSE
  552.         px! = center '                                                move ship to screen center
  553.         suri = sf(sf, 0) - center - 30 - (sf = 9) * h '               move ground to IBM
  554.     END IF
  555.     a = -ma '                                                         angle = -malfunction angle
  556.     abort = 0
  557.     wa = -ma '                                                        want angle
  558.     lock1 = 0 '                                                       radar lock
  559.     tmt! = 0 '                                                        to move total
  560.     vx! = 0 '                                                         not moving
  561.     warp! = 0 '                                                       cancel warp
  563. GOTO endk '                                                           done with ordinary keys
  564.  
  565. is2: '                                                                extended key
  566. z = mdelay '                                                          master delay
  567. mdelay = mdelay - (k = 73) + (k = 81) '                               PgUp/PgDn
  568. IF mdelay < 1 THEN mdelay = 1
  569. IF mdelay <> z THEN '                                                 changed
  570.     mes$(0) = "_LIMIT " + OnOff$(SGN(mdelay))
  571.     IF mdelay THEN mes$(0) = mes$(0) + LTRIM$(STR$(mdelay))
  573. IF status AND 3 THEN '                                                left or right shift
  574.     IF k = 72 THEN k = 201 '                                          LM up
  575.     IF k = 75 THEN k = 203 '                                          LM left
  576.     IF k = 77 THEN k = 204 '                                          LM right
  578. IF (inpause = 0) AND ((k = 72) OR (k = 80)) THEN '                    up and down arrow
  579.     apd = 1 '                                                         autopilot disconnect
  580.     hover = 0
  581.     vert = 0
  582.     thrust! = thrust! + (k = 80) - (k = 72) '                         true = -1
  584. thrust! = INT(thrust! * t) / t '                                      t = 10
  585. IF (hover = 0) AND (vert = 0) THEN thrust! = INT(thrust!)
  586. IF thrust! > h THEN thrust! = h
  587. IF (dump = 0) AND (fuel! > 0) AND (contact = 0) THEN '                side thrust/angle
  588.     IF inpause = 0 THEN wa = a - (k = 75) + (k = 77) '                                    left/right arrows
  589.     IF ABS(wa) > 99 THEN wa = 99 * SGN(wa) '                          want angle, limit 99
  590.     IF a <> wa THEN apd = 1 '                                         autopilot disconnect
  592. IF k = 59 THEN '                                                      F1 help
  593.     mHelp
  594.     start1! = TIMER: mpass& = 0 '                                     reset speed timer
  596. IF k = 60 THEN '                                                      F2 demo
  597.     demo = demo XOR 1
  598.     GOSUB init2
  599.     cbh = demo '                                                      constant black holes
  601. IF k = 61 THEN '                                                      F3, sky feature toggle
  602.     skyoff = skyoff XOR 1
  603.     IF skyoff = 0 THEN convo = 0
  604.     mes$(0) = "SKY OBJECTS " + OnOff$(1 - skyoff)
  606. IF k = 62 THEN '                                                      F4 endless bh
  607.     cbh = cbh XOR 1
  608.     exv(3) = 0
  609.     mes$(0) = "CONSTANT BLACK HOLES " + OnOff$(cbh)
  611. IF k = 63 THEN '                                                      F5 instrument background
  612.     f5toggle = f5toggle XOR 1
  613.     IF f5toggle = 0 THEN background = background XOR 1
  614.     IF f5toggle = 1 THEN porb = porb XOR 1
  615.     pload = 0
  617. IF (k = 64) AND ((ASO + inpause) = 0) THEN '                          F6 seperate AS/DS
  618.     GOSUB liftoff
  619.     RETURN
  621. IF k = 65 THEN showmap = showmap XOR 1 '                              F7 map
  622. IF k = 66 THEN '                                                      F8 shields
  623.     shield = shield XOR 1
  624.     geof = shield * t
  626. IF k = 67 THEN '                                                      F9 LED color
  627.     z$ = RIGHT$("0" + LTRIM$(STR$(LEDc)), 2)
  628.     z = INSTR(LED$, z$): IF z = 11 THEN z = -1
  629.     LEDc = VAL(MID$(LED$, z + 2, 2))
  630.     LEDtri = 0
  632. IF k = 68 THEN '                                                      F10 LED tri-color
  633.     LEDtri = LEDtri XOR 1
  634.     IF LEDtri THEN LEDc = green
  636. IF k = 71 THEN rmin = 0: dmin = 0: starinit = 0 '                     Home, star RA/dec to 0
  637.  
  638. endk:
  639. IF k = 201 THEN hoverc = hoverc - t '                                 move up
  640. IF k = 203 AND (left = 0) THEN left = 16 '                            move left
  641. IF k = 204 AND (right = 0) THEN right = 16 '                          move right
  642. IF apd OR (k = 201) OR (k = 203) OR (k = 204) THEN '                  blink AUTO
  643.     IF auto THEN APdisengage = 20 '                                   blink 20 times
  644.     auto = 0 '                                                        turn it off
  645.     apd = 0 '                                                         reset flag
  648.  
  649. pause:
  650. IF inpause THEN RETURN '                                              already doing this....
  651. dead$ = ""
  652. inpause = 1
  653. pt! = TIMER '                                                         for demo mode
  654. wu! = pt! + 1 '                                                       delay before planting flag
  655. DO: _LIMIT mdelay
  656.     GOSUB KeyAndMouse
  657.     IF k = 60 THEN RETURN '                                           F2 demo
  658.     IF (i$ > "") AND (INSTR("zD", i$)) THEN RETURN '                  self-destruct or restart
  659.     GOSUB Plotscreen
  660.     IF LEN(dead$) THEN RETURN
  661.     IF auto AND contact THEN '                                        countdown to blast off
  662.         IF TIMER < pt! THEN pt! = TIMER '                             midnite crossing fix
  663.         z! = TIMER - pt!
  664.         z = t - z!
  665.         IF z < 0 THEN z = 0
  666.         TextOnLM$ = LTRIM$(STR$(z))
  667.         IF z! > t THEN i$ = CHR$(13) '                                like pressing the key
  668.     END IF
  669.     GOSUB CalcFuel
  670. LOOP UNTIL (i$ = CHR$(13)) OR (i$ = "p")
  671. ctime! = TIMER
  672. fb$ = "" '                                                            feedback
  673. inpause = 0
  674. c = (contact = 1) AND (crash = 0) AND (liftoff = 0) AND (ABS(a) < 31)
  675. IF c THEN GOSUB liftoff
  677.  
  678. CalculateMotion:
  679. i = 0
  680. IF (power = opower) AND (RND < .0003) THEN
  681.     i = ((auto + contact + liftoff + vert) = 0) AND ((min * 60 + sec) > t)
  683. IF fpl OR i THEN '                                                    force power loss
  684.     fpl = 0
  685.     powerloss = t + RND * t + ASO * 30 '                              10 TO 20%, 50% ASO
  686.     power = opower + powerloss / h * opower
  687.     mes$(0) = LTRIM$(STR$(powerloss)) + "% POWER LOSS - DUMP FUEL!"
  689.  
  690. IF lob THEN px! = px! + exv(2) '                                      landed on Borg
  691. IF contact OR inpause THEN GOTO other
  692.  
  693. ta = ((a + ma) + 270) MOD tsix '                                       temp angle = a+malfunction angle
  694. ma! = (vmass + fuel!) / th '                                          actually 54% fuel
  695. fo! = ((thrust! + super * 5) / ma!) / power '                         f = ma
  696. IF fuel! = 0 THEN fo! = 0 '                                           nix any force if running on empty
  697. fx! = fo! * c!(ta) / 2
  698. IF dump AND (ABS(a) < 5) THEN fx! = 0
  699. fy! = fo! * s!(ta) + grav! '                                          thrust + gravity
  700. IF warp! > 0 THEN fx! = fx! * (warp! * 2 + 1) '                       get thru warp msgs faster
  701. vx! = vx! - fx!
  702. IF a <> 0 THEN vx! = vx! + (RND - pf!) / h '                          help get to integer vx
  703. IF ABS(vx!) < .01 THEN vx! = 0
  704. avx = ABS(vx!)
  705. IF (avx > 5) AND (avx < 20) THEN xoff = vx! ELSE xoff = 0
  706. IF cut AND (magic = 0) THEN
  707.     cel! = TIMER - ctime! '                                           time since cut
  708.     vy! = cvy! + grav! * (cel! * cel!) '                              v = at^2  velocity = acceleration times time squared
  709.     fy! = 0 '                                                         null y force since it's a different situation
  711. vy! = vy! + fy!
  712. IF warp! >= 1 THEN vy! = 0
  713.  
  714. px! = px! + vx! - lob * exv(2)
  715. py! = py! + vy!
  716.  
  717. IF (liftoff = 0) AND (py! < 55) THEN '                                stop going off screen top
  718.     IF convo = 0 THEN mes$(0) = "Too high - reduce thrust!"
  719.     py! = 55
  720.     vy! = 0
  722.  
  723. other:
  724. GOSUB CalcFuel
  725. IF liftoff AND (lob = 0) THEN RETURN
  726. nomove = demo AND (((suri \ q3) + 1) = 5)
  727.  
  728. zz = px! - center
  729. z! = ABS(vx!)
  730.  
  731. IF (nomove = 0) AND ((rlink > 0) OR (z! < 3) OR (z! > 20)) THEN
  732.     dx! = px! - center
  733.     px! = center
  734.     tmt! = tmt! + dx!
  736.     zq = 0 '                                                          was 30 woof woof
  737.     c1 = (px! <= (gs + zq))
  738.     c2 = (px! >= (q3 - zq))
  739.     IF c1 OR c2 THEN
  740.         IF c1 THEN z = q3 - zq ELSE z = gs + zq
  741.         z = z - px!
  742.         tmt! = tmt! - z
  743.         px! = px! + z
  744.     ELSEIF (zz <> 0) AND (ABS(vx!) <= 5) AND (nomove = 0) THEN
  745.         z = zz \ 2 + 1
  746.         tmt! = tmt! + z
  747.         px! = px! - z
  748.     END IF
  750. IF ABS(tmt!) >= q3 THEN tmt! = SGN(tmt!) * q3 - 1
  751.  
  752. IF left THEN '                                                        jog left (shift left arrow)
  753.     IF left = 16 THEN sv! = vx!
  754.     IF left > 8 THEN a = 4 ELSE a = -4
  755.     left = left - 1
  756.     IF left = 0 THEN a = 0: vx! = sv!
  758. IF right THEN '                                                       jog right (shift right arrow)
  759.     IF right = 16 THEN sv! = vx!
  760.     IF right > 8 THEN a = -4 ELSE a = 4
  761.     right = right - 1
  762.     IF right = 0 THEN a = 0: vx! = sv!
  765.  
  766. CalcFuel:
  767. IF cut THEN thrust! = 0
  768. IF lockfuel = 0 THEN
  769.     ta = ABS(a): IF ta > 5 THEN ta = 5 '                              main angle, up to 5
  770.     z! = (ta + super + ABS(fst)) * t '                                plus 10% for thrusters
  771.     used! = (thrust! + z!) / 8000
  772.     IF ASO THEN used! = used! * 2 '                                   burn faster for AS
  773.     IF inpause THEN used! = 0
  774.     IF shield THEN used! = used! + .001
  775.     fuel! = fuel! - used! * 4
  776.     IF fuel! <= 0 THEN fuel! = 0: GOSUB CutOrOutOfFuel
  779.  
  780. Plotscreen:
  781. IF bit! = 0 THEN bit! = TIMER + pf!
  782. IF TIMER > bit! THEN
  783.     bbit = bbit XOR 1 '                                               toggles twice per second, used all over - instruments, IBM hazard lights, clock colon, LGM ear wiggle
  784.     bit! = 0
  786.  
  787. bolthit = 0
  788. bolthitf = 0
  789. IF (crash = 0) AND (ABS(vx!) >= h) THEN warp! = ABS(vx!) / h ELSE warp! = 0
  790. IF warp! >= 1 THEN paraf = 0 '                                        reckon parachute can be dropped at warp speeds
  791.  
  792. ' change styles every 10/30 seconds
  793. IF style! = 0 THEN style! = TIMER + t
  794. IF style! > 86400 THEN style! = 1 '                                   midnite xing
  795. IF TIMER > style! THEN
  796.     bstyle1 = (bstyle1 + 1) MOD 3 '                                   Borg guts every 10s
  797.     IF bstyle1 = 0 THEN bstyle2 = bstyle2 XOR 1 '                     Borg exhaust
  798.     style! = 0
  800.  
  801. IF (starstatus > 0) AND (eou = 0) AND (vert = 0) AND (RND > .9999) THEN '  stars on+not already falling+WHY?+rarely
  802.     mes$(0) = "THE SKY IS FALLING!  THE SKY IS FALLING!"
  803.     eou = 1
  805. GOSUB CalculateMotion
  806.  
  807. IF gs THEN '                                                          graphics start not 0, instruments are visible
  808.     VIEW
  809.     pif = (pif + 1) MOD (pdiv + 1)
  810.     IF pif THEN timemachine ELSE GOSUB Instruments '                  INSTRUMENTS
  812. IF starstatus THEN
  813.     VIEW SCREEN(gs, SGN(LEN(mes$(0))) * 20)-(q3, q4)
  814.     Stars '                                                           STARS
  815.     VIEW SCREEN(gs, 0)-(q3, q4)
  817.     VIEW SCREEN(gs, 0)-(q3, q4)
  818.     CLS
  820.  
  821. IF LEN(mes$(0)) THEN
  822.     VIEW SCREEN(gs, 0)-(q3, 20)
  823.     CLS
  824.     VIEW SCREEN(gs, 0)-(q3, q4)
  826.  
  827. Info '                                                                INFO show timed messages at top, if any
  828. IF warp! < 1 THEN '                                                   no sky features except star streaks at warp speeds
  829.     IF skyoff = 0 THEN GOSUB SkyStuff '                               CM/DS/Bo/BH/Wo/Co
  830.     GOSUB PlotGround '                                                GROUND/FEATURES
  831.     Shells '                                                          SHELLS
  832.     IF (invincible = 0) AND (shield = 0) AND (skyoff = 0) THEN GOSUB FiveWaysToDie
  834. IF platform THEN PUT (pminx, pminy), gbuff(), OR '                    falling descent stage
  835. IF LEN(dead$) = 0 THEN GOSUB PlotVehicle '                            VEHICLE
  836. IF (warp! < 1) AND showmap AND (crash = 0) THEN
  837.     VIEW
  838.     Map '                                                             LM, ground & sky features
  839.     VIEW SCREEN(gs, 0)-(q3, q4)
  841. IF bolthit THEN '                                                     lightning zap from Deathstar
  842.     boltc = boltc + 1 + (boltc = 9999)
  843.     rtl!(2) = TIMER + 5
  844.     rtlc(2) = boltc
  845.     IF ((invincible + shield) = 0) AND (boltc >= t) THEN dead$ = "Zapped!" '   by EPCOR!"
  847.  
  848. IF okrick AND (LEN(debug$) > 0) THEN LOCATE 1, 12: PRINT debug$;
  849. timemachine
  850.  
  852.  
  853. SkyStuff:
  854. IF (min = 3) AND (sec = 50) THEN '                                    Tree-fiddy! (Southpark), do black hole
  855.     ex(3) = suri + t
  856.     ey(3) = h
  857.     exv(3) = t
  858.     eyv(3) = 1
  860.  
  861. IF cmleaving THEN
  862.     exv(0) = exv(0) + 2
  863.     IF exv(0) = 0 THEN exv(0) = 1
  865.  
  866. RESTORE skycrud
  867. IF eou THEN mi = 2 ELSE mi = 5 '                                      end of universe, no celestial events
  868. FOR i = 0 TO mi '                                                     0CM 1DS 2Borg 3BH 4Worm 5Comet 6Al
  869.     READ g$, skyset1(i), skyset2(i)
  871.  
  872. FOR i = 0 TO mi + ufof '                                              0CM 1DS 2Borg 3BH 4Worm 5Comet 6Alien
  873.     xplus = skyset1(i): xminus = skyset2(i)
  874.     IF (i = 3) AND cbh THEN ek(i) = 0 '                               constant black hole
  875.     IF ek(i) = -1 THEN GOTO ni2
  876.  
  877.     IF (ey(i) > (q4 + 50)) OR (ey(i) < -50) OR (exv(i) = 0) THEN
  878.         ei(i) = 0 '                                                   ini
  879.         ek(i) = 9999
  880.         nx:
  881.         ex(i) = RND * q1
  882.         IF ABS(ex(i) - (px! + suri)) < q3 THEN GOTO nx '              start away from craft
  883.         IF ABS(ex(i) - px!) < q3 THEN GOTO nx '                       start away from craft
  884.         IF i = 2 THEN ex(i) = (ex(1) + 3200) MOD q1
  885.         ey(i) = 120 + RND * h '                                       random y 120-220
  886.         IF i = 0 THEN ey(i) = 22 '                                    CM
  887.         IF i = 1 THEN ey(i) = 170 '                                   DS
  888.         IF i = 2 THEN ey(i) = th '                                    Borg
  889.         '              0 1 2 3 4 5
  890.         '              CMDeBoBHWoCoAl
  891.         c1 = VAL(MID$("04010210120502", i * 2 + 1, 2)) '              min x velocity
  892.         c2 = VAL(MID$("09030210171005", i * 2 + 1, 2)) '              max x velocity
  893.         exv(i) = RND * (c2 - c1) + c1 '                               random in range
  894.         IF RND > pf! THEN exv(i) = -exv(i)
  895.  
  896.         z = VAL(MID$("00000003020100", i * 2 + 1, 2)) '               top range y velocity
  897.         eyv(i) = 0
  898.         IF z THEN eyv(i) = RND * (z - 1) + 1 '                        random in range
  899.  
  900.         IF RND > pf! THEN exv(i) = -exv(i)
  901.         IF RND > pf! THEN eyv(i) = -eyv(i)
  902.         IF (i = 3) AND cbh THEN
  903.             IF RND > pf! THEN
  904.                 ex(i) = suri - t
  905.                 exv(i) = t
  906.             ELSE
  907.                 ex(i) = suri + q3 + t
  908.                 exv(i) = -t
  909.             END IF
  910.         END IF
  911.     END IF
  912.  
  913.     ex(i) = ex(i) + exv(i)
  914.     ey(i) = ey(i) + eyv(i)
  915.  
  916.     IF ex(i) < 0 THEN
  917.         IF (i = 0) AND cmleaving THEN
  918.             ek(i) = -1: cmleaving = 0
  919.         ELSE
  920.             ex(i) = ex(i) + q1
  921.         END IF
  922.     END IF
  923.     IF ex(i) > q1 THEN
  924.         IF (i = 0) AND cmleaving THEN
  925.             ek(i) = -1: cmleaving = 0
  926.         ELSE
  927.             ex(i) = ex(i) - q1
  928.         END IF
  929.     END IF
  930.  
  931.     exl(i) = localize(ex(i), xplus, xminus)
  932.     IF (i = 3) AND cbh AND (exl(i) = 9999) THEN exv(i) = 0
  933.  
  934.     IF ek(i) <> -1 THEN ek(i) = 9999
  935.     IF exl(i) <> 9999 THEN
  936.         dx! = ABS(px! - exl(i))
  937.         dy! = ABS(py! - ey(i))
  938.         ek(i) = SQR(dx! * dx! + dy! * dy!)
  939.  
  940.         IF i = 0 THEN GOSUB CommandModule
  941.         IF i = 1 THEN DeathStar exl(i), f$(37)
  942.         IF i = 2 THEN Borg exl(i), ey(i)
  943.         IF i = 3 THEN
  944.             IF (LEN(mes$(0)) = 0) AND (showmap = 0) AND (cbh = 0) THEN
  945.                 mes$(0) = "DANGER, WILL ROBINSON, DANGER!"
  946.             END IF
  947.             IF sas = 0 THEN BlackHole 0
  948.             sas = 0
  949.         END IF
  950.         IF i = 4 THEN WormHole
  951.         IF i = 5 THEN
  952.             tx = localize(ex(5), 0, 0)
  953.             ty = ey(5)
  954.             Comet tx, ty
  955.         END IF
  956.         IF i = 6 THEN '                                               traditional alien - too silly
  957.             j = RND * h - h \ 2
  958.             z = ey(6) + j
  959.             IF (RND > .9) AND (z > h) AND (z < 250) THEN
  960.                 ey(6) = z
  961.                 alien = alien XOR 1
  962.                 ex(6) = ex(6) + 20 * SGN(alien - pf!)
  963.             END IF
  964.             UFO exl(6), ey(6), exv(6)
  965.         END IF
  966.     END IF
  967.     ni2:
  970.  
  971. FiveWaysToDie:
  972. IF (ek(2) >= 0) AND (ek(2) < 20) THEN '                               Borg
  973.     wu! = TIMER + 5
  974.     DO: _LIMIT mdelay
  975.         CLS
  976.         mes$(0) = "YOU ARE BORG"
  977.         Info
  978.         Borg exl(2), ey(2)
  979.         FOR i = 1 TO rp
  980.             p = POINT(LMrx(i), LMry(i))
  981.             IF p = black2 THEN c = green ELSE c = black2
  982.             PSET (LMrx(i), LMry(i)), c
  983.         NEXT i
  984.         timemachine
  985.     LOOP UNTIL TIMER > wu!
  986.     dead$ = "BORG"
  988.  
  989. IF (ek(3) >= 0) AND (ek(3) < 30) THEN '                               black hole
  990.     dead$ = "EATEN"
  991.     BlackHoleDoom
  993.  
  994. IF (ek(4) >= 0) AND (ek(4) < 30) THEN '                               wormhole
  995.     wu! = TIMER + 5
  996.     spx! = exl(4)
  997.     spy! = ey(4)
  998.     exv(4) = 0
  999.     eyv(4) = 0
  1000.     wradar = radarf
  1001.     radarf = 1
  1002.     cut = 1
  1003.     DO: _LIMIT mdelay
  1004.         CLS
  1005.         fb$ = ""
  1006.         mes$(0) = "HOLY CRAP, BATMAN!"
  1007.         mes$(1) = ""
  1008.         Info
  1009.         a = RND * 359
  1010.         px! = spx! + (RND - pf!) * 20
  1011.         py! = spy! + (RND - pf!) * 5
  1012.         WormHole
  1013.         LMdistort '                                                   optional
  1014.         GOSUB PlotVehicle
  1015.         timemachine
  1016.     LOOP UNTIL TIMER > wu!
  1017.     radarf = wradar
  1018.     dead$ = "BATMAN"
  1020.  
  1021. IF (ek(5) >= 0) AND (ek(5) < 15) THEN dead$ = "HIT BY COMET"
  1022. IF ufof AND (ek(6) >= 0) AND (ek(6) < 45) THEN dead$ = "HIT BY ALIEN"
  1024.  
  1025. GetAlt:
  1026. alt! = (gety(-(rxm + wi2)) - ((sy1 + sy2) \ 2)) / 5
  1028.  
  1029. Instruments:
  1030. osc = 8
  1031. IF gs THEN LoadPanel '                                                graphics start not zero, instrument panel is on
  1032. IF (warp! > 0) AND (contact = 0) THEN
  1033.     IF warp! >= t THEN
  1034.         dead$ = "WARP 10"
  1035.         RETURN
  1036.     END IF
  1037.     RESTORE warp
  1038.     FOR i = 1 TO INT(warp!)
  1039.         READ z$
  1040.     NEXT i
  1041.     w$ = LTRIM$(STR$(INT(warp! * h) / h))
  1042.     IF LEN(w$) = 1 THEN w$ = w$ + ".00"
  1043.     IF LEN(w$) = 3 THEN w$ = w$ + "0"
  1044.     mes$(0) = "WARP " + w$ + " - " + z$
  1045.     IF gs AND ((TIMER MOD t) > 5) THEN
  1046.         Henonp f
  1047.         Wave '                                                        osc = 5 if commented out
  1048.         AuHoVe auto, hover, vert, lam
  1049.         GOTO clock
  1050.     END IF
  1052.  
  1053. IF gs = 0 THEN RETURN '                                               graphics start of 0 means the instrument panel is off
  1054.  
  1055. IF panelinit = 0 THEN
  1056.     IF crash THEN f = 15 ELSE f = ((f + 1) MOD 5) + t '               title graphic/face
  1058.  
  1059. Henonp f '                                                            title graphic
  1060.  
  1061. LINE (0, 0)-(gs - 1, 3), blue2, BF '                                  clear map area
  1062.  
  1063. IF pdiv THEN '                                                        instrument update frequency 1-4, mainly a way to slow down erratic thrust display
  1064.     j = 0
  1065.     FOR i = 1 TO 18 '                                                 my name in Morse
  1066.         p = VAL(MID$("002032023222300032", i, 1)) '                   Frost
  1067.         IF p < 3 THEN LINE (14 + j, 2)-(14 + j + p, 2), white
  1068.         j = j + p + 2
  1069.     NEXT i
  1071.  
  1072. IF (contact + auto + hover + vert + liftoff) = 0 THEN
  1073.     IF (vy! > .6) AND (-fy! < 0) THEN PrintVGA CHR$(24), 5, 241, red, black2
  1074.     IF (vy! < .4) AND (-fy! > -.01) THEN PrintVGA CHR$(25), 5, 250, yellow, black2
  1076.  
  1077. AuHoVe auto, hover, vert, lam
  1078.  
  1079. IF tfollow THEN '                                                     terrain following!
  1080.     FOR ty = glmax - 20 TO glmax
  1081.         FOR tx = 0 TO gs - 1
  1082.             IF POINT(tx, ty) = blue THEN PSET (tx, ty), red '         red bg
  1083.         NEXT tx
  1084.     NEXT ty
  1085.     FOR i = 0 TO 4 '                                                  TF
  1086.         p& = VAL("&H" + MID$("E744464444", i * 2 + 1, 2))
  1087.         LINE (2, 339 + i)-(10, 339 + i), green, , p& * 128
  1088.     NEXT i
  1090.  
  1091. osc = 0
  1092. c = LEDc
  1093. IF (sbest! >= h) OR powerloss THEN c = red
  1094. z! = thrust!: IF z! > h THEN z! = h '                                 200 at liftoff, show 100
  1095. PrepAndShowLED z!, 3, 1 '                                             thrust osc1
  1096. PrintCGA "T", 5, -1, c, -blue, 0 '                                    T is for flame
  1097. i = LEDc: j = black
  1098. IF jitter THEN SWAP i, j '                                            thrust calc type
  1099. LINE (4, 231)-(5, 232), i, B '                                        left light  (on = slow)
  1100. LINE (13, 231)-(14, 232), j, B '                                      right light (on = fast)
  1101. Bar z! / h, 0
  1102.  
  1103. c = dcolor(vy!, 2, 3, 1) '                                            vy osc2
  1104. z! = vy!
  1105. IF ABS(z!) > 99.97 THEN z! = 99.99
  1106. PrepAndShowLED z!, 3, 2
  1107. PrintCGA "V", 5, -1, c, -blue2, 0
  1108. z! = (z! + 3) / 6
  1109. Bar z!, 1
  1110.  
  1111. c = dcolor(vx!, 2, 3, 1) '                                            vx osc3
  1112. IF warp! THEN
  1113.     z! = warp!
  1115.     z! = vx! + rfs!
  1117. PrepAndShowLED z!, 3, 2
  1118. PrintCGA "H", 5, -1, c, -blue, 0
  1119. z! = (z! + 3) / 6
  1120. Bar z!, 1
  1121.  
  1122. GOSUB GetAlt '                                                        alt osc4
  1123. IF contact AND (alt! > 0) THEN alt! = 0
  1124. c = dcolor(alt!, t, 3, -1)
  1125. PrepAndShowLED alt!, 4, 1
  1126. PrintCGA "A", 5, -1, c, -blue2, 0
  1127. IF warp! OR (radarf = 0) THEN z! = 0 ELSE z! = alt! / 60
  1128. Bar z!, 0
  1129.  
  1130. c = dcolor(fuel!, t, 5, -1) '                                         fuel osc5
  1131. PrepAndShowLED fuel!, 4, 1
  1132. PrintCGA "F", 5, -1, c, -blue, 0
  1133. z! = fuel! / h
  1134. Bar z!, 0
  1135.  
  1136. clock:
  1137. IF TIMER < start2! THEN start2! = TIMER '                             midnite crossing
  1138. IF crash = 0 THEN el! = el! + (TIMER - start2!) '                     elapsed time
  1139. start2! = TIMER
  1140. IF el! >= 1 THEN
  1141.     WHILE el! >= 1 '                                                  catch-up
  1142.         el! = el! - 1
  1143.         sec = (sec + 1) MOD 60
  1144.         IF sec = 0 THEN min = (min + 1) MOD 99
  1145.     WEND
  1146.     IF sec MOD 5 = 0 THEN '                                           change title graphic
  1147.         IF crash THEN f = 15 ELSE f = ((f + 1) MOD 5) + t
  1148.     END IF
  1150. z$ = RIGHT$("0" + LTRIM$(STR$(min)), 2) + RIGHT$("0" + LTRIM$(STR$(sec)), 2)
  1151. osc = 6
  1152. LEDdisplay z$ '                                                       clock osc6
  1153.  
  1154. i = suri + px!
  1155. j = ABS(i - sf(5, 2))
  1156. k = sf(5, 2) + (q1 - i)
  1157. IF j <= 3200 THEN dtm! = j ELSE dtm! = k
  1158. PrepAndShowLED dtm!, 4, 0 '                                           dtm osc7
  1159. PrepAndShowLED CSNG(speed), 4, 0 '                                    speed osc8
  1160. ShowAngle a '                                                         angle osc9
  1161. panelinit = 1
  1163.  
  1164. LMcolors: '                                                           optional
  1165. IF contact OR (vx! = 0) THEN lbit = 0
  1166. IF (contact + vx!) = 0 THEN
  1167.     v1 = RND * 3
  1168.     v2 = RND * 3
  1169.     SWAP LMci(v1), LMci(v2)
  1171. FOR i = 1 TO rp '                                                     right pad
  1172.     oc = LMoc(i)
  1173.     LMc(i) = oc
  1174.     IF (oc = craft) OR (oc = red) THEN '                              shadow
  1175.         zx = LMrx(i) - px! + 2 - xoff * (inpause = 0)
  1176.         zy = LMry(i) - py!
  1177.         IF (oc = craft) AND ((warp! > 0) OR (zy > zx)) THEN
  1178.             tc = gray2
  1179.         ELSE
  1180.             tc = oc
  1181.         END IF
  1182.         LMc(i) = tc
  1183.     END IF
  1184.     IF (i < 279) AND (LMoc(i) = black2) THEN '                        Ascent stage cycle
  1185.         lbit = (lbit + 5) MOD 4
  1186.         LMc(i) = LMci(lbit)
  1187.     END IF
  1189. lbit = lbit - (vx! > 0) * 2 + ASO * t
  1191.  
  1192. PlotVehicle:
  1193. IF warp! < 1 THEN
  1194.     wda = 0
  1196.     px! = wx!: py! = wy!
  1197.     wda = warp! * 5 * s!((px! + 40) MOD tsix)
  1199.  
  1200. IF crash THEN
  1201.     FOR i = 1 TO rp
  1202.         PSET (LMrx(i), LMry(i)), LMc(i)
  1203.     NEXT i
  1204.     GOTO endproc
  1206.  
  1207. IF bolthit = 0 THEN GOSUB LMcolors
  1208.  
  1209. i = sf(4, 2) - 50 '                                                   left of volcano
  1210. j = sf(4, 2) + 50 '                                                   right of volcano
  1211. k = suri + px! '                                                      LM position
  1212. IF (k > i) AND (k < j) THEN '                                         in the locality?
  1213.     c = 0 '                                                           count
  1214.     FOR ty = py! + 8 TO py! + 18 '                                    leg/nozzle area
  1215.         FOR tx = px! - 17 TO px! + 17
  1216.             p = POINT(tx, ty) '                                       what color is the pixel?
  1217.             c = c - (p = orange) '                                    hot lava
  1218.         NEXT tx
  1219.     NEXT ty
  1220.     ' LINE (px! - 17, py! + 8)-(px! + 17, py! + 18), yellow, B '      diagnostics
  1221.     IF c THEN '                                                       contacted some lava
  1222.         FOR i = rp TO 1 STEP -1 '                                     from the bottom
  1223.             IF LMoc(i) = craft THEN '                                 is normal color?
  1224.                 LMoc(i) = red '                                       make red
  1225.                 nred = nred + 1 '                                     keep track of count
  1226.                 c = c - 1
  1227.                 IF c = 0 THEN EXIT FOR '                              enough
  1228.             END IF
  1229.         NEXT i
  1230.     END IF
  1232.  
  1233. IF nred = 0 THEN '                                                    number red
  1234.     temp = 0
  1235.     rtlc(1) = 0
  1237.     IF ASO THEN z = 115 ELSE z = 223 '                                max that COULD be normal
  1238.     otemp = temp
  1239.     temp = (nred * h / z) MOD 101 '                                   temperature
  1240.     rtlc(1) = temp
  1241.     IF temp > otemp THEN rtl!(1) = TIMER + 5
  1242.     c = 24 '                                                          gasoline
  1243.     IF temp > 30 THEN c = 32 '                                        dark red
  1244.     IF temp > 60 THEN c = 4 '                                         red
  1245.     IF temp = h THEN c = 15 '                                         white
  1246.     IF bw = 0 THEN PALETTE gasoline, c
  1247.     IF (temp = h) AND (invincible = 0) THEN dead$ = "FRIED BY VOLCANO"
  1248.     FOR i = 0 TO 20 '                                                 cool down some
  1249.         j = RND * rp
  1250.         IF LMoc(j) = red THEN LMoc(j) = craft: nred = nred - 1
  1251.     NEXT i
  1253.  
  1254. n = rp '                                                              last pixel = right pad
  1255. IF fuel! > 0 THEN GOSUB Exhaust '                                     maybe vehicle only
  1256.  
  1257. IF n > maxn THEN maxn = n
  1258.  
  1259. ta = a + ma '                                                         temp a = a + malfunction
  1260. zz = ta * -(ABS(ta) > 4) '                                            rotate beyond 5 degrees
  1261. ta = (zz + wda + tsix) MOD tsix '                                             keep in array bounds
  1262. c! = c!(ta) '                                                         cosine
  1263. s! = s!(ta) '                                                         sine
  1264. ta = zz '                                                             angle to use
  1265.  
  1266. rfx = 0 '                                                             optional craft jitter
  1267. rfy = 0
  1268. rfs! = 0 '                                                            random change in vx
  1269. IF (jitter = 1) AND (cut = 0) THEN '                                  not slow or engine cut
  1270.     IF (RND > .9) AND (a = 0) THEN '                                  a = angle
  1271.         IF RND > pf! THEN rfx = 1 ELSE rfx = -1 '                     half right, half left
  1272.         rfs! = rfx * .01 * (INT(RND * 9) + 1) '                       how much? .01 - .09
  1273.     END IF
  1274.     IF RND > .9 THEN '                                                y jitter, 1 chance in 10
  1275.         IF RND > pf! THEN rfy = 1 ELSE rfy = -1 '                     half down, half up
  1276.     END IF
  1278.  
  1279. IF doclock THEN
  1280.     i = VAL(MID$(TIME$, 1, 2))
  1281.     j = VAL(MID$(TIME$, 4, 2))
  1282.     k = VAL(MID$(TIME$, 7, 2))
  1283.     clocka(0) = (i + j / 60) * 30 '                                   hour hand
  1284.     clocka(1) = j * 6 '                                               minute hand
  1285.     clocka(2) = k * 6 '                                               seconds
  1286.     FOR z = 0 TO 2 '                                                  prep for radians
  1287.         clocka(z) = (clocka(z) + 270) MOD tsix
  1288.     NEXT z
  1289.     ao = 0 '                                                          angle offset
  1291.     ao = (ao + 1) MOD 361
  1293.  
  1294. tvx = SGN(vx!): IF tvx = 0 THEN tvx = 1
  1295. tao = ao * tvx
  1296. sco = sco XOR 1
  1297. IF doclock THEN sco = 0
  1298. IF sco THEN tc = red ELSE tc = lmsl
  1299. z3 = tsix + (shield = 0) * 361
  1300. FOR z2 = 0 TO z3
  1301.     a2 = (z2 + tao * 5 + tsix0) MOD tsix
  1302.     tx = px! + 50 * c!(a2) * aspect!
  1303.     ty = py! + 50 * s!(a2)
  1304.     IF ty < gety(tx) THEN
  1305.         IF (z2 MOD 30) = 0 THEN
  1306.             CIRCLE (tx, ty), 1, tc, , , .75
  1307.             IF geof THEN
  1308.                 FOR i = z2 - 120 TO z2 STEP 30
  1309.                     j = (i + tsix) MOD tsix
  1310.                     tx2 = px! + 60 * c!(j) * aspect!
  1311.                     ty2 = py! + 60 * s!(j)
  1312.                     LINE (tx, ty)-(tx2, ty2), tc
  1313.                 NEXT i
  1314.             END IF
  1315.         END IF
  1316.         IF doclock THEN
  1317.             FOR i = 0 TO 2
  1318.                 IF a2 = clocka(i) THEN
  1319.                     c = VAL(MID$("021404", i * 2 + 1, 2))
  1320.                     CIRCLE (tx, ty), 4 - i, c, , , .75
  1321.                     PAINT (tx, ty), c, c
  1322.                 END IF
  1323.             NEXT i
  1324.         END IF
  1325.     END IF
  1326. NEXT z2
  1327.  
  1328. FOR i = 1 TO rp '                                                     rp = craft right pad
  1329.     LMrx(i) = px! + LMx(i) * c! + LMy(i) * s! + rfx '                 x rotated
  1330.     LMry(i) = py! - LMx(i) * s! + LMy(i) * c! + rfy '                 y rotated
  1331.     IF LMry(i) > glmax THEN LMry(i) = glmax '                         not below ground
  1332.     IF i = xp THEN sx0 = LMrx(i): sy0 = LMry(i) '                     save radar loc
  1333.     IF i = lp THEN sx1 = LMrx(i): sy1 = LMry(i) '                     save left pad loc
  1334.     IF i = rp THEN sx2 = LMrx(i): sy2 = LMry(i) '                     save right pad loc
  1335.     IF bolthit THEN LMc(i) = white
  1336.     PSET (LMrx(i), LMry(i)), LMc(i)
  1338.  
  1339. IF fuel! < 95 THEN GOSUB flevel
  1340.  
  1341. eflag = 0 '                                                           determine flame climb
  1342. fx1 = 0 ' initialize for deflect
  1343. fx2 = 0
  1344. phg = (sx1 + sx2) \ 2 + ta * 2 '                                      point hit ground
  1345.  
  1346. tty! = py! + 26
  1347.  
  1348. FOR i = rp + 1 TO n '                                                 flame/fuel dump
  1349.     x = px! + LMx(i) * c! + LMy(i) * s! + rfx '                       x rotated
  1350.     y = py! - LMx(i) * s! + LMy(i) * c! + rfy '                       y rotated
  1351.     c = LMc(i) '                                                      fuel dump/flame
  1352.     IF warp! < 1 THEN GOSUB deflect '                                 deflect off ground
  1353.     c = ABS(c) '                                                      color
  1354.     PSET (x, y), c '                                                  flame particle
  1355.     IF i <= n3 THEN '                                                 main exhaust
  1356.         IF (i MOD t) = 1 THEN '                                       every 10th pixel
  1357.             LINE (x - 1, y)-(x + 1, y), c '                           make "+"
  1358.             LINE (x, y - 1)-(x, y + 1), c
  1359.         END IF
  1360.     END IF
  1362.  
  1363. IF rfx AND dump AND (a = 0) THEN vx! = vx! + rfs! '                   make jitter real
  1364. IF rfx AND (dump = 0) AND (a <> 0) THEN vx! = vx! + rfs!
  1365.  
  1366. endproc:
  1367.  
  1368. IF doclock THEN TextOnLM$ = LEFT$(TIME$, 5)
  1369. IF LEN(TextOnLM$) THEN GOSUB TextOnLM
  1370.  
  1371. GOSUB radar
  1372.  
  1373. fc = 0 '                                                              LGM flame count
  1374. IF (sf(3, 1) >= suri) AND (sf(3, 0) < (suri + q3)) THEN
  1375.     x1 = sf(3, 0) - suri
  1376.     y1 = gety(x1) - 14
  1377.     FOR x = x1 + 5 TO x1 + 15
  1378.         FOR y = y1 - 9 TO y1 + 12
  1379.             IF POINT(x, y) = yellow THEN fc = fc + 1
  1380.         NEXT y
  1381.     NEXT x
  1383.  
  1384. GOSUB KillThreats
  1385.      
  1386. geof = geof - 1 - (geof = 0)
  1387.  
  1388. IF ok AND (TIMER > wu2!) AND (INSTR(mes$(0), "IN CAR") = 0) THEN FlagandFireworks
  1389.  
  1390. mpass& = mpass& + 1
  1391. IF TIMER <= start1! THEN start1! = TIMER: mpass& = 1
  1392. speed = ((TIMER - start1!) / mpass&) * h * t
  1393.  
  1394. IF rick THEN GraphSpeed
  1395.  
  1396. IF magic = 1 THEN '                                                   magic landing, 1st step laser the surface to level
  1397.     sf = 0
  1398.     z = suri + px!
  1399.     IF z > q1 THEN z = z - q1
  1400.     sf(0, 0) = z - 35 '                                               cut out a swath 70 units wide
  1401.     sf(0, 1) = z + 35
  1402.     GOSUB lsurface '                                                  apply laser
  1403.     a = 0 '                                                           angle
  1404.     auto = 0 '                                                        autopilot
  1405.     vx! = 0 '                                                         cancel any x velocity
  1406.     vy! = 0 '                                                         cancel any y velocity
  1407.     py! = 331 + ASO * 9 '                                             ground has been cut to the lowest
  1408.     cut = 1 '                                                         signal engine off
  1409.     magic = 2
  1411.  
  1412. '                                                                     kill surface feature
  1413. IF firel AND ksf AND (contact = 0) AND (sf(sf, 2) > 0) THEN
  1414.     GOSUB lsurface
  1416. firel = ks '                                                          ks = keep shooting
  1417.  
  1418. '                                                                     terrain following
  1419. IF tfollow AND (contact = 0) AND (dump = 0) AND (liftoff = 0) THEN
  1420.     hover = 1
  1421.     hp = q1
  1422.     svx = SGN(vx!)
  1423.     IF svx < 0 THEN tx = sx1 ELSE tx = sx2
  1424.     la = ABS(vx!) * t
  1425.     IF la < t THEN la = t
  1426.     IF la > h THEN la = h
  1427.     FOR i = -(wi + 5) TO la
  1428.         j = tx + i * svx
  1429.         k = j
  1430.         IF k < 0 THEN k = k + q1
  1431.         IF k > q1 THEN k = k - q1
  1432.         z = gety(k)
  1433.         IF z < hp THEN hp = z: sx = j
  1434.     NEXT i
  1435.     cx = ABS(sx - tx)
  1436.     IF cx THEN
  1437.         cy = hp - t - ABS(a / 2) - sy1
  1438.         st! = cy / cx * (ABS(vx!) + 1)
  1439.         IF st! > 2 THEN st! = 2
  1440.         IF st! < -t THEN st = -t
  1441.         fst = -SGN(st!) * 2
  1442.         py! = py! + st!
  1443.         IF py! < 250 THEN py! = 250
  1444.     END IF
  1446. IF paraf THEN
  1447.     IF py! > 150 THEN mes$(0) = "Parachutes don't work in a vacuum!"
  1448.     Parachute
  1450.  
  1452.  
  1453. TextOnLM:
  1454. IF (ASO = 0) AND (ABS(ta) < t) THEN
  1455.     lt = LEN(TextOnLM$)
  1456.     tx = px! - lt * 2 + rfx
  1457.     ty = py! + rfy
  1458.     IF ty > 340 THEN ty = 340
  1459.     TinyFont TextOnLM$, tx, ty, white
  1461. TextOnLM$ = ""
  1463.  
  1464. KillThreats:
  1465. killed = 0
  1466. FOR i = 0 TO 20 '                                                     shells
  1467.     c1 = shield AND (shx(i) > 0) AND (shd(i) < 70) '                  shield on and shell close to LM
  1468.     c2 = firel AND (shx(i) > 0) '                                     fire laser and shell in air
  1469.     IF c1 OR c2 THEN
  1470.         killed = 1 '                                                  found something to kill
  1471.         tx = shx(i) - suri
  1472.         ty = shy(i)
  1473.         GOSUB LMfl '                                                  fl = fire laser
  1474.         IF LEN(dead$) THEN RETURN
  1475.         ExplodeShell i
  1476.     END IF
  1478.  
  1479. ks = 0
  1480. FOR i = 1 TO 6
  1481.     IF skyoff OR (ek(i) = -1) THEN GOTO ni3
  1482.     '                   CM DS BO BH WO Co
  1483.     IF firel AND (exl(i) > gs) AND (exl(i) < q3) THEN
  1484.         killed = 1
  1485.         ks = 1
  1486.         tx = exl(i)
  1487.         ty = ey(i)
  1488.         IF laserb = 0 THEN laserb = 5
  1489.         IF laserb > 0 THEN
  1490.             GOSUB LMfl
  1491.             IF LEN(dead$) THEN RETURN
  1492.             k = (5 - laserb) * 4
  1493.             IF i > 1 THEN
  1494.                 CIRCLE (tx, ty), k, yellow
  1495.                 PAINT (tx, ty), yellow, yellow
  1496.             END IF
  1497.             laserb = laserb - 1
  1498.         END IF
  1499.         IF laserb = 0 THEN
  1500.             ks = 0
  1501.             IF i = 1 THEN
  1502.                 mes$(1) = "The Dark Side has cookies!"
  1503.             ELSE
  1504.                 FOR a2 = 0 TO tsix STEP 2
  1505.                     x2 = tx + RND * h * c!(a2) * aspect!
  1506.                     y2 = ty + RND * h * s!(a2)
  1507.                     LINE (tx, ty)-(x2, y2), gold
  1508.                 NEXT a2
  1509.                 ek(i) = -1
  1510.                 exv(i) = 0
  1511.                 exl(i) = -1
  1512.                 IF (i = 2) AND lob THEN dead$ = "SELF-DESTRUCT"
  1513.             END IF
  1514.         END IF
  1515.     END IF
  1516.     ni3:
  1518. IF killed THEN ksf = 0 ELSE ksf = 1
  1520.  
  1521. lsurface: '                                                           laser surface feature
  1522. z = (RND > .9) OR (magic = 1) '                                       1 out of 10 destroys, magic always
  1523. FOR i = sf(sf, 0) TO sf(sf, 1)
  1524.     tx = i - suri
  1525.     IF tx < 0 THEN tx = tx + q1
  1526.     ty = gety(tx)
  1527.     IF sf <> 3 THEN ty = ty + RND * (q4 - ty)
  1528.     IF i MOD 2 THEN GOSUB LMfl '                                      fire laser
  1529.     IF z THEN gh(i) = glmax '                                         level
  1532.     Smooth sf(sf, 0) - 1 '                                            smooth transition from where the ground has been leveled, left side
  1533.     Smooth sf(sf, 1) '                                                                                                        , right side
  1534.     sf(sf, 2) = -1
  1537.  
  1538. LMfl: '                                                               fire laser
  1539. IF (cwd < 50) AND (sy1 > szs) THEN '                                  in car wash?
  1540.     dead$ = "REFLECTED LASER"
  1541.     cwd = 999
  1542.     firel = 0
  1543.     laserb = 0
  1544.     ks = 0
  1545.     RETURN
  1547. FOR zx = -1 TO 1
  1548.     FOR zy = -1 TO 1
  1549.         LINE (sx0 + zx, sy0 + zy)-(tx, ty), lmsl
  1550.     NEXT zy
  1551. NEXT zx
  1552. geof = t
  1554.  
  1555. flevel: '                                                             make fuel level when angle > 4
  1556. IF ASO THEN RETURN '                                                  no fuel shown with AS
  1557. ptk = (h - fuel!) * 2.7 '                                             pixels to kill
  1558. z = ptk '                                                             ptk used by ExplodeLM
  1559. x1 = px! - 16
  1560. x2 = px! + 14
  1561. y1 = py! - 15
  1562. y2 = py! + 15
  1563. FOR y = y1 TO y2
  1564.     FOR x = x1 TO x2
  1565.         IF POINT(x, y) = fuel THEN
  1566.             PSET (x, y), black2
  1567.             z = z - 1
  1568.         END IF
  1569.     NEXT x
  1570.     IF z <= 0 THEN EXIT FOR
  1573.  
  1574. deflect: '                                                            flame bounce
  1575. oz = gety(-x)
  1576. IF deflectat > 0 THEN oz = deflectat
  1577. z = oz
  1578.  
  1579. '       dump           side t      st in pause
  1580. IF (c = fuel) OR (c = -yellow) OR (c = -blue) THEN
  1581.     IF (fx1 > 0) AND (x < fx1) THEN z = 0
  1582.     IF (fx2 > 0) AND (x > fx2) THEN z = 0
  1583.     rf1 = RND * t + 1
  1584.     rf2 = RND * 20 - t
  1585.     IF y >= (z - 1) THEN '                                            yep, deflect it
  1586.         IF x < sx1 THEN
  1587.             IF fx1 = 0 THEN fx1 = x: fy1 = LMry(th1)
  1588.             x = fx1 + rf1
  1589.             y = fy1 + rf2
  1590.         ELSE
  1591.             IF fx2 = 0 THEN fx2 = x: fy2 = LMry(th2)
  1592.             x = fx2 - rf1
  1593.             y = fy2 + rf2
  1594.         END IF
  1595.     END IF
  1596.     RETURN
  1598.  
  1599. IF y >= (z - 1) THEN '                                                yep, deflect it
  1600.     IF sy1 < borgt THEN ky1 = 1: GOTO isborg
  1601.     IF eflag = 0 THEN '                                               limit flame climbing
  1602.         eflag = 1 '                                                   only once per position
  1603.         xmin2 = phg - thrust! * 1.5 '                                 point hit ground
  1604.         xmax2 = phg + thrust! * 1.5
  1605.         u1 = 0 '                                                      up count l of nozzle
  1606.         u2 = 0 '                                                      up count r of nozzle
  1607.         wu1 = 0 '                                                     worst l up count
  1608.         wu2 = 0 '                                                     worst r up count
  1609.         ky1 = 0 '                                                     keep y
  1610.         ky2 = 0 '                                                     keep y
  1611.         FOR zz = phg TO phg - h STEP -1 '                             from LM center left
  1612.             z2 = gety(-zz): IF zz = phg THEN lz = z2
  1613.             k1 = z2 - lz
  1614.             lz = z2
  1615.             IF k1 > 0 THEN '                                          down
  1616.                 u1 = 0
  1617.             ELSE
  1618.                 u1 = u1 - k1 '                                        up
  1619.                 IF u1 > wu1 THEN wu1 = u1 '                           worst up
  1620.             END IF
  1621.             IF u1 > 20 THEN xmin2 = zz + 2: EXIT FOR
  1622.             IF ABS(k1) > 20 THEN ky1 = 1 '                            90 degrees TMA etc
  1623.         NEXT zz
  1624.         FOR zz = phg TO phg + h '                                     from LM center right
  1625.             z2 = gety(-zz): IF zz = phg THEN lz = z2
  1626.             k2 = z2 - lz
  1627.             lz = z2
  1628.             IF k2 > 0 THEN '                                          down
  1629.                 u2 = 0
  1630.             ELSE
  1631.                 u2 = u2 - k2 '                                        up
  1632.                 IF u2 > wu2 THEN wu2 = u2 '                           worst up
  1633.             END IF
  1634.             IF u2 > 20 THEN xmax2 = zz - 2: EXIT FOR
  1635.             IF ABS(k2) > 20 THEN ky2 = 1 '                            90 degrees TMA etc
  1636.         NEXT zz
  1637.     END IF
  1638.  
  1639.     isborg:
  1640.     r = thrust! * 2 + (RND - pf!) * 80
  1641.     x = (phg - r) + RND * (r * 2)
  1642.     k = ABS(x - phg + a * 2) / 4
  1643.  
  1644.     tx = x + suri '                                                   McDonalds
  1645.     IF (tx >= sf(5, 0)) AND (tx <= sf(5, 1)) AND (py! > 250) THEN
  1646.         ky1 = 0: ky2 = 0
  1647.     END IF
  1648.  
  1649.     IF (ky1 = 1) OR (ky2 = 1) THEN '                                  keep
  1650.         y = z - RND * k - 1: RETURN
  1651.     END IF
  1652.  
  1653.     x2 = (RND - pf!) * 20
  1654.     IF x < xmin2 THEN x = xmin2 + RND * (xmax2 - xmin2) + x2
  1655.     IF x > xmax2 THEN x = xmin2 + RND * (xmax2 - xmin2) - x2
  1656.  
  1657.     IF (platform > 0) AND (ABS(px! - (pminx + 17)) < 20) THEN
  1658.         y = y - platform
  1659.     ELSE
  1660.         y = gety(-x) - RND * k - 1
  1661.     END IF
  1662.  
  1663.     IF (deflectat > 0) AND (y > deflectat) THEN y = deflectat - (y - deflectat)
  1666.  
  1667. CWceiling: '                                                          car wash
  1668. cwd = ABS((suri + px!) - sf(2, 2)) '                                  car wash distance
  1669. IF ASO THEN szs = 323 ELSE szs = 340 '                                safe zone start
  1670. IF (cwd < 69) AND (sy1 > 304) THEN '                                  lower than top of building
  1671.     IF sy1 >= q4 THEN '                                               touched down inside
  1672.         cc1 = -1
  1673.     ELSEIF sy2 >= q4 THEN '                                           touched down inside
  1674.         cc2 = -1
  1675.     ELSEIF sy1 > szs THEN '                                           in safe zone
  1676.         cc1 = 0
  1677.         cc2 = 0
  1678.         IF cwd < 50 THEN mes$(0) = "Washee washee no starchee!"
  1679.     ELSE
  1680.         IF (sy1 > (szs - t)) AND (sy1 <= szs) THEN '                  bouncing off ceiling
  1681.             cc1 = 0
  1682.             cc2 = 0
  1683.             vy! = 1
  1684.             py! = py! + 2
  1685.             'hover = 1
  1686.         END IF
  1687.     END IF
  1690.  
  1691. CheckHit: '                                                           contact with ground
  1692. cc1 = ((sy1 + 1) >= gety(-sx1)) '                                     left pad
  1693. cc2 = ((sy2 + 1) >= gety(-sx2)) '                                     right pad
  1694. mingx = 0
  1695. mingy = q1
  1696. FOR zx = sx1 TO sx2 '                                                 check between pads
  1697.     zy = sy1 - 2
  1698.     p = POINT(zx, zy)
  1699.     IF p = gray THEN '                                                got 1
  1700.         ty = gety(-zx)
  1701.         IF ty < mingy THEN mingx = zx: mingy = ty
  1702.     END IF
  1703. NEXT zx
  1704. IF mingx THEN
  1705.     i = mingx - sx1
  1706.     j = sx2 - mingx
  1707.     IF i < j THEN cc1 = -1 ELSE cc2 = -1
  1709.  
  1710. GOSUB CWceiling '                                                     car wash
  1711. IF vy! < 0 THEN RETURN '                                              going UP
  1712.  
  1713. IF cc1 OR cc2 THEN '                                                  pad(s) on ground
  1714.     contact = 1
  1715.     tmt! = 0
  1716.     py! = py! + rfy '                                                 no time to correct jitter
  1717.     TexOnLM$ = ""
  1718.     warp! = 0
  1719.     GOSUB CutOrOutOfFuel
  1720.  
  1721.     IF (vy! > 0) AND ABS(sy1 - (ey(2) - 40)) < t THEN
  1722.         lob = 1 '                                                     landed on Borg
  1723.         vx! = vx! - exv(2)
  1724.     END IF
  1725.  
  1726.     IF (ABS(vx!) > t) OR (vy! > 20) THEN
  1727.         dead$ = "HIGH SPEED IMPACT!"
  1728.         RETURN
  1729.     END IF
  1730.  
  1731.     dp = 8 + (h - fuel!) \ 25 '                                       8 - 12
  1732.     IF (vy! > dp) OR (ABS(vx!) > 8) THEN '                            too fast given load
  1733.         crash = 1
  1734.         panelinit = 0
  1735.         shield = 0
  1736.         dead$ = "CRASHED"
  1737.         z = ABS(vx!) * t + ABS(vy!) * t
  1738.         FOR i = 1 TO rp '                                             create layer of debris
  1739.             LMrx(i) = LMrx(i) + RND * z - (z \ 2)
  1740.             LMry(i) = gety(LMrx(i)) - RND * 2 - 1
  1741.         NEXT i
  1742.         IF bw = 0 THEN
  1743.             PALETTE green, 0 '                                            blank instruments
  1744.             PALETTE yellow, 0
  1745.         END IF
  1746.         RETURN
  1747.     END IF
  1748.  
  1749.     IF (vy! > 3) OR (ABS(vx!) > 3) THEN fb$ = "vehicle damaged"
  1750.  
  1751.     IF (vy! > 4) OR (ABS(vx!) > 4) THEN
  1752.         fb$ = "vehicle severely damaged"
  1753.         LMdistort '                                                   randomly vary structure
  1754.         vsd = 1 '                                                     vehicle severely damaged
  1755.     END IF
  1756.  
  1757.     savea = a + ma
  1758.  
  1759.     IF lob THEN '                                                     landed on Borg
  1760.         a = 0
  1761.         IF sx1 < borgl THEN a = 45
  1762.         IF sx2 > borgr THEN a = -45
  1763.         py! = py! - t * (ABS(a) = 45)
  1764.         RETURN
  1765.     END IF
  1766.  
  1767.     '                                                                 optional, allow ANY part of pad
  1768.     IF cc1 THEN cd = -1: cpx = sx2: cpy = sy2 + 1
  1769.     IF cc2 THEN cd = 1: cpx = sx1: cpy = sy1 + 1
  1770.     FOR i = 1 TO 4
  1771.         cpx = cpx + cd
  1772.         IF (cpy >= gety(-cpx)) THEN
  1773.             IF cc1 THEN cc2 = 1 ELSE cc1 = 1
  1774.         END IF
  1775.     NEXT i
  1776.  
  1777.     IF NOT (cc1 AND cc2) THEN '                                       only 1 pad down
  1778.         npass = 0
  1779.         DO: _LIMIT mdelay * 2 '                                       settle LM
  1780.             a = a + (cc1 - cc2)
  1781.             pa:
  1782.             npass = npass + 1
  1783.             IF npass > 150 THEN EXIT DO
  1784.             GOSUB Plotscreen '                                        show change
  1785.             IF LEN(dead$) THEN EXIT DO
  1786.             IF ABS(a) > 40 THEN
  1787.                 a = 180 '                                             upside down
  1788.                 py! = glmax - ny
  1789.                 LMdistort '                                           optional
  1790.                 EXIT DO
  1791.             END IF
  1792.             IF cc1 AND (sy1 < gety(-sx1)) THEN py! = py! + 1: GOTO pa
  1793.             IF cc2 AND (sy2 < gety(-sx2)) THEN py! = py! + 1: GOTO pa
  1794.             cc3 = ((sy1 + 1) >= gety(-sx1))
  1795.             cc4 = ((sy2 + 1) >= gety(-sx2))
  1796.             IF ABS(a) > 80 THEN py! = glmax - wi2
  1797.  
  1798.             z = gety(INT(px!)) - py! - ny + 5
  1799.             IF (z < 0) AND (paraf = 0) THEN
  1800.                 dead$ = "PUNCTURE DAMAGE"
  1801.                 RETURN
  1802.             END IF
  1803.         LOOP UNTIL (cc1 AND cc4) OR (cc2 AND cc3)
  1804.     END IF
  1807.  
  1808. slimit: '                                                             surface index bounds
  1809. z = 0
  1810. IF suri < 0 THEN z = q1
  1811. IF suri >= q1 THEN z = -q1
  1812. suri = suri + z
  1813. IF lock1 THEN lock1 = lock1 + z
  1815.  
  1816. radar: '                                                              autopilot landing here too
  1817. IF contact OR liftoff THEN RETURN
  1818. z = SGN(vx!): IF z = 0 THEN z = 1
  1819. IF z = -1 THEN sbl = -280 ELSE sbl = 220
  1820. bt = (bt MOD 4) + 1
  1821. div = ABS(alt!) \ 2 + bt
  1822.  
  1823. IF right OR left THEN tvx! = sv! ELSE tvx! = vx!
  1824. IF ABS(tvx!) > 99 THEN tvx! = 99 * SGN(tvx!)
  1825. IF (tfollow = 0) AND (aboveborg OR ((radarf = 0) AND (auto = 0))) THEN tvx! = 0
  1826. bl = sbl * ABS(tvx!) + (sx1 - sx2)
  1827. IF ABS(bl) > ABS(sbl) THEN bl = sbl
  1828. IF auto = 0 THEN lock1 = 0
  1829. IF lock1 = 0 THEN rxm = sx2 + bl ELSE rxm = lock1 - suri
  1830.  
  1831. level = 1
  1832. FOR j = 0 TO wi '                                                     width (distance between pads)
  1833.     tx = rxm + j
  1834.     ty = gety(-tx)
  1835.     IF aboveborg AND (sx1 >= borgl) AND (sx2 <= borgr) THEN ty = borgt
  1836.     IF j = 0 THEN cmp = ty
  1837.     IF ABS(cmp - ty) > 1 THEN level = 0
  1839.  
  1840. IF level THEN
  1841.     IF auto AND (lock1 = 0) THEN '                                    automatic yet no current lock
  1842.         lock1 = suri + rxm - SGN(rxm) * 2 * (vx! <> 0) '              lock onto level ground
  1843.     END IF
  1844.     rbeam = green '                                                   radar beam color
  1846.     lock1 = 0 '                                                       not level, cancel lock
  1847.     rbeam = red '                                                     radar beam color
  1849.  
  1850. rpass = rpass XOR 1
  1851. IF level AND (vx! = 0) THEN
  1852.     div = div \ 2
  1853.     IF div < 1 THEN div = 1
  1854.     IF rpass THEN rbeam = 0
  1856.  
  1857. FOR i = 0 TO (wi + 1) STEP 5
  1858.     IF vx! > 0 THEN tx = rxm + i ELSE tx = rxm + wi - i
  1859.     IF aboveborg THEN
  1860.         tx = sx1 + i
  1861.         ty = borgt
  1862.     ELSE
  1863.         ty = gety(tx)
  1864.     END IF
  1865.     IF (warp! < 1) AND (ty > sy0) AND (radarf > 0) THEN GOSUB rbeam
  1867.  
  1868. IF auto = 0 THEN GOTO end6
  1869. IF aboveborg OR (abort = 0) THEN GOTO skipit
  1870.  
  1871. abort:
  1872. hover = 1
  1873. hoverc = 0
  1874. lock1 = 0
  1875.  
  1876. i = (py! > 120) '                                                     too low
  1877. j = NOT ((vx! = 0) AND (level = 1)) AND (ABS(vx!) < (ideal! - .05)) ' too slow
  1878. k = (ABS(vx!) > (ideal! + .05)) '                                     too fast
  1879. IF i THEN wa = -ma: hoverc = -3
  1880. IF j THEN wa = 4 * -z + ma
  1882.     wa = ABS(vx!) * z - ma
  1883.     IF ABS(wa) > 20 THEN wa = 20 * z
  1885. IF i OR j OR k THEN abort = 1: GOTO end6
  1886. abort = 0
  1887.  
  1888. skipit:
  1889. IF lam THEN '                                                         land at McDonalds
  1890.     dis = ABS((suri + rxm) - sf(5, 2))
  1891.     IF dis > 80 THEN level = 0: lock1 = 0
  1893. wa = -ma ' want angle = -malfunction angle
  1894.  
  1895. IF dflag THEN dump = 0: dflag = 0
  1896. IF level = 0 THEN '                                                   locked onto a target
  1897.     abort = 1
  1899.     ddd = ABS(px! - rxm)
  1900.     IF (ddd < 120) AND (lock1 > 0) AND (auto = 1) AND (fuel! > 70) THEN
  1901.         dump = 1
  1902.         dflag = 1
  1903.     END IF
  1904.     IF ddd < h THEN '                                                 100 clicks away
  1905.         hover = 0 '                                                   stop hovering
  1906.         vert = 1 '                                                    start moving down
  1907.         dist = sx1 - rxm '                                            distance to target
  1908.         thv! = ABS(dist) / 27 '                                       to horizontal velocity
  1909.         IF thv! < .08 THEN mu = 1 ELSE mu = 4
  1910.         IF thv! < .01 THEN mu = 0
  1911.         IF aboveborg = 0 THEN
  1912.             IF ABS(vx!) > thv! THEN wa = wa + mu * z
  1913.         END IF
  1914.     END IF
  1916. end6:
  1917. GOSUB angle
  1919.  
  1920. rbeam:
  1921. dx! = (tx - sx0) / div
  1922. dy! = (ty - sy0) / div
  1923. FOR j = 1 TO q1
  1924.     tx = sx0 + j * dx!
  1925.     ty = sy0 + j * dy!
  1926.     my = gety(-tx)
  1927.     IF ty >= my THEN
  1928.         IF (tx < rxm) OR (tx > (rxm + wi + 1)) THEN level = 0: rbeam = red
  1929.         EXIT FOR
  1930.     END IF
  1931.     IF i AND (rbeam > 0) THEN
  1932.         PSET (tx, ty), rbeam
  1933.         IF radarf = 2 THEN PSET (tx + 1, ty), rbeam
  1934.     END IF
  1937.  
  1938. angle:
  1940. cf = 0
  1941. IF a <> wa THEN '                                                     current angle, wanted angle
  1942.     w = a '                                                           was = angle
  1943.     a = a + SGN(wa - a)
  1944.     change = a - w
  1945.     IF change THEN
  1946.         cf = 1
  1947.         a1 = ABS(w + ma)
  1948.         a2 = ABS(a + ma)
  1949.         IF (a1 > 4) OR (a2 > 4) THEN wan = 3 '                        activate up/down
  1950.     END IF
  1952.      
  1953. IF liftoff OR ((auto = 0) AND (vert = 1) AND (ma = 0)) THEN RETURN
  1954. cp = (a <> 0) AND (RND < .01) '                                       clear problem
  1955.  
  1956. IF cf OR cp THEN
  1957.     IF cp OR (RND < .01) THEN
  1958.         z = ma
  1959.         IF cp THEN ma = 0 ELSE ma = a
  1960.         IF ma <> z THEN '                                             new malfunction angle
  1961.             IF ma THEN
  1962.                 z$ = LTRIM$(STR$(-ma))
  1963.                 IF ma < 0 THEN z$ = "+" + z$
  1964.                 mes$(0) = "DANGER! STUCK THRUSTER " + z$
  1965.                 IF auto THEN a = a - ma: wa = a - ma '                immediate correct
  1966.             ELSE
  1967.                 mes$(0) = "THRUSTERS OK"
  1968.                 IF auto THEN a = a + z: wa = a + z '                  immediate correct
  1969.             END IF
  1970.         END IF
  1971.     END IF
  1974.  
  1975. Exhaust:
  1976. IF inpause THEN tflame = blue ELSE tflame = flame
  1977.  
  1978. IF cut THEN thrust! = 0
  1979. d = thrust! - (RND * 20 - t) * (thrust! > 0)
  1980. x = (LMx(lp) + LMx(rp)) \ 2 '                                         halfway between pads
  1981.  
  1982. IF ASO THEN '                                                         ascent stage only
  1983.     i = 30 '                                                          divisor for exhaust width
  1984.     j = 1 '                                                           throwing x off up to this amount
  1985.     k = 3 '                                                           flame decrement
  1986.     y = ny + 1 '                                                      starting y
  1988.     i = 20 '                                                          divisor for exhaust width
  1989.     j = 2 '                                                           throwing x off up to this amount
  1990.     k = 2 '                                                           flame decrement
  1991.     y = ny - 3 '                                                      starting y
  1993.  
  1994. WHILE d > 0 '                                                         until thrust decremented to 0
  1995.     p = d \ i
  1996.     FOR z = -1 TO 1 STEP 2
  1997.         FOR jj = 0 TO 3
  1998.             n = n + 1 '                                               add to vehicle daa
  1999.             IF n > 1400 THEN END '                                    beyond array size
  2000.             LMx(n) = x + p * z + RND * (j * 2) - j
  2001.             LMy(n) = y + RND * 2
  2002.             IF (powerloss > 0) AND (RND < .3) THEN zz = orange ELSE zz = tflame
  2003.             LMc(n) = zz '                                             yellow normally, blue during pause
  2004.             IF RND > .95 THEN '                                        some way off plume for realism
  2005.                 LMx(n) = LMx(n) - RND * 80 + 40
  2006.                 LMy(n) = LMy(n) + 5
  2007.             END IF
  2008.         NEXT jj
  2009.     NEXT z
  2010.     y = y + 1 '                                                       next flame row
  2011.     d = d - k '                                                       decrement temp thrust
  2013. n3 = n '                                                              main/side thrusters
  2014.  
  2015. '                                                                     if there's a thruster malfunction, may have both thrusters active
  2016. IF (ma = 0) OR (a = 0) OR (SGN(a) = SGN(ma)) THEN
  2017.     ta = a + ma
  2018.     pass = 1
  2020.     ta = a
  2021.     pass = 2
  2023. IF dump THEN ta = t
  2024.  
  2025. dors: '                                                               dump fuel or sideways motion
  2026. IF liftoff THEN ta = 0
  2027. IF rfx AND (dump = 0) THEN ta = rfs! * 50
  2028. IF (contact = 1) AND (dump = 0) THEN ta = 0: wan = 0: super = 0
  2029. IF ta <> 0 THEN
  2030.     IF ta < 0 THEN th0 = th1: z! = -2
  2031.     IF ta > 0 THEN th0 = th2: z! = 2
  2032.     zz = ta: IF zz > t THEN ta = t
  2033.     tt = ABS(zz * 4 + 4 * SGN(ta))
  2034.     IF ABS(zz) > 20 THEN tt = t
  2035.     DO
  2036.         n = n + 1
  2037.         LMx(n) = LMx(th0) + z! + RND * 2 - 1
  2038.         LMy(n) = LMy(th0) + (RND * 2 - 1) * (ABS(ta) > 2)
  2039.         IF dump THEN
  2040.             tc = fuel
  2041.             z = 20 - 20 * s!(90 + (LMx(n) - LMx(th0)) * 1.8)
  2042.             IF a = 180 THEN z = -z
  2043.             LMy(n) = LMy(n) + z
  2044.         ELSE
  2045.             tc = -tflame
  2046.         END IF
  2047.         LMc(n) = tc
  2048.         tt = tt - 1
  2049.         z! = z! * 1.15
  2050.     LOOP UNTIL (tt = 0) OR (ABS(z!) > 40)
  2051.     IF dump THEN
  2052.         ta = -ta
  2053.         IF lockfuel = 0 THEN fuel! = fuel! - .1 + (fuel! > 5) * 2
  2054.         IF ta = -t THEN GOTO dors
  2055.         IF fuel! < 1 THEN dump = 0
  2056.     END IF
  2058. pass = pass - 1
  2059. IF pass THEN ta = ma: GOTO dors
  2060. noside:
  2061.  
  2062. '                                                                     super - use side thrusters to augment main thrust when more than
  2063. '                                                                     100% thrust is called for
  2065. IF fst OR super OR (wan > 0) THEN '                                   up/down to change angle beyond 5 degrees
  2066.     IF change > 0 THEN th1d = -1: th2d = 1
  2067.     IF change < 0 THEN th2d = -1: th1d = 1
  2068.     IF super THEN th1d = 1: th2d = 1
  2069.     IF fst THEN th1d = fst: th2d = fst: fst = 0
  2070.     FOR z = 0 TO 6
  2071.         n = n + 1
  2072.         LMx(n) = LMx(th1) + RND * 2
  2073.         LMy(n) = LMy(th1) + th1d * (z + RND * 2) + 2
  2074.         LMc(n) = tflame '                                             blue flame in pause
  2075.         n = n + 1 '                                                   other thruster opposite
  2076.         LMx(n) = LMx(th2) + RND * 2 - 2
  2077.         LMy(n) = LMy(th2) + th2d * (z + RND * 2) + 2
  2078.         LMc(n) = tflame
  2079.     NEXT z
  2080.     wan = wan - 1
  2081.     IF wan = 1 THEN change = -change
  2083.  
  2085.  
  2086. init1: '                                                              only done once
  2087. DATA convo,f1,f2,lmx1,lmy1,lmc1,lmx2,lmy2,lmc2
  2088. DATA h1,h2,h3,h4,h5,h6,cybill,surv2,cm,rad,af2,sf2,panel
  2089. DATA sd,sl,s0,s1,s2,s3,s4,s5,s6,s7,s8,s9,panel0,panel1
  2090. DATA dstarm,stars,lanblank,alien
  2091.  
  2092. RESTORE init1
  2093. IF _FILEEXISTS("rick.") THEN okrick = 1
  2094. tc$ = UCASE$(COMMAND$ + "   ")
  2095. IF LEFT$(tc$, 1) = "/" THEN tc$ = "   "
  2096. IF INSTR(tc$, "DOS") THEN dosbox = 0 '                                use large star file
  2097. IF INSTR(tc$, "BOX") THEN dosbox = 1 '                                use small star file
  2098. IF INSTR(tc$, "CD ") THEN iscd = 1 '                                  simulate CD
  2099. IF INSTR(tc$, "UFO ") THEN ufof = 1 '
  2100. IF _FILEEXISTS("cd.dat") THEN iscd = 1 '                              include/create this file for CD/DVD distribution (read only)
  2101.  
  2102. z = 0
  2103. FOR i = 1 TO 40
  2104.     READ f$(i)
  2105.     IF i = 38 THEN '                                                  stars
  2106.         j = 2 - dosbox '                                              1=small, 2=medium, 3=huge
  2107.         f$(i) = f$(i) + CHR$(48 + j)
  2108.     END IF
  2109.     IF i THEN
  2110.         f$(i) = f$(i) + ".dat" '                                      try lowercase first
  2111.         IF _FILEEXISTS(f$(i)) = 0 THEN
  2112.             f$(i) = UCASE$(f$(i)) '                                   try uppercase (Linux cares!)
  2113.             IF _FILEEXISTS(f$(i)) = 0 THEN
  2114.                 z = z + 1
  2115.                 IF z = 1 THEN CLS
  2116.                 PRINT f$(i)
  2117.             END IF
  2118.         END IF
  2119.     END IF
  2122.     PRINT
  2123.     PRINT "Above file(s) missing"
  2124.     SLEEP
  2125.     SYSTEM
  2127.  
  2128. s& = VARSEG(p(0, 0))
  2129. o& = VARPTR(p(0, 0))
  2130. DEF SEG = s&
  2131. BLOAD "F1.dat", o&
  2132. z$ = "386C6C38" '                                                    degree symbol
  2133. FOR i = 0 TO 3
  2134.     p(0, i) = VAL("&H" + MID$(z$, i * 2 + 1, 2))
  2136.  
  2137. s& = VARSEG(p2(0, 0))
  2138. o& = VARPTR(p2(0, 0))
  2139. DEF SEG = s&
  2140. BLOAD "F2.dat", o&
  2141.  
  2142. canvas& = _NEWIMAGE(640, 350, 9)
  2143. SCREEN canvas&
  2148. _TITLE "Lander"
  2150. auto = 0 '                                                            full automatic
  2151. background = 1 '                                                      textured LED displays
  2152. cbh = 0 '                                                             constant black holes
  2153. darkstars = 1 '                                                       spin
  2154. darkstart = 1 '                                                       thickness of lines
  2155. demo = 0 '                                                            cram onto one page
  2156. doclock = 0 '                                                         shield effect
  2157. gh = 9
  2158. gs = 85 '                                                             graphics start
  2159. glmax = q4 '                                                          ground level max
  2160. glmin = glmax - 49 '                                                  ground level min
  2161. gs = 85 '                                                             graphics start (flying area)
  2162. 'gstyle = 5
  2163. invincible = 1 '                                                      easier for beginner, thrusters gold
  2164. jitter = 1 '                                                          thrust calc
  2165. LED$ = "021404120115" '                                               color sequence - gr ye re or gun wh
  2166. LEDc = green '
  2167. LEDtri = 0 '                                                          off
  2168. mdelay = t '                                                          master delay
  2169. opower = 62 '                                                         original thrust factor
  2170. pdiv = 0 '                                                            instrument update
  2171. radarf = 1
  2172. restart = 0 '                                                         shift-d load defaults
  2173. segs$ = "abcdefg" '                                                   for 7 segment displays
  2174. settings$ = "LANDER.SET"
  2175. shield = 0 '                                                          Star Trek!
  2176. showmap = 0 '                                                         silly legend at top
  2177. skyoff = 1 '                                                          DS, BH, Wo, Co
  2178. starfiles = 1 '                                                       dat1, dat2, dat3
  2179. starstatus = 1 '                                                      show stars only, no names/info
  2180. twinkle = 0
  2181. zoom = 1 '                                                            starfield 6 hours 45 degrees
  2182.  
  2183. black = 0: blue = 1: green = 2: gunmetal = 3: red = 4: gasoline = 5
  2184. gray2 = 6: white = 7: gray = 8: dred = 9: gold = 10: black2 = 11
  2185. orange = 12: blue2 = 13: yellow = 14: white2 = 15
  2186.  
  2187. craft = white: flame = yellow: fuel = gasoline: LEDc = green
  2188. LMci(0) = gray2 '                                                     ASO shifting colors
  2189. LMci(1) = gold
  2190. LMci(2) = gray2
  2191. LMci(3) = black2
  2192.  
  2193. IF _FILEEXISTS(settings$) THEN
  2194.     OPEN settings$ FOR INPUT AS #1
  2195.     nflags = 0
  2196.     DO
  2197.         IF EOF(1) THEN EXIT DO
  2198.         INPUT #1, g$
  2199.         IF EOF(1) THEN EXIT DO
  2200.         nflags = nflags + 1
  2201.         INPUT #1, tflags(nflags)
  2202.     LOOP
  2203.     CLOSE #1
  2205.  
  2206. auto = tflags(1)
  2207. background = tflags(2)
  2208. cbh = tflags(3)
  2209. demo = tflags(4)
  2210. doclock = tflags(5)
  2211. invincible = tflags(6)
  2212. jitter = tflags(7)
  2213. LEDc = tflags(8)
  2214. LEDtri = tflags(9)
  2215. radarf = tflags(10)
  2216. shield = tflags(11)
  2217. showmap = tflags(12)
  2218. starstatus = tflags(13)
  2219. zoom = tflags(14)
  2220. skyoff = tflags(15)
  2221. gstyle = tflags(16)
  2222. mouseswap = tflags(17)
  2223. porb = tflags(18)
  2224. starfiles = tflags(19)
  2225. mdelay = tflags(20)
  2226. fsf = tflags(21)
  2227.  
  2228. IF fsf THEN
  2233.  
  2234. FOR i = 0 TO tsix '                                                    table faster
  2235.     s!(i) = SIN(_D2R(i))
  2236.     c!(i) = COS(_D2R(i))
  2238.  
  2239. clines = 0
  2240. OPEN f$(1) FOR INPUT AS #1 '                                          convo.dat, LM/CM chatter
  2242.     clines = clines + 1
  2243.     LINE INPUT #1, convo$(clines)
  2246.  
  2247. s& = VARSEG(cmp&(0)) '                                                Command Module
  2248. o& = VARPTR(cmp&(0))
  2249. DEF SEG = s& '                                                        cm.dat
  2250. BLOAD f$(18), o&
  2251.  
  2252. IF (RND > .95) AND (okrick = 0) AND (INSTR(COMMAND$, "NOS") = 0) THEN MakeSur
  2253.  
  2254. start1! = TIMER
  2256.  
  2257. init2: '                                                              each cycle
  2258. a = 0 '                                                               angle
  2259. a51i = 0
  2260. ASO = 0 '                                                             ascent stage only = false
  2261. boltc = 0 '                                                           lightning count
  2262. center = 362
  2263. contact = 0 '                                                         with ground
  2264. convo = 0 '                                                           with CM
  2265. crash = 0
  2266. cut = 0 '                                                             engine
  2267. dump = 0 '                                                            fuel
  2268. eou = 0 '                                                             end of universe
  2269. fb$ = "" '                                                            landing feedback
  2270. flx = 0 '                                                             where to plot flag
  2271. fuel! = h
  2272. hover = 1 '                                                           start safe
  2273. ideal! = 2.7 '                                                        autopilot speed
  2274. inpause = 0
  2275. jf = -1 '                                                             jump to feature
  2276. LGMc = 1 '                                                            little green man color
  2277. lmsl = blue '                                                         LM shield & laser
  2278. lob = 0 '                                                             landed on Borg
  2279. lock1 = 0 '                                                           radar tracking
  2280. lockfuel = 0
  2281. ma = 0 '                                                              malfunction angle
  2282. magic = 0 '                                                           landing
  2283. mes$(0) = "" '                                                        messages ^ landing eval
  2284. mes$(1) = "" '                                                        radiation, landing comments
  2285. ok = 0 '                                                              landing status
  2286. panelinit = 0 '                                                       instruments
  2287. paraf = 0 '                                                           parachute flag
  2288. pif = -1 '                                                            counter for instruments
  2289. platform = 0 '                                                        for detached DS
  2290. power = opower '                                                      thrust factor
  2291. powerloss = 0 '                                                       random malfunction
  2292. px! = 320 '                                                           vehicle x
  2293. py! = 70 '                                                            vehicle y
  2294. radiationdeath = 0 '                                                  rads > 1000
  2295. rads = 0 '                                                            radiation count
  2296. rlink = 0 '                                                           LM/CM radio link
  2297. rmin = RND * 23 '                                                     stars right ascension 0 - 23
  2298. dmin = (INT(RND * 18) - 9) * t '                                      stars declination -90 to 90
  2299. sia = 0 '                                                             shells in air
  2300. sspinit1 = 0
  2301. sspinit2 = 0
  2302. starinit = 0
  2303. tfollow = 0 '                                                         terrain following
  2304. tmt! = 0 '                                                            to move total
  2305. wa = 0 '                                                              wanted angle
  2306. vert = 1 '                                                            vertical autopilot on
  2307. vsd = 0 '                                                             vehicle severely damaged
  2308.  
  2309. Setcolor
  2310. GetSurface gh
  2311.  
  2312. IF demo THEN
  2313.     auto = 0
  2314.     px! = sf(6, 2) - 3130 '                                           TMA
  2315.     py! = 130
  2316.     sf = 6 '                                                          surface feature
  2317.     suri = 3130 '                                                     surface index
  2318.     vx! = 0 '                                                         not moving
  2319.     vy! = 0
  2321.     a = RND + t
  2322.     IF RND > pf! THEN a = -a
  2323.     sf = 4
  2324.     suri = RND * q1
  2325.     px! = 320
  2326.     thrust! = 95
  2327.     vx! = SGN(a) * 5
  2328.     vy! = RND + 1
  2330.  
  2331. ERASE exv, ei, ek, rtl!, rtlc, shx, shd
  2332.  
  2333. mes$(0) = "F1 FOR HELP AND INFORMATION"
  2334. IF ufof > 0 THEN mes$(1) = "Alien on the loose!" '                    10% active
  2335. IF LEDtri THEN LEDc = green
  2336. GOSUB ReadLM
  2337. start2! = TIMER '                                                     elapsed time clock
  2338. sec = 0
  2339. min = 0
  2341.  
  2342. PlotGround:
  2343. IF crash = 0 THEN
  2344.     surd = SGN(tmt!) '                                                direction
  2345.     tomo = INT(ABS(tmt!)) '                                           to move
  2346.     IF tomo > (q3 - gs) THEN tomo = q3 - gs
  2347.     tmt! = tmt! - tomo * surd '                                       to move total
  2348.     suri = suri + tomo * surd '                                       surface index
  2349.     GOSUB slimit '                                                    limit values to 0-6399
  2351.          
  2352. IF gh = -1 THEN '                                                     ground height = flat
  2353.     LINE (gs, q4)-(q3, q4), gray
  2354.     GOTO stuff
  2356.  
  2357. FOR x = gs TO q3 '                                                    graphics start to 639
  2358.     z = (suri + x) MOD q1
  2359.     tc = gray
  2360.     IF (z >= sf(5, 0)) AND (z <= sf(5, 1)) THEN
  2361.         PSET (x, glmax), tc '                                         optional McD fix
  2362.     ELSE
  2363.         IF (z >= sf(7, 0)) AND (z <= sf(7, 1)) THEN '                 Surveyor
  2364.             y = glmax
  2365.         ELSE
  2366.             y = gety(x)
  2367.         END IF
  2368.         SELECT CASE gstyle
  2369.             CASE IS = 0 '                                             solid
  2370.                 LINE (x, y)-(x, glmax), tc
  2371.             CASE IS = 5 '                                             solid
  2372.                 LINE (x, y)-(x, glmax), tc
  2373.             CASE IS = 1 '                                             fancy
  2374.                 LINE (x, glmax)-(x, y), black2
  2375.                 LINE -(x, glmax), tc, , z + y
  2376.                 PSET (x, y), tc
  2377.             CASE IS = 2
  2378.                 LINE (x, y)-(x, glmax), tc
  2379.                 ty = y + 5
  2380.                 IF ty < glmax THEN
  2381.                     LINE (x, ty)-(x, glmax - 1), black, , &HFEFE
  2382.                 END IF
  2383.             CASE ELSE '                                               minimal or tiling
  2384.                 LINE (x, glmax)-(x, y), black2
  2385.                 LINE -(x, y + 3), tc
  2386.         END SELECT
  2387.     END IF
  2389.  
  2390. IF gstyle > 3 THEN Tile
  2391.  
  2392. stuff:
  2393. FOR i = 1 TO t
  2394.     ' Surv before IBM+TMA, IBM before TMA, LGM last
  2395.     '              1 2 3 4 5 6 7 8 9 0
  2396.     j = VAL(MID$("01070802040506091003", (i - 1) * 2 + 1, 2))
  2397.     z = VAL(MID$("80000080000080000000", (j - 1) * 2 + 1, 2))
  2398.     fb = sf(j, 0) - z
  2399.     fe = sf(j, 1) + z
  2400.     c1 = (fe >= (suri + gs)) AND (fb <= (suri + q3))
  2401.     c2 = ((fe + q1) >= (suri + gs)) AND ((fb + q1) <= (suri + q3))
  2402.     IF c1 OR c2 THEN
  2403.         sf = 0
  2404.         IF sf(j, 2) = -1 THEN GOTO nf
  2405.         sf = j
  2406.         x = sf(sf, 0) - suri
  2407.         z = sf(sf, 1) - suri
  2408.  
  2409.         IF (j = 1) AND (x < 0) AND (suri > 3000) THEN x = x + q1: z = z + q1
  2410.         bolthitf = (skyoff = 0) AND (boltx >= x) AND (boltx <= z) AND (exl(1) <> 9999)
  2411.         IF j = 1 THEN
  2412.             Area51 f$(40)
  2413.             IF (cut = 0) AND (LEFT$(mes$(1), 7) = "AREA 51") THEN
  2414.                 GOSUB CutOrOutOfFuel
  2415.             END IF
  2416.         END IF
  2417.         IF j = 2 THEN CarWash
  2418.         IF j = 3 THEN LGM fc
  2419.         IF j = 4 THEN Volcano
  2420.         IF j = 5 THEN McD
  2421.         IF j = 6 THEN TMA
  2422.         IF j = 7 THEN Surveyor
  2423.         IF j = 8 THEN IBM
  2424.         IF j = 9 THEN Hollywood
  2425.         IF j = t THEN Grave x, fb$
  2426.     END IF
  2427.     nf:
  2430.  
  2431. CommandModule: '                                                      27 * 9
  2432. IF ek(0) = -1 THEN RETURN
  2433. cminview = 1
  2434. tx = localize(ex(0), 14, 14)
  2435. IF tx = 999 THEN cminview = 0: GOTO nocm
  2436. x1 = tx - 14
  2437. x2 = tx + 14
  2438.  
  2439. VIEW SCREEN(gs + 1, 0)-(q3, q4) '                                     protect panel
  2440. LINE (x1 + 0, 18)-(x1 + 26, 26), black2, BF
  2441. FOR z = 1 TO 27
  2442.     LINE (x1 + z, 17)-(x1 + z, 26), white, , cmp&(z)
  2444.  
  2445. CMshadow tx, x1, x2 '                                                 optional
  2446.  
  2447. sd! = ABS(exv(0)) - ABS(vx!) '                                        speed diff
  2448. dbc = ABS(px! - tx)
  2449.  
  2450. IF (py! < h) AND (dbc < 50) AND (ABS(sd!) < .06) THEN
  2451.     rlink = t
  2452.     LINE (LMrx(1), LMry(1))-(tx + 8, 27), green, , RND * &H7FFF
  2453.     IF (cmleaving + convo) = 0 THEN
  2454.         mes$(0) = "Establishing link with Campbell soup cans and string"
  2455.         sct! = 2
  2456.         convo = 1
  2457.     END IF
  2458.     IF sc! = 0 THEN sc! = TIMER + sct! '                              start conversation in xs
  2459.     IF TIMER > sc! THEN
  2460.         convo = convo + 1
  2461.         IF convo > (clines + 1) THEN
  2462.             sc! = 0
  2463.             convo = 0
  2464.             cmleaving = 1
  2465.         ELSE
  2466.             mes$(0) = convo$(convo)
  2467.             sc! = TIMER + sct!
  2468.         END IF
  2469.     END IF
  2471.      
  2472. nocm:
  2473. rlink = rlink - 1 - (rlink = 0) '                                     allows brief radio interruption
  2474. IF rlink = 0 THEN '                                                   lost awhile ago
  2475.     IF convo THEN mes$(0) = " " '                                     clear current dialogue
  2476.     convo = 0 '                                                       stop conversation
  2477.     sc! = 0 '                                                         talk timer
  2479.  
  2480. IF cmleaving AND cminview THEN '                                      CM exhaust
  2481.     ty = 22
  2482.     LINE (x1, ty - 2)-(x1, ty + 2), yellow
  2483.     LINE -(x1 - 15, ty), yellow
  2484.     LINE -(x1, ty - 2), yellow
  2487.  
  2488. liftoff: '                                                            forced seperation or surface launch
  2489. IF (contact OR liftoff) AND (cwd < 69) AND (py! > 322) THEN
  2490.     dead$ = "HIT CAR WASH"
  2491.     RETURN
  2493.  
  2494. IF contact THEN vx! = 0
  2495. IF lob THEN vx! = exv(2): a = 0 '                                     landed on Borg
  2496.  
  2497. goy = -h '                                                            AS go y
  2498. IF ASO THEN '                                                         ascent stage only
  2499.     IF fuel! = 0 THEN RETURN
  2500.     thrust! = h
  2501.     falling = 0
  2502.     platform = 0
  2503.     IF lob THEN pminy = borgt
  2505.     power = opower
  2506.     thrust! = th '                                                    simulate explosive seperation
  2507.     platform = 22 '                                                   deflect flame from DS
  2508.     IF contact THEN
  2509.         falling = 0 '                                                 DS already on surface
  2510.     ELSE
  2511.         falling = 1 '                                                 DS in air
  2512.         goy = py! - 20 '                                              go y - not to screen top
  2513.     END IF
  2514.     LINE (gs, 30)-(q3, q4), 0, BF '                                   erase "space" area
  2515.     pminx = q1: pmaxx = -pminx
  2516.     pminy = q1: pmaxy = -pmaxy
  2517.     FOR i = 279 TO rp '                                               draw descent stage
  2518.         c = LMc(i)
  2519.         IF c < 0 THEN c = fuel
  2520.         PSET (LMrx(i), LMry(i)), c
  2521.         IF LMrx(i) < pminx THEN pminx = LMrx(i)
  2522.         IF LMrx(i) > pmaxx THEN pmaxx = LMrx(i)
  2523.         IF LMry(i) < pminy THEN pminy = LMry(i)
  2524.         IF LMry(i) > pmaxy THEN pmaxy = LMry(i)
  2525.     NEXT i
  2526.     GOSUB flevel
  2527.     IF platform > 0 THEN deflectat = pminy
  2528.     zz = pmaxy - pminy
  2529.     GET (pminx, pminy)-(pmaxx, pmaxy), gbuff() '                      save descent stage
  2530.     LINE (gs, 30)-(q3, q4), 0, BF '                                   erase "space" area
  2531.  
  2532.     ta = (a + tsix) MOD tsix
  2533.     px! = px! - t * s!(ta)
  2534.     py! = py! - 15 * c!(ta) '                                         explosive seperation
  2536.  
  2537. wASO = ASO
  2538. ASO = 1
  2539. GOSUB ReadLM
  2540. IF wASO = 0 THEN fuel! = h
  2541. IF vsd THEN LMdistort
  2542.  
  2543. IF contact THEN
  2544.     dropvx! = 0
  2545.     IF lob AND (ABS(px! - center) > 2) THEN dropvx! = exv(1)
  2546.     dropvy! = 0
  2548.     dropvx! = vx!
  2549.     dropvy! = vy!
  2551.  
  2552. IF lob OR (contact = 0) THEN
  2553.     wa = 0
  2555.     wa = SGN(-exv(0)) * 20 '                                          want angle
  2556.     IF wa = 0 THEN wa = -20
  2558.  
  2559. sauto = auto: auto = 1
  2560. contact = 0
  2561. cut = 0
  2562. dump = 0
  2563. hover = 0
  2564. liftoff = 1
  2565. lminx = pminx
  2566. lock1 = 0
  2567. lockfuel = 0
  2568. lpass = 0
  2569. IF wASO = 0 THEN ma = 0
  2570. mes$(0) = ""
  2571. mes$(1) = ""
  2572. np = 0
  2573. paraf = 0
  2574. pcontact = 0
  2575. powerloss = 0
  2576. psuri = suri
  2577. py! = py! - 2 '                                                       fool CheckHit
  2578. svert = vert
  2579. vert = 0
  2580.  
  2581. DO: _LIMIT mdelay * 1.5
  2582.     IF py! < 280 THEN GOSUB angle '                                   make a=wa (angle=wanted)
  2583.     GOSUB Plotscreen
  2584.     np = np + 1
  2585.     IF np >= t THEN GOSUB CheckHit
  2586.     z = (sy1 + sy2) / 2 - 2
  2587.     IF (deflectat > 0) AND (z > deflectat) AND (z > deflectat) THEN contact = 1
  2588.     IF contact THEN dead$ = "NOT YOUR DAY": EXIT DO
  2589.     lpass = lpass + 1
  2590.     IF thrust! = th THEN thrust! = h
  2591.     IF vsd THEN '                                                     very severe damage
  2592.         thrust! = h - (lpass + RND) '                                 slowly drop power
  2593.         IF thrust! < 50 THEN thrust! = 50 + RND
  2594.         IF RND > .95 THEN
  2595.             dead$ = "STRUCTURAL FAILURE"
  2596.             EXIT DO
  2597.         END IF
  2598.     END IF
  2599.     GOSUB KeyAndMouse
  2600.     IF LEN(dead$) THEN GOTO endl
  2601.     IF lob OR ((platform > 0) AND (falling = 1)) THEN
  2602.         pminx = pminx + dropvx!
  2603.         pmaxx = pmaxx + dropvx!
  2604.         pminy = pminy + dropvy!
  2605.         pmaxy = pmaxy + dropvy!
  2606.         IF lob = 0 THEN
  2607.             dropvy! = dropvy! + .6
  2608.             dropy! = gety(-(pminx + nx))
  2609.             IF pmaxy < dropy! THEN
  2610.                 lminx = pminx
  2611.                 lminy = dropy! - zz
  2612.                 deflectat = pminy
  2613.             ELSE
  2614.                 pminx = lminx
  2615.                 pminy = lminy
  2616.                 psuri = suri
  2617.                 pcontact = 1
  2618.                 falling = 0
  2619.             END IF
  2620.         END IF
  2621.     ELSE
  2622.         pminx = lminx + (psuri - suri)
  2623.     END IF
  2624.     IF cut THEN lpass = 0
  2625.     IF wASO THEN
  2626.         IF (py! <= goy) AND (cut = 0) THEN EXIT DO
  2627.     ELSE
  2628.         IF pcontact OR (pminx < gs) OR (pminx > 580) THEN EXIT DO
  2629.         IF (cut = 0) AND (py! <= goy) THEN
  2630.             hover = 1
  2631.             GOSUB Autopilot
  2632.             IF falling = 0 THEN EXIT DO
  2633.         END IF
  2634.     END IF
  2635. LOOP UNTIL (alt! > h) OR LEN(dead$)
  2636.  
  2637. endl:
  2638. auto = sauto
  2639. crash = 0
  2640. deflectat = 0
  2641. liftoff = 0
  2642. lock1 = 0
  2643. platform = 0
  2644. vert = svert
  2646.  
  2647. ReadLM:
  2648. LMbloads
  2649. IF ASO THEN '                                                         ascent stage only
  2650.     lp = 294
  2651.     nx = 16
  2652.     ny = 9
  2653.     rp = 302
  2654.     th1 = 170
  2655.     th2 = 198
  2656.     vmass = 60
  2657. ELSE '                                                                AS&DS 34*36
  2658.     lp = 696 '                                                        left pad
  2659.     nx = 17 '                                                         center x (for rotating)
  2660.     ny = 18 '                                                         center y
  2661.     rp = 705 '                                                        right pad
  2662.     th1 = 449 '                                                       left thruster
  2663.     th2 = 483 '                                                       right thruster
  2664.     vmass = h '                                                       full mass
  2666.  
  2667. nred = 0 '                                                            number red (volcanic heating)
  2668. temp = 0 '                                                            temperature
  2669. IF bw = 0 THEN PALETTE gasoline, 24
  2670. xp = 97 ' radar
  2671. wi = LMx(rp) - LMx(lp) + 1 '                                          width
  2672. wi2 = wi \ 2
  2673.  
  2674. IF invincible THEN c = gold ELSE c = gray '                           thruster color
  2675. FOR i = 1 TO rp
  2676.     LMx(i) = LMx(i) - nx
  2677.     LMy(i) = LMy(i) - ny
  2678.     IF (LMc(i) = gray) OR (LMc(i) = gold) THEN LMc(i) = c '           thrusters
  2679.     IF LMc(i) < 0 THEN LMc(i) = fuel '                                fuel
  2680.     LMoc(i) = LMc(i)
  2682. GOSUB LMcolors
  2684. ' --------------------------------------------------------------------------
  2685. d1:
  2686. DATA 27,"Elapsed time"
  2687. DATA 36,"Distance to McD"
  2688. DATA 45,"CPU"
  2689. DATA 54,"Rads/temperature"
  2690. DATA 86,"Fuel"
  2691. DATA 126,"Altitude"
  2692. DATA 166,"Horizontal velocity"
  2693. DATA 206,"Vertical velocity"
  2694. DATA 244,"Main thrust"
  2695. DATA 277,"Sideways thrust"
  2696. DATA 307,"Autopilot (full)"
  2697. DATA 322,"Hover control"
  2698. DATA 337,"Vertical automatic"
  2699.  
  2700. DATA "Scored on vertical & horizontal speed:"
  2701. DATA "0.00 - 0.50 Excellent"
  2702. DATA "0.51 - 1.00 Good"
  2703. DATA "1.01 - 2.00 Fair"
  2704. DATA "2.01 - 3.00 Poor"
  2705. DATA ""
  2706. DATA "Landing surface should be near flat,"
  2707. DATA with required ending angle under 5ø.
  2708. DATA ""
  2709. DATA Based on a 1974 program running on a
  2710. DATA DEC PDP/11 with GT40 vector display
  2711. DATA terminal at the University of Alberta.
  2712. DATA The graphic at top left is usually a Henon
  2713. DATA "plot, dealing with the stability of orbits."
  2714. DATA The face appearing in TMA-1 when it shoots
  2715. DATA "is Cybill Shepherd. If you land on TMA-1,"
  2716. DATA it displays a Mandelbrot. The semaphores
  2717. DATA "use proper flag positions, and the Morse"
  2718. DATA code in the McDonalds sign is real too.
  2719. DATA "Little Green Man can be turned into a pile"
  2720. DATA of ashes.  Beware the beach balls of IBM!
  2721. DATA ""
  2722. DATA F2 for a demo mode showing most features.
  2723. DATA ""
  2724. DATA "Esc or <: Back to Lander   > Next page"
  2725.  
  2726. d2:
  2727. DATA "ud        main thrust"
  2728. DATA "<>        side thrust/angle"
  2729. DATA "Shift ud  move up"
  2730. DATA "Shift <>  move left/right"
  2731. DATA "<>        ground back/forward"
  2732. DATA "space     abort/feature cycle"
  2733. DATA "Bkspace   random star position"
  2734. DATA "Esc       quit"
  2735. DATA "01234     stars off/on/info"
  2736. DATA "aA        autopilot on/off/McD"
  2737. DATA "b         goto Borg"
  2738. DATA "B         goto black hole"
  2739. DATA "c         cut engine"
  2740. DATA "C         clock(s) on/off"
  2741. DATA "d         dump fuel"
  2742. DATA "D         restart with defaults"
  2743. DATA "fF        fuel lock/unlimited"
  2744. DATA "G         new ground"
  2745. DATA "h         hover"
  2746. DATA "I         invincible mode"
  2747. DATA "k         kill (fire laser)"
  2748. DATA "wlemtsiHg goto surface feature"
  2749. DATA "L         level ground"
  2750. DATA "M         Magic landing!"
  2751. DATA "n         nation (flag)"
  2752. DATA "o         goto comet"
  2753. DATA "O         goto EPCOR"
  2754. DATA "p         pause"
  2755. DATA "P         parachute"
  2756. DATA "r         radar"
  2757. DATA "R         rendesvous with CM"
  2758. DATA "T         thrust accuracy"
  2759. DATA "u         instruments"
  2760. DATA "v         vertical automatic"
  2761. DATA "y         swap mouse buttons"
  2762. DATA "z         self-destruct"
  2763. DATA ".         terrain following"
  2764. DATA "F2        demo mode (compressed)"
  2765. DATA "F3        sky features"
  2766. DATA "F4        constant black holes"
  2767. DATA "F5        panel/instruments"
  2768. DATA "F6        drop descent stage"
  2769. DATA "F7        map at top"
  2770. DATA "F8        shields (uses fuel)"
  2771. DATA "F9/F10    LED color/tri-color"
  2772. DATA "PgDn/Up   slower/faster"
  2773. DATA "< Previous page   > Next page"
  2774.  
  2775. d3:
  2776. DATA "/  green/amber/b&w/regular screen"
  2777. DATA "+  zoom in starfield"
  2778. DATA "-  zoom out starfield"
  2779. DATA "\  drop bomb"
  2780. DATA ".  terrain following"
  2781. DATA "_  star twinkle"
  2782. DATA "j  DeathStar rotation"
  2783. DATA "|  generate all star files (hours!)"
  2784. DATA "x  more/less stars"
  2785. DATA "X  regenerate current star file"
  2786. DATA "Q  oscar (LGM flag colors)"
  2787. DATA "=  show LM data"
  2788. DATA "[  crude black & white"
  2789. DATA "]  UFO toggle"
  2790. DATA "U  ground tiling style"
  2791. DATA "ctrl-c or -s: SCREEN capture"
  2792. DATA "alt-Enter: fullscreen toggle"
  2793. DATA ""
  2794. DATA "< Previous page   > Next page"
  2795.  
  2796. d4:
  2797. DATA "      Programmed by:   R. Frost"
  2798. DATA "                       Edmonton, Alberta, Canada"
  2799. DATA ""
  2800. DATA "                       rfrost@mail.com "
  2801. DATA ""
  2802. DATA ""
  2803. DATA " 1) 2001 A Space Odyssey: TMA-1, HAL, CM/LM chatter"
  2804. DATA " 2) Star Trek: warp messages, phasers, shield, Borg"
  2805. DATA " 3) Lost in Space: black hole warning"
  2806. DATA " 4) Southpark: black hole at 3:50 (Tree-fiddy! - Chef)"
  2807. DATA " 5) Simpsons: LGM saying he has semaphore flags"
  2808. DATA " 6) Rocky & Bullwinkle: a hall of Montezuma (car wash)"
  2809. DATA " 7) Bonanza: car wash traverse generates a Hop Sing quote"
  2810. DATA " 8) SCTV: CM/LM chatter"
  2811. DATA " 9) a McDonalds on the Moon, and an instrument for it"
  2812. DATA "10) Little Green Man wiggles ears & reacts to LM exhaust"
  2813. DATA "11) pirate books & movies: CM/LM chatter"
  2814. DATA "12) Command Module leaves you stranded"
  2815. DATA "13) a Steve Martin quote precedes black hole death"
  2816. DATA "14) half the time the USSR flag is planted"
  2817. DATA "15) Cybil Shepherd's face appears in TMA-1 when it fires"
  2818. DATA "16) Halley's Comet is renamed Halle Berry"
  2819. DATA "17) digital, analog, and binary clocks!"
  2820. DATA "18) End Of The Universe is signaled by Chicken Little"
  2821. DATA "19) Mt. Etna spews volcanic cheese"
  2822. DATA "20) a parachute that doesn't work in a vacuum"
  2823. DATA "21) Area 51 is the first level landing zone"
  2824. DATA "22) IBM weapon is a fishing float or beach ball"
  2825. DATA ""
  2826. DATA "< Previous page   Esc or >: Back to Lander"
  2827.  
  2828. leds:
  2829. DATA a,0,-2,1,-2
  2830. DATA b,1,-2,1,-1
  2831. DATA c,1,-1,1,0
  2832. DATA d,0,0,1,0
  2833. DATA e,0,-1,0,0
  2834. DATA f,0,-2,0,-1
  2835. DATA g,0,-1,1,-1
  2836.        
  2837. DATA 0,abcdef,1,bc,2,abged,3,abgcd,4,fgbc,5,acdfg,6,acdefg,7,abc,8,abcdefg,9,abcdfg,10,g,11,def
  2838.  
  2839. features:
  2840. '               x   y  lz
  2841. DATA "Area 51",65,40,45
  2842. DATA "Car Wash",100,44,130
  2843. DATA "Little Green Man",12,0,70
  2844. DATA "Etna",10,49,20
  2845. DATA "McDonalds",38,0,80
  2846. DATA "TMA-1",45,71,80
  2847. DATA "Surveyor",28,0,80
  2848. DATA "IBM",50,45,90
  2849. DATA "Hollywood",170,0,0
  2850. DATA "a grave",68,49,98
  2851.  
  2852. MorseData:
  2853. DATA a,.-,b,-...,c,-.-.,d,-..,e,.,f,..-.,g,--.
  2854. DATA h,....,i,..,j,.---,k,-.-,l,.-..,m,--,n,-.
  2855. DATA o,---,p,.--.,q,--.-,r,-.-,s,...,t,-,u,..-
  2856. DATA v,...-,w,.--,x,-..-,y,-.--,z,--..,1,.----,2,..---
  2857. DATA 3,...--,4,....-,5,.....,6,-...,7,--..,8,---..,9,----.
  2858. DATA 0,-----,!,..--.,$,...-..-,&,.-...
  2859.  
  2860. warp:
  2861. DATA "The Rockwell warranty is now void"
  2862. DATA "Hope we don't collide with Klingons!"
  2863. DATA "You need a vacation, Jim!  - Bones!"
  2864. DATA "It's a long way to Tipperary!"
  2865. DATA "Do we know this universe?  - Spock"
  2866. DATA "My miniskirt is getting shorter! - Uhuru"
  2867. DATA "Da engines kanna tayke much more! - Scotty"
  2868. DATA "Keptin, are you insane? - Chekhov"
  2869. DATA "Hit 10 and we die!"
  2870.  
  2871. radcomments:
  2872. DATA "has caused genetic damage"
  2873. DATA "causes glowing in the dark"
  2874. DATA "5 years"
  2875. DATA "1 year"
  2876. DATA "6 months"
  2877. DATA "1 month"
  2878. DATA "1 week"
  2879. DATA "8 hours"
  2880. DATA "5 minutes"
  2881. DATA "has killed you - press Esc"
  2882.  
  2883. skycrud:
  2884. DATA CM,14,14
  2885. DATA DS,150,150
  2886. DATA BO,58,46
  2887. DATA BH,200,200
  2888. DATA Wo,90,90
  2889. DATA Co,20,100
  2890. DATA AL,40,40
  2891. DATA ZZ,1,1
  2892.  
  2893. semadata:
  2894. DATA a 1,225,180
  2895. DATA b 2,270,180
  2896. DATA c 3,315,180
  2897. DATA d 4,0,180
  2898. DATA e 5,180,45
  2899. DATA f 6,180,90
  2900. DATA g 7,180,135
  2901. DATA h 8,270,225
  2902. DATA i 9,225,315
  2903. DATA j,0,90
  2904. DATA k 0,225,0
  2905. DATA l,225,45
  2906. DATA m,225,90
  2907. DATA n,225,135
  2908. DATA o,270,315
  2909. DATA p,270,0
  2910. DATA q,270,45
  2911. DATA r,270,90
  2912. DATA s,270,135
  2913. DATA t,315,0
  2914. DATA u,315,45
  2915. DATA v,0,135
  2916. DATA w,45,90
  2917. DATA x,45,135
  2918. DATA y,315,90
  2919. DATA z,135,90
  2920. DATA " ",180,180
  2921. DATA !,0,0
  2922.  
  2923. say:
  2924. DATA "The time is 1234"
  2925. DATA "Welcome to the Moon"
  2926. DATA "I am a little green man"
  2927. DATA "I have semaphore flags"
  2928. DATA "R Frost is a nerd!"
  2929. DATA "abcdefghijklmnopqrstuvwxyz"
  2931.  
  2932. BigM: '                                                               37 * 16
  2933. DATA "          X               X          "
  2934. DATA "         X X             X X         "
  2935. DATA "        X   X           X   X        "
  2936. DATA "       X     X         X     X       "
  2937. DATA "      X       X       X       X      "
  2938. DATA "     X         X     X         X     "
  2939. DATA "     X         X     X         X     "
  2940. DATA "    X           X   X           X    "
  2941. DATA "    X           X   X           X    "
  2942. DATA "   X             X X             X   "
  2943. DATA "   X             X X             X   "
  2944. DATA "  X              XXX              X  "
  2945. DATA " X                                 X "
  2946. DATA " X                                 X "
  2947. DATA "X                                   X"
  2948. DATA "X                                   X"
  2950. '     1234567890123456789012345678901234567
  2951. '              1         2         3
  2952. tinyfontd:
  2953. DATA 0,7,5,5,5,7
  2954. DATA 1,2,6,2,2,7
  2955. DATA 2,7,1,7,4,7
  2956. DATA 3,7,1,7,1,7
  2957. DATA 4,5,5,7,1,1
  2958. DATA 5,7,4,7,1,7
  2959. DATA 6,7,4,7,5,7
  2960. DATA 7,7,1,1,1,1
  2961. DATA 8,7,5,7,5,7
  2962. DATA 9,7,5,7,1,7
  2963. DATA .,0,0,0,0,2
  2964. DATA -,0,0,1,0,0
  2965. DATA ":",0,2,0,2,0
  2966. DATA " ",0,0,0,0,0
  2967.  
  2968. lmshow:
  2970. FOR pass = 1 TO 2
  2971.     CLS
  2972.     FOR i = 1 TO rp
  2973.         x = (LMx(i) + 17 - ASO) * 16 + 30 + (pass = 2)
  2974.         y = (LMy(i) + 18 - ASO * 9) * 8 + t
  2975.         IF pass = 1 THEN z$ = LTRIM$(STR$(LMc(i))) ELSE z$ = RIGHT$("  " + STR$(i), 3)
  2976.         IF LEN(z$) = 1 THEN z$ = "0" + z$
  2977.         c = LMc(i)
  2978.         TinyFont z$, x + 3, y + 3, c
  2979.     NEXT i
  2980.     FOR i = 1 TO 35 '                                                 line of numbers at top
  2981.         z$ = RIGHT$(" " + LTRIM$(STR$(i)), 2)
  2982.         TinyFont z$, (i - 1) * 16 + 33, 4, gray
  2983.         x = (i - 1) * 16 + 30 + 16
  2984.         LINE (x, 0)-(x, 320), red
  2985.     NEXT i
  2986.     FOR i = 1 TO 36 '                                                 columb of numbers at left
  2987.         z$ = RIGHT$(" " + LTRIM$(STR$(i)), 2)
  2988.         TinyFont z$, 8, i * 8 + 13, gray
  2989.         y = i * 8 + t + 8 + 1
  2990.         LINE (0, y)-(q3, y), red
  2991.     NEXT i
  2992.     LINE (0, 0)-(q3, 320), red, B
  2993.     _DISPLAY
  2994.     SLEEP
  2995. NEXT pass
  2997. ' -------------------------------------------------------------------------------------------------------x
  2998. SUB mHelp
  2999.     VIEW: CLS
  3000.     hp = 1
  3001.     DO
  3002.         CLS
  3003.         IF hp = 1 THEN GOSUB Help1
  3004.         IF hp = 2 THEN GOSUB Help2
  3005.         IF hp = 3 THEN GOSUB Help3
  3006.         IF hp = 4 THEN GOSUB credits
  3007.         timemachine
  3008.         DO: _LIMIT 30
  3009.             i$ = INKEY$
  3010.         LOOP UNTIL LEN(i$)
  3011.         IF LEN(i$) = 1 THEN k = ASC(i$) ELSE k = ASC(RIGHT$(i$, 1))
  3012.         hp = hp + (k = 75) - (k = 77)
  3013.         IF (k = 27