10 REM ***CHAINED IN PROGRAM-REQUIRES MORE THAN 25000 MEMORY**
   REM **TERENCE & CO.-29/11/98**
   GOTO TitleScreen
NoStop:
   RETURN
      
ErrorRoutine:
   IF ERR=5 AND ERL=4000 THEN BEEP:COLOR 2,3:LOCATE 13,3:PRINT "SPEECH NOT AVAILABLE!":FOR J=1 TO 3000:NEXT J:RESUME NEXT
   WINDOW OUTPUT 2
   COLOR 2,3
   BEEP
   COLOR 1,0:CLS               
   PRINT "           STRIKE THE HUMANS"
   COLOR 5    
   PRINT "       TELL TERENCE THE FOLLOWING"
   PRINT "          NUMBER & WHEN/HOW IT "
   PRINT "             HAPPENED!"
   COLOR 4
   PRINT
   PRINT "    "
   PRINT " "
   COLOR 6
   PRINT "    ERROR NUMBER  ";ERR
   COLOR 5
   PRINT
   PRINT "        PRESS A KEY TO RESTART!"
   
   
   I$=""
   WHILE I$="":I$=INKEY$:WEND
   WINDOW CLOSE 2
   SCREEN CLOSE 2
   SCREEN 2,320,256,3,1
   WINDOW 2,,,16,2
   RESUME TitleScreen
  
TitleScreen:
   PALETTE 0,0.000000E+00,0.000000E+00,0.000000E+00
   PALETTE 1,0.000000E+00,0.000000E+00,0.000000E+00
   PALETTE 5,8.500000E-01,8.000000E-01,0.000000E+00
   PALETTE 2,1.000000E+00,6.000000E-01,5.500000E-01
   COLOR 1,0
   CLS
   LINE (0,0)-(315,210),4,bf
   LINE (40,20)-(80,30),5,bf
   LINE (40,30)-(50,40),5,bf
   LINE (40,40)-(80,50),5,bf
   LINE (70,50)-(80,60),5,bf
   LINE (40,60)-(80,70),5,bf
   
   LINE (90,20)-(120,30),5,bf
   LINE (100,30)-(110,70),5,bf
   
   LINE (130,20)-(140,70),5,bf
   LINE (140,20)-(156,40),5,bf
   LINE (140,25)-(150,35),4,bf
   COLOR 5       
   AREA (140,40)
   AREA (160,70)
   AREA (150,70)
   AREA (140,50)
   AREAFILL
   
   LINE (170,20)-(180,70),5,bf
   
   LINE (190,20)-(200,70),5,bf
   AREAFILL
   COLOR 5
   AREAFILL
   AREA (200,40)
   AREA (210,20)
   AREA (220,20)
   AREA (200,50)
   AREAFILL
   COLOR 5
   AREAFILL
   AREA (200,50)
   AREA (220,70)
   AREA (210,70)
   AREA (200,60)
   AREAFILL
   
   LINE (230,20)-(240,70),5,bf
   LINE (240,20)-(270,30),5,bf
   LINE (240,40)-(270,50),5,bf
   LINE (240,60)-(270,70),5,bf
   AREAFILL
   COLOR 5
   AREAFILL
   AREA (140,80)
   AREA (190,100)
   AREA (170,110)
   AREA (190,120)
   AREA (130,150)
   AREA (170,120)
   AREA (150,110)
   AREA (170,100)
   AREA (140,80)
   AREAFILL
   COLOR 1,4
   LOCATE 11,5
   PRINT "THE"
   PRINT
   PRINT TAB(5)"HUMANS"
   COLOR 2,4
   LOCATE 20,11
   PRINT "PRESS A KEY"
Music:
   I$=""
   GOSUB MainRepeatMusic
   GOSUB MainRepeatMusic
   GOTO MiddleMusic

MainRepeatMusic:
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 3.492300E+02,5-1,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 440,2.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 5.232500E+02,4.500000E+00,255,0
   SOUND 20,1,4.000000E-01,0
   SOUND 3.492300E+02,4,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   SOUND 3.492300E+02,5-1,255,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 20,1,5.000000E-01,0
   SOUND 440,2.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00,255,0
   SOUND 20,2,4.000000E-01,0
   
   SOUND 440,4-5.000000E-01,255,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 392,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 440,6,255,0
   SOUND 20,5.500000E+00,4.000000E-01,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   RETURN

MiddleMusic:
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
    
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.873300E+02,8.500000E+00,255,0
   SOUND 20,3.500000E+00,5.000000E-01,0    
   SOUND 5.873300E+02,7.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,1.500000E+00,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 440,3,255,0
   SOUND 20,5.300000E+00,4.000000E-01,0
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.873300E+02,8.500000E+00,255,0
   SOUND 20,3.500000E+00,5.000000E-01,0    
   SOUND 5.873300E+02,7.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 6.592600E+02,6,255,0
   SOUND 20,4,5.000000E-01,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.873300E+02,8.500000E+00,255,0
   SOUND 20,3.500000E+00,5.000000E-01,0    
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 5.873300E+02,7.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 440,3,255,0
   SOUND 20,5,4.000000E-01,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   
   SOUND 392,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0   
   SOUND 440,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,5.500000E+00,255,0
   SOUND 20,2,5.000000E-01,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 5.232500E+02,5.500000E+00,255,0
   SOUND 20,2,5.000000E-01,0
   SOUND 5.232500E+02,3,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 5.873300E+02,3,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 5.232500E+02,3,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 6.592600E+02,8,255,0
   SOUND 20,12,5.000000E-01,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad

TitleEndMusic:           
   GOSUB MainRepeatMusic
   GOSUB MainRepeatMusic
   SOUND 440,4-5.000000E-01,255,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 392,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 440,6,255,0
   SOUND 20,5.500000E+00,4.000000E-01,0
   I$=INKEY$
   IF I$<>"" THEN GOTO BoardLoad
   WHILE I$=""
   I$=INKEY$
   WEND
   
    
    
BoardLoad:
WINDOW OUTPUT 2
CHDIR "BASICGAMES: "
DIM bPlane&(5), cTabWork%(32), cTabSave%(32)
DECLARE FUNCTION xOpen&  LIBRARY
DECLARE FUNCTION xRead&  LIBRARY
DECLARE FUNCTION xWrite& LIBRARY
DECLARE FUNCTION AllocMem&() LIBRARY
LIBRARY "dos.library"
LIBRARY "exec.library"
LIBRARY "graphics.library"
ACBMName$="STRIKEPIC"
loadError$ = ""
GOSUB LoadACBM
IF loadError$ <> "" THEN GOTO Mcleanup

REM - Demo Graphicraft color cycling
IF foundCCRT AND ccrtDir% THEN
   REM - Save colors
   FOR kk = 0 TO nColors% -1
      cTabSave%(kk) = PEEKW(colorTab&+(kk*2))   
      cTabWork%(kk) = cTabSave%(kk)
   NEXT
   
   REM - Cycle colors
   FOR kk = 0 TO 80
      IF ccrtDir% = 1 THEN
         GOSUB Fcycle
      ELSE
         GOSUB Bcycle
      END IF

      CALL LoadRGB4&(sViewPort&,VARPTR(cTabWork%(0)),nColors%)
      REM - Delays approximated
      FOR de1 = 0 TO ccrtSecs& * 3000
         FOR de2 = 0 TO ccrtMics& / 500
         NEXT
      NEXT
   NEXT

   REM - Restore colors
   CALL LoadRGB4&(sViewPort&,VARPTR(cTabSave%(0)),nColors%)
END IF

Mcleanup:
Mcleanup2:
LIBRARY CLOSE
IF loadError$ <> "" THEN PRINT loadError$
CLEAR
GOTO StartGame


Bcycle:  'Backward color cycle
RETURN

Fcycle:  'Forward color cycle
RETURN


LoadACBM:
F$ = ACBMName$
fHandle& = 0
mybuf& = 0
foundBMHD = 0
foundCMAP = 0
foundCamg = 0
foundCCRT = 0
foundABIT = 0

REM - From include/libraries/dos.h
REM - MODE_NEWFILE = 1006 
REM - MODE_OLDFILE = 1005

FileName$ = F$ + CHR$(0)
fHandle& = xOpen&(SADD(FileName$),1005)
IF fHandle& = 0 THEN
   loadError$ = "Can't open/find pic file"
   GOTO Lcleanup
END IF


REM - Alloc ram for work buffers
ClearPublic& = 65537
mybufsize& = 360
mybuf& = AllocMem&(mybufsize&,ClearPublic&)
IF mybuf& = 0 THEN
   loadError$ = "Can't alloc buffer"
   GOTO Lcleanup
END IF

inbuf& = mybuf&
cbuf& = mybuf& + 120
ctab& = mybuf& + 240


REM - Should read  FORMnnnnACBM
rLen& = xRead&(fHandle&,inbuf&,12)
tt$ = ""
FOR kk = 8 TO 11
   tt% = PEEK(inbuf& + kk)
   tt$ = tt$ + CHR$(tt%)
NEXT

IF tt$ <> "ACBM" THEN
   loadError$ = "Not an ACBM pic file"
   GOTO Lcleanup
END IF

REM - Read ACBM chunks

ChunkLoop:
REM - Get Chunk name/length
 rLen& = xRead&(fHandle&,inbuf&,8)
 icLen& = PEEKL(inbuf& + 4)
 tt$ = ""
 FOR kk = 0 TO 3
    tt% = PEEK(inbuf& + kk)
    tt$ = tt$ + CHR$(tt%)
 NEXT   
    
