X;X; ********************X; ** INITIALIZATION **(X; ********************2X;<"X; All of this is done one timeFX; only -- on startup.PX;ZINITdX;nX; SETUP KEYBOARDxX;QKEYCODE;;Check ATASCIILKEYCODE;; convert table HINITPLR;;If set (XL), go onQ>;;Else init to $FEFEPKEYCODE; ; (for old ROM)PKEYCODEX;#X; SETUP PLAYER/MISSILE GRAPHICSX;"INITPLRQ>;;Clear PM graphics?CLEARPMPPL08 PPL18 PPL28 PPL38 PMISSLES8"1, HCLEARPM6X;@Q>J$>T#STWIDTHPSIZEP09;;Set widths to^ 0;; smallh ISTWIDTHrPSIZEM;;(Missiles too)|X;Q>5PMAREA;;Set PMG address PPMBASEQ>>;;Turn on PM DMA PDMACTLQ>;;Turn on player andPGRACTL;; missile displayQ>;;Set priorities ofPGPRIOR;; PMG > playfieldX;X;Q>5ROMFONT;;Set charset PCHBASEQ>;;Init sound PSKCTLQ> PAUDCTL&PCOLOR4;;Set BKG=Black0PNMIEN;;Disable DLI/VBI:Q>4DLI;;Set DLI vectorD PVDSLSTN Q>5DLIXPVDSLSTbQ>4VBI;; and VBI vectorl PVVBLKDv Q>5VBIPVVBLKDQ>PFCOL0;;Set colors PCOLOR0 Q>PFCOL1 PCOLOR1 Q>PFCOL2 PCOLOR2 Q>PFCOL3 PCOLOR3 Q>PLR0COL PPCOLR0 Q>PLR1COL PPCOLR1 Q>PLR2COL  PPCOLR2 Q>PLR3COL  PPCOLR3*Q>4THELDSP;;Turn on the4PDLIST;; 'thello display>Q>5THELDSPH PDLISTRX;\$X; SET INITIAL GAME CONFIGURATIONfX;pQ>zPTEAMSIZ;;2 PlayersPTEAMSIZ;; (1 ea. team)PPORTNO;;Plyr1 on port 0PBOX;;Plyr1 in box 0PCOMPS;;No computer plyrsPCMPLEVL;;Init comp levelsPCMPLEVLPSSTAT;;No active soundQ>PTEAMNO;;Plyr1 on team 1PPORTNO;;Plyr2 on port 1PACTIVE;;2 active playersPTEAM;;White team activeQ>PPLYRS;;2 human playersPTEAMNO;;Plyr2 on team 2Q>$PBOX;;Plyr2 in box 4.X;8?BQ>L#CLOPPLPPOPLYRY8;;Set all old YV1;; posn's to 0` ICLOPPLPjX;tQ>~PCMPLVL;;Dft comp lvl=5Q>PLASTCMP;;No last computer!RESTART; ;Go on to titles