( LINK TO BONUS, CARTOON, AND DISPLAY PLAYER UP )               XC? IFTRUE                                                      HEX 3FFE C= CT^ 3FFC C= BN^ DECIMAL                             : PATR BN^ @ -1 <> IF ( MAKE SURE THIS CRUD DEFINED )           GA# B@ 1+ NERDUP MH# B@                                         TR# B@ BN^ @ EXX DIVG                                           ( 0 IS-D SC* WPB! ) ( NEED BONUS ROTY? )                        RR# B@ 8 < IF                                                   GA# B@ 3 MOD 2 = IF CT^ @ EXX DIVG RR# 1+WPB!                   GA# B@ 5 = IF MA# 1+WPB! THEN                                   THEN THEN THEN ;                                                OTHERWISE                                                       : PATR GA# B@ 2 = IF RR# 1+WPB! THEN ;                          IFEND                                                           : D-PU MYPUP ZAP:VECT CL SFXV PU-T SETCOL TT ;                  -->                                                             ( FIRE UP GAME SCREEN ) ." SWV , TRSV , SPIDER STARTER !!"      BTABLE ISMTB 0 B, 0 B, 0 B, 1 B, 1 B, 2 B, 2 B, 3 B, 3 B,       : FUGS MYPUP DIVG EI                                            F#A B@ NOT IF 0 0 XVSA vAL FILL                                 TR# WPBZERO ( CLEAR TREASURE COUNTER )                          FREDH BZERO ( CLEAR HOSTAGES FREED CTR )                        MH# WPBZERO ( CLEAR MAX HOSTAGES FREED CTR )                    27 XVSA BZERO ( REHIDE THE KEY!!!!!!!!!!!!!!! )                 MAKE:MAZE 1 F#A B! THEN MD                                      ZAP:VECT 0 CGFS CGFL FILL STARTEXCITE                           DIVG GA# B@ 7 MIN SPEEDE B! 375 DIF B@ 25 * - SMTMRV !          GA# B@ DUP DIF B@ 1- ISMTB B@ + SMARTS B!                       IF SMTMRV @ ELSE SMTMRV @ 3 * THEN SMTMR !                      -1 HORCB OUTP M-BG ( MAKE BACKGROUND )                          SWV TOTAL-HOSTAGES 0 DO I HOSTAB @ DUP OBJSV OVB@ HSRES         <> IF H-T ELSE DROP THEN LOOP ( HOSTAGES ) -->                  TRSV TRS-T ( TREASURE )                                         KEY OBJSV OVB@ KYSHOW = IF KEY KEYMAN ELSE                      GA# B@ NOT IF KEY EXAT THEN                                     THEN                                                            PLEM P-S B!                                                     INTSCR ( INITIAL SCORE DISPLAY !! )                             PLYRV R:B M:M ( MONSTER MASH )                                  ARV A-T                                                         0 7 OUTP BREAK EIVG TT DIVG                                     GAMEOVER B@ NOT IF F#A B@ IF SWV ELSE                           MA# B@ 1+ 12 MIN MA# WPB! ( GIVE PLAYER A FREE SPELL )          PATR ( CALL PATCO CRUDOLA )                                     GA# 1+WPB! THEN THEN ;                                          -->                                                                                                                                                                                             