IF tt$ = "BMHD" THEN
   foundBMHD = 1
   rLen& = xRead&(fHandle&,inbuf&,icLen&)
   iWidth%  = PEEKW(inbuf&)
   iHeight% = PEEKW(inbuf& + 2)
   idepth%  = PEEK(inbuf& + 8)  
   iCompr%  = PEEK(inbuf& + 10)
   ScrWidth%  = PEEKW(inbuf& + 16)
   ScrHeight% = PEEKW(inbuf& + 18)

   iRowBytes% = iWidth% /8
   scrRowBytes% = ScrWidth% / 8
   nColors%  = 2^(idepth%)

   REM - Enough free ram to display ?
   AvailRam& = FRE(-1)
   NeededRam& = ((ScrWidth%/8)*ScrHeight%*(idepth%+1))+5000
   IF AvailRam& < NeededRam& THEN
      loadError$ = "Not enough free ram."
      GOTO Lcleanup
   END IF

   hires& = &h63
   lace&  = &h64
   kk = 1
   IF foundCamg THEN
      IF (camgModes& AND hires&) THEN kk = kk+1
      IF (camgModes& AND lace&)  THEN kk = kk+2
   ELSE
      IF ScrWidth% >= 640 THEN kk = kk + 1
      IF ScrHeight% >= 400 THEN kk = kk + 2
   END IF
   PALETTE 0,0.000000E+00,0.000000E+00,0.000000E+00
   
   MENU 1,0,0,""
   MENU 2,0,0,""
   MENU 3,0,0,""
   MENU 4,0,0,""
   MENU OFF
   REM - Get addresses of structures
   GOSUB GetScrAddrs
here:          

   REM - Black out screen
   CALL LoadRGB4&(sViewPort&,ctab&,nColors%)


ELSEIF tt$ = "CMAP" THEN
   foundCMAP = 1
   rLen& = xRead&(fHandle&,cbuf&,icLen&)
 
   REM - Build Color Table
   FOR kk = 0 TO nColors% - 1
      red% = PEEK(cbuf&+(kk*3))
      gre% = PEEK(cbuf&+(kk*3)+1)
      blu% = PEEK(cbuf&+(kk*3)+2)
      regTemp% = (red%*16)+(gre%)+(blu%/16)
      POKEW(ctab&+(2*kk)),regTemp%
   NEXT


ELSEIF tt$ = "CAMG" THEN
   foundCamg = 1
   rLen& = xRead&(fHandle&,inbuf&,icLen&)
   camgModes& = PEEKL(inbuf&)


ELSEIF tt$ = "CCRT" THEN
   foundCCRT = 1
   rLen& = xRead&(fHandle&,inbuf&,icLen&)
   ccrtDir%    = PEEKW(inbuf&)
   ccrtStart%  = PEEK(inbuf& + 2)
   ccrtEnd%    = PEEK(inbuf& + 3)
   ccrtSecs&   = PEEKL(inbuf& + 4)
   ccrtMics&   = PEEKL(inbuf& + 8)


ELSEIF tt$ = "ABIT" THEN
   foundABIT = 1

   REM - This only handles full size BitMaps, not brushes
   REM - Very fast - reads in entire BitPlanes
   plSize& = (ScrWidth%/8) * ScrHeight%
   FOR pp = 0 TO idepth% -1
      rLen& = xRead&(fHandle&,bPlane&(pp),plSize&)   
   NEXT


ELSE
   REM - Reading unknown chunk  
   FOR kk = 1 TO icLen&
      rLen& = xRead&(fHandle&,inbuf&,1)
   NEXT
   REM - If odd length, read 1 more byte
   IF (icLen& OR 1) = icLen& THEN
      rLen& = xRead&(fHandle&,inbuf&,1)
   END IF
      
END IF


REM - Done if got all chunks 
IF foundBMHD AND foundCMAP AND foundABIT THEN
   GOTO GoodLoad
END IF

REM - Good read, get next chunk
IF rLen& > 0 THEN GOTO ChunkLoop

IF rLen& < 0 THEN
   loadError$ = "Read error"
   GOTO Lcleanup
END IF   

REM - rLen& = 0 means EOF
IF (foundBMHD=0) OR (foundABIT=0) OR (foundCMAP=0) THEN
   loadError$ = "Needed ILBM chunks not found"
   GOTO Lcleanup
END IF


GoodLoad:
loadError$ =""

REM  Load proper Colors
IF foundCMAP THEN
   CALL LoadRGB4&(sViewPort&,ctab&,nColors%)
END IF

Lcleanup:
IF fHandle& <> 0 THEN CALL xClose&(fHandle&)
IF mybuf& <> 0 THEN CALL FreeMem&(mybuf&,mybufsize&)

RETURN


GetScrAddrs:
REM - Get addresses of screen structures
   sWindow&   = WINDOW(7)
   sScreen&   = PEEKL(sWindow& + 46)
   sViewPort& = sScreen& + 44
   sRastPort& = sScreen& + 84
   sColorMap& = PEEKL(sViewPort& + 4)
   colorTab&  = PEEKL(sColorMap& + 4)
   sBitMap&   = PEEKL(sRastPort& + 4)

   REM - Get screen parameters
   ScrWidth%  = PEEKW(sScreen& + 12)
   ScrHeight% = PEEKW(sScreen& + 14)
   scrDepth%  = PEEK(sBitMap& + 5)
   nColors%   = 2^scrDepth%

   REM - Get addresses of Bit Planes 
   FOR kk = 0 TO scrDepth% - 1
      bPlane&(kk) = PEEKL(sBitMap&+8+(kk*4))
   NEXT
RETURN

StartGame:
   WINDOW 3,,(80,40)-(230,150),0,2
   WINDOW OUTPUT 3
   OPEN "KIM" FOR INPUT AS 1
   OBJECT.SHAPE 1,INPUT$(LOF(1),1)
   CLOSE 1
   OPEN "LILLY" FOR INPUT AS 2
   OBJECT.SHAPE 2,INPUT$(LOF(2),2)
   CLOSE 2
   OPEN "JACQUELINE2" FOR INPUT AS 3
   OBJECT.SHAPE 3,INPUT$(LOF(3),3)
   CLOSE 3
   OPEN "HOMER" FOR INPUT AS 4
   OBJECT.SHAPE 4,INPUT$(LOF(4),4)
   CLOSE 4
StartGameB:
   COLOR 5,4
   CLS
   AREAFILL
   COLOR 5
   AREA (210-80,54-45)
   AREA (200-80,60-45)
   AREA (210-80,64-45)
   AREA (195-80,70-45)
   AREA (216-80,64-45)
   AREA (206-80,60-45)
   AREA (216-80,54-45)
   AREA (210-80,54-45)
   AREAFILL
   
   PRINT
   PRINT " STRIKE THE"
   PRINT "   HUMANS"
   COLOR 1,4
   PRINT 
   PRINT TAB(3)"PL1-......."
   PRINT TAB(3)"PL2-......."
   PRINT TAB(3)"PL3-......."
   PRINT
   DIM N$(3)
   y%=5
   FOR I=1 TO 3
   J=0
   I$=""
   LOCATE 9,1
   COLOR 2
   PRINT "TYPE IN P";I;"'s"
   PRINT "     NAME!"
   COLOR 6
   x%=7
PasswordEnter:
   LOCATE y%,x%:PRINT "......."
   WHILE J=0
   WINDOW OUTPUT 1
   I$=INKEY$
   I$=UCASE$(I$)
   WINDOW OUTPUT 3
   IF I$=CHR$(13) THEN LOCATE y%,7:PRINT N$(I);"        ":J=1
   IF I$=CHR$(8) AND x%>7 THEN N$(I)=LEFT$(N$(I),LEN(N$(I))-1):x%=x%-1:LOCATE y%,x%:PRINT F$;".":WINDOW OUTPUT 1:I$=INKEY$:WINDOW OUTPUT 3
   IF I$=CHR$(8) AND x%=7 THEN GOTO PasswordEnter
   IF LEN(N$(I))=7 THEN J=1
   IF I$<>"" AND J=0 THEN LOCATE y%,x%:COLOR 6,4:PRINT I$:x%=x%+1:N$(I)=N$(I)+I$
   IF LEN(N$(I))=7 THEN J=0
   IF I$=CHR$(13) THEN LOCATE y%,7:PRINT N$(I);"        ":J=1
   WEND
   y%=y%+1
   NEXT I
   COLOR 5,4
   CLS
   OBJECT.X 1,10
   OBJECT.X 2,45
   OBJECT.X 3,80
   OBJECT.X 4,115
   OBJECT.ON
   LOCATE 5,1
   COLOR 3
   PRINT "  1   2   3   4"
   PRINT "DUM TOP TOP DUM
   DIM PIC(3)
   DIM TYPE(3)
   FOR I=1 TO 3
   WINDOW OUTPUT 3
   J=0
   LOCATE 9,1
   COLOR 2
   PRINT " CHOOSE A PIC   "
   PRINT " FOR ";N$(I);"      "
   WINDOW OUTPUT 1
   I$=""
   WHILE I$=""
   I$=INKEY$
   WEND
   IF I$<"1" OR I$>"4" THEN I=I-1:J=1
   IF J=0 THEN PIC(I)=VAL(I$)
   WINDOW OUTPUT 3
   IF J=0 THEN
     LOCATE 9,1
     COLOR 5
     PRINT "   IS THIS A     "
     PRINT " COMP. PLAYER?     "
     WINDOW OUTPUT 1
     I$=""
     WHILE I$=""
     I$=INKEY$
     WEND
     I$=UCASE$(I$)
     IF I$="Y" THEN TYPE(I)=1 ELSE TYPE(I)=0
   END IF
   NEXT I                  
   WINDOW CLOSE 3
   WINDOW OUTPUT 2
   FOR I=1 TO 3
   IF PIC(I)=1 THEN FileName$="KIM"
   IF PIC(I)=2 THEN FileName$="LILLY"
   IF PIC(I)=3 THEN FileName$="JACQUELINE2"
   IF PIC(I)=4 THEN FileName$="HOMER"
   OPEN FileName$ FOR INPUT AS I
   OBJECT.SHAPE I,INPUT$(LOF(I),I)
   CLOSE I
   NEXT I
   
   LOCATE 3,2
   COLOR 1,7
   PRINT N$(1)
   LOCATE 3,12
   PRINT N$(2)
   LOCATE 3,23
   PRINT N$(3)
   OBJECT.X 1,30
   OBJECT.Y 1,54
   OBJECT.X 2,130
   OBJECT.Y 2,54
   OBJECT.X 3,240
   OBJECT.Y 3,54
   OBJECT.ON

