       NAM DUNKEY MUNKEY
       ORG 512*5+6144+6144
*      HARVEY BROFMAN, 6-24-82

*(C)1982, HARVEY BROFMAN
*         INTELLECTRONICS

*DATA
DIRECT RMB 1
MARIOD RMB 1
MARIO  RMB 2
MARIOM RMB 1
MARIOV RMB 1
MARIOX RMB 1
MARIOY RMB 1
MRIOTC RMB 2
MRIOBC RMB 2
POINTX RMB 1
POINTY RMB 1
LADRTP RMB 2
LADRBT RMB 2
LASTNW RMB 1
SEED   RMB 1
CLIMB  RMB 1
ARBORN RMB 1
JTOP   RMB 1
JBOTOM RMB 1
DOWN   RMB 1
PLAY   RMB 1
MARIOS RMB 1
CLICK  RMB 1
POP    RMB 1
JSCOB  RMB 1
MOVED  RMB 1
MONKEY RMB 2
RIVETS RMB 9
TOOKUM RMB 1
TOOKBC RMB 1
TOOKRB RMB 1
TOOKFE RMB 1
TOOKPH RMB 1
FIRETM RMB 1
ELVATE RMB 1
BONCED RMB 1
BLOW   RMB 2
NUMBER RMB 7

*FIRE TABLE FOR SECOND SCREEN
*EACH ENTRY IS IN THE FORM:
*
*      +0 X COORDINATE OF FIRE
*      +1 Y COORDINATE OF FIRE
*      +2 DIRECTION CODE FOR MOVE
*      +3 ENEMY DELAY TIME
*      +4 CLIMB FLAG ON OR OFF LADDER
*      +5 LADDER TOP X COORDINATE
*      +6 LADDER TOP Y COORDINATE
*      +7 LADDER BOTTOM X
*      +8 LADDER BOTTOM Y
*
ENMYTB RMB 6*11
ETABOT EQU *

BDELAY RMB 1
BARELS RMB 1
ENEMYS RMB 2
LTIMER RMB 1
MRIOAB RMB 1
EDELAY RMB 1
ELEVD  RMB 1
ELEVY  RMB 1
ELEVT  RMB 1

       RMB 70
STACK

       PAGE
SCORE  FCB 1,1
       FCB 2,2
       FCB YL
       BSZ 6

*TABLES FOR EACH GAME SUBROUTINE
GAMES  FDB SCREN2,SCREN2
       FDB SCREN3,SCREN3

BEGIN  FCB 160,135,110,85

*CONSTANTS
GR     EQU 0
*YL     EQU 85
*BL     EQU 170
*RD     EQU 255
RD     EQU 85
YL     EQU 255
BL     EQU 170

