home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / autoexec / apd110.amos / apd110.amosSourceCode next >
AMOS Source Code  |  1990-10-23  |  21KB  |  595 lines
  1. '           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  2. '           CROSS-FIRE by SAROG  v1.1    c1990   
  3. '           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  4. '
  5. Close Workbench : Dir$="df0:" : LEVTOT=10
  6. 'Load "dh0:amos files/CFbobs.abk"
  7. Dim GRID(26,18),NAME$(10),HISCORE(10),LEV(LEVTOT)
  8. Global GRID(),X,Y,LEVEL,SHIP,LIVES,SPEED,TARGET,SCORE,TMSTR,TB
  9. Global HISCORE(),NAME$(),LIN,NEWHIGH,IMAGE,TTOTAL,ROUND,LEV(),LEVTOT
  10. '
  11. INITIALISE
  12. '
  13. RESTART:
  14. For F=1 To 20 : A=Rnd(LEVTOT-1)+1 : B=Rnd(LEVTOT-1)+1 : Swap LEV(A),LEV(B) : Next F
  15. Screen 1 : Clear Key 
  16. Locate 0,3 : Centre "                   "
  17. LEVEL=1 : LIVES=5 : SCORE=0 : NEWHIGH=1 : ROUND=0 : SPEED=170
  18. Locate 41,1 : Print LIVES : Locate 27,1 : Print HISCORE(9)
  19. Screen Hide 0 : Screen Show 1 : SKY1
  20. '
  21. NEWLEVEL:
  22. Locate 5,1 : Print LEVEL;" " : TTOTAL=0 : TMSTR=0
  23. SETUPGRID
  24. Bob 1,173,141,10
  25. '
  26. NEWLIFE:
  27. Bob 2,63,34,16
  28. Bob 3,283,248,17
  29. Bob 4,26,71,15
  30. Bob 5,320,201,14
  31. Locate 15,1 : Print SCORE;"    "
  32. '
  33. Timer=TMSTR
  34. '
  35. Do 
  36.    X=((X Bob(1)-43)/10) : Y=((Y Bob(1)-51)/10)
  37.    If GRID(X,Y)=25
  38.       TMSTR=Timer : DEATH : Exit 
  39.    End If 
  40.    WHATMOVE
  41.    If TTOTAL=TARGET
  42.       TB=120-(Timer/50) : Amal Freeze 1
  43.       For F=6 To 9 : Bob Off F : Next F : Sample 5 To 15 : Wait 8
  44.       For F=0 To 10 Step 5 : For G=30 To 50 Step 4 : Play F+G,4 : Next G : Next F
  45.       Exit 
  46.    End If 
  47.    Repeat 
  48.       Add SHIP,1,2 To 5
  49.       If Not Chanmv(SHIP) Then On SHIP-1 Proc UPSHIP,LOWSHIP,LEFTSHIP,RIGHTSHIP
  50.       If Bob Col(1)
  51.          TMSTR=Timer : CRASH : Exit 2
  52.       End If 
  53.    Until Not Chanmv(1)
  54.    If Inkey$=" " Then PAUSE
  55. Loop 
  56. '
  57. '
  58. If TTOTAL=TARGET
  59.    LEVELCOMPLETED : Goto NEWLEVEL
  60. End If 
  61. '
  62. Locate 41,1 : Print LIVES
  63. If LIVES
  64.    Bob 1,43+X*10,51+Y*10,IMAGE
  65.    Goto NEWLIFE
  66. End If 
  67. '
  68. For F=0 To 63 : Mvolume F : Wait 2 : Next F
  69. Bob Off : Update : Bob Off : CLRGRID : HISCORES
  70. '
  71. If NEWHIGH
  72.    Locate 0,28 : Pen 12 : Centre "PRESS FIRE TO START"
  73.    Repeat : Until Fire(1)
  74. Else 
  75.    GAMEOVER
  76. End If 
  77. For F=63 To 0 Step -1 : Mvolume F : Wait 1 : Next F
  78. Amal Freeze 0 : Goto RESTART
  79. '
  80. Procedure INITIALISE
  81.    Screen Open 0,352,290,16,Lowres
  82.    Screen Open 1,352,290,16,Lowres
  83.    Load Iff "CrossFireLS",1
  84.    Screen 1 : Hide On : Flash Off : Curs Off 
  85.    Screen Hide 0 : Screen Show 1 : Wait 80 : Music 1
  86.    Open In 1,"hiscores"
  87.    For F=0 To 9
  88.       Line Input #1,HISCORE(F)
  89.       Line Input #1,NAME$(F)
  90.    Next F
  91.    Close 1
  92.    Get Disc Fonts 
  93.    Screen 0 : Hide On : Flash Off : Curs Off : Get Sprite Palette 
  94.    Cls 0 : Set Font 3 : Ink 12,0
  95.    Text 64,80,"CROSS  -  FIRE"
  96.    Set Font 5 : Ink 7,0
  97.    Text 35,120,"WAS WRITTEN BY SAROG"
  98.    Text 24,150,"USING AMOS THE CREATOR"
  99.    Load Iff "CFgrid",1
  100.    Screen Hide 1 : Screen Show 0 : Wait 250
  101.    Screen 0 : Set Font 4 : Ink 2,0 : Text 48,210,"PRESS FIRE TO START"
  102.    Pen 11 : Paper 0 : Locate 0,30 : Centre "SPACE TO PAUSE"
  103.    Repeat : Until Fire(1)
  104.    For F=63 To 0 Step -1 : Mvolume F : Wait 1 : Next F : Cls 0
  105.    Set Font 1 : Randomize Timer : Screen 1 : Screen Hide 0 : Screen Show 1
  106.    For F=1 To 15 : Channel F To Bob F : Next F : Make Mask 
  107.    Channel 0 To Rainbow 0
  108.    Amal 0,"Loop: For RA=0 To 29 ; Let X=RA ; P;P;P;P;P; Next RA ; J Loop"
  109.    Screen 1 : Hide On : Flash Off : Curs Off : Double Buffer 
  110.    Paper 0 : Pen 5 : Locate 0,1 : Centre "LEVEL     SCORE          HI         LIVES   "
  111.    Pen 1 : For F=1 To LEVTOT : LEV(F)=F : Next F
  112. End Proc
  113. Procedure CLRGRID
  114.    Autoback 0 : Bob Update Off 
  115.    For Y=1 To 17
  116.       For X=1 To 25
  117.          Paste Bob 43+X*10,51+Y*10,1
  118.       Next X
  119.    Next Y
  120.    Screen Copy Logic,0,0,351,289 To Physic,0,0 : Update 
  121.    Screen Copy Logic,0,0,351,289 To Physic,0,0
  122.    Autoback 2 : Bob Update On 
  123. End Proc
  124. Procedure SETUPGRID
  125.    Autoback 0
  126.    Restore 1000+(LEV(LEVEL-ROUND*LEVTOT))
  127.    For Y=1 To 17
  128.       For X=1 To 25
  129.          Read I
  130.          GRID(X,Y)=I
  131.          Paste Bob 43+X*10,51+Y*10,I
  132.       Next X
  133.    Next Y
  134.    Read TARGET
  135.    For F=1 To LEVEL*2
  136.       Repeat 
  137.          X=Rnd(24)+1 : Y=Rnd(16)+1
  138.       Until(GRID(X,Y)=1) and(X<>13)
  139.       GRID(X,Y)=25 : Paste Bob 43+X*10,51+Y*10,25
  140.    Next F
  141.    Screen Copy Logic,0,0,351,289 To Physic,0,0 : Update 
  142.    Autoback 2
  143.    Flash 11,"(fff,7)(ff6,7)(ff0,7)(f60,7)(f00,7)(600,7)(222,7)(600,7)(f00,7)(f60,7)(ff0,7)(ff6,7)"
  144. End Proc
  145. Procedure WHATMOVE
  146.    If Jup(1) and GRID(X,Y-1)>0
  147.       Amal 1,"A 1,(10,1) ; M 0,-10,5" : Amal On 1
  148.    Else 
  149.       If Jdown(1) and GRID(X,Y+1)>0
  150.          Amal 1,"A 1,(11,1) ; M 0,10,5" : Amal On 1
  151.       Else 
  152.          If Jright(1) and GRID(X+1,Y)>0
  153.             Amal 1,"A 1,(12,1) ; M 10,0,5" : Amal On 1
  154.          Else 
  155.             If Jleft(1) and GRID(X-1,Y)>0
  156.                Amal 1,"A 1,(13,1) ; M -10,0,5" : Amal On 1
  157.             End If 
  158.          End If 
  159.       End If 
  160.    End If 
  161.    If GRID(X,Y)>1
  162.       GRID(X,Y)=1 : Paste Bob 43+X*10,51+Y*10,1 : Inc TTOTAL : Sam Play 1
  163.       Autoback 0 : Locate 15,1 : Add SCORE,2*LEVEL : Print SCORE
  164.       Screen Copy Logic,125,7,175,20 To Physic,125,7 : Update : Autoback 2
  165.    End If 
  166. End Proc
  167. Procedure CRASH
  168.    For F=6 To 9 : Bob Off F : Next F : IMAGE=I Bob(1) : Bob Off 1
  169.    Bob 10,X Bob(1),Y Bob(1),19
  170.    Amal 10,"A 1,(19,12)(20,12)(21,12)(22,12)(23,12)(24,1) ; M 0,0,1"
  171.    Amal On 10 : Boom : Wait 10 : Boom : Wait 10 : Boom : Dec LIVES
  172. For F=6 To 9 : Bob Off F : Next F
  173. Wait 100 : Bob Off 10 : Update : Bob Off 
  174. End Proc
  175. Procedure DEATH
  176.    GRID(X,Y)=1 : IMAGE=I Bob(1) : Dec LIVES
  177.    If X<13 Then AM$="M -180,0,100" Else AM$="M 180,0,100"
  178.    Sam Play 15,3,8000 : Bob Off 
  179.    For F=1 To 3 : Paste Bob 43+X*10,51+Y*10,25 : Wait 5
  180.       Paste Bob 43+X*10,51+Y*10,1 : Wait 5
  181.       If F=1 Then Sam Play 2
  182.       Paste Bob 43+X*10,51+Y*10,IMAGE : Wait 5
  183.    Paste Bob 43+X*10,51+Y*10,1 : Next F
  184.    Bob 11,43+X*10,51+Y*10,25
  185.    Amal 11,"A 5,(25,2)(26,2)(27,2)(28,2)(27,2)(26,2);"+AM$ : Amal On 11
  186.    For F=1 To 5 : Sam Play 4 : Wait 15 : Next F : Wait 50 : Bob Off 11
  187. End Proc
  188. Procedure LEVELCOMPLETED
  189.    If TB<0 Then TB=0
  190.    Add SCORE,TB*10
  191.    Inc LEVEL
  192.    If LEVEL-ROUND*LEVTOT=LEVTOT+1
  193.       Inc ROUND
  194.    End If 
  195.    If SPEED>70
  196.       Add SPEED,-20
  197.    End If 
  198.    Locate 14,3 : Pen 8 : Print "TIME BONUS =";TB*10 : Pen 1
  199.    Wait 100 : Locate 0,3 : Centre "                     "
  200.    Bob Off : Update : CLRGRID
  201. End Proc
  202. Procedure GAMEOVER
  203.    Bob Off : Update : SKYGMOVR : Amal On 0 : I=Rnd(7)+2
  204.    Repeat 
  205.       CLRGRID : Restore GMOVRDATA : Add I,1,2 To 9
  206.       For F=1 To 143
  207.          Read X,Y : Paste Bob 43+X*10,51+Y*10,I
  208.          Exit If Fire(1)
  209.       Next F
  210.    Until Fire(1)
  211.    CLRGRID
  212. End Proc
  213. '
  214. Procedure UPSHIP
  215.    If Not Chanmv(6) Then Bob Off 6
  216.    If X Bob(1)>X Bob(2)
  217.       Amal 2,"A 1,(16,1) ; M 10,0,10" : Amal On 2 : Pop Proc
  218.    End If 
  219.    If X Bob(1)<X Bob(2)
  220.       Amal 2,"A 1,(16,1) ; M -10,0,10" : Amal On 2 : Pop Proc
  221.    End If 
  222.    If Not Chanmv(6) Then UPMISSILE
  223. End Proc
  224. Procedure UPMISSILE
  225.    If Timer-TMSTR>100
  226.       Bob 6,X Bob(2),44,18
  227.       Amal 6,"A 1,(18,1) ; M 0,190,"+Str$(SPEED)
  228.       Amal On 6
  229.    End If 
  230. End Proc
  231. Procedure LOWSHIP
  232.    If Not Chanmv(7) Then Bob Off 7
  233.    If X Bob(1)>X Bob(3)
  234.       Amal 3,"A 1,(17,1) ; M 10,0,10" : Amal On 3 : Pop Proc
  235.    End If 
  236.    If X Bob(1)<X Bob(3)
  237.       Amal 3,"A 1,(17,1) ; M -10,0,10" : Amal On 3 : Pop Proc
  238.    End If 
  239.    If Not Chanmv(7) Then LOWMISSILE
  240. End Proc
  241. Procedure LOWMISSILE
  242.    If Timer-TMSTR>100
  243.       Bob 7,X Bob(3),240,18
  244.       Amal 7,"A 1,(18,1) ; M 0,-190,"+Str$(SPEED)
  245.       Amal On 7
  246.    End If 
  247. End Proc
  248. Procedure LEFTSHIP
  249.    If Not Chanmv(8) Then Bob Off 8
  250.    If Y Bob(1)>Y Bob(4)
  251.       Amal 4,"A 1,(15,1) ; M 0,10,10" : Amal On 4 : Pop Proc
  252.    End If 
  253.    If Y Bob(1)<Y Bob(4)
  254.       Amal 4,"A 1,(15,1) ; M 0,-10,10" : Amal On 4 : Pop Proc
  255.    End If 
  256.    If Not Chanmv(8) Then LEFTMISSILE
  257. End Proc
  258. Procedure LEFTMISSILE
  259.    If Timer-TMSTR>100
  260.       Bob 8,33,Y Bob(4),18
  261.       Amal 8,"A 1,(18,1) ; M 270,0,"+Str$(SPEED+60)
  262.       Amal On 8
  263.    End If 
  264. End Proc
  265. Procedure RIGHTSHIP
  266.    If Not Chanmv(9) Then Bob Off 9
  267.    If Y Bob(1)>Y Bob(5)
  268.       Amal 5,"A 1,(14,1) ; M 0,10,10" : Amal On 5 : Pop Proc
  269.    End If 
  270.    If Y Bob(1)<Y Bob(5)
  271.       Amal 5,"A 1,(14,1) ; M 0,-10,10" : Amal On 5 : Pop Proc
  272.    End If 
  273.    If Not Chanmv(9) Then RIGHTMISSILE
  274. End Proc
  275. Procedure RIGHTMISSILE
  276.    If Timer-TMSTR>100
  277.       Bob 9,310,Y Bob(5),18
  278.       Amal 9,"A 1,(18,1) ; M -270,0,"+Str$(SPEED+60)
  279.       Amal On 9
  280.    End If 
  281. End Proc
  282. '
  283. Procedure HISCORES
  284.    For LIN=0 To 9
  285.       If SCORE>=HISCORE(LIN)
  286.          For G=9 To LIN+1 Step -1
  287.             NAME$(G)=NAME$(G-1)
  288.             HISCORE(G)=HISCORE(G-1)
  289.          Next G
  290.          NAME$(LIN)=""
  291.          HISCORE(LIN)=SCORE
  292.          TABLE
  293.          NEWENTRY
  294.          Exit 
  295.       End If 
  296.    Next LIN
  297.    If LIN=10 Then NEWHIGH=0
  298. End Proc
  299. Procedure TABLE
  300.    Screen Hide 1 : Screen Show 0 : Screen 0 : Cls 0 : SKY0 : Amal On 0
  301.    Paper 0 : Pen 1 : Ink 5,0 : Text 20,45,"Hi Scores"
  302.    For G=0 To 9
  303.       Locate 12,(G+4)*2
  304.       Print Using "#####";HISCORE(G);
  305.       Print Space$(9);NAME$(G)
  306.    Next G
  307. End Proc
  308. Procedure NEWENTRY
  309.    Curs Off : Flash 4,"(000,5)(333,5)(666,5)(999,5)(CCC,5)(FFF,5)"
  310.    Clear Key : C=26
  311.    Repeat 
  312.       Locate C,(LIN+4)*2
  313.       Pen 4 : Print "_";Chr$(8) : Pen 1
  314.       Repeat 
  315.          N$=Inkey$
  316.          If(C=26) and(N$=Chr$(8)) Then N$=""
  317.          If(N$<>Chr$(8)) and(N$<>Chr$(13)) and((N$<"a") or(N$>"z")) Then N$=""
  318.       Until N$<>""
  319.       If N$=Chr$(13)
  320.          Locate C,(LIN+4)*2 : Print " "
  321.          Exit 
  322.       End If 
  323.       If N$=Chr$(8)
  324.          Locate C,(LIN+4)*2
  325.          Print " "
  326.          Dec C
  327.          NAME$(LIN)=Left$(NAME$(LIN),C-26)
  328.       Else 
  329.          NAME$(LIN)=NAME$(LIN)+Upper$(N$)
  330.          Locate C,(LIN+4)*2
  331.          Print Upper$(N$)
  332.          Inc C
  333.       End If 
  334.    Until C=36
  335.    Flash Off : SAVHISCORES
  336. End Proc
  337. Procedure SAVHISCORES
  338.    On Error Proc WRITPROTEC
  339.    Resume Label CONTINUE
  340.    '
  341.    'Error 84
  342.    '
  343.    Show On 
  344.    Open Out 1,"hiscores"
  345.    For F=0 To 9
  346.       Print #1,HISCORE(F) : Print #1,NAME$(F)
  347.    Next F
  348.    Close 1
  349.    Open Out 1,"hiscoresBU"
  350.    For F=0 To 9
  351.       Print #1,HISCORE(F) : Print #1,NAME$(F)
  352.    Next F
  353.    Close 1
  354.    CONTINUE:
  355.    Hide On 
  356. End Proc
  357. Procedure WRITPROTEC
  358.    Locate 0,30 : Pen 13
  359.    Centre "CAN'T SAVE ---- WRITE PROTECTED"
  360.    Resume Label 
  361. End Proc
  362. Procedure SKY0
  363.    Set Rainbow 0,0,30,"(1,1,15)(1,-1,15)","",""
  364.    Rainbow 0,0,40,290
  365. End Proc
  366. Procedure SKY1
  367.    Set Rainbow 0,0,30,"","","(1,1,15)(1,-1,15)"
  368.    Rainbow 0,0,40,290
  369. End Proc
  370. Procedure SKYGMOVR
  371.    Set Rainbow 0,0,30,"(2,1,15)(2,-1,15)","(1,-1,15)(1,1,15)","(1,1,15)(1,-1,15)"
  372.    Rainbow 0,0,40,290
  373. End Proc
  374. Procedure PAUSE
  375.    TMSTR=Timer : Amal Freeze : Amal On 0
  376.    Pen 3 : Locate 0,3 : Centre "G  A  M  E       P  A  U  S  E  D"
  377.    For F=0 To 63 : Wait 1 : Mvolume F : Next F
  378.    Repeat : Until Fire(1) : Pen 1 : Clear Key 
  379.    Locate 0,3 : Centre Space$(33)
  380.    For F=63 To 0 Step -1 : Wait 1 : Mvolume F : Next F
  381.    Amal On : Amal Freeze 0 : Timer=TMSTR
  382. End Proc
  383. '
  384. '
  385. GMOVRDATA:
  386. Data 6,2,5,1,4,1,3,1,2,2,2,3,2,4,2,5,2,6,2,7,3,8,4,8,5,8,6,7,6,6,6,5,5,5
  387. Data 8,8,8,7,8,6,8,5,8,4,8,3,8,2,9,1,10,1,11,2,11,3,11,4,11,5,11,6,11,7,11,8,9,5,10,5
  388. Data 13,8,13,7,13,6,13,5,13,4,13,3,13,2,13,1,14,2,15,3,16,4,17,3,18,2,19,1,19,2,19,3,19,4,19,5,19,6,19,7,19,8
  389. Data 24,1,23,1,22,1,21,1,21,2,21,3,21,4,21,5,21,6,21,7,21,8,22,8,23,8,24,8,22,5,23,5
  390. Data 4,10,3,10,2,11,2,12,2,13,2,14,2,15,2,16,3,17,4,17,5,17,6,16,6,15,6,14,6,13,6,12,6,11,5,10
  391. Data 8,10,8,11,8,12,8,13,8,14,8,15,9,16,10,17,11,16,12,15,12,14,12,13,12,12,12,11,12,10
  392. Data 17,10,16,10,15,10,14,10,14,11,14,12,14,13,14,14,14,15,14,16,14,17,15,17,16,17,17,17,15,14,16,14
  393. Data 19,10,19,11,19,12,19,13,19,14,19,15,19,16,19,17,20,10,21,10,22,10,23,10,24,11,24,12,24,13,23,14
  394. Data 22,14,21,14,20,14,22,15,23,16,24,17
  395. '
  396. 1001
  397. Data 1,1,1,1,1,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  398. Data 1,1,1,1,9,1,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  399. Data 1,1,1,1,9,1,9,1,1,1,9,9,9,9,9,9,9,9,1,1,1,1,1,1,1
  400. Data 1,1,1,1,9,1,9,1,1,9,1,1,1,1,1,1,1,1,9,1,1,1,1,1,1
  401. Data 1,1,1,9,9,1,9,9,9,1,6,6,6,6,6,6,6,6,6,9,1,1,1,1,1
  402. Data 1,1,9,1,1,1,1,1,1,1,6,6,6,1,6,1,6,6,6,1,9,1,1,1,9
  403. Data 1,9,1,8,1,1,1,1,1,1,1,6,6,1,6,1,6,6,1,1,1,9,1,9,9
  404. Data 9,1,1,1,1,1,1,1,1,1,1,1,6,1,1,1,6,1,1,1,1,9,9,1,9
  405. Data 9,9,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,9,1,1,1,1,1,9
  406. Data 1,1,9,9,9,9,1,1,1,1,1,1,1,1,1,1,9,1,1,1,1,1,1,1,9
  407. Data 1,1,1,1,1,9,1,9,9,9,1,1,1,1,1,9,9,1,1,1,1,9,9,9,1
  408. Data 1,1,1,1,9,9,1,9,1,1,9,9,9,9,9,1,1,1,1,1,1,9,1,1,1
  409. Data 1,1,1,1,9,9,9,9,1,1,1,1,1,1,9,9,9,9,9,9,9,9,1,1,1
  410. Data 1,1,2,4,2,2,2,2,2,4,4,2,2,4,2,2,2,2,2,2,2,2,4,1,1
  411. Data 1,2,2,2,4,2,2,2,4,4,2,2,2,2,2,2,4,2,2,2,4,2,2,2,1
  412. Data 2,2,4,2,2,2,2,2,2,2,4,2,2,4,2,2,2,2,4,4,4,2,2,4,2
  413. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  414. Data 194
  415. '
  416. '
  417. 1002
  418. Data 1,1,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,1,1
  419. 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
  420. Data 1,4,4,1,1,1,4,4,1,1,4,4,4,4,1,1,1,4,4,1,1,1,4,4,1
  421. Data 4,1,1,4,1,4,1,1,4,1,4,1,1,1,4,1,4,1,1,4,1,4,1,1,4
  422. Data 4,1,1,1,1,4,1,1,4,1,4,1,1,1,4,1,4,1,1,4,1,4,1,1,1
  423. Data 4,1,1,1,1,4,1,1,4,1,4,1,1,1,4,1,4,1,1,4,1,4,1,1,1
  424. Data 1,4,1,1,1,4,1,1,4,1,4,1,1,1,4,1,4,1,1,4,1,4,1,1,1
  425. Data 1,1,4,1,1,4,4,4,4,1,4,4,4,4,1,1,4,1,1,4,1,4,1,1,1
  426. Data 1,1,1,4,1,4,1,1,4,1,4,1,1,4,1,1,4,1,1,4,1,4,1,1,1
  427. Data 1,1,1,4,1,4,1,1,4,1,4,1,1,1,4,1,4,1,1,4,1,4,1,4,4
  428. Data 4,1,1,4,1,4,1,1,4,1,4,1,1,1,4,1,4,1,1,4,1,4,1,1,4
  429. Data 1,4,4,1,1,4,1,1,4,1,4,1,1,1,4,1,1,4,4,1,1,1,4,4,1
  430. 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
  431. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  432. Data 1,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1
  433. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  434. 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
  435. Data 186
  436. '
  437. 1003
  438. Data 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  439. Data 6,5,5,5,5,1,8,1,5,5,5,5,6,5,5,5,5,1,8,1,5,5,5,5,6
  440. Data 6,5,1,1,1,8,9,8,1,1,1,5,6,5,1,1,1,8,9,8,1,1,1,5,6
  441. Data 6,5,1,1,8,9,1,9,8,1,1,5,6,5,1,1,8,9,1,9,8,1,1,5,6
  442. Data 6,5,1,8,9,1,4,1,9,8,1,5,6,5,1,8,9,1,4,1,9,8,1,5,6
  443. Data 6,5,1,1,8,9,1,9,8,1,1,1,6,1,1,1,8,9,1,9,8,1,1,5,6
  444. Data 6,5,1,1,1,8,9,8,1,1,1,6,6,6,1,1,1,8,9,8,1,1,1,5,6
  445. Data 6,5,5,5,5,1,8,1,1,1,6,1,1,1,6,1,1,1,8,1,5,5,5,5,6
  446. Data 6,6,6,6,6,6,6,6,6,6,6,1,1,1,6,6,6,6,6,6,6,6,6,6,6
  447. Data 6,5,5,5,5,1,8,1,1,1,6,1,1,1,6,1,1,1,8,1,5,5,5,5,6
  448. Data 6,5,1,1,1,8,9,8,1,1,1,6,6,6,1,1,1,8,9,8,1,1,1,5,6
  449. Data 6,5,1,1,8,9,1,9,8,1,1,1,6,1,1,1,8,9,1,9,8,1,1,5,6
  450. Data 6,5,1,8,9,1,4,1,9,8,1,5,6,5,1,8,9,1,4,1,9,8,1,5,6
  451. Data 6,5,1,1,8,9,1,9,8,1,1,5,6,5,1,1,8,9,1,9,8,1,1,5,6
  452. Data 6,5,1,1,1,8,9,8,1,1,1,5,6,5,1,1,1,8,9,8,1,1,1,5,6
  453. Data 6,5,5,5,5,1,8,1,5,5,5,5,6,5,5,5,5,1,8,1,5,5,5,5,6
  454. Data 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  455. Data 284
  456. '
  457. 1004
  458. Data 8,8,8,8,1,1,1,1,1,1,8,8,8,8,8,1,1,1,1,1,1,8,8,8,8
  459. Data 8,9,9,9,8,1,1,1,1,8,9,9,9,9,9,8,1,1,1,1,8,9,9,9,8
  460. Data 8,9,1,1,9,8,8,8,8,9,1,1,1,1,1,9,8,8,8,8,9,1,1,9,8
  461. Data 8,9,1,1,1,9,9,9,9,1,1,1,1,1,1,1,9,9,9,9,1,1,1,9,8
  462. Data 1,8,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,8,1
  463. Data 1,7,8,9,1,1,1,1,1,7,7,7,7,7,7,7,1,1,1,1,1,9,8,7,1
  464. Data 1,7,7,8,9,1,1,1,1,7,4,4,4,4,4,7,1,1,1,1,9,8,7,7,1
  465. Data 1,7,7,7,8,9,1,1,1,7,4,1,1,1,4,7,1,1,1,9,8,7,7,7,1
  466. Data 1,7,7,7,7,8,9,1,1,7,4,1,1,1,4,7,1,1,9,8,7,7,7,7,1
  467. Data 1,7,7,7,8,9,1,1,1,7,4,1,1,1,4,7,1,1,1,9,8,7,7,7,1
  468. Data 1,7,7,8,9,1,1,1,1,7,4,4,4,4,4,7,1,1,1,1,9,8,7,7,1
  469. Data 1,7,8,9,1,1,1,1,1,7,7,7,7,7,7,7,1,1,1,1,1,9,8,7,1
  470. Data 1,8,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,8,1
  471. Data 8,9,1,1,1,9,9,9,9,1,1,1,1,1,1,1,9,9,9,9,1,1,1,9,8
  472. Data 8,9,1,1,9,8,8,8,8,9,1,1,1,1,1,9,8,8,8,8,9,1,1,9,8
  473. Data 8,9,9,9,8,1,1,1,1,8,9,9,9,9,9,8,1,1,1,1,8,9,9,9,8
  474. Data 8,8,8,8,1,1,1,1,1,1,8,8,8,8,8,1,1,1,1,1,1,8,8,8,8
  475. Data 224
  476. '
  477. 1005
  478. Data 8,8,8,8,8,8,8,1,1,1,1,1,2,1,1,1,1,1,8,8,8,8,8,8,8
  479. Data 8,1,1,1,1,1,1,8,1,1,1,2,2,2,1,1,1,8,1,1,1,1,1,1,8
  480. Data 8,1,6,6,6,1,1,1,8,1,1,2,2,2,1,1,8,1,1,1,6,6,6,1,8
  481. Data 8,1,6,2,2,6,1,1,1,8,1,2,2,2,1,8,1,1,1,6,2,2,6,1,8
  482. Data 8,1,6,2,2,2,6,1,1,1,8,2,2,2,8,1,1,1,6,2,2,2,6,1,8
  483. Data 8,1,1,6,2,2,6,1,1,1,1,8,2,8,1,1,1,1,6,2,2,6,1,1,8
  484. Data 1,8,1,1,6,6,6,1,1,1,1,1,8,1,1,1,1,1,6,6,6,1,1,8,1
  485. Data 1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1
  486. Data 1,1,1,8,1,5,5,5,5,1,1,1,1,1,1,1,5,5,5,5,1,8,1,1,1
  487. Data 1,1,8,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1
  488. Data 1,8,1,1,6,6,6,1,1,1,1,1,8,1,1,1,1,1,6,6,6,1,1,8,1
  489. Data 8,1,1,6,2,2,6,1,1,1,1,8,2,8,1,1,1,1,6,2,2,6,1,1,8
  490. Data 8,1,6,2,2,2,6,1,1,1,8,2,2,2,8,1,1,1,6,2,2,2,6,1,8
  491. Data 8,1,6,2,2,6,1,1,1,8,1,2,2,2,1,8,1,1,1,6,2,2,6,1,8
  492. Data 8,1,6,6,6,1,1,1,8,1,1,2,2,2,1,1,8,1,1,1,6,6,6,1,8
  493. Data 8,1,1,1,1,1,1,8,1,1,1,2,2,2,1,1,1,8,1,1,1,1,1,1,8
  494. Data 8,8,8,8,8,8,8,1,1,1,1,1,2,1,1,1,1,1,8,8,8,8,8,8,8
  495. Data 192
  496. '
  497. 1006
  498. Data 1,4,4,4,4,4,4,4,1,1,1,4,4,4,1,1,4,4,4,1,1,1,4,4,4
  499. Data 4,9,9,9,9,9,9,9,4,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  500. Data 4,9,4,4,4,4,4,9,4,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  501. Data 4,9,4,1,1,1,4,4,4,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  502. Data 4,9,4,1,1,1,1,1,1,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  503. Data 4,9,4,1,1,1,1,1,1,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  504. Data 1,4,9,4,1,1,1,1,1,1,1,4,9,4,1,1,1,4,9,4,1,4,9,4,1
  505. Data 1,1,4,9,4,1,1,1,1,1,1,4,9,4,1,1,1,1,4,9,4,9,4,1,1
  506. Data 1,1,1,4,9,4,1,1,1,1,1,4,1,4,1,1,1,1,1,4,9,4,1,1,1
  507. Data 1,1,1,1,4,9,4,1,1,1,1,4,9,4,1,1,1,1,4,9,4,9,4,1,1
  508. Data 1,1,1,1,1,4,9,4,1,1,1,4,9,4,1,1,1,4,9,4,1,4,9,4,1
  509. Data 1,1,1,1,1,1,4,9,4,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  510. Data 1,1,1,1,1,1,4,9,4,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  511. Data 4,4,4,1,1,1,4,9,4,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  512. Data 4,9,4,4,4,4,4,9,4,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  513. Data 4,9,9,9,9,9,9,9,4,1,1,4,9,4,1,1,4,9,4,1,1,1,4,9,4
  514. Data 1,4,4,4,4,4,4,4,1,1,1,4,4,4,1,1,4,4,4,1,1,1,4,4,4
  515. Data 236
  516. '
  517. 1007
  518. Data 5,5,5,5,5,5,5,5,5,1,1,1,6,1,1,1,5,5,5,5,5,5,5,5,5
  519. Data 5,4,4,4,4,4,4,5,1,1,1,6,1,6,1,1,1,5,4,4,4,4,4,4,5
  520. Data 5,5,5,5,5,5,5,1,1,1,6,1,1,1,6,1,1,1,5,5,5,5,5,5,5
  521. Data 1,1,1,1,1,1,1,1,1,6,1,1,6,1,1,6,1,1,1,1,1,1,1,1,1
  522. Data 6,6,6,6,6,6,6,6,6,1,1,6,1,6,1,1,6,6,6,6,6,6,6,6,6
  523. Data 1,6,1,1,1,1,1,1,1,1,6,1,5,1,6,1,1,1,1,1,1,1,1,6,1
  524. Data 1,1,6,1,1,1,1,1,1,6,1,5,1,5,1,6,1,1,1,1,1,1,6,1,1
  525. Data 1,1,1,6,1,1,1,1,6,1,5,5,5,5,5,1,6,1,1,1,1,6,1,1,1
  526. Data 1,1,1,1,6,1,1,6,1,5,1,1,1,1,1,5,1,6,1,1,6,1,1,1,1
  527. Data 1,1,1,6,1,1,1,1,6,1,5,5,5,5,5,1,6,1,1,1,1,6,1,1,1
  528. Data 1,1,6,1,1,1,1,1,1,6,1,5,1,5,1,6,1,1,1,1,1,1,6,1,1
  529. Data 1,6,1,1,1,1,1,1,1,1,6,1,5,1,6,1,1,1,1,1,1,1,1,6,1
  530. Data 6,6,6,6,6,6,6,6,6,1,1,6,1,6,1,1,6,6,6,6,6,6,6,6,6
  531. Data 1,1,1,1,1,1,1,1,1,6,1,1,6,1,1,6,1,1,1,1,1,1,1,1,1
  532. Data 5,5,5,5,5,5,5,1,1,1,6,1,1,1,6,1,1,1,5,5,5,5,5,5,5
  533. Data 5,4,4,4,4,4,4,5,1,1,1,6,1,6,1,1,1,5,4,4,4,4,4,4,5
  534. Data 5,5,5,5,5,5,5,5,5,1,1,1,6,1,1,1,5,5,5,5,5,5,5,5,5
  535. Data 198
  536. '
  537. 1008
  538. 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
  539. Data 1,6,1,1,6,1,1,6,6,6,1,1,6,1,1,1,1,6,6,6,1,1,1,6,1
  540. Data 1,6,1,1,6,1,1,6,1,1,1,1,6,1,1,1,1,6,1,1,6,1,1,6,1
  541. Data 1,6,6,6,6,1,1,6,6,1,1,1,6,1,1,1,1,6,6,6,1,1,1,6,1
  542. Data 1,6,1,1,6,1,1,6,1,1,1,1,6,1,1,1,1,6,1,1,1,1,1,1,1
  543. Data 1,6,1,1,6,1,1,6,6,6,1,1,6,6,6,1,1,6,1,1,1,1,1,6,1
  544. 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
  545. Data 1,1,1,2,2,2,3,1,1,1,1,1,1,1,1,1,1,1,3,2,2,2,1,1,1
  546. Data 1,1,2,2,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,3,2,2,2,1,1
  547. Data 1,2,2,2,3,1,1,4,4,1,1,2,2,2,1,1,4,4,1,1,3,2,2,2,1
  548. Data 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
  549. Data 1,1,1,4,4,4,4,1,1,1,1,3,2,3,1,1,1,1,4,4,4,4,1,1,1
  550. Data 1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1
  551. Data 1,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1
  552. Data 1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1
  553. Data 1,1,1,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1
  554. 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
  555. Data 180
  556. '
  557. 1009
  558. Data 4,1,4,1,4,1,4,1,4,1,1,1,1,1,1,1,4,1,4,1,4,1,4,1,4
  559. 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
  560. Data 4,1,4,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,4,1,4
  561. Data 1,1,1,1,1,1,1,1,1,1,1,4,4,4,1,1,8,1,1,1,1,1,1,1,1
  562. Data 4,1,4,1,1,1,1,1,8,1,4,4,9,4,4,8,8,8,1,1,1,1,4,1,4
  563. Data 1,1,1,1,1,1,1,8,8,8,1,4,9,4,8,8,4,8,8,1,1,1,1,1,1
  564. Data 4,1,1,9,9,9,9,8,4,8,8,4,4,2,1,8,8,8,9,9,9,9,1,1,4
  565. Data 1,1,1,9,4,4,9,8,8,8,1,1,2,1,2,1,2,1,9,4,4,9,1,1,1
  566. Data 4,1,1,9,4,2,9,1,2,1,1,2,1,1,2,1,2,1,9,2,4,9,1,1,4
  567. Data 1,1,1,9,9,9,2,1,1,2,1,2,1,1,2,2,1,1,2,9,9,9,1,1,1
  568. Data 1,1,1,1,1,1,1,2,1,1,2,2,1,1,2,2,1,2,1,1,1,1,1,1,1
  569. Data 1,1,1,1,1,1,1,1,2,1,2,2,1,1,2,2,2,1,1,1,1,1,1,1,1
  570. Data 1,1,1,1,1,1,1,1,2,1,2,2,1,1,2,2,2,1,1,1,1,1,1,1,1
  571. Data 1,1,1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1
  572. Data 1,1,2,2,1,1,1,1,6,6,6,6,6,6,6,6,6,1,1,1,1,2,2,1,1
  573. Data 1,1,1,1,2,2,1,1,1,6,6,6,6,6,6,6,1,1,2,1,1,1,1,1,1
  574. Data 2,2,1,2,1,1,1,1,1,1,6,6,6,6,6,1,1,1,1,2,2,1,2,1,2
  575. Data 169
  576. '
  577. 1010
  578. Data 2,2,2,1,7,7,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2
  579. Data 2,1,1,1,7,7,1,9,9,9,9,1,1,1,9,9,9,9,1,1,1,1,2,2,2
  580. Data 2,1,1,1,7,1,7,9,9,9,9,9,1,9,9,9,9,9,9,1,1,1,1,2,2
  581. Data 1,1,1,1,1,9,9,7,9,9,9,9,9,9,2,2,2,9,9,9,1,1,1,1,2
  582. Data 1,1,1,1,9,9,9,9,7,9,9,9,9,9,2,9,9,9,9,9,9,1,1,1,1
  583. Data 1,1,1,1,9,9,9,9,9,7,9,9,9,9,2,2,9,9,9,9,9,1,1,1,1
  584. Data 1,1,1,1,9,9,9,9,9,9,7,9,9,9,2,9,9,9,9,9,9,1,1,1,1
  585. Data 1,1,1,1,9,9,9,9,9,9,9,7,9,9,2,2,2,9,9,9,9,1,1,1,1
  586. Data 1,1,1,1,1,9,9,9,9,9,9,9,1,9,9,9,9,9,9,9,1,1,1,1,1
  587. Data 1,1,1,1,1,1,9,9,9,9,9,9,9,7,9,9,9,9,9,1,1,1,1,1,1
  588. Data 1,1,1,1,1,1,1,9,9,9,9,9,9,9,7,9,9,9,1,1,1,1,1,1,1
  589. Data 1,1,1,1,1,1,1,1,9,9,9,9,9,9,9,7,9,1,1,1,1,1,1,1,1
  590. Data 1,2,1,1,1,1,1,1,1,9,9,9,9,9,9,9,7,1,1,1,1,1,1,1,1
  591. Data 1,2,2,1,1,1,1,1,1,1,9,9,9,9,9,1,1,7,7,7,7,1,1,1,1
  592. Data 1,2,2,2,1,1,1,1,1,1,1,9,9,9,1,1,1,7,7,7,1,1,1,2,1
  593. Data 1,2,2,2,2,1,1,1,1,1,1,1,9,1,1,1,1,7,7,7,1,1,1,2,1
  594. Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,7,1,1,1,2,2,2,1
  595. Data 214