StartGame2:
   MORD=1
   GOSUB SpeechBubble1
   LOCATE 15,2
   COLOR 0,1
   PRINT "WELCOME"
   PRINT TAB(2)"  TO"
   PRINT TAB(2)"STRIKE"
   PRINT TAB(2)"  THE"
   PRINT TAB(2)"HUMANS!"
   FOR I=1 TO 2000:NEXT I
   GOSUB SpeechBubble1
   LOCATE 15,2
   COLOR 0,1
   PRINT "IM YOUR"
   PRINT TAB(2)"HOST,"
   PRINT TAB(2)"POLLY"
   PRINT TAB(2)"PULLING"
   FOR I=1 TO 3000:NEXT I
   GOSUB SpeechBubble1
   LOCATE 15,2
   COLOR 4,1
   PRINT "  OUR"
   PRINT TAB(2)"PLAYERS"
   PRINT TAB(2)"TONIGHT"
   PRINT TAB(2)"  ARE"
   FOR I=1 TO 2000:NEXT I
   GOSUB SpeechBubble1
   LOCATE 15,2
   COLOR 4,1
   PRINT N$(1)
   PRINT TAB(2)N$(2)
   PRINT TAB(2)"  AND"
   PRINT TAB(2)N$(3)
   FOR I=1 TO 3000:NEXT I
   GOSUB SpeechBubble1
   LOCATE 15,2
   COLOR 0,1
   PRINT "SO LETS"
   PRINT TAB(2)" START"
   PRINT TAB(2)"  THE" 
   PRINT TAB(2)" GAME!"
   FOR I=1 TO 3000:NEXT I
   MORD=3
   GOSUB SpeechBubble1
   FOR I=1 TO 1000:NEXT I
   DIM NU%(24)
   DIM S(3)
   DIM PRIZE$(8,3)
   RANDOMIZE TIMER
   P%=1
   FOR I=1 TO 24
   NU%(I)=0
   NEXT I
   
MainLoop:
   MORD=1
   GOSUB SpeechBubble1   
   LOCATE 15,2
   COLOR 4,1
   PRINT N$(P%)   
   PRINT TAB(2)"DO YOU"
   PRINT TAB(2)"WANT 2"
   PRINT TAB(2)"3 OR 4?"
   FOR I=1 TO 1000:NEXT I
   IF P%=1 THEN LOCATE 5,5:xs=46:ys=48
   IF P%=2 THEN LOCATE 5,15:xs=146:ys=48
   IF P%=3 THEN LOCATE 5,26:xs=256:ys=48
   MORD=1
   GOSUB SpeechBubble2
   WINDOW OUTPUT 1             
   IF TYPE(P%)=0 THEN
200  I$=""
     WHILE I$=""
     I$=INKEY$
     WEND
     IF I$<"2" OR I$>"4" THEN GOTO 200
     M%=VAL(I$)
   ELSE
201  M%=RND*4
     IF M%<=1 OR M%>9-S(P%) THEN GOTO 201
     I$=STR$(M%)
     I$=RIGHT$(I$,1)
   END IF
     WINDOW OUTPUT 2
     COLOR 0,1
     PRINT M%
     MORD=3
     GOSUB SpeechBubble1
     FOR I=1 TO 1000:NEXT I
     FOR G=1 TO M%
     A$=""
     Q%=RND*6
     IF Q%=0 THEN Q%=6
     ON Q% GOSUB Quest1,Quest2,Quest3,Quest4,Quest5,Quest6
     
     NEXT G
     C=0:K=0
202  IF P%=1 THEN y=132:x=153
     IF P%=2 THEN y=160:x=140
     IF P%=3 THEN y=191:x=124
     FOR I=1 TO S(P%)
     x=x+14
     NEXT I
     K=0
     C=C+1     
     IF C>M% THEN GOTO 203
     PR%=RND*24
     IF PR%=0 THEN K=1
     IF NU%(PR%)<>0 THEN K=1
     
     IF K<>0 THEN C=C-1:GOTO 202
     IF S(P%)>7 THEN GOSUB Final
     ON PR% GOSUB House,Tv,Food,Cruise,Kittonia,Car,Choc,Hero,Tokens,Travel,Comics,Any,Clean,KitFrance,Computer,Hot,Choc,Question,Natt,House,Question,Hot,Question,Hot
     IF S(P%)>7 THEN GOSUB Final
     GOTO 202
203  FOR I=1 TO 8
     IF LEFT$(PRIZE$(I,P%),1)="&" THEN PRIZE$(I,P%)=RIGHT$(PRIZE$(I,P%),LEN(PRIZE$(I,P%))-1)
     NEXT I
     P%=P%+1
     IF P%>3 THEN P%=1
     FOR I=1 TO 1000:NEXT I
     GOTO MainLoop

Travel:
   VALUE$="200"
   NU%(PR%)=1
   AREAFILL
   COLOR 6
   AREAFILL
   AREA (x-3,y-2)
   AREA (x+5,y-2)
   AREA (x+3,y+2)
   AREA (x-5,y+2)
   AREA (x-3,y-2)
   AREAFILL
   LINE (x+1,y-1)-(x,y+1),1
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "TRAVEL"
   PRINT TAB(2)"PASS(5yr)"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&5yr TRAVEL PASS"
   GOSUB ContinueOrNot
   RETURN
   
ContinueOrNot:
310 K=0
    IF TYPE(P%)=0 THEN
      I$=""
      WHILE I$=""
      I$=INKEY$
      WEND
      IF I$<>"B" AND I$<>"S" AND I$<>"C" THEN K=1
    ELSE
      J%=RND*5
      IF J%=1 OR J%=2 OR J%=3 THEN I$="C"
      IF J%=4 THEN I$="B"
      IF J%=5 THEN I$="S"
    END IF
    WINDOW OUTPUT 2
    IF K<>0 THEN GOTO 310 
    IF I$="B" THEN GOSUB BankIt
    IF I$="S" THEN GOSUB StrikeIt
    FOR I=1 TO 500:NEXT I
    MORD=3
    GOSUB SpeechBubble3
   RETURN

Computer:
   VALUE$="1000"
   
   NU%(PR%)=1
   AREAFILL
   COLOR 0
   AREAFILL
   AREA (x-3,y-4)
   AREA (x+7-1,y-4)
   AREA (x+3-1,y+6)
   AREA (x-7,y+6)
   AREAFILL
   COLOR 5
   AREAFILL
   AREA (x-2,y-2)
   AREA (x+4-1,y-2)
   AREA (x+2-1,y+4)
   AREA (x-4,y+4)
   AREAFILL
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "A P.C!"
   
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&HUGE COMPUTER"
   GOSUB ContinueOrNot
   RETURN 
  
Kittonia:
   VALUE$="500"
   NU%(PR%)=1
   AREAFILL
   COLOR 2
   AREA (x+1,y-4)
   AREA (x+3,y-4)
   AREA (x-1,y+6)
   AREA (x-3,y+6)
   AREA (x+1,y-4)
   AREAFILL
      MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "A DAY IN"
   PRINT TAB(2)"KITTONIA"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&DAY IN KITTONIA"
   GOSUB ContinueOrNot
   RETURN
   
Car:
   NU%(PR%)=1
   VALUE$="1000"
   AREAFILL
   COLOR 3
   AREAFILL
   AREA (x-2,y-2)
   AREA (x+2,y-2)
   AREA (x+3,y+2)
   AREA (x-5,y+2)
   AREA (x-2,y-2)
   AREAFILL
   COLOR 2
   AREAFILL
   AREA (x+1,y-1)
   AREA (x+1,y+1)
   AREA (x-3,y+1)
   AREA (x-1,y-1)
   AREAFILL
   LINE (x+1,y+3)-(x+1,y+3),0,bf
   LINE (x-4,y+3)-(x-4,y+3),0,bf
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT " A BRAND"
   PRINT TAB(2)" NEW CAR"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&NEW CAR"
   
   GOSUB ContinueOrNot
   RETURN

Choc:
   VALUE$="2000"
   NU%(PR%)=1
   PAINT (x,y),7,4
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "UNLIMITED"
   PRINT TAB(2)"CHOCOLATE"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&LOADS OF CHOCS"
   GOSUB ContinueOrNot
   RETURN
   
Tokens:
   VALUE$="1000"
   NU%(PR%)=1
   AREAFILL
   COLOR 3
   AREAFILL
   AREA (x-3,y-2)
   AREA (x+5,y-2)
   AREA (x+3,y+2)
   AREA (x-5,y+2)
   AREA (x-3,y-2)
   AREAFILL
   LINE (x+1,y-1)-(x,y+1),1
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT " 1000"
   PRINT TAB(2)"TOKENS"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&1000 TOKENS"
   GOSUB ContinueOrNot
   RETURN
   

Natt:
   
   VALUE$="2000"
   NU%(PR%)=1
   PAINT (x,y),5,4
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "3D SHOOT"
   PRINT TAB(2)"NATALIE"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&SHOOT NAT. GAME"
   GOSUB ContinueOrNot
   RETURN

Any:
   VALUE$="1000"
   NU%(PR%)=1
   LINE (x-1,y-4)-(x+1,y-6),0
   LINE (x+1,y-6)-(x+3,y-4),0
   LINE (x+3,y-4)-(x+1,y-2),0
   LINE (x+1,y-2)-(x-1,y+2),0
   LINE (x-4,y+5)-(x-4,y+5),0
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "ANY PRIZE"
   PRINT TAB(2)"YOU WANT!"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&YOUR CHOICE!!"
   GOSUB ContinueOrNot
   RETURN

Clean:            
   VALUE$="150"
   NU%(PR%)=1
   AREAFILL
   COLOR 3
   AREAFILL
   AREA (x+1,y-6)
   AREA (x+5,y-6)
   AREA (x+3,y)
   AREA (x-1,y)
   AREAFILL
   COLOR 5
   AREAFILL
   AREA (x-1,y+4)
   AREA (x-5,y+4)
   AREA (x-6,y+6)
   AREA (x,y+6)
   AREAFILL
   LINE (x+3,y)-(x-3,y+4),7
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "CLEANING"
   PRINT TAB(2)"MACHINE!"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&HOUSE CLEANER"
   GOSUB ContinueOrNot
   RETURN
 