SCRSTA EQU 512*5 GRAPHICS PAGE 5
BACGRN EQU 512*5+6144 BACKGROUND
CLOCK  EQU 275 SYSTEM SOFTWARE CLOC (60TH'S SEC)
S2KONG EQU 56*256+44 KONG POSITION FOR SCREEN 2
S3KONG EQU 22*256+44 KONG POSITION FOR SCREEN 1
STDELA EQU 9 STARTING DELAY TIME

       PAGE
*GAME ENTRY POINT
DUNKY  JSR SETUP
MUNKY  LDS #STACK
       LDA #1
       STA SIZEX
       STA SIZEY
       LDA #GR
       STA BACG
       CLR CLICK
       CLR PLAY
       CLR LASTNW
PATC   LDA #STDELA
       STA EDELAY
       CLR CLIMB
       CLR ARBORN
       CLR MARIOV
       LDA #3
       STA MARIOS
       LDX #SCORE
       LDY #0
       STY 5,X
       STY 7,X
       STY 9,X
       STY DELAY CLEAR WRITE DELAY
       JSR CLEAR
       LDY #KONG1
       LDD #2*256+190
       JSR SHAPE
       LDY #MARIOL
       LDD #119*256+190
       JSR SHAPE
       LDA #YL
       STA FORG
       LDY #TITLE
       LDX #0+256+4
       LDA #3
       STA SIZEX
       LDA #5
       STA SIZEY
       JSR WRITE
       LDY #CRITE
       LDX #0*256+120
       JSR WRITE
       LDY #HTSP1 SPACE TO BEGIN
       LDX #30*256+170
       JSR WRITE
       LDY #HTSP2
       LDX #30*256+180
       JSR WRITE
       LDD #SOFT
       STD VOLUME
       LDX #FSA
H@     CMPX #FSAEND
       BLT I@
       LDX #20000
       JSR HOLD
       LDX #FSA
I@     JSR NOTE
       DEC SEED
       LDA $FF00
       LSRA
       BCS H@

       PAGE
START  JSR CLEARB CLIMB SCREEN
       LDY #GIRDER
A@     LDD #30
C@     LDA #25
       STA C0
       CLRA
B@     JSR BSHAPE
       ADDA #5
       DEC C0
       BNE B@
       ADDB #30
       CMPB #190
       BLS C@
       LDY #LADH
       LDA #16
       STA C0
       LDD #40*256+185
D@     JSR BSHAPE
       SUBB #10
       DEC C0
       BNE D@
       LDY #PIANO
       LDD #58*256+22
       JSR BSHAPE
       JSR COPYBF
       LDD #LOUD
       STD VOLUME
       LDX #BFIFTH
       LDY #4000
       INC JBFLAG ALLOW JUMP BACK
       JSR SONDSL
       LDX #20000
       JSR HOLD
       CLR C0
       LDD #MUFF
       STD VOLUME
       LDA #150
       STA $8C
       LDY #KONG2
       LDD #39*256+190
       JSR SHAPE
E@     LDX #4000
       JSR HOLD
       PSH A
       LDA $FF00
       LSRA
       PUL A
       LBCC NEXTSC
       INC C0
       PSH A
       LDA C0
       ANDA #3
       LSLA
       LDX #KONGC
       LDY A,X
       PUL A
       LDX #0*256+6
       JSR MOVE
       SUBB #6
       PSH D A NOTE EACH STEP
       LDA PITCH
       ADDA #3
       STA PITCH
       LDB #2
       JSR SOUND
       PUL D
       CMPB #23
       BHS E@
       LDY #KONG1
       JSR SHAPE
       PSH D
       LDY #GIRL
       LDD #25*256+22
       JSR SHAPE
       PUL D
       LDX #30000
       JSR HOLD
       LDY #KONG5
       JSR SHAPE
       LDX #30000
       JSR HOLD
       PSH D
       LDD #MEDI
       STD VOLUME
       LDA #2
       STA T0
G@     LDX #LEADIN
       CLR C0
       LDU #ARMS
       LDD #52*256+16
F@     PSH X,D
       INC C0
       LDA C0
       ANDA #3
       LSLA
       LDX #ARMS
       LDY A,X
       PUL X,D
       JSR SHAPE
       PSH A
       LDA $FF00
       LSRA
       PUL A
       BCC NEXTSC
       JSR NOTE
       CMPX #LEADND
       BLT F@
       DEC T0
       BNE G@
       LDD #52*256+16
       LDY #KAR1
       JSR ERASE
       PUL D
       LDY #KONG1
       JSR SHAPE
       LDX #40000
       JSR HOLD

       PAGE
NEXTSC LDA PLAY CHECK IF 3RD SCREEN TO INC SPEED
       ANDA #3
       BNE REPLAY
       LDA EDELAY
       CMPA #1
       BLS REPLAY *DONE 11/03
       DECA
       STA EDELAY
REPLAY LDS #STACK
       JSR CLEAR CLEAR SCREEN
       LDA PLAY
       LDX #BEGIN
       LDY #KONG1
       ANDA #3
       CMPA #3
       BNE INTRO
       INC PLAY
       CLRA
INTRO  PSH A
       LDB A,X
       LDA #98
       JSR SHAPE
       PUL A
       DECA
       BGE INTRO
       LDA #BL
       STA FORG
       LDA PLAY
       ANDA #3
A@     PSH A
       LSLA
       LDX #HEIGHT
       LDY A,X
       PUL A
       PSH A
       LDX #BEGIN
       LDB A,X
       SUBB #9
       LDA #3
       TFR D,X
       CLR DELAY
       CLR DELAY+1
       JSR WRITE
       PUL A
       DECA
       BGE A@
       LDA #RD
       STA FORG
       LDY #HOW
       LDX #0*256+170
       JSR WRITE
       LDD #LOUD
       STD VOLUME
       LDX #HALL
       LDY #500
       INC JBFLAG ALLOW BUTTON PRESS TO JUMP BACK
       JSR SONDSL
       LDY #ENMYTB
       STY ENEMYS
B@     CLR ,Y+
       CMPY #ETABOT
       BLT B@
       LDA PLAY
       ANDA #3
       LSLA
       INC PLAY
       LDY #GAMES
       JMP [A,Y]

       INCL SCREN2
       INCL SCREN3

       PAGE
*FALL DOWN DEAD
FALLDP PUL D PULL LAST PUSH ADDR
FALLDD LDY MARIO MARIO FALLS DOWN AND DIES
       LDX #1*256+1
       LDD MARIOX
B@     ADDA #4
       INCB
       JSR READPX
       CMPA #GR IF<>GREEN THEN DEAD
       BNE A@
       CMPB #191
       BHS A@ IF>=191, DEAD
       LDD MARIOX
       JSR MOVE
       INCB
       STD MARIOX
       BRA B@
A@     LDD MARIOX
       JSR ERASE
       LDY #MARIOE *EXTINCT*
       JSR SHAPE
       LDD #MEDI
       STD VOLUME
       LDX #MDIED
       LDY #20
       JSR SONDSL
       LDX #50000
       JSR HOLD
       DEC PLAY PLAY IS SAME SCREEN AFTER DEATH
       DEC MARIOS ANY MARIOS LEFT?
       LBGT REPLAY IF YES, THEN PLAY MORE
       LDY #GAMOVR
       LDX #20000
       STX DELAY
       LDA #RD
       STA FORG
       LDA #2
       STA SIZEX
       LDA #5
       STA SIZEY
       LDX #13*256+113
       JSR WRITE
       LDX #65535
       JSR HOLD
       JSR HOLD
       LBRA MUNKY

       PAGE
*ADD CONTENTS OF A,B (SEE DECOUT) TO SCORE
ADSCOR PSH Y,X
       LDY #SCORE
       JSR DECOUT
       LDA SCORE+9
       CMPA LASTNW
       BEQ A@
       STA LASTNW
       INC MARIOS
       JSR HOWMNY
A@     LDD #LOUD
       STD VOLUME
       LDX #HEHA
       LDY #1
       JSR SONDSL
       PUL Y,X,PC

*PRINT NUMBER OF MARIO'S LEFT
HOWMNY LDY #MARIOH JUST NEED MARIO'S HEAD
       CLRA
       LDB MARIOS
       DECB NUMBER LEFT=NUMBER-1
       BEQ ?RTS
B@     CMPB #5
       BLS A@
       DECB
       BRA B@
A@     TFR D,X
       LDD #119*256+10
C@     JSR BSHAPE
       JSR SHAPE
       SUBA #9
       LEAX -1,X
       BNE C@
       RTS

       INCL GRAPH2
       INCL SOUNDS

       PAGE
ZIGURT FDB $05BE,24,$0A9B,22
       FDB $0F78,20,$1455,18
       FDB $1932,16,0
ZIG2   FDB $194F,$2D4F,$504F
       FDB $644F,$1472,$3F72
       FDB $6972,$0F95,$3295
       FDB $4B95,$6E95,$0AB8
       FDB $3FB8,$73B8,0
RIVLCL FDB 40*256+155,40*256+120
       FDB 40*256+085,40*256+050
RIVLCR FDB 85*256+155,85*256+120
       FDB 85*256+085,85*256+050
FINTAB FDB 10*256+184,120*256+184,14*256+149,116*256+149
       FDB 20*256+114,110*256+114,24*256+79,106*256+79
FIRETC FCB 61,58
FIREBC FCB 71,74
ELRAMP FCB 003,000,190
       FCB 018,035,190
       FCB 003,000,155
       FCB 015,050,155
       FCB 003,000,120
       FCB 015,035,120
       FCB 003,000,085
       FCB 015,050,085
       FCB 022,000,050
       FCB 007,050,015
       FCB 000
RAMYZ  FCB 184,149,114,079,0
RMPLDS FDB 95*256+149,60*256+184
       FDB 60*256+114,65*256+79
       FDB 95*256+79,75*256+44,0

       PAGE
*SHAPES
GIRDER FCB 5,6
       FDB GI,GI,GI,GI
GI     FCC '22222
       FCC '20002
       FCC '02020
       FCC '02020
       FCC '20002
       FCC '22222

LVATOR FCB 11,6
       FDB EL,EL,EL,EL
EL     FCC '22222222220
       FCC '20002200020
       FCC '02020020200
       FCC '02020020200
       FCC '20002200020
       FCC '22222222222

RIVET  FCB 5,6
       FDB RI,RI,RI,RI
RI     FCC '21112211122111221112
       FCC '2111211111

LADDER FCB 6,5
       FDB LA,LA,LA,LA
LA     FCC '010001
       FCC '010001
       FCC '011111
       FCC '010001
       FCC '010001

LADH   FCB 16,10
       FDB LH,LH,LH,LH
LH     FCC '1000000000000001
       FCC '1000000000000001
       FCC '1111111111111111
       FCC '1000000000000001
       FCC '1000000000000001
       FCC '1000000000000001
       FCC '1000000000000001
       FCC '1111111111111111
       FCC '1000000000000001
       FCC '1000000000000001

SBAREL FCB 9,7
       FDB SB,SB,SB,SB
SB     FCC '323333323321111123
       FCC '323333323323333323
       FCC '323333323321111123
       FCC '323333323

BAREL  FCB 8,7
       FDB B3,B0,B1,B2
B0     FCC '00333000
       FCC '03111300
       FCC '31113130
       FCC '31131130
       FCC '31111130
       FCC '03111300
       FCC '00333000

B1     FCC '00333000
       FCC '03111300
       FCC '31111130
       FCC '31131130
       FCC '31113130
       FCC '03111300
       FCC '00333000

B2     FCC '00333000
       FCC '03111300
       FCC '31111130
       FCC '31131130
       FCC '31311130
       FCC '03111300
       FCC '00333000

B3     FCC '00333000
       FCC '03111300
       FCC '31311130
       FCC '31131130
       FCC '31111130
       FCC '03111300
       FCC '00333000

PHONE  FCB 12,8
       FDB PH,PH,PH,PH
PH     FCC '000000000000
       FCC '002222222200
       FCC '000222222000
       FCC '000222222000
       FCC '000022220000
       FCC '022022220220
       FCC '022000000220
       FCC '022222222220

UMBRLA FCB 12,10
       FDB UM,UM,UM,UM
UM     FCC '000000000000
       FCC '000222000000
       FCC '000202000000
       FCC '000002000000
       FCC '000002000000
       FCC '000002000000
       FCC '211212121120
       FCC '021212121200
       FCC '002122212000
       FCC '000222220000

BCAKE  FCB 12,8
       FDB BK,BK,BK,BK
BK     FCC '000000000000
       FCC '222222222220
       FCC '021111111200
       FCC '021111111200
       FCC '021111111200
       FCC '022222222200
       FCC '020202020200
       FCC '020202020200

*PIANO FOR MUSIC
PIANO  FCB 20,16
       FDB PI,PI,PI,PI
PI     FCC '22000000000000000022
       FCC '22000000000000000022
       FCC '22000000000000000022
       FCC '22222222222222222222
       FCC '22222222222222222222
       FCC '22222222222222222222
       FCC '11112222222222222222
       FCC '00002222222222222222
       FCC '00000002333333333322
       FCC '00000022333333333220
       FCC '00000023333333332200
       FCC '00000233333332200000
       FCC '00000233333322000000
       FCC '00000233332220000000
       FCC '00000233322000000000
       FCC '00000222220000000000

*RUBY- THE GIRL TO BE RESQUED
GIRL   FCB 9,15
       FDB GL,GL,GL,GL
GL     FCC '000220220000200200
       FCC '000200200333233333
       FCC '033333330033333330
       FCC '003333300003311110
       FCC '303333010030333000
       FCC '033011220003311110
       FCC '003331210000331100
       FCC '000033330


*FIRE DATA
FIRE   FCB 6,11
       FDB FE,FR,FR,FE
FE     FCC '033330
       FCC '031113
       FCC '331113
       FCC '311233
       FCC '313233
       FCC '333333
       FCC '331333
       FCC '311331
       FCC '301330
       FCC '100330
       FCC '000030
FR     FCC '033330
       FCC '311130
       FCC '311133
       FCC '332113
       FCC '332133
       FCC '333333
       FCC '333133
       FCC '033113
       FCC '033013
       FCC '033010
       FCC '030000

*FIRE EXTINGUISHER
FIREXR FCB 5,8
       FDB FXR,FXR,FXR,FXR
FXR    FCC '3330033300333003330011100333003330003222

*CLOUD IF EXTINGUISHER POWDER
CLOUD  FCB 8,11
       FDB CL,CL,CL,CL
CL     FCC '0011000000111000
       FCC '0111110001111100
       FCC '1111111011111110
       FCC '1111111011111100
       FCC '0111111001111000
       FCC '00111000

*MARIO MOVING TO THE RIGHT
MARIOR FCB 8,15
       FDB MR1,MR1,MR2,MR2
MR1    FCC '00220220
       FCC '0033033000333330
       FCC '0031133000313330
       FCC '0031333000333300
MH     FCC '0233311002333110
       FCC '2221122022211111
       FCC '0222120003223300
       FCC '0333333300333300
MR2    FCC '22000022
       FCC '0330033000330330
       FCC '0033311000333130
       FCC '0033133000313330
       FCC '0033330002333110
       FCC '2221122022211111
       FCC '0222120003223300
       FCC '0333333300333300

*MARIO MOVING TO THE LEFT
MARIOL FCB 8,15
       FDB ML1,ML1,ML2,ML2
ML1    FCC '02202200
       FCC '0330330003311300
       FCC '0333130003331300
       FCC '0333130003331300
       FCC '0033330001133320
       FCC '0221122211111222
       FCC '0021222000332230
       FCC '3333333000333300
ML2    FCC '22000022
       FCC '0330033003303300
       FCC '0113330003133300
       FCC '0331330003331300
       FCC '0033330001133320
       FCC '0221122211111222
       FCC '0021222000332230
       FCC '3333333000333300

*MARIO CLIMBING THE LADDER
MARIOC FDB MAC0,MAC1,MAC0,MAC1
MAC0   FCB 8,15
       FDB MC0,MC0,MC0,MC0
MC0    FCC '00220000
       FCC '00330000
       FCC '00330220
       FCC '00330330
       FCC '00333330
       FCC '00333330
       FCC '00333330
       FCC '00333330
       FCC '03333333
       FCC '03322233
       FCC '03322233
       FCC '03322233
       FCC '01122233
       FCC '00333333
       FCC '00033311

MAC1   FCB 8,15
       FDB MC1,MC1,MC1,MC1
MC1    FCC '00000220
       FCC '00000330
       FCC '00220330
       FCC '00330330
       FCC '00333330
       FCC '00333330
       FCC '00333330
       FCC '00333330
       FCC '03333333
       FCC '03322233
       FCC '03322233
       FCC '03322233
       FCC '03322211
       FCC '03333330
       FCC '01133300

*MARIO AT THE TOP OF THE LADDER
MARIOT FCB 8,15
       FDB MT,MT,MT,MT
MT     FCC '0022022000330330
       FCC '0033033000330330
       FCC '0033333001333331
       FCC '0333333303333333
       FCC '0333333303322233
       FCC '0322222300222220
       FCC '0022222000333330
       FCC '00033300

*MARIO DEAD WITH HAYLO ABOVE
MARIOE FCB 15,13
       FDB ME,ME,ME,ME
ME     FCC '000000000220000
       FCC '000000002222330
       FCC '233333333222233
       FCC '231111133112233
       FCC '001333333111333
       FCC '233333331212333
       FCC '233333301210030
       FCC '000000000010030
       FCC '000000000000000
       FCC '000000000011100
       FCC '000000000100010
       FCC '000000000100010
       FCC '000000000011100

MARIFR FCB 13,15
       FDB MFR,MFR,MFR,MFR
MFR    FCC '2200002200000
       FCC '0330033000000
       FCC '0033033033300
       FCC '0033311033300
       FCC '0033313033300
       FCC '0033133011100
       FCC '0031333033300
       FCC '0033330033300
       FCC '0233311003222
       FCC '2221122000000
       FCC '2221111000000
       FCC '0222120000000
       FCC '0322330000000
       FCC '0333333300000
       FCC '0033330000000

MARIFL FCB 14,15
       FDB MFL,MFL,MFL,MFL
MFL    FCC '00000220000220
       FCC '00000033003300
       FCC '00333033033000
       FCC '00333011333000
       FCC '00333031333000
       FCC '00111033133000
       FCC '00333033313000
       FCC '00333003333000
       FCC '22230011333200
       FCC '00000022112220
       FCC '00000011112220
       FCC '00000002122200
       FCC '00000003322300
       FCC '00000333333300
       FCC '00000003333000

*MARIO'S HEAD TO SHOW NUMBER OF MARIO'S LEFT
MARIOH FCB 8,8
       FDB MH,MH,MH,MH

*KONG STANDING AROUND
KONG1  FCB 18,21
       FDB K1,K1,K1,K1
K1     FCC '001111110011111100
       FCC '003333330033333300
       FCC '033333330033333300
       FCC '000033333333333000
       FCC '000033311133300000
       FCC '000113111113310000
       FCC '001113133313110000
       FCC '033113333331111000
       FCC '033333333333113300
       FCC '333333333333133330
       FCC '333333333333333333
       FCC '333331111111333333
       FCC '333311100000133333
       FCC '333311133000013333
       FCC '333311303031113333
       FCC '333331303031133333
       FCC '333331131311333330
       FCC '333333111111333330
       FCC '033303333111033300
       FCC '000000333333000000
       FCC '000000000000000000

*KONG CLIMBING: LEFT ARM UP
KONG2  FCB 18,20
       FDB K2,K2,K2,K2
K2     FCC '011111100000000000
       FCC '033333300000000000
       FCC '003333300011111100
       FCC '003333300033333300
       FCC '000333300033333000
       FCC '000223333333333000
       FCC '022132333333330000
       FCC '021132333333333000
       FCC '213123333333333000
       FCC '213123333333333300
       FCC '021123333333333300
       FCC '002233333333333300
       FCC '033333333333333300
       FCC '033333333333333300
       FCC '013110333333033300
       FCC '011133333333333330
       FCC '001133333333333330
       FCC '000003333333031330
       FCC '000003333333011110
       FCC '000000333330001100

*KONG CLIMBING RIGHT ARM UP
KONG3  FCB 18,20
       FDB K3,K3,K3,K3
K3     FCC '000000000011111100
       FCC '000000000033333300
       FCC '011111100033333000
       FCC '033333300033333000
       FCC '003333300033330000
       FCC '003223333333300000
       FCC '022132333333330000
       FCC '021132333333330000
       FCC '213123333333333000
       FCC '213123333333333000
       FCC '021123333333333000
       FCC '032233333333333000
       FCC '033333333333333300
       FCC '033333333333333300
       FCC '033303333330113100
       FCC '333333333333311100
       FCC '333333333333311000
       FCC '331303333333000000
       FCC '111103333333000000
       FCC '011000333330000000

KONGC  FDB KONG2,KONG3,KONG2,KONG3

*KONG WITH CRUSHED HEAD FOR RIVET SCREEN.
KONG4  FCB 18,20
       FDB K4,K4,K4,K4
K4     FCC '011300111111100113
       FCC '333101110000013333
       FCC '333331113300001333
       FCC '333331130303111311
       FCC '331113130303113333
       FCC '333333113131133333
       FCC '333333311111133133
       FCC '333333333311133313
       FCC '333331333333333331
       FCC '333313333333333333
       FCC '033131333333333333
       FCC '003311333333333330
       FCC '000111133333311330
       FCC '000011313331311100
       FCC '000013311111311000
       FCC '000003331113330000
       FCC '000333333333330000
       FCC '003333330033333330
       FCC '003333330033333300
       FCC '001111110011111100

*KONG THROWING BARRELS TO THE RIGHT
*AND ALSO PLAYING THE PIANO
KONG5  FCB 18,21
       FDB K5,K5,K5,K5
K5     FCC '111111000011111100
       FCC '333333000033333300
       FCC '033333300333333000
       FCC '033333303333330000
       FCC '033333333333300000
       FCC '033333333000000000
       FCC '033333330333333310
       FCC '033333303333333111
       FCC '003333333333333111
       FCC '003333333333333100
       FCC '003333333300030000
       FCC '003333333033300000
       FCC '003333333333300000
       FCC '000333333331111000
       FCC '000333333331000000
       FCC '000033333331113300
       FCC '000033333331110300
       FCC '000003333333110100
       FCC '000003333333111000
       FCC '000000033333330000
       FCC '000000003333300000

*KONGS ARMS FOR PLAYING THE PIANO
KAR1   FCB 6,6
       FDB KA,KA,KA,KA
KA     FCC '000000330000333300
       FCC '333330033311000111
KAR2   FCB 6,6
       FDB KB,KB,KB,KB
KB     FCC '333310333111333111
       FCC '333100003000330000
ARMS   FDB KAR1,KAR2,KAR1,KAR2

*THIS SHAPE CLEARS CENTER OF RIVET PULL
*SCREEN WHEN ERASED. THAT IS ALLTHAT IT CAN BE USED FOR
*IT IS A PSEUDO SHAPE.
DROP   FCB 46,140

TITLE  FCC ' Dunkey@ Munkey',0
CRITE  FCC ' (C)1982, H BROFMAN@    INTELLECTRONICS',0
HTSP1  FCC 'Press <JUMP>',0
HTSP2  FCC 'to begin game',0
HEIGHT FDB H25,H50,H75,H100
H25    FCC 'Pop rivets',0
H50    FCC 'Pop rivets',0
H75    FCC 'Barrel/Elevator',0
H100   FCC '     ',0
HOW    FCC '    CAN YOU SAVE THE@    KIDNAPPED GIRL?',0
GAMOVR FCC 'GAME OVER',0

       MSG "STARTING ADDRESS=",DIRECT
       MSG "LAST ADDRESS    =",*
       MSG "EXECUTE ADDRESS =",DUNKY
       MSG "LENGTH OF FILE  =",*-DIRECT
       MSG "STARTING DELAY  =",STDELA
       MSG "POKE AT TO CHNG =",PATC+1
       END DUNKY





