home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG159.ARC / MAZE.LBR / THEEND.MZC / THEEND.MAC
Text File  |  1979-12-31  |  14KB  |  588 lines
  1. EXT    INTFLG,size,start,wait
  2.  
  3. THEEND::
  4.     ld    c,5
  5.     call    wait
  6.     lD    A,(INTFLG)
  7.     OR    A
  8. ;    JP    Z,BORING
  9.     LD    HL,0FA00h    ;Warp out.
  10.     LD    B,10H
  11.     CALL    WTSCRP
  12. LOOP:    LD    (HL),0
  13.     INC    HL
  14.     DJNZ    LOOP
  15.     LD    HL,0F000H
  16.     LD    DE,010H
  17.     LD    C,010H
  18.     CALL    WTSCRP
  19.     LD    A,020H
  20. LOOP1:    LD    B,030H
  21. LOOP2:    CP    (HL)
  22.     JR    NZ,JUMP
  23.     LD    (HL),0a0h
  24. JUMP:    INC    HL
  25.     DJNZ    LOOP2
  26.     ADD    HL,DE
  27.     DEC    C
  28.     JR    NZ,LOOP1
  29.     CALL    WTSCRN
  30.     LD    HL,TELMES
  31.     LD    DE,0F391H
  32.     LD    BC,0EH
  33.     LDIR
  34.     LD    HL,0F800H
  35.     LD    DE,BUFFA
  36.     LD    BC,00210H
  37.     CALL    WTSCRP
  38.     LDIR
  39.     LD    HL,FAZTAB
  40.     LD    (FAZPOS),HL
  41.     LD    E,040H
  42. LOOP3:    LD    HL,BUFFA
  43.     LD    C,042H
  44.     PUSH    DE
  45. LOOP4:    LD    B,8
  46.     LD    DE,(FAZPOS)
  47. LOOP5:    LD    A,(DE)
  48.     INC    DE
  49.     OR    (HL)
  50.     LD    (HL),A
  51.     INC    HL
  52.     DJNZ    LOOP5
  53.     DEC    C
  54.     JR    NZ,LOOP4
  55.     LD    (FAZPOS),DE
  56.     LD    HL,BUFFA
  57.     LD    DE,0F800H
  58.     LD    BC,00210H
  59.     CALL    WTSCRP
  60.     LDIR
  61.     POP    DE
  62.     DEC    E
  63.     JR    NZ,LOOP3
  64.     LD    HL,0F000H
  65.     LD    DE,010H
  66.     LD    C,E
  67.     CALL    WTSCRP
  68. LOOPE1:    LD    B,030H
  69. LOOPE2:    LD    (HL),080H
  70.     INC    HL
  71.     DJNZ    LOOPE2
  72.     ADD    HL,DE
  73.     DEC    C
  74.     JR    NZ,LOOPE1
  75. ;Place alian
  76.     LD    A,88H
  77.     LD    HL,0F0E6H
  78.     LD    B,7
  79. LOOPQ0:    LD    (HL),A
  80.     INC    A
  81.     INC    HL
  82.     DJNZ    LOOPQ0
  83.     LD    HL,0F126H
  84.     LD    B,8
  85. LOOPQ1:    LD    (HL),A
  86.     INC    A
  87.     INC    HL
  88.     DJNZ    LOOPQ1
  89.     LD    HL,0F165H
  90.     LD    B,9
  91. LOOPQ2:    LD    (HL),A
  92.     INC    HL
  93.     INC    A
  94.     DJNZ    LOOPQ2
  95. ;Convert size into an integer from one to five.
  96.     ld    a,(size)
  97.     sub    2
  98.     ld    (size),a
  99. ;Size = 1 ?
  100.     LD    A,(SIZE)
  101.     CP    1
  102.     JR    Z,SIZE1
  103. ;Place horizon PGC.
  104.     LD    A,080H    ;First PGC
  105.     LD    DE,010H
  106.     LD    HL,0F200H
  107.     LD    C,8
  108. LOOPE3:    LD    B,030H
  109. LOOPE4:    LD    (HL),A
  110.     INC    L
  111.     DJNZ    LOOPE4
  112.     ADD    HL,DE
  113.     INC    A
  114.     DEC    C
  115.     JR    NZ,LOOPE3
  116. SIZE1:    LD    HL,TELMES
  117.     LD    DE,0F391H
  118.     LD    BC,0EH
  119.     LDIR
  120. ;Warp in.
  121.     LD    HL,FAZTAB+1FFH
  122.     EXX
  123.     LD    B,40H
  124. LOOPE5:    LD    DE,BUFFA
  125.     LD    HL,PGC2B
  126.     EXX
  127.     LD    C,40H
  128.     LD    D,H
  129.     LD    E,L
  130. LOOPE6:    LD    B,8H
  131.     LD    H,D
  132.     LD    L,E
  133. LOOPE7:    LD    A,(HL)
  134.     DEC    HL
  135.     EXX
  136.     OR    (HL)
  137.     INC    HL
  138.     LD    (DE),A
  139.     INC    DE
  140.     EXX
  141.     DJNZ    LOOPE7
  142.     DEC    C
  143.     JR    NZ,LOOPE6
  144.     EXX
  145.     PUSH    BC
  146.     LD    BC,0200H
  147.     LD    DE,0F800H
  148.     LD    HL,BUFFA
  149.     CALL    WTSCRP
  150.     LDIR
  151.     POP    BC
  152.     DJNZ    LOOPE5
  153.     LD    BC,0290H
  154.     LD    DE,0F800H
  155.     LD    HL,PGC2B
  156.     CALL    WTSCRP
  157.     LDIR
  158.     LD    A,(SIZE)
  159.     CP    1
  160.     LD    A,020H
  161.     JR    Z,JUMPQ0
  162.     LD    A,086H
  163. JUMPQ0:    LD    B,0EH
  164.     LD    HL,0F391H
  165. LOOPR9:    LD    (HL),A
  166.     INC    HL
  167.     DJNZ    LOOPR9
  168. ;Clear bubble
  169.     LD    HL,0FC00H
  170.     LD    BC,220H
  171.     CALL    WTSCRN
  172. LOOPR0:    LD    (HL),0
  173.     INC    HL
  174.     DEC    BC
  175.     LD    A,C
  176.     OR    B
  177.     JR    NZ,LOOPR0
  178. ;Clear buffa
  179.     LD    HL,BUFFA
  180.     LD    BC,0230H
  181. LOOPC0:    LD    (HL),0
  182.     INC    HL
  183.     DEC    BC
  184.     LD    A,B
  185.     OR    C
  186.     JR    NZ,LOOPC0
  187. ;2 Secound delay
  188.     LD    A,(SIZE)
  189.     XOR    5
  190.     LD    (BIGFLG),A
  191.     LD    B,08H
  192. LOOPR1:    PUSH    BC
  193.     CALL    SCROLL
  194.     POP    BC
  195.     DJNZ    LOOPR1
  196. ;Place bubble
  197.     LD    HL,0F081H
  198.     LD    (HL),0A0H
  199.     INC    L
  200.     LD    B,22H
  201. LOOPQ3:    LD    (HL),0A1H
  202.     INC    L
  203.     DJNZ    LOOPQ3
  204.     LD    (HL),0A2H
  205.     LD    HL,0F0C1H
  206.     LD    (HL),0A3H
  207.     INC    L
  208.     LD    A,0C0H
  209.     LD    B,22H
  210. LOOPQ4:    LD    (HL),A
  211.     INC    A
  212.     INC    L
  213.     DJNZ    LOOPQ4
  214.     LD    (HL),0A4H
  215.     LD    HL,0F101H
  216.     LD    (HL),0A5H
  217.     LD    B,22H
  218.     INC    L
  219. LOOPQ5:    LD    (HL),0A6H
  220.     INC    L
  221.     DJNZ    LOOPQ5
  222.     LD    (HL),0A7H
  223.     INC    L
  224.     LD    (HL),0A8H
  225.     LD    A,1
  226.     OUT    (0BH),A
  227.     LD    A,(SIZE)
  228.     LD    H,0
  229.     ADD    A,A
  230.     LD    L,A
  231.     LD    DE,TXPTTB-2
  232.     ADD    HL,DE
  233.     LD    E,(HL)
  234.     INC    HL
  235.     LD    D,(HL)
  236.     LD    (TXTPNT),DE
  237.     LD    A,(DE)
  238. LOOPE9:    LD    L,A
  239.     LD    H,0FH
  240.     ADD    HL,HL
  241.     ADD    HL,HL
  242.     INC    L
  243.     ADD    HL,HL
  244.     ADD    HL,HL
  245.     LD    DE,BUFFA+198H
  246.     LD    BC,00CH
  247.     LDIR
  248.     CALL    SCROLL
  249.     LD    HL,(TXTPNT)
  250.     INC    HL
  251.     LD    A,(HL)
  252.     LD    (TXTPNT),HL
  253.     OR    A
  254.     JR    NZ,LOOPE9
  255.     LD    B,022H
  256. LOOPE0:    PUSH    BC
  257.     CALL    SCROLL
  258.     POP    BC
  259.     DJNZ    LOOPE0
  260.     ld    c,30
  261.     call    wait
  262.     jp    start
  263. SCROLL:    LD    B,8
  264. LOOPS9:    PUSH    BC
  265.     LD    A,036H
  266.     CALL    KEY
  267.     JR    C,RDEND
  268.     LD    A,030H
  269.     CALL    KEY
  270.     JR    C,RDEND
  271.     LD    HL,BUFFA+198H    ;22H*0CH
  272.     LD    C,0CH
  273.     LD    DE,-0CH
  274. LOOPS1:    PUSH    HL
  275.     LD    B,11H
  276.     OR    A
  277.     RL    (HL)
  278.     EX    AF,AF'
  279.     ADD    HL,DE
  280.     EX    AF,AF'
  281. LOOPS2:    RL    (HL)
  282.     EX    AF,AF'
  283.     ADD    HL,DE
  284.     EX    AF,AF'
  285.     RL    (HL)
  286.     EX    AF,AF'
  287.     ADD    HL,DE
  288.     EX    AF,AF'
  289.     DJNZ    LOOPS2
  290.     POP    HL
  291.     INC    HL
  292.     DEC    C
  293.     JR    NZ,LOOPS1
  294.     LD    HL,BUFFA
  295.     LD    DE,0FC04H
  296.     CALL    WTSCRN
  297.     LD    A,023H
  298. LOOPZ0:    LD    BC,0CH
  299.     LDIR
  300.     INC    DE
  301.     INC    DE
  302.     INC    DE
  303.     INC    DE
  304.     DEC    A
  305.     JR    NZ,LOOPZ0
  306.     LD    A,(BIGFLG)
  307.     OR    A
  308.     CALL    Z,GROUND
  309.     POP    BC
  310.     DJNZ    LOOPS9
  311.     RET
  312. RDEND:    POP    HL
  313.     POP    HL
  314.     RET
  315. ;Ground scroll
  316. GROUND:    LD    A,(EVEN)
  317.     XOR    1
  318.     LD    (EVEN),A
  319.     JR    NZ,REAL
  320.     LD    HL,3410H
  321.     LD    DE,0F810H
  322.     LD    BC,070H
  323.     LDIR
  324.     RET
  325. ;The real bit.
  326. REAL:    LD    HL,03480H
  327.     LD    A,(OFFSET)
  328.     DEC    A
  329.     AND    0FH
  330.     LD    (OFFSET),A
  331.     LD    E,A
  332. DARK:    LD    A,E
  333.     ADD    A,08H
  334.     BIT    7,A
  335.     RET    NZ
  336.     LD    E,A
  337.     LD    D,1H
  338.     LD    A,08H
  339. LOOPG1:    ADD    A,A
  340.     SUB    E
  341.     JR    NC,JUMPG0
  342.     ADD    A,E
  343. JUMPG0:    RL    D
  344.     JR    NC,LOOPG1
  345.     LD    A,D
  346.     CPL
  347. LOOPG2:    CP    L
  348.     JR    NC,LIGHT
  349.     DEC    L
  350.     LD    (HL),055H
  351.     CP    L
  352.     JR    NC,LIGHT
  353.     DEC    L
  354.     LD    (HL),0AAH
  355.     JR    LOOPG2
  356. LIGHT:    LD    A,E
  357.     ADD    A,8
  358.     BIT    7,A
  359.     RET    NZ
  360.     LD    E,A
  361.     LD    D,1
  362.     LD    A,08H
  363. LOOPG3:    ADD    A,A
  364.     SUB    E
  365.     JR    NC,JUMPG1
  366.     ADD    A,E
  367. JUMPG1:    RL    D
  368.     JR    NC,LOOPG3
  369.     LD    A,D
  370.     CPL
  371. LOOPG4:    CP    L
  372.     JR    NC,DARK
  373.     DEC    L
  374.     LD    (HL),011H
  375.     CP    L
  376.     JR    NC,DARK
  377.     DEC    L
  378.     LD    (HL),44H
  379.     JR    LOOPG4
  380. OFFSET:    DB    0
  381. WTSCRP    DEFL    $
  382. LOOPP:    IN    A,(0CH)
  383.     BIT    5,A
  384.     JR    Z,LOOPP
  385. WTSCRN    DEFL    $
  386. LOOP6:    IN    A,(0CH)
  387.     BIT    5,A
  388.     JR    NZ,LOOP6
  389. LOOP7:    IN    A,(0CH)
  390.     BIT    5,A
  391.     JR    Z,LOOP7
  392.     RET
  393. KEY:    OR    A
  394.     RET
  395. FAZPOS:    DEFW    FAZTAB
  396. BIGFLG:    DEFB    01H
  397. EVEN:    DB    0H
  398. TXTPNT:    DW    00
  399. TXPTTB:    DW    TEXT1
  400.     DW    TEXT2
  401.     DW    TEXT3
  402.     DW    TEXT4
  403.     DW    TEXT5
  404. BUFFA    defl    03000H
  405. TELMES:    DEFM    ' Teleporting. '
  406. text1:    db    'Bravo.  You have just completed the esiest maze, well done.',0
  407. TEXT2:    DEFM    'Well done earth being. You have completed the second easist'
  408.     db    ' maze.'
  409.     DB    0
  410. text3:    db    'Good one mate.  You have completed the third hardest maze.  '
  411.     db    'Betya it wasn',27h,'t worth all that sweat and time just to see '
  412.     db    'this boaring message.',0
  413. text4:    db    '**** WOW **** you know that was some feat.  Just shows to go '
  414.     db    'you what time and effort is taken up by useless tasks.',0
  415. TEXT5:    DEFM    '*******    Great stuff kido.  You have just done the'
  416.     db    ' hardest, biggest maze.  I think that deserves a cup of tea'
  417.     db    ' or a chocky bicky or something.   *******'
  418.     DB    0
  419.  
  420. faztab:    db    000h,000h,000h,010h,000h,000h,000h,000h    ;||||||||
  421.     db    000h,000h,000h,018h,000h,000h,000h,000h    ;||||||||
  422.     db    000h,000h,000h,018h,008h,000h,000h,000h    ;||||||||
  423.     db    000h,000h,000h,018h,018h,000h,000h,000h    ;||||||||
  424.     db    000h,000h,000h,038h,018h,000h,000h,000h    ;|||8||||
  425.     db    000h,000h,000h,038h,038h,000h,000h,000h    ;|||88|||
  426.     db    000h,000h,010h,038h,038h,000h,000h,000h    ;|||88|||
  427.     db    000h,000h,010h,038h,038h,010h,000h,000h    ;|||88|||
  428.  
  429.     db    000h,000h,010h,03Ch,038h,010h,000h,000h    ;|||<8|||
  430.     db    000h,000h,010h,03Ch,03Ch,010h,000h,000h    ;|||<<|||
  431.     db    000h,000h,010h,03Ch,03Ch,010h,000h,000h    ;|||<<|||
  432.     db    000h,000h,018h,03Ch,03Ch,010h,000h,000h    ;|||<<|||
  433.     db    000h,000h,018h,03Ch,03Ch,018h,000h,000h    ;|||<<|||
  434.     db    000h,000h,01Ch,03Ch,03Ch,018h,000h,000h    ;|||<<|||
  435.     db    000h,000h,01Ch,03Ch,03Ch,038h,000h,000h    ;|||<<8||
  436.     db    000h,000h,01Ch,03Eh,03Ch,038h,000h,000h    ;|||><8||
  437.  
  438.     db    000h,000h,01Ch,03Eh,07Ch,038h,000h,000h    ;|||>|8||
  439.     db    000h,000h,01Ch,03Eh,07Ch,03Ch,000h,000h    ;|||>|<||
  440.     db    000h,000h,03Ch,03Eh,07Ch,03Ch,000h,000h    ;||<>|<||
  441.     db    000h,000h,03Ch,03Eh,07Eh,03Ch,000h,000h    ;||<>~<||
  442.     db    000h,000h,03Ch,07Eh,07Eh,03Ch,000h,000h    ;||<~~<||
  443.     db    000h,000h,03Ch,07Eh,07Eh,03Ch,008h,000h    ;||<~~<||
  444.     db    000h,010h,03Ch,07Eh,07Eh,03Ch,008h,000h    ;||<~~<||
  445.     db    000h,010h,03Ch,07Eh,07Eh,03Ch,018h,000h    ;||<~~<||
  446.  
  447.     db    000h,018h,03Ch,07Eh,07Eh,03Ch,018h,000h    ;||<~~<||
  448.     db    000h,018h,07Ch,07Eh,07Eh,03Ch,018h,000h    ;|||~~<||
  449.     db    000h,018h,07Ch,07Eh,07Eh,03Eh,018h,000h    ;|||~~>||
  450.     db    000h,018h,07Ch,07Eh,07Eh,07Eh,018h,000h    ;|||~~~||
  451.     db    000h,018h,07Eh,07Eh,07Eh,07Eh,018h,000h    ;||~~~~||
  452.     db    000h,018h,07Eh,07Eh,07Eh,07Eh,01Ch,000h    ;||~~~~||
  453.     db    000h,01Ch,07Eh,07Eh,07Eh,07Eh,01Ch,000h    ;||~~~~||
  454.     db    000h,01Ch,07Eh,07Eh,07Eh,07Eh,03Ch,000h    ;||~~~~<|
  455.  
  456.     db    000h,03Ch,07Eh,07Eh,07Eh,07Eh,03Ch,000h    ;|<~~~~<|
  457.     db    000h,03Ch,07Eh,0FEh,07Eh,07Eh,03Ch,000h    ;|<~|~~<|
  458.     db    000h,03Ch,07Eh,0FEh,07Fh,07Eh,03Ch,000h    ;|<~||~<|
  459.     db    000h,03Ch,07Eh,0FEh,0FFh,07Eh,03Ch,000h    ;|<~||~<|
  460.     db    000h,03Ch,07Eh,0FFh,0FFh,07Eh,03Ch,000h    ;|<~||~<|
  461.     db    000h,03Ch,07Eh,0FFh,0FFh,07Eh,03Ch,010h    ;|<~||~<|
  462.     db    008h,03Ch,07Eh,0FFh,0FFh,07Eh,03Ch,010h    ;|<~||~<|
  463.     db    018h,03Ch,07Eh,0FFh,0FFh,07Eh,03Ch,010h    ;|<~||~<|
  464.  
  465.     db    018h,03Ch,07Eh,0FFh,0FFh,07Eh,03Ch,018h    ;|<~||~<|
  466.     db    018h,03Ch,07Eh,0FFh,0FFh,07Fh,03Ch,018h    ;|<~|||<|
  467.     db    018h,03Ch,0FEh,0FFh,0FFh,0FFh,03Ch,018h    ;|<||||<|
  468.     db    018h,03Ch,0FFh,0FFh,0FFh,0FFh,03Ch,018h    ;|<||||<|
  469.     db    018h,03Ch,0FFh,0FFh,0FFh,0FFh,03Ch,038h    ;|<||||<8
  470.     db    01Ch,03Ch,0FFh,0FFh,0FFh,0FFh,03Ch,038h    ;|<||||<8
  471.     db    03Ch,03Ch,0FFh,0FFh,0FFh,0FFh,03Ch,038h    ;<<||||<8
  472.     db    03Ch,03Ch,0FFh,0FFh,0FFh,0FFh,03Ch,03Ch    ;<<||||<<
  473.  
  474.     db    03Ch,03Eh,0FFh,0FFh,0FFh,0FFh,03Ch,03Ch    ;<>||||<<
  475.     db    03Ch,03Eh,0FFh,0FFh,0FFh,0FFh,07Ch,03Ch    ;<>|||||<
  476.     db    03Ch,03Eh,0FFh,0FFh,0FFh,0FFh,07Eh,03Ch    ;<>||||~<
  477.     db    03Ch,07Eh,0FFh,0FFh,0FFh,0FFh,07Eh,03Ch    ;<~||||~<
  478.     db    03Ch,07Eh,0FFh,0FFh,0FFh,0FFh,07Fh,03Ch    ;<~|||||<
  479.     db    03Ch,0FEh,0FFh,0FFh,0FFh,0FFh,07Fh,03Ch    ;<||||||<
  480.     db    03Ch,0FEh,0FFh,0FFh,0FFh,0FFh,0FFh,03Ch    ;<||||||<
  481.     db    03Ch,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,03Ch    ;<||||||<
  482.  
  483.     db    03Ch,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,03Eh    ;<||||||>
  484.     db    07Ch,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,03Eh    ;|||||||>
  485.     db    07Eh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,03Eh    ;~||||||>
  486.     db    07Eh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,07Eh    ;~||||||~
  487.     db    07Eh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FEh    ;~|||||||
  488.     db    07Eh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh    ;~|||||||
  489.     db    07Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh    ;||||||||
  490.     db    0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh    ;||||||||
  491.  
  492.  
  493. pgc2b:    db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  494.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  495.     db    0AAh,055h,011h,0AAh,055h,044h,011h,0AAh    ;|U||UD||
  496.     db    055h,011h,044h,011h,055h,0AAh,055h,044h    ;U|D|U|UD
  497.     db    011h,044h,011h,0AAh,055h,0AAh,055h,0AAh    ;|D||U|U|
  498.     db    055h,044h,011h,044h,011h,044h,011h,044h    ;UD|D|D|D
  499.     db    011h,055h,0AAh,055h,0AAh,055h,0AAh,055h    ;|U|U|U|U
  500.     db    0AAh,055h,0AAh,055h,0AAh,055h,011h,044h    ;|U|U|U|D
  501.  
  502.     db    011h,044h,011h,044h,011h,044h,011h,044h    ;|D|D|D|D
  503.     db    011h,044h,011h,044h,011h,044h,011h,044h    ;|D|D|D|D
  504.     db    011h,055h,0AAh,055h,0AAh,055h,0AAh,055h    ;|U|U|U|U
  505.     db    0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h    ;|U|U|U|U
  506.     db    0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h    ;|U|U|U|U
  507.     db    0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h    ;|U|U|U|U
  508.     db    0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h    ;|U|U|U|U
  509.     db    044h,011h,044h,011h,044h,011h,044h,011h    ;D|D|D|D|
  510.  
  511.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  512.     db    000h,000h,000h,000h,000h,0C0h,0A0h,058h    ;|||||||X
  513.     db    007h,018h,020h,040h,040h,080h,080h,080h    ;|||@@|||
  514.     db    040h,058h,034h,01Ah,00Dh,002h,002h,001h    ;@X4|||||
  515.     db    0E0h,01Ch,003h,000h,000h,000h,000h,000h    ;||||||||
  516.     db    000h,000h,000h,000h,000h,080h,0C0h,070h    ;|||||||p
  517.     db    000h,000h,000h,080h,040h,020h,010h,011h    ;||||@|||
  518.     db    00Ah,00Ch,018h,010h,010h,020h,020h,020h    ;||||||||
  519.  
  520.     db    000h,000h,003h,00Ch,010h,060h,080h,000h    ;|||||`||
  521.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  522.     db    000h,0FEh,001h,000h,000h,000h,000h,000h    ;||||||||
  523.     db    000h,000h,000h,000h,000h,000h,000h,003h    ;||||||||
  524.     db    000h,000h,080h,040h,020h,020h,010h,010h    ;|||@||||
  525.     db    010h,010h,010h,020h,020h,040h,080h,000h    ;|||||@||
  526.     db    024h,01Ah,00Ah,005h,003h,002h,002h,002h    ;$|||||||
  527.     db    004h,008h,009h,008h,004h,00Bh,034h,0C8h    ;||||||4|
  528.  
  529.     db    001h,00Fh,070h,080h,018h,020h,00Ch,012h    ;||p|||||
  530.     db    00Ch,081h,081h,070h,01Fh,007h,0E0h,01Fh    ;|||p||||
  531.     db    048h,076h,00Dh,0E2h,001h,060h,090h,062h    ;Hv|||`|b
  532.     db    001h,082h,08Ch,030h,0E1h,0CFh,03Fh,0EFh    ;|||0||?|
  533.     db    040h,040h,040h,0C0h,0C0h,030h,00Bh,004h    ;@@@||0||
  534.     db    084h,008h,030h,0C0h,0E0h,0E0h,0E1h,0A1h    ;||0|||||
  535.     db    000h,000h,000h,001h,00Fh,07Ch,0F8h,0F8h    ;||||||||
  536.     db    07Ch,07Ch,07Ch,07Ch,0F8h,0F8h,0F0h,0F0h    ;||||||||
  537.  
  538.     db    004h,018h,060h,080h,0FFh,01Fh,01Fh,00Fh    ;||`|||||
  539.     db    00Fh,00Fh,00Fh,00Fh,01Fh,01Fh,01Fh,03Eh    ;|||||||>
  540.     db    000h,000h,000h,000h,000h,0F0h,00Eh,087h    ;||||||||
  541.     db    083h,083h,083h,083h,003h,003h,003h,007h    ;||||||||
  542.     db    000h,000h,000h,000h,000h,000h,000h,0C0h    ;||||||||
  543.     db    0F0h,0C8h,0E4h,0E2h,0E2h,0E1h,0E1h,0C1h    ;||||||||
  544.     db    00Fh,030h,040h,083h,092h,06Ch,000h,000h    ;|0@||l||
  545.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  546.  
  547.     db    0B0h,0C0h,080h,000h,007h,018h,020h,022h    ;|||||||"
  548.     db    01Ch,003h,000h,000h,000h,000h,000h,000h    ;||||||||
  549.     db    000h,000h,003h,004h,0CEh,033h,001h,001h    ;|||||3||
  550.     db    09Eh,060h,000h,000h,000h,000h,000h,000h    ;|`||||||
  551.     db    048h,090h,020h,040h,080h,000h,000h,000h    ;H||@||||
  552.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  553.     db    01Bh,007h,001h,002h,002h,002h,004h,004h    ;||||||||
  554.     db    004h,004h,004h,004h,003h,000h,000h,000h    ;||||||||
  555.  
  556.     db    0E0h,0A0h,0A0h,0B8h,097h,0D0h,0C8h,0A8h    ;||||||||
  557.     db    0A7h,0B0h,0CFh,01Ch,0E4h,002h,002h,001h    ;||||||||
  558.     db    03Eh,07Ch,0F8h,0F8h,0F0h,0F0h,00Fh,018h    ;>|||||||
  559.     db    0E4h,064h,0C4h,062h,062h,0A2h,092h,014h    ;|d|bb|||
  560.     db    007h,00Fh,00Fh,01Fh,03Fh,03Eh,0C0h,000h    ;||||?>||
  561.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  562.     db    0C2h,084h,088h,030h,0C0h,000h,000h,000h    ;|||0||||
  563.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  564.  
  565.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  566.     db    000h,000h,000h,00Fh,030h,040h,040h,080h    ;||||0@@|
  567.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  568.     db    000h,000h,000h,0FFh,000h,000h,000h,000h    ;||||||||
  569.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  570.     db    000h,000h,000h,0F0h,00Ch,002h,002h,001h    ;||||||||
  571.     db    080h,080h,080h,080h,080h,080h,080h,080h    ;||||||||
  572.     db    080h,080h,080h,080h,080h,080h,080h,080h    ;||||||||
  573.  
  574.     db    001h,001h,001h,001h,001h,001h,001h,001h    ;||||||||
  575.     db    001h,001h,001h,001h,001h,001h,001h,001h    ;||||||||
  576.     db    080h,040h,040h,030h,00Fh,000h,000h,000h    ;|@@0||||
  577.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  578.     db    000h,000h,000h,000h,0FFh,000h,000h,000h    ;||||||||
  579.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  580.     db    001h,001h,001h,001h,0F1h,00Ch,002h,001h    ;||||||||
  581.     db    000h,000h,000h,000h,000h,000h,000h,000h    ;||||||||
  582.  
  583.     db    000h,000h,000h,000h,000h,080h,040h,0B0h    ;||||||@|
  584.     db    07Ch,00Fh,000h,000h,000h,000h,000h,000h    ;||||||||
  585.  
  586. BORING:    RET
  587.     END
  588.