Comics:
   NU%(PR%)=1
   VALUE$="1000"
   AREAFILL
   COLOR 3
   AREAFILL
   AREA (x-3,y-4)
   AREA (x+5,y-4)
   AREA (x+1,y+6)
   AREA (x-7,y+6)
   AREAFILL
   COLOR 5
   AREAFILL
   AREA (x-3,y)
   AREA (x+1,y)
   AREA (x,y+4)
   AREA (x-4,y+4)
   AREAFILL
   LINE (x-2,y-2)-(x+2,y-2),0
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "2000"
   PRINT TAB(2)"COMICS!"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&2000 COMICS"
   GOSUB ContinueOrNot
   RETURN
   
   
Hero:
   NU%(PR%)=1
   VALUE$="2000"
   GOSUB Person
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "DAY WITH"
   PRINT TAB(2)"YOUR HERO"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&DAY WITH HERO"
   GOSUB ContinueOrNot
   RETURN
   
Person:
   AREAFILL
   COLOR 2
   AREAFILL
   AREA (x+5,y-3)
   AREA (x-3,y-3)
   AREA (x-5,y+3)
   AREA (x-3,y+5)
   AREA (x+1,y+5)
   AREA (x+3,y+3)
   AREAFILL
   COLOR 7
   AREAFILL
   AREA (x+5,y-3)
   AREA (x+3,y-5)
   AREA (x-1,y-5)
   AREA (x-3,y-3)
   AREAFILL
   LINE (x-2,y+3)-(x+1,y+3),3
   LINE (x-1,y-1)-(x-1,y-1),0
   LINE (x+1,y-1)-(x+1,y-1),0
   RETURN
   
KitFrance:
   VALUE$="500"
   NU%(PR%)=1
   AREAFILL
   COLOR 7
   AREAFILL
   AREA (x-3,y)
   AREA (x-5,y+6)
   AREA (x+1,y+6)
   AREA (x+3,y)
   AREAFILL
   LINE (x-2,y)-(x-1,y-2),2
   LINE (x-1,y-2)-(x+2,y-2),2
   LINE (x+2,y-2)-(x+1,y),2
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "KITFRANCE"
   PRINT TAB(2)"HOLIDAY!"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&KITFRANCE HOL."
   GOSUB ContinueOrNot
   RETURN
 
Hot:
   NU%(PR%)=1
   S(P%)=S(P%)+1
   PAINT (x,y),2,4
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 500,4,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 400,4,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 500,4,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 400,4,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 500,4,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 400,4,255,0
   SFH%=1
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 0,1
IF L%<>0 THEN
   IF L%>0 AND L%<10 THEN
     PRINT "YOU LOSE"
     PRINT TAB(2)"A LIFE,"
     PRINT TAB(2)"SORRY!"
     FOR I=1 TO 3000:NEXT I
     MORD=1
     L%=L%-1
     GOSUB SpeechBubble3
     LOCATE 15,2
     COLOR 0,1
     PRINT "YOU ARE"
     PRINT TAB(2)"ALLOWED"
     PRINT TAB(2)L%;"MORE"
     PRINT TAB(2)"HOTSPOTS"  
     FOR I=1 TO 4000:NEXT I
     IF L%=0 THEN L%=60
     RETURN
   END IF
   IF L%=60 THEN
     PRINT "OH NO!"
     PRINT TAB(2)"YOU'VE"
     PRINT TAB(2)"LOST YOUR"
     PRINT TAB(2)Tok;CHR$(8);"0000t."
     FOR I=1 TO 4000:NEXT I
     MORD=1
     GOSUB SpeechBubble3
     LOCATE 15,2
     COLOR 0,1
     PRINT "LETS SEE"
     PRINT TAB(2)"WHAT YOU"
     PRINT TAB(2)"HAVE WON"
     PRINT TAB(2)"ALLREADY!"
     GOTO Winnings
   END IF
END IF     
   COLOR 2,1
   PRINT "HOT SPOT!"
   COLOR 0,1
   PRINT TAB(2)"YOU LOSE"
   PRINT TAB(2)"WHAT WAS"
   PRINT TAB(2)"  NOT "
   PRINT TAB(2)" BANKED"
   PRIZE$(S(P%),P%)="&"
   FOR I=1 TO 8
   IF LEFT$(PRIZE$(I,P%),1)="&" THEN PRIZE$(I,P%)="&<NOTHING>"
   NEXT I
   M%=C 
   FOR I=1 TO 2500:NEXT I
   MORD=3
   GOSUB SpeechBubble3
   RETURN

Question:
   SFQ%=0
   S(P%)=S(P%)+1
   PAINT (x,y),3,4
   NU%(PR%)=1
   J%=RND*3
   IF J%=<0 OR J%>6 THEN J%=6
   SFQ%=1
   ON J% GOSUB Quest1,Quest2,Quest3
   SFQ%=0
   RETURN
       
Cruise:
   VALUE$="500"
   NU%(PR%)=1
   AREAFILL
   COLOR 3
   AREAFILL
   AREA (x-5,y+2)
   AREA (x-4,y+6)
   AREA (x+1,y+6)
   AREA (x+4,y+2)
   AREAFILL
   COLOR 2
   AREAFILL
   AREA (x-1,y+2)
   AREA (x,y+2)
   AREA (x+2,y-2)
   AREA (x-1,y-2)
   AREA (x-5,y+2)
   AREA (x-3,y+2)
   AREAFILL
   COLOR 5
   AREAFILL
   AREA (x-1,y-4)
   AREA (x-3,y+2)
   AREA (x-1,y+2)
   AREA (x,y-4)
   AREAFILL
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "LUXURY"
   PRINT TAB(2)"CRUISE!"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&LUXURY CRUISE"
    GOSUB ContinueOrNot
    RETURN 

   
Food:
   VALUE$="120"
   NU%(PR%)=1
   AREAFILL
   COLOR 7
   AREAFILL
   AREA (x-7,y+6)
   AREA (x-5,y+2)
   AREA (x+3,y+2)
   AREA (x+1,y+6)
   AREAFILL
   COLOR 5
   AREAFILL
   AREA (x,y)
   AREA (x+3,y+2)
   AREA (x-5,y+2)
   AREAFILL
   LINE (x,y)-(x+1,y+1),2,bf
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "UNLIMITED"
   PRINT TAB(2)" FOOD!"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&UNLIMITED FOOD"
   GOSUB ContinueOrNot
   RETURN 
   
House:
   VALUE$="2000"
   NU%(PR%)=1
   AREAFILL
   COLOR 2
   AREAFILL
   AREA (x-4,y)
   AREA (x+4,y)
   AREA (x+1,y+8)
   AREA (x-8,y+8)
   AREAFILL
   COLOR 0
   AREAFILL
   AREA (x-4,y)
   AREA (x+1,y-6)
   AREA (x+4,y)
   AREAFILL 
   COLOR 5
   AREAFILL
   AREA (x-2,y+4)
   AREA (x-4,y+8)
   AREA (x-2,y+8)
   AREA (x,y+4)
   AREAFILL
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "A CANDY"
   PRINT TAB(2)"HOUSE!"
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&CANDY HOME"
   GOSUB ContinueOrNot
   RETURN 
       
Tv:          
   VALUE$="0"
   
   NU%(PR%)=1
   AREAFILL
   COLOR 3
   AREAFILL
   AREA (x-3,y-4)
   AREA (x+7-1,y-4)
   AREA (x+3-1,y+6)
   AREA (x-7,y+6)
   AREAFILL
   COLOR 0
   AREAFILL
   AREA (x-2,y-2)
   AREA (x+4-1,y-2)
   AREA (x+2-1,y+4)
   AREA (x-4,y+4)
   AREAFILL
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 3,1
   PRINT "A TV!"
   
   PRINT TAB(2)"(B)ANK,"
   PRINT TAB(2)"(S)TRIKE"
   PRINT TAB(2)"(C)ONT?"
   WINDOW OUTPUT 1
   S(P%)=S(P%)+1
   PRIZE$(S(P%),P%)="&TELEVISION"
   GOSUB ContinueOrNot
   RETURN 

BankIt:
   MORD=1
   GOSUB SpeechBubble4
   M%=C
   IF P%=1 THEN LOCATE 5,2
   IF P%=2 THEN LOCATE 5,12
   IF P%=3 THEN LOCATE 5,23
   COLOR 4,1  
   PRINT "BANK IT"
   FOR I=1 TO 1000:NEXT I
   MORD=7
   GOSUB SpeechBubble4
   RETURN   

StrikeIt:
   MORD=1
   GOSUB SpeechBubble4
   IF P%=1 THEN LOCATE 5,2
   IF P%=2 THEN LOCATE 5,12
   IF P%=3 THEN LOCATE 5,23
   COLOR 6,1
   PRINT "STRIKE"
   PRIZE$(S(P%),P%)="&#STRIKE#  "+VALUE$
   FOR I=1 TO 1000:NEXT I
   MORD=7
   GOSUB SpeechBubble4
   RETURN
   
SpeechBubble1:
   AREAFILL
   COLOR MORD
   AREAFILL
   AREA (0,190)
   AREA (20,180)
   AREA (10,180)
   AREA (0,190)
   AREAFILL
   LINE (3,120)-(82,180),MORD,bf
   RETURN

SpeechBubble2:
   AREAFILL
   COLOR MORD
   AREAFILL
   AREA (xs,ys+2)
   AREA (xs-6,ys-14)
   AREA (xs+4,ys-14)
   AREAFILL
   LINE (xs-10,ys-18)-(xs+28,ys-2),MORD,bf
   RETURN
    
SpeechBubble3:
   AREAFILL
   COLOR MORD
   AREAFILL
   AREA (0,190)
   AREA (20,180)
   AREA (10,180)
   AREA (0,190)
   AREAFILL
   LINE (3,120)-(100,180),MORD,bf
   RETURN

SpeechBubble4:
   AREAFILL
   COLOR MORD
   AREAFILL
   AREA (xs,ys+2)
   AREA (xs-6,ys-14)
   AREA (xs+4,ys-14)
   AREAFILL
   LINE (xs-38,ys-18)-(xs+34,ys-2),MORD,bf
   RETURN

Quest1:
   A$=""
   MORD=7
   GOSUB SpeechBubble2
   MORD=1
   GOSUB SpeechBubble3
   Num1%=RND*20
   Num2%=RND*20
   LOCATE 15,2
   COLOR 0,1
   PRINT
   PRINT TAB(2)"WHAT IS"
   PRINT TAB(2)Num1%;"+";Num2%
IF TYPE(P%)=0 THEN
   IF Num1%+Num2%<10 THEN K=1 ELSE K=2
   A$=""
   FOR I=1 TO K
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   MORD=1
   GOSUB SpeechBubble2
   COLOR 0,1
   PRINT A$
   J=0
   I$=""
   WHILE I$=""
   I$=INKEY$
   WEND
   IF I$=CHR$(8) THEN A$=LEFT$(A$,LEN(A$)-1):MORD=1:GOSUB SpeechBubble2:J=1:I=I-1
   IF I$<"0" OR I$>"9" THEN K=K-1:J=1:I=I-1
   IF J=0 THEN A$=A$+I$
   NEXT I
ELSE
   FOR I=1 TO 3000:NEXT I
   IF PIC(P%)=1 THEN GOSUB Kim
   IF PIC(P%)=2 THEN GOSUB Lilly
   IF PIC(P%)=3 THEN GOSUB Jacque
   IF PIC(P%)=4 THEN GOSUB Homer
   IF ROW%=0 THEN J%=Num1%+Num2%+RND*20
   IF ROW%=1 THEN J%=Num1%+Num2%
   A$=STR$(J%)
END IF
   MORD=3
   GOSUB SpeechBubble3
   MORD=1
   GOSUB SpeechBubble2
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   COLOR 0,1
   PRINT A$
   FOR I=1 TO 2000:NEXT I
   IF VAL(A$)=Num1%+Num2% THEN GOSUB Correct ELSE GOSUB Wrong
   FOR I=1 TO 4000:NEXT I
   MORD=7
   GOSUB SpeechBubble2
   MORD=3
   GOSUB SpeechBubble3
   RETURN

Quest2:
   A$=""
   MORD=1
   GOSUB SpeechBubble3
500 Num1%=RND*20
   Num2%=RND*20
   IF Num1%<Num2% THEN GOTO 500
   LOCATE 15,2
   COLOR 0,1
   PRINT
   PRINT TAB(2)"WHAT IS"
   PRINT TAB(2)Num1%;"-";Num2%
IF TYPE(P%)=0 THEN
   IF Num1%-Num2%<10 THEN K=1 ELSE K=2
   A$=""
   FOR I=1 TO K
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   MORD=1
   GOSUB SpeechBubble2
   COLOR 0,1
   PRINT A$
   J=0
   I$=""
   WHILE I$=""
   I$=INKEY$
   WEND
   IF I$=CHR$(8) THEN A$=LEFT$(A$,LEN(A$)-1):MORD=1:GOSUB SpeechBubble2:J=1:I=I-1
   IF I$<"0" OR I$>"9" THEN K=K-1:J=1:I=I-1
   IF J=0 THEN A$=A$+I$
   NEXT I
   ELSE
   FOR I=1 TO 3000:NEXT I
   IF PIC(P%)=1 THEN GOSUB Kim
   IF PIC(P%)=2 THEN GOSUB Lilly
   IF PIC(P%)=3 THEN GOSUB Jacque
   IF PIC(P%)=4 THEN GOSUB Homer
   IF ROW%=0 THEN J%=Num1%-Num2%+RND*20
   IF ROW%=1 THEN J%=Num1%-Num2%
   A$=STR$(J%)
END IF
   MORD=3
   GOSUB SpeechBubble3
   MORD=1
   GOSUB SpeechBubble2
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   COLOR 0,1
   PRINT A$
   FOR I=1 TO 2000:NEXT I
   IF VAL(A$)=Num1%-Num2% THEN GOSUB Correct ELSE GOSUB Wrong
   FOR I=1 TO 4000:NEXT I
   MORD=7
   GOSUB SpeechBubble2
   MORD=3
   GOSUB SpeechBubble3
   RETURN

Quest3:
   A$=""
   MORD=7
   GOSUB SpeechBubble2
   MORD=1
   GOSUB SpeechBubble3
   Num1%=RND*9
   Num2%=RND*9
   LOCATE 15,2
   COLOR 0,1
   PRINT 
   PRINT TAB(2)"WHAT IS"
   PRINT TAB(2)Num1%;"x";Num2%
IF TYPE(P%)=0 THEN
   IF Num1%*Num2%<10 THEN K=1 ELSE K=2
   FOR I=1 TO K
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   MORD=1
   GOSUB SpeechBubble2
   COLOR 0,1
   PRINT A$
   J=0
   I$=""
   WHILE I$=""
   I$=INKEY$
   WEND
   IF I$=CHR$(8) THEN A$=LEFT$(A$,LEN(A$)-1):MORD=1:GOSUB SpeechBubble2:J=1:I=I-1
   IF I$<"0" OR I$>"9" THEN K=K-1:J=1:I=I-1
   IF J=0 THEN A$=A$+I$
   NEXT I
ELSE
   FOR I=1 TO 3000:NEXT I
   IF PIC(P%)=1 THEN GOSUB Kim
   IF PIC(P%)=2 THEN GOSUB Lilly
   IF PIC(P%)=3 THEN GOSUB Jacque
   IF PIC(P%)=4 THEN GOSUB Homer
   IF ROW%=0 THEN J%=(Num1%*Num2%)+RND*20
   IF ROW%=1 THEN J%=Num1%*Num2%
   A$=STR$(J%)
END IF
    MORD=3
   GOSUB SpeechBubble3
   MORD=1
   GOSUB SpeechBubble2
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   COLOR 0,1
   PRINT A$
   FOR I=1 TO 2000:NEXT I
   IF VAL(A$)=Num1%*Num2% THEN GOSUB Correct ELSE GOSUB Wrong
   FOR I=1 TO 4000:NEXT I
   MORD=7
   GOSUB SpeechBubble2
   MORD=3
   GOSUB SpeechBubble3

   RETURN
   
Quest4:
   A$=""
   MORD=7
   GOSUB SpeechBubble2
   MORD=1
   GOSUB SpeechBubble3
501 Num1%=RND*50
   Num2%=RND*30
   IF Num1%<Num2% THEN GOTO 501
   Num3%=Num1%-Num2%
   LOCATE 15,2
   COLOR 0,1
   PRINT "IF x+";Num2%
   PRINT TAB(2)"  =  ";Num1%
   PRINT TAB(2)"WHAT IS x"
   PRINT TAB(2)"WORTH?"
IF TYPE(P%)=0 THEN
   IF Num3%<10 THEN K=1 ELSE K=2
   FOR I=1 TO K
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   MORD=1
   GOSUB SpeechBubble2
   COLOR 0,1
   PRINT A$
   J=0
   I$=""
   WHILE I$=""
   I$=INKEY$
   WEND
   IF I$=CHR$(8) THEN A$=LEFT$(A$,LEN(A$)-1):MORD=1:GOSUB SpeechBubble2:J=1:I=I-1
   IF I$<"0" OR I$>"9" THEN K=K-1:J=1:I=I-1
   IF J=0 THEN A$=A$+I$
   NEXT I
ELSE
   FOR I=1 TO 3000:NEXT I
   IF PIC(P%)=1 THEN GOSUB Kim
   IF PIC(P%)=2 THEN GOSUB Lilly
   IF PIC(P%)=3 THEN GOSUB Jacque
   IF PIC(P%)=4 THEN GOSUB Homer
   IF ROW%=0 THEN J%=Num3%+RND*20
   IF ROW%=1 THEN J%=Num3%
   A$=STR$(J%)
END IF
       MORD=3
   GOSUB SpeechBubble3
   MORD=1
   GOSUB SpeechBubble2
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   COLOR 0,1
   PRINT A$
   FOR I=1 TO 2000:NEXT I
   IF VAL(A$)=Num1%-Num2% THEN GOSUB Correct ELSE GOSUB Wrong
   FOR I=1 TO 4000:NEXT I
   MORD=7
   GOSUB SpeechBubble2
   MORD=3
   GOSUB SpeechBubble3

   RETURN

Quest5:
   A$=""
   MORD=7
   GOSUB SpeechBubble2
   MORD=1
   GOSUB SpeechBubble3
   Num1%=RND*50
   Num2%=RND*30
   
   Num3%=Num1%+Num2%
   LOCATE 15,2
   COLOR 0,1
   PRINT "IF y-";Num2%
   PRINT TAB(2)"  =  ";Num1%
   PRINT TAB(2)"WHAT IS y"
   PRINT TAB(2)"WORTH?"
IF TYPE(P%)=0 THEN
   IF Num3%<10 THEN K=1 ELSE K=2
   FOR I=1 TO K
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   MORD=1
   GOSUB SpeechBubble2
   COLOR 0,1
   PRINT A$
   J=0
   I$=""
   WHILE I$=""
   I$=INKEY$
   WEND
   IF I$=CHR$(8) THEN A$=LEFT$(A$,LEN(A$)-1):MORD=1:GOSUB SpeechBubble2:J=1:I=I-1
   IF I$<"0" OR I$>"9" THEN K=K-1:J=1:I=I-1
   IF J=0 THEN A$=A$+I$
   NEXT I
ELSE
   FOR I=1 TO 3000:NEXT I
   IF PIC(P%)=1 THEN GOSUB Kim
   IF PIC(P%)=2 THEN GOSUB Lilly
   IF PIC(P%)=3 THEN GOSUB Jacque
   IF PIC(P%)=4 THEN GOSUB Homer
   IF ROW%=0 THEN J%=Num3%+RND*20
   IF ROW%=1 THEN J%=Num3%
   A$=STR$(J%)
END IF
       MORD=3
   GOSUB SpeechBubble3
   MORD=1
   GOSUB SpeechBubble2
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   COLOR 0,1
   PRINT A$
   FOR I=1 TO 2000:NEXT I
   IF VAL(A$)=Num1%+Num2% THEN GOSUB Correct ELSE GOSUB Wrong
   FOR I=1 TO 4000:NEXT I
   MORD=7
   GOSUB SpeechBubble2
   MORD=3
   GOSUB SpeechBubble3
   FOR I=1 TO 3000:NEXT I
   
   RETURN
   
Quest6:
   A$=""
   MORD=7
   GOSUB SpeechBubble2
   MORD=1
   GOSUB SpeechBubble3
   Num1%=RND*12
   Num2%=Num1%*Num1%
   
   LOCATE 15,2
   COLOR 0,1
   PRINT "WHATS THE"
   PRINT TAB(2)" SQUARE  "
   PRINT TAB(2)" ROOT OF"
   PRINT TAB(2)Num2%
IF TYPE(P%)=0 THEN
   IF Num1%<10 THEN K=1 ELSE K=2
   FOR I=1 TO K
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   MORD=1
   GOSUB SpeechBubble2
   COLOR 0,1
   PRINT A$
   J=0
   I$=""
   WHILE I$=""
   I$=INKEY$
   WEND
   IF I$=CHR$(8) THEN A$=LEFT$(A$,LEN(A$)-1):MORD=1:GOSUB SpeechBubble2:J=1:I=I-1
   IF I$<"0" OR I$>"9" THEN K=K-1:J=1:I=I-1
   IF J=0 THEN A$=A$+I$
   NEXT I
ELSE
   FOR I=1 TO 3000:NEXT I
   IF PIC(P%)=1 THEN GOSUB Kim
   IF PIC(P%)=2 THEN GOSUB Lilly
   IF PIC(P%)=3 THEN GOSUB Jacque
   IF PIC(P%)=4 THEN GOSUB Homer
   IF ROW%=0 THEN J%=Num1%+RND*20
   IF ROW%=1 THEN J%=Num1%
   A$=STR$(J%)
END IF
       MORD=3
   GOSUB SpeechBubble3
   MORD=1
   GOSUB SpeechBubble2
   IF P%=1 THEN LOCATE 5,5
   IF P%=2 THEN LOCATE 5,15
   IF P%=3 THEN LOCATE 5,26
   COLOR 0,1
   PRINT A$
   FOR I=1 TO 2000:NEXT I
   IF VAL(A$)=Num1% THEN GOSUB Correct ELSE GOSUB Wrong
   FOR I=1 TO 4000:NEXT I
   MORD=7
   GOSUB SpeechBubble2
   MORD=3
   GOSUB SpeechBubble3
   RETURN

Kim:
   ROW%=0
   K%=RND*10
   IF K%>3 THEN ROW%=0
   IF K%<=3 THEN ROW%=1
   FOR I=1 TO 1000:NEXT I
   RETURN
   
Lilly:
   ROW%=0
   K%=RND*10
   IF K%>9 THEN ROW%=0
   IF K%<=9 THEN ROW%=1
   FOR I=1 TO 1000:NEXT I
   RETURN

Jacque:
   ROW%=0
   K%=RND*10
   IF K%>8 THEN ROW%=0
   IF K%<=8 THEN ROW%=1
   FOR I=1 TO 1000:NEXT I
   RETURN
   
Homer:
   ROW%=0
   K%=RND*10
   IF K%>1 THEN ROW%=0
   IF K%<=1 THEN ROW%=1
   FOR I=1 TO 1000:NEXT I
   RETURN

Correct:
   MORD=7
   GOSUB SpeechBubble2
IF L%<>0 THEN
   PAINT (x,y),1,4
   MORD=1
   GOSUB SpeechBubble3
   GOSUB Person
   LOCATE 16,2
   COLOR 7,1
   PRINT "CORRECT!"
   PRINT TAB(2)"YOU LOSE"
   PRINT TAB(2)"NO LIVES!"
   RETURN
END IF   
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 16,2
   COLOR 2,1   
IF SFF%=1 THEN
   PRINT "CORRECT"
   PRINT TAB(2)"YOU'RE IN"
   PRINT TAB(2)"THE FINAL"
   SOUND 1318,4,255,0
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1318,4,255,0
   
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1318,8.500000E+00,255,0
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1318,4,255,0
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1318,4,255,0
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1318,8.500000E+00,255,0
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1318,4,255,0
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1568,4,255,0
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1.046500E+03,6.500000E+00,255,0
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1.174700E+03,2,255,0
   SOUND 20,5.000000E-01,1.000000E-04,0
   SOUND 1.318500E+03,10,255,0

   FOR I=1 TO 4500:NEXT I
   RETURN
END IF   
IF G<M% THEN
   PRINT "CORRECT!!"
   PRINT TAB(2)
   PRINT TAB(2)"  NEXT"
   PRINT TAB(2)"QUESTION!"
ELSE
   PRINT TAB(2)"CORRECT!!"
   PRINT TAB(2)"WELL DONE"
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 392,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 440,6,255,0
   SOUND 20,5.500000E+00,4.000000E-01,0
END IF
   IF SFQ%=1 THEN PRIZE$(S(P%),P%)="&QUESTION - 100"
   RETURN
   
   
Wrong:
   MORD=7
   GOSUB SpeechBubble2
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 4,1
   IF L%<>0 THEN S(P%)=S(P%)-1:GOTO Hot
IF SFF%=1 THEN
   PRINT "OH NO!"
   PRINT TAB(2)"YOU GOT"
   PRINT TAB(2)"IT WRONG!"
   PRINT TAB(2)" THAT.."
   SOUND 300,7,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 250,7,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 200,7,255,0
   FOR I=1 TO 3000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 4,1
   PRINT "MEANS YOU"
   PRINT TAB(2)"CANT GET"
   PRINT TAB(2)"INTO THE"
   PRINT TAB(2)"FINAL!!"
   FOR I=1 TO 4000:NEXT I
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 0,1
   PRINT "OH WELL!"
   PRINT TAB(2)"LETS SEE"
   PRINT TAB(2)"  WHAT"
   PRINT TAB(2)"YOUVE WON"
   PRINT TAB(2)" ANYWAY!"
   FOR I=1 TO 4000:NEXT I
   GOTO Winnings
END IF  
IF SFQ%=0 THEN
   PRINT "WRONG!"
   P%=P%+1
   IF P%>3 THEN P%=1
   PRINT TAB(2)N$(P%)
   PRINT TAB(2)"YOU CAN"
   PRINT TAB(2)"MOVE IF.."
   FOR I=1 TO 3000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 4,1
   PRINT "YOU CAN"
   PRINT TAB(2)"ANSWER A"
   PRINT TAB(2)"  FEW"
   PRINT TAB(2)"QUESTIONS"
ELSE
   PRINT "WRONG!"
   PRINT TAB(2)"YOU LOSE"
   
   PRINT TAB(2)" PRIZES!"
   PRINT TAB(2)"THAT WERE"
   PRINT TAB(2)"UN-BANKED"
   PRIZE$(S(P%),P%)="&"
   FOR I=1 TO 8
   IF LEFT$(PRIZE$(I,P%),1)="&" THEN PRIZE$(I,P%)="&<NOTHING>"
   NEXT I
 
   M%=C 
END IF
   FOR I=1 TO 3000:NEXT I
   G=G-1
   IF P%=1 THEN LOCATE 5,5:xs=46:ys=48
   IF P%=2 THEN LOCATE 5,15:xs=146:ys=48
   IF P%=3 THEN LOCATE 5,26:xs=256:ys=48
   RETURN

REM **MAIN GAME ENDS HERE!**

Final:
   IF P%=1 THEN LOCATE 5,5:xs=46:ys=48
   IF P%=2 THEN LOCATE 5,15:xs=146:ys=48
   IF P%=3 THEN LOCATE 5,26:xs=256:ys=48
   MORD=7
   GOSUB SpeechBubble2
   MORD=3
   GOSUB SpeechBubble3
   FOR I=1 TO 1000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 4,1
   LOCATE 15,2
   PRINT N$(P%);","
   PRINT TAB(2)"ANSWER"
   PRINT TAB(2)"THIS AND"
   PRINT TAB(2)"YOU'RE IN"
   PRINT TAB(2)"THE FINAL"
   FOR I=1 TO 4000:NEXT I
   MORD=3
   GOSUB SpeechBubble3
1000 Q%=RND*6
   IF Q%=0 THEN GOTO 1000
   SFF%=1
   Num1%=0
   Num2%=0
   Num3%=0
   A$=""
   I$=""
   ON Q% GOSUB Quest1,Quest2,Quest3,Quest4,Quest5,Quest6
   FOR I=1 TO 4000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
ClearScreensBit:
   PRINT "  LETS"
   PRINT TAB(2)"CLEAR THE"
   PRINT TAB(2)" SCREENS" 
   PRINT TAB(2)"EVERYBODY"
   FOR I=1 TO 3000:NEXT I
   MORD=3
   GOSUB SpeechBubble3
   y=132:x=153
   FOR I=1 TO 8
   PAINT (x,y),1,4
   x=x+14
   NEXT I
   y=160:x=139   
   FOR I=1 TO 8
   PAINT (x,y),1,4
   x=x+14
   NEXT I
   y=191:x=124
   FOR I=1 TO 8
   PAINT (x,y),1,4
   x=x+14
   NEXT I
PrizePick:
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   PRINT "DO YOU"
   PRINT TAB(2)"WANT a)2"
   PRINT TAB(2)"HOTSPOTS"
   PRINT TAB(2)"FOR"
   PRINT TAB(2)"50000t"
   FOR I=1 TO 3000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   
   PRINT "  b)3"
   PRINT TAB(2)"HOTSPOTS"
   PRINT TAB(2)"FOR"
   PRINT TAB(2)"30000t"
   FOR I=1 TO 3000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   
   PRINT " OR c)4"
   PRINT TAB(2)"HOTSPOTS"
   PRINT TAB(2)"FOR"
   PRINT TAB(2)"20000t"
   FOR I=1 TO 3000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 0,1
   PRINT N$(P%);","
   PRINT TAB(2)"a,b OR"
   PRINT TAB(2)"c?  (d TO"
   PRINT TAB(2)"REPEAT!)"
   
   FOR I=1 TO 1000:NEXT I
   IF P%=1 THEN LOCATE 5,4:xs=46:ys=48
   IF P%=2 THEN LOCATE 5,14:xs=146:ys=48
   IF P%=3 THEN LOCATE 5,25:xs=256:ys=48
   MORD=1
   GOSUB SpeechBubble4
   COLOR 3,1
   WINDOW OUTPUT 1             
   IF TYPE(P%)=0 THEN
600  I$=""
     WHILE I$=""
     I$=INKEY$
     WEND
     I$=UCASE$(I$)
     IF I$<"A" OR I$>"D" THEN GOTO 600
     
   ELSE
601  M%=RND*3
     IF M%=0 THEN M%=1
     I$=""
     I$=CHR$(64+M%)
   END IF
   WINDOW OUTPUT 2
   COLOR 0,1
   PRINT I$
   IF I$="A" THEN Tok=5:L%=2
   IF I$="B" THEN Tok=3:L%=3
   IF I$="C" THEN Tok=2:L%=4
   IF I$="D" THEN MORD=7:GOSUB SpeechBubble4:GOTO PrizePick
   
   

GoodBye2And3:
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   PRINT "YOU`RE"
   PRINT TAB(2)"PLAYING"
   PRINT TAB(2)"FOR A BIG
   PRINT TAB(2)Tok;CHR$(8);"0000"
   FOR I=1 TO 3000:NEXT I
   MORD=7
   GOSUB SpeechBubble4
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   PRINT "BUT FIRST"
   PRINT TAB(2)"LETS SAY"
   PRINT TAB(2)"GOODBYE"
   PRINT TAB(2)"TO THE"
   PRINT TAB(2)"OTHERS"
   FOR I=1 TO 4000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 3,1
   LOCATE 17,2
   PRINT "GOODBYE!!"
   FOR I=1 TO 3000:NEXT I
IF P%=1 THEN
     OBJECT.OFF 2
     OBJECT.OFF 3
END IF
IF P%=2 THEN
     OBJECT.OFF 1
     OBJECT.OFF 3
END IF
IF P%=3 THEN
     OBJECT.OFF 1
     OBJECT.OFF 2
END IF    
   LOCATE 3,2
   COLOR 7,7
   PRINT "       "
   LOCATE 3,12
   PRINT "       "
   LOCATE 3,23
   PRINT "       "
IF P%=1 THEN MORD=1 ELSE MORD=7
   LOCATE 3,2
   COLOR MORD,7
   PRINT N$(1)
IF P%=2 THEN MORD=1 ELSE MORD=7
   COLOR MORD,7
   LOCATE 3,12
   PRINT N$(2)
IF P%=3 THEN MORD=1 ELSE MORD=7
   COLOR MORD,7
   LOCATE 3,23
   PRINT N$(3)
Explain:
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   PRINT "TO WIN,"
   PRINT TAB(2)"YOU HAVE"
   PRINT TAB(2)"TO GET"
   PRINT TAB(2)"FROM ONE"
   PRINT TAB(2)"SIDE OF.."
   FOR I=1 TO 5000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   PRINT "THE BOARD"
   PRINT TAB(2)"TO THE"
   PRINT TAB(2)"OTHER"
   PRINT TAB(2)"WITHOUT"
   PRINT TAB(2)"FINDING.."
   FOR I=1 TO 5000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 16,2
   PRINT "MORE THAN"
   PRINT TAB(2)L%;"HOT"
   PRINT TAB(2)"SPOTS!"
   FOR I=1 TO 4000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   PRINT "YOU MAY"
   PRINT TAB(2)"GET A"
   PRINT TAB(2)"QUESTION!"
   PRINT TAB(2)"GET IT"
   PRINT TAB(2)"WRONG..."
   FOR I=1 TO 5000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   PRINT "AND IT"
   PRINT TAB(2)"ACTS AS A"
   PRINT TAB(2)"HOTSPOT!"
   FOR I=1 TO 3000:NEXT I
   PRINT TAB(2)"SO LET`S"
   PRINT TAB(2)"GET GOING"
   FOR I=1 TO 4000:NEXT I
   S(P%)=0

MainLoop2:
   LOCATE 26,23
   COLOR 5,3
   IF L%>10 THEN L%=0
   PRINT "H.S.= ";L%
   IF L%=0 THEN L%=60
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   PRINT "CHOOSE"
   PRINT TAB(2)"THE (T)OP"
   PRINT TAB(2)"(M)IDDLE"
   PRINT TAB(2)"OR THE"
   PRINT TAB(2)"(B)OTTOM!"
   FOR I=1 TO 1000:NEXT I
   IF P%=1 THEN LOCATE 5,4:xs=46:ys=48
   IF P%=2 THEN LOCATE 5,14:xs=146:ys=48
   IF P%=3 THEN LOCATE 5,25:xs=256:ys=48
   MORD=1
   GOSUB SpeechBubble4
   COLOR 3,1
   WINDOW OUTPUT 1             
   IF TYPE(P%)=0 THEN
   
700  J=0
     I$=""
     WHILE I$=""
     I$=INKEY$
     WEND
     I$=UCASE$(I$)
     IF I$="T" THEN K=1
     IF I$="M" THEN K=1
     IF I$="B" THEN K=1
     IF K=0 THEN GOTO 700
   ELSE
701  M%=RND*3
     IF M%=0 THEN I$="T"
     IF M%=1 THEN I$="T"
     IF M%=2 THEN I$="M"
     IF M%=3 THEN I$="B"
     
     IF I$="T" THEN K=1
     IF I$="M" THEN K=1
     IF I$="B" THEN K=1
   END IF
   WINDOW OUTPUT 2
   COLOR 0,1
   IF P%=1 THEN LOCATE 5,2
   IF P%=2 THEN LOCATE 5,12
   IF P%=3 THEN LOCATE 5,23
   
   IF I$="T" THEN PRINT " TOP":GOSUB Top
   IF I$="M" THEN PRINT "MIDDLE":GOSUB Middle
   IF I$="B" THEN PRINT "BOTTOM":GOSUB Bottom
   IF S(P%)>7 THEN GOSUB WinOnFinal
   GOTO MainLoop2

Middle:
   FOR I=1 TO 3000:NEXT I
   MORD=7
   GOSUB SpeechBubble4
   MORD=3
   GOSUB SpeechBubble3
800 PR%=RND*24
   T=0
   IF NU%(PR%)<>0 THEN GOTO 800
   IF PR%=>0 AND PR%<14 THEN T=1
   IF PR%=>14 AND PR%<=20 THEN T=2
   IF PR%=>20 AND PR%<=24 THEN T=3
   y=160:x=139
   FOR I=1 TO S(P%)
   x=x+14
   NEXT I
   ON T GOSUB GoOn,Hot,Question
   
   RETURN

Bottom:
   FOR I=1 TO 3000:NEXT I
   MORD=7
   GOSUB SpeechBubble4
   MORD=3
   GOSUB SpeechBubble3
803 PR%=RND*24
   T=0
   IF NU%(PR%)<>0 THEN GOTO 803
   IF PR%=>0 AND PR%<14 THEN T=1
   IF PR%=>14 AND PR%<=20 THEN T=2
   IF PR%=>20 AND PR%<=24 THEN T=3
   y=191:x=124
   FOR I=1 TO S(P%)
   x=x+14
   NEXT I
   ON T GOSUB GoOn,Hot,Question
   
   RETURN

Top:
   FOR I=1 TO 3000:NEXT I
   MORD=7
   GOSUB SpeechBubble4
   MORD=3
   GOSUB SpeechBubble3
802 PR%=RND*24
   T=0
   IF NU%(PR%)<>0 THEN GOTO 802
   IF PR%=>0 AND PR%<14 THEN T=1
   IF PR%=>14 AND PR%<=20 THEN T=2
   IF PR%=>20 AND PR%<=24 THEN T=3
   y=132:x=153
   FOR I=1 TO S(P%)
   x=x+14
   NEXT I
   ON T GOSUB GoOn,Hot,Question
   
   RETURN

GoOn:
   NU%(PR%)=1
   S(P%)=S(P%)+1
   PAINT (x,y),1,4
   GOSUB Person
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 15,2
   COLOR 0,1
   PRINT "HOORAY!"
   PRINT TAB(2)"WELL"
   PRINT TAB(2)"DONE!"
   
   FOR I=1 TO 3000:NEXT I
   RETURN

Winnings:
   SCREEN 4,320,256,3,1
   WINDOW 3,,,16,4
   WINDOW OUTPUT 3
   PALETTE 0,0.000000E+00,0.000000E+00,0.000000E+00
   PALETTE 1,0.000000E+00,0.000000E+00,0.000000E+00
   PALETTE 4,0.000000E+00,0.000000E+00,8.000000E-01
   PALETTE 5,8.000000E-01,0.000000E+00,0.000000E+00
   PALETTE 6,0.000000E+00,8.000000E-01,0.000000E+00
   COLOR 0,7
   CLS
   LOCATE 1,1
   I$=""
   K=1
WHILE K<4
   FOR I=1 TO 8
   IF LEFT$(PRIZE$(I,K),1)="&" THEN PRIZE$(I,K)=RIGHT$(PRIZE$(I,K),LEN(PRIZE$(I,K))-1)
   NEXT I
   COLOR 5
   LOCATE 1,1
   PRINT "     PRIZES - PL";K
   PRINT "     =============="
   PRINT 
   COLOR 3+K,7
   PRINT "  SCREEN 1 - ";PRIZE$(1,K);"                  "
   COLOR 0,7
   PRINT "  SCREEN 2 - ";PRIZE$(2,K);"                  "
   COLOR 3+K,7
   PRINT "  SCREEN 3 - ";PRIZE$(3,K);"                  "
   COLOR 0,7
   PRINT "  SCREEN 4 - ";PRIZE$(4,K);"                 "
   COLOR 3+K,7
   PRINT "  SCREEN 5 - ";PRIZE$(5,K);"                 "
   COLOR 0,7
   PRINT "  SCREEN 6 - ";PRIZE$(6,K);"                 "
   COLOR 3+K,7
   PRINT "  SCREEN 7 - ";PRIZE$(7,K);"                 "
   COLOR 0,7
   PRINT "  SCREEN 8 - ";PRIZE$(8,K);"                 "
   PRINT

   IF WP%(K)=1 THEN COLOR 5,7:PRINT "  AND ";Tok;CHR$(8);"0000 Tokens" ELSE PRINT "                       "
   COLOR 3
   PRINT
   PRINT "      PRESS A KEY"
   I$=""
   WHILE I$=""
     I$=INKEY$
   WEND
   K=K+1
WEND
   SCREEN CLOSE 4
   WINDOW OUTPUT 2
   MORD=3
   GOSUB SpeechBubble3
   MORD=7
   GOSUB SpeechBubble4
   MORD=1
   GOSUB SpeechBubble3
   COLOR 0,1
   LOCATE 15,2
   PRINT "THATS ALL"
   PRINT TAB(2)"WE HAVE"
   PRINT TAB(2)"TIME FOR"
   PRINT TAB(2)"SO..."
   FOR I=1 TO 4000:NEXT I
   MORD=1
   GOSUB SpeechBubble3
   COLOR 3,1
   LOCATE 17,2
   PRINT "GOODBYE!"
   FOR I=1 TO 6000:NEXT I
CREDITS:
   COLOR 0,1
   WINDOW CLOSE 2
   SCREEN CLOSE 2
   SCREEN 2,320,256,3,1
   WINDOW 4,,,16,2
   PALETTE 0,0.000000E+00,0.000000E+00,0.000000E+00
   PALETTE 1,0.000000E+00,0.000000E+00,0.000000E+00
   COLOR 6,0
   CLS
   LOCATE 25,1
   PRINT "      STRIKE THE HUMANS"
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT 
   PRINT
   COLOR 7,0
   PRINT "  TITLE DESIGN      ENTEIRAH"
   PRINT
   SOUND 3.492300E+02,5-1,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 440,2.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "  MAIN GAME         ENTEIRAH"
   PRINT
   SOUND 5.232500E+02,4.500000E+00,255,0
   SOUND 20,1,4.000000E-01,0
   SOUND 3.492300E+02,4,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "  BOARD DESIGN      ..GUESS!"  
   PRINT
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   SOUND 3.492300E+02,5-1,255,0
   FOR I=1 TO 150:NEXT I
   PRINT "  ANIMATION         YEP, HIM!"
   PRINT
   SOUND 20,1,5.000000E-01,0
   SOUND 440,2.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00,255,0
   SOUND 20,2,4.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "  CHARACTERS        ENTEIRAH"
   PRINT
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "  TITLE MUSIC       YAMAHA"
   PRINT
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
CREDITS2:
   PRINT "  EXTRA MUSIC       ENTEIRAH"
   PRINT
   SOUND 4.938800E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 392,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 440,6,255,0
   SOUND 20,5.500000E+00,4.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "  HOT SPOT DESIGN   NO-ONE!"
   PRINT
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "  QUESTIONS         AMIGA"
   PRINT
   SOUND 3.492300E+02,5-1,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 440,2.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "  CREDITS           2004"
   PRINT
   SOUND 5.232500E+02,4.500000E+00,255,0
   SOUND 20,1,4.000000E-01,0
   SOUND 3.492300E+02,4,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "  CHARACTER DESIGN  ENTEIRAH"
   PRINT
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   SOUND 3.492300E+02,5-1,255,0
   FOR I=1 TO 150:NEXT I
   PRINT "  HOST              POLLY P."
   PRINT
   SOUND 20,1,5.000000E-01,0
   SOUND 440,2.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00,255,0
   SOUND 20,2,4.000000E-01,0
   FOR I=1 TO 350:NEXT I
CREDITS3:
   PRINT
   PRINT
   COLOR 6,0
   PRINT "BASED ON THE STRIKE THE HUMANS"
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "     GAME SHOW BY TERENCE"
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "  THANK YOU FOR READING THESE"
   SOUND 4.938800E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 392,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 440,6,255,0
   SOUND 20,5.500000E+00,4.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "      SILLY CREDITS! =;)"
CREDITS4:
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   FOR I=1 TO 350:NEXT I
   PRINT
   PRINT
   COLOR 5,0
   PRINT "     SPECIAL THANKS TO..."
   SOUND 5.873300E+02,8.500000E+00,255,0
   SOUND 20,3.500000E+00,5.000000E-01,0    
   SOUND 5.873300E+02,7.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   FOR I=1 TO 150:NEXT I
   PRINT
   COLOR 7,0
   PRINT "         RANDOM BLOKE"
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,1.500000E+00,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 440,3,255,0
   SOUND 20,5.300000E+00,4.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "          MB GAMES!!"
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "        THE AMIGA 500!"
   SOUND 5.873300E+02,8.500000E+00,255,0
   SOUND 20,3.500000E+00,5.000000E-01,0    
   SOUND 5.873300E+02,7.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
CREDITS5:
   PRINT "       ELECTRONIC ARTS!"
   SOUND 6.592600E+02,6,255,0
   SOUND 20,4,5.000000E-01,0
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1.300000E+00,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "         LILLY LIGER!"
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.873300E+02,8.500000E+00,255,0
   SOUND 20,3.500000E+00,5.000000E-01,0    
   SOUND 5.873300E+02,7.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT " JACQUELINE-JANE-LONGBLACK!!"
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 440,3,255,0
   SOUND 20,5,4.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "        KIM RETRIVA!!"
   SOUND 392,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0   
   SOUND 440,3.500000E+00,255,0
   SOUND 20,1.300000E+00,5.000000E-01,0
   SOUND 5.232500E+02,5.500000E+00,255,0
   SOUND 20,2,5.000000E-01,0
   SOUND 5.232500E+02,5.500000E+00,255,0
   SOUND 20,2,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
CREDITS6:
   PRINT "       HOMER SIMPSON!!"
   SOUND 5.232500E+02,3,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 5.873300E+02,3,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 5.232500E+02,3,255,0
   SOUND 20,5.000000E-01,5.000000E-01,0
   SOUND 6.592600E+02,8,255,0
   SOUND 20,12,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT 
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT "                 ...& MORE"
   SOUND 3.492300E+02,5-1,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 440,2.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT
   SOUND 5.232500E+02,4.500000E+00,255,0
   SOUND 20,1,4.000000E-01,0
   SOUND 3.492300E+02,4,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
CREDITS7:
   PRINT "  (c)TERENCE & CO. - 1998-2004"
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   SOUND 3.492300E+02,5-1,255,0
   FOR I=1 TO 150:NEXT I
   
   PRINT
   SOUND 20,1,5.000000E-01,0
   SOUND 440,2.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 5.232500E+02,4.500000E+00,255,0
   SOUND 20,2,4.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I

   PRINT
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT
   SOUND 4.938800E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 392,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 440,6,255,0
   SOUND 20,5.500000E+00,4.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT
   SOUND 440,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 4.938800E+02,4-5.000000E-01,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,4-5.000000E-01,255,O
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I

   PRINT
   SOUND 6.592600E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   FOR I=1 TO 150:NEXT I
   PRINT
   SOUND 4.938800E+02,3.500000E+00,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 392,1.500000E+00,255,0
   SOUND 20,4.950000E-01,5.000000E-01,0
   SOUND 440,6,255,0
   SOUND 20,5.500000E+00,4.000000E-01,0
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 300:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 250:NEXT I
   PRINT
   FOR I=1 TO 500:NEXT I
   PRINT
   CLEAR ,125000,2000
   SYSTEM

WinOnFinal:
   MORD=1
   GOSUB SpeechBubble3
   LOCATE 16,2
   COLOR 0,1
   PRINT "HOORAY!"
   PRINT TAB(2)"YOUVE WON"
   PRINT TAB(2)Tok;CHR$(8);"0000!"
   WAVE 0,SIN
   SOUND 6.592600E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 701,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 7.839900E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 7.839900E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 701,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
StartCash:
   FOR I=1 TO 10
   x%=RND*290+10
   y%=RND*220+10
   y=y%
   x=x%
   MORD%=RND*5+2
   MORD=MORD%

   AREAFILL
   COLOR MORD
   AREAFILL
   AREA (x-3,y-2)
   AREA (x+5,y-2)
   AREA (x+3,y+2)
   AREA (x-5,y+2)
   AREA (x-3,y-2)
   AREAFILL
   LINE (x+1,y-1)-(x,y+1),1
   NEXT I
   SOUND 5.873300E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,5,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,2,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,5,255,0
   SOUND 20,2,5.000000E-01,0
   SOUND 6.592600E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 701,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 7.839900E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 7.839900E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 701,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 6.592600E+02,3,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.873300E+02,5,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,2,255,0
   SOUND 20,1,5.000000E-01,0
   SOUND 5.232500E+02,5,255,0
   I$=""
   FOR I=1 TO 500
   x%=RND*290+10
   y%=RND*220+10
   y=y%
   x=x%
   MORD%=RND*5+2
   MORD=MORD%
   AREAFILL
   COLOR MORD
   AREAFILL
   I$=INKEY$
   IF I$<>"" THEN GOTO SkipMoneyBit
   AREA (x-3,y-2)
   AREA (x+5,y-2)
   AREA (x+3,y+2)
   AREA (x-5,y+2)
   AREA (x-3,y-2)
   AREAFILL
   LINE (x+1,y-1)-(x,y+1),1
   NEXT I
   FOR I=1 TO 3000:NEXT I
SkipMoneyBit:
   MORD=1
   GOSUB SpeechBubble3
   COLOR 2,1
   LOCATE 15,2
   
   PRINT "LETS SEE"
   PRINT TAB(2)"WHAT ELSE"
   PRINT TAB(2)"  YOUVE"
   PRINT TAB(2)"  WON!!"
   FOR I=1 TO 4000:NEXT I
   WP%=1
   GOTO Winnings