AMOS PD CD/amospdcd.iso/101-125/apd123/autoexec.amos/autoexec.amosSourceCode

AMOS Source Code | 1982-03-29 | 41KB | 1,367 lines

Set Buffer 20
Screen Open 0,320,200,2,Lowres : Wait Vbl : Bell : Curs Off : Flash Off : Cls 0
Dir$="APD123:"
Dim R(9),DX(7),DY(7),PT(20),PTX(20),PTY(20),BX(20),BY(20),BR(20),BT(20),BRT(3,2)
Dim PD$(160),COMP(5),COMP$(5),MP(80,4),MD(80,4),MES$(3),B(14),AMOS$(3),MAP$(10)
Dim LVL$(10),LTXT$(10),CDX(15),CDY(15)
No Icon Mask
Hide On
Music Off
CREDITS
Do
   CHEAT=0
   Load "adverts.abk",11
   Screen Open 0,288,176,16,Lowres
   Curs Off : Flash Off : Cls 0
   Hide On
   Screen Display 0,144,,288,
   Get Icon Palette
   Screen Open 2,320,208,16,Lowres
   Curs Off : Flash Off : Cls 0
   Get Icon Palette
   Screen Hide 2
   Screen Open 1,320,80,16,Lowres
   Curs Off : Flash Off : Cls 0 : Get Icon Palette
   Screen Display 1,,222,,80
    Extension_5_0084 16,16
    Extension_5_0026 0,0 To 320,208
   If Length(6)=0
      Reserve As Data 6,1604
   End If
   Screen 0
   Double Buffer
   Autoback 0
   Bob Update Off
   S=4
   Gosub RDBITS
   LDPD
   Limit Bob 0,0 To 288,176
   LIVES=5 : SPADES=0 : SCORE=0 : DISKS=0 : KEYS=0
   SETDISP
   S$=""
   For A=0 To 255
      S$=S$+Chr$((A mod 128)*2)
   Next A
   Set Wave 2,S$
   Wave 2 To 8
   Set Envel 2,0 To 1,63
   Set Envel 2,1 To 20,63
   Set Envel 2,2 To 20,0
   LVL=0
   SCORE=0
   CAR=0
   While LVL<11
      If MAP$(LVL)="" : NDLVL=-1 : LVL=11
      Else
         If LIVES>0
            Erase 6 : Reserve As Data 6,1604
            Bload MAP$(LVL),Start(6)
            HIX= Extension_5_00BC *16-288 : Rem hix=mapx*xsize-display width+16
            HIY= Extension_5_00C8 *16-176 : Rem hiy=mapy*ysize-display height+16
            CARX=-1
            Gosub SETBADDIES
            Gosub LVLDATA
            PTP=0
            NDLVL=0
            Music 1
            Screen 0
            If Extension_5_0156(7,0,0 To Extension_5_00BC -1, Extension_5_00C8 -1,1)>0
               Colour 8,$445 : Colour 9,$557
               Colour 10,$889 : Colour 11,$BAB
            Else
               Get Icon Palette
            End If
         End If
      End If
      Wait Vbl
      PIGHIT=0
      BIGBON=0
      While LIVES>0 and NDLVL>=0
         MX= Extension_5_0156(0,1,2 To Extension_5_00BC -1, Extension_5_00C8 -1,1)*16
         MY= Extension_5_0172(0,1,2 To Extension_5_00BC -1, Extension_5_00C8 -1,1)*16
         MX=MX-144 : X=144 : If MX<0 : X=Max(16,X+MX) : MX=0 : End If
         MY=MY-88 : Y=88 : If MY<0 : Y=Max(16,Y+MY) : MY=0 : End If
         S=4
         HXO=-1
         R=0 : LK=0
         OSCORE=-1
         PIGX=0
         Bob Off
         COPFLAG=0
         XCOP=-32
         YCOP=-32
         ROCKX=-1
         If CAR=1 : S=CARS : End If
         CAR=0 : CARS=4
         DIE=0
         DEAD=0
         T=0
         While DEAD=0 and NDLVL>=0
            GTG=1-GTG
            Screen 2
            MXO=MX : MYO=MY : XO=X : YO=Y
            NS=1 : HX=MX/16 : HY=MY/16
            FX=MX mod 16
            FY=MY mod 16
            If(HXO<>HX) or HYO<>HY or HXO=-1 Then Gosub NICEMAP Else Wait Vbl
            HXO=HX : HYO=HY
            If PTP>0 and DIE=0 : Gosub PTTILE : End If
            Screen 0
            Bob Clear
            Screen Copy 2,FX,FY,288+FX,176+FY To Logic(0),0,0
            If CAR=0
               If DIE=0
                  Bob 1,X,Y,R*2+T+1
               Else
                  Bob 1,X,Y,(DIE+11)*2+T+1
               End If
            Else
               Bob 1,X,Y,75+R
            End If
            Gosub BADDIES
            If CARX>0
               Gosub CARSHOW
            End If
            If PIGX>0
               Gosub PIGEON
            End If
            If EGGX>0
               Gosub EGG
            End If
            If COPFLAG
               Gosub COPCHOP
            End If
            If ROCKX>0
               Gosub ROCKET
            End If
            If SCORE<>OSCORE
               Gosub DISPSCORE
            End If
            On DEMO Gosub D1,D2,D3,D4,D5,D6,D7,D8
            Screen 0
            TLK=0
            PT=0
            If TENNIS=1
               If MY<TENY-32
                  MY=MY+Min(Abs(TENY-MY),16) : TLK=1
                  Y=Y-Min(Abs(TENY-MY),16)
                  MX=(MX/16)*16
                  MY=(MY/16)*16
                  TENPS=0 : TENCS=0 : TENBX=128 : TENBY=48 : TENDX=4 : TENDY=1
                  TENPY=48 : TENCY=48
               Else
                  Gosub PLYTENNIS
                  PT=1
                  PT2=1
               End If
            End If
            If MY>0 and Y<100 and TENNIS<>1
               MY=MY-8 : Y=Y+8 : TLK=1
            End If
            If PT=0 and PT2=1 : For A=25 To 29 : Bob A,999,1,1 : Next A : PT2=0 : End If
            Bob Draw
            Screen Swap
            C=Bob Col(1,2 To 2+NBAD)
            If C and DIE=0
               If CAR=0
                  DIE=1 : TT=0
               Else
                  SCRE=SCRE+1000
                  For A=2 To 2+NBAD
                     If Col(A)
                        BX(A-2)=-1 : A=999
                     End If
                  Next A
               End If
            End If
            C=Bob Col(1,34 To 34)
            If C
               CARS=S
               CAR=1
               S=0
               R=12 : CDX=0 : CDY=1
               CARX=-1
               Bob 34,999,1,1
               DLINE["Skid Pan 2, 'The Chase' Coming to Liscenceware Soon !"]
            End If
            If DIE>0 : V=0 : Inc TT
               If TT>2 : DIE=2 : T=Min(TT-3,1) : End If
               If TT=5 : DEAD=1 : Wait 20 : Sam Play 8,6 : End If
            End If
            If LK=0 and TLK=0
               DXO=DX : DYO=DY
               If ICE>0
                  If CAR=0
                     If DX=0 and DY=0
                        DX=Rnd(2)-1 : DY=Rnd(2)-1
                        R=Rnd(7)
                     End If
                     X=X+DX*S : Y=Y+DY*S
                     R=(R+1) mod 8
                  Else
                     SKID=1
                     X=X+SDX*S : Y=Y+SDY*S
                     R=(R+RD) mod 16
                  End If
                  Dec ICE : M=2
               Else
                  If CAR=0
                     DX=0 : DY=0 : M=0
                     If Jleft(1) : X=X-S : DX=-1 : M=1 : End If
                     If Jright(1) : X=X+S : DX=1 : M=1 : End If
                     If Jup(1) : Y=Y-S : DY=-1 : M=1 : End If
                     If Jdown(1) : Y=Y+S : DY=1 : M=1 : End If
                  Else
                     M=0
                     DX=CDX : DY=CDY
                     If Jleft(1) : DR=-1 : R=R-1 : R=(R+16) mod 16 : M=1 : End If
                     If Jright(1) : DR=1 : R=R+1 : R=R mod 16 : M=1 : End If
                     If M=1 and Fire(1) and S=4 : Inc SKKK
                     Else
                     SKKK=0 : End If
                     If SKKK>3+Rnd(6) : SKID=S : End If
                     If SKID=0
                        DX=CDX(R) : DY=CDY(R)
                        SDX=DX : SDY=DY
                     Else
                        Sam Play 8,7,30000
                        DX=SDX : DY=SDY
                        R=R+DR : R=R mod 16
                        If Fire(1)=0 : SKID=0 : End If
                     End If
                     If SKID=0 or Rnd(2)=1
                        Dec S
                     End If
                     If Fire(1) and SKID=0 : Add S,2 : S=Min(4,S) : End If
                     If Jdown(1) : Dec S : End If
                     If Jup(1)
                        DX=Sgn(DX) : DY=Sgn(DY)
                        CARX=MX+X-16 : CARY=MY+Y : S=CARS : CAR=0 : R=0
                     End If
                     S=Max(0,S)
                     If S>0
                        X=X+DX*S : Y=Y+DY*S
                        M=4
                     Else
                        SKID=0
                     End If
                     CDX=DX : CDY=DY
                  End If
               End If
               If SPIN=1
                  R=Rnd(7) : X=X+8*DX(R) : Y=Y+DY(R)*8 : DX=DX(R) : DY=DY(R) : M=1
                  SPIN=0
               End If
               If M>0
                  T=1-T : If M=1 and DIE=0 and CAR=0 : R=R((DX+1)+(DY+1)*3) : End If
               If X<160 and DX<0 : MX=Max(MX-S*M,0) : If MX=0 : X=Max(16,X) : Else X=160 : End If : End If
               If X>160 and DX>0 : MX=Min(HIX,MX+S*M) : If MX=HIX : X=Min(X,288) : Else X=160 : End If : End If
               If Y<100 and DY<0 : MY=Max(MY-S*M,0) : If MY=0 : Y=Max(16,Y) : Else Y=100 : End If : End If
               If Y>100 and DY>0 : MY=Min(HIY,MY+S*M) : If MY=HIY : Y=Min(160,Y) : Else Y=100 : End If : End If
               Else
                  DX=DXO : DY=DYO
               End If
            End If
            If Rnd(50)>48 and PIGX=0 and PIGHIT=0 and LVL mod 2=1
               PIGX=MX+X : PIGY=MY+192 : Sam Play 8,8,15000
            End If
            If LK=0
               TX=(MX+X)/16 : TY=(Y+MY)/16
               V= Extension_5_0142(TX,TY,0)
            End If
            TENNIS=0
            If(V=1 or V=64) and CAR=0 : Gosub FALL : End If
            If V=2 : Gosub MNE : End If
            If V=3 : Gosub PIT : End If
            If V>=128 : Gosub WALL : End If
            If V=4 : ICE=1 : End If
            If V=6 and M=0 : TENNIS=1 : TENY=MY+Y : End If
            If V=7
               If CAR=0
                  Gosub ROAD
               Else
                  RTIME=0
               End If
            Else
               If CAR>0
                  Gosub ROAD
               Else
                  RTIME=0
               End If
            End If
            If V=16 or V=17
               If CAR=0
                  Gosub PRTAL
               Else
                  Gosub WALL
               End If
            End If
            If CAR=0
               If V=18 or V=19 : Gosub WOBILDON : End If
               If V=39 : Gosub KEY : End If
               If V=32 : Gosub DISK : End If
               If V=33 : Gosub AMOSBOX : End If
               If V>33 and V<39 : Gosub COMPUTERBIT : End If
               If V=41 : Gosub COMPUTERBIT : End If
               If V=40 : Gosub SPADE : End If
               If V=8 and ROCKX<1 : Gosub LAUNCH : End If
            End If
            If V=5 : SPIN=1 : Sam Play 8,6 : End If
            TX=(MX+X)/16 : TY=(Y+MY)/16
            A$=Inkey$
            If A$<>"" : Gosub KEYCHECK : End If
            If Fire(1) and V<128 and DIE=0 and FO=0 and CAR=0
               Gosub FROUTINE
            End If
            FO=Fire(1)
         Wend : If DEAD : Dec LIVES : End If
      Wend
      If LIVES<=0
         LVL=11 : Rem end game
      Else
         Inc LVL
         If LVL<12 and LIVES>0
            Gosub NDLEVEL
         End If
      End If
   Wend
   Erase 6
   Reserve As Data 6,3204
   Screen Close 2
   Screen Close 0
   Screen Close 1
   Erase 11
   If LIVES<=0
      Bload "MGgameover.map",Start(6)
      Screen Open 0,320,208,16,Lowres
      Curs Off : Flash Off : Get Icon Palette : Cls 0
      Screen Display 0,144,56,304,192
       Extension_5_0026 0,0 To 320,192
       Extension_5_0006 0,0
      X=1
      Clear Key
      Double Buffer
      Autoback 0
      Auto View Off
      Update Off
      Bob Off
      Music Off
      Amal Off
      T=0
      M= Extension_5_00BC
      For A=0 To 15 : Colour A+16,Colour(A)
      Next A
      While Mouse Key=0 and(Inkey$="") and Fire(1)=0
         Y=Sin(Q#)*8+8
         Q#=Q#+0.1
         If Q#>Pi# : Q#=0 : End If
         Inc T : T=T mod 16
         If T=0
            Wait Vbl
            Screen Copy Logic(0),16,0,320,192 To Logic(0),0,0
             Extension_5_004E X,0
            View
            Screen Offset 0,0,Y
            Screen Swap
            View
            Screen Copy Physic(0) To Logic(0)
            Inc X : X=X mod M
            View
         Else
            Screen Offset 0,T,Y
            View
            View
            Wait Vbl
            View
         End If
      Wend
Auto View On
   Else
      Load "engame.abk",11
      Auto View Off
      Screen Open 1,320,20,16,Lowres
      Curs Off : Flash Off : Cls 0
      Screen Hide 1
      Unpack 11 To 0
      Auto View On
      Screen 1
      Ink 1,0,0
      Text 0,8,"Arnie can now write his"
      Get Block 2,0,0,320,10,1
      Screen 0
Get Block 1,0,0,320,12
      Put Block 2,0,0
      Screen 1 : Cls 0
Wait 200
      Text 0,8,"Amazing AMOS article"
      Get Block 2,0,0,320,10,1
      Screen 0
Put Block 1,0,0
      Put Block 2,0,0
      Wait 200
      Screen 1 : Cls 0 : Ink 1,0,0
      Text 0,8,"Once he puts 50p in the meter !"
      Get Block 2,0,0,320,10
      Screen 0
      Fade 1,0,$FFF,$FFF,0,0,0,0,0,0,0,0,0,0,0,0,0
 Cls 0
Put Block 2,0,0
For A=91 To 94
Bob 1,173,124,A
Bob Update
Wait 5
Wait Vbl
Next A
      While Mouse Key=0 and Fire(1)=0 and(Inkey$="")
      Wend
   End If
Loop
DISPSCORE:
Screen 1
Put Block 3,16,20
A$=Right$("0000000"+Mid$(Str$(SCORE),2),7)
For A=1 To 7
   Paste Bob 17+A,16+A*6,34+Val(Mid$(A$,A,1))
Next A
OSCORE=SCORE
Put Block 4,288,20
A=0 : C=0 : While A<LIVES
   Paste Bob 293,20+A*5,30 : Inc A : Inc C
Wend
A=0 : While A<KEYS and A<4 and C<12
   Paste Bob 292,20+C*5,29 : Inc A : Inc C
Wend
A=0 : While A<SPADES and A<4 and C<12
   Paste Bob 290,20+C*5,31 : Inc A : Inc C
Wend
Ink 15
Return
CARSHOW:
If CARX>=MX and CARX<=MX+302 and CARY>=MY and CARY<=MY+192
   Bob 34,CARX-MX,CARY-MY,81
Else
   Bob 34,999,1,1
End If
Return
LAUNCH:
ROCKX=MX+X : ROCKY=MY+Y : ROCKR=R
PT[7,TX,TY]
Return
ROAD:
If RTIME<20
   Inc RTIME
Else
   COPFLAG=1
End If
Return
WOBILDON:
 Extension_5_00EC 1,8,9
HXO=-1
Return
FROUTINE:
V2= Extension_5_0142(TX+DX(R),TY+DY(R),1)
If SPADES>0
   Sam Play 8,5
   Dec SPADES : SCORE=SCORE+50
   PT[V2,TX+DX(R),TY+DY(R)]
Else
   V3= Extension_5_0096(TX+DX(R),TY+DY(R))
   If V2<>V3 and V3<>6
      Sam Play 8,4
      If V3<>97
         PT[97,TX+DX(R),TY+DY(R)]
      Else
         PT[7,TX+DX(R),TY+DY(R)]
      End If
   End If
End If
Return
SPADE:
Inc SPADES
Sam Play 8,4
PT[7,TX,TY]
SCORE=SCORE+100
Sam Play 8,1
Return
COMPUTERBIT:
If V=41 : V2=39
Else V2=V
End If
COMP(V2-34)=1
SHWCOMP
SCORE=SCORE+(LVL+1)*5000
PT[7,TX,TY]
Sam Play 8,6
BIGBON=1
NDLVL= Extension_5_0156(8,0,0 To Extension_5_00BC -1, Extension_5_00C8 -1,0)
Return
AMOSBOX:
Inc AMBOX
SHWGOODIES[AMBOX-1]
If AMBOX=2 : S=6 : DLINE["AMOS TOME makes map games easier !"] : End If
SCORE=SCORE+10000
PT[7,TX,TY]
Sam Play 8,6
BIGBON=1
NDLVL= Extension_5_0156(8,0,0 To Extension_5_00BC -1, Extension_5_00C8 -1,0)
Return
DISK:
Inc DISKS
SHWDISK[DISKS]
SCORE=SCORE+500
PT[7,TX,TY]
 Extension_5_00A8 7,TX,TY
NDLVL= Extension_5_0156(8,0,0 To Extension_5_00BC -1, Extension_5_00C8 -1,0)
If BIGBON=0
   NDLVL=0
End If
Return
KEY:
Inc KEYS
Sam Loop Off : Sam Play 8,4
PT[7,TX,TY]
SCORE=SCORE+250
Return
PRTAL:
If KEYS=0 : X=XO : Y=YO : MX=MXO : MY=MYO
Else
   Dec KEYS : Sam Loop Off : Sam Play 8,5 : SCORE=SCORE+5
   PT[32+(V-16)*7,TX,TY]
End If
Return
WALL:
MX=MXO : MY=MYO : X=XO : Y=YO
If CAR=1
   SDX=Rnd(1)*(-SDX)
   SDY=Rnd(1)*(-SDY)
   SKID=1
   Sam Play 8,2
End If
Return
PIT:
PT[5+WP*24,TX,TY]
Return
PTTILE:
For A=0 To PTP-1
   PT=PT(A) : PTX=PTX(A) : PTY=PTY(A)
   If PTX>=0 and PTX< Extension_5_00BC and PTY>0 and PTY< Extension_5_00C8
       Extension_5_00A8 PT,PTX,PTY
      TX=PTX*16-(MXO/16)*16 : TY=PTY*16-(MYO/16)*16
      If TX>=0 and TX<=320 and TY>=0 and TY<=192
         Screen 2 : Paste Icon TX,TY,PT+1
      End If
   End If
Next A
PTP=0
Return
MNE:
Gosub FALL : TT=1 : Sam Loop Off : Sam Play 8,2
PT[7,TX,TY]
Return
FALL:
DIE=1 : LK=1 : TT=0 : T=0 : MX=(MX/16)*16
X=((X)/16)*16+8 : MY=(MY/16)*16 : Y=((Y)/16)*16+8
PT[6,TX,TY]
Sam Loop Off : Sam Play 8,7
Return
LVLDATA:
Unpack 11 To 2
Flash Off
Screen Hide 2
Screen 0
Fade 1 To 2
GX=G mod 3
GY=G/3
GX=GX*93 : GY=GY*127
Cls 0
Screen Copy 2,96,184,209,214 To Logic(0),0,0
Screen Copy 2,132,131,171,183 To Logic(0),36,32
Screen Copy 2,190,133,279,151 To Logic(0),160,0
Ink 1,0
A$="LEVEL"+Str$(LVL+1)+"|"+LVL$(LVL)+"|"+LTXT$(LVL)
L=0
While A$<>""
   I=Instr(A$,"|")
   If I>0 and I<24
      L$=Left$(A$,I-1)
      L$=Left$(L$+Space$(24),24)
      A$=Mid$(A$,I+1)
   Else
      L$=Left$(A$+Space$(24),24)
      A$=Mid$(A$,25)
   End If
   While Right$(L$,1)<>" "
      A$=Right$(L$,1)+A$
      L$=Left$(L$,Len(L$)-1)
   Wend
   Text 100,40+L,L$
   L=L+8
Wend
Screen Copy Logic(0) To Physic(0)
While Fire(1)=0 and Mouse Key=0 and(Inkey$="") : Wend
While Mouse Key>0 or Fire(1) : Wend
Screen Open 2,320,208,16,Lowres
Curs Off : Flash Off
Get Icon Palette
Screen Hide 2
HXO=-1
Screen 0
Get Icon Palette
Wait Vbl
Return
NDLEVEL:
Unpack 11 To 2
Flash Off
Screen Hide 2
Screen 0
Fade 1 To 2
GX=G mod 3
GY=G/3
GX=GX*93 : GY=GY*127
Cls 0
Screen Copy 2,96,184,209,214 To Logic(0),0,0
Screen Copy 2,132,131,171,183 To Logic(0),36,32
Screen Copy 2,190,133,279,151 To Logic(0),160,0
Ink 1,0
A$="LEVEL"+Str$(LVL)+" COMPLETED !| |"
B$=""
If NBAD<0
   B$="Rambo Bonus for Total Needless violence 10000 pts"
   SCORE=SCORE+10000
Else
   MUG=0
   ROT=0
   For A=0 To NBAD-1
      If BT(A)=0 : Inc MUG : End If
      If BT(A)=1 : Inc ROT : End If
   Next A
   If MUG=0 and MUGS>0 : B$="Charlie Bronson Mugger Mashing Bonus, 5000 pts|" : SCORE=SCORE+5000 : End If
   If ROT=0 and ROTS>0 : B$=B$+"Roger Rottweiler Bonus for dooing doggies 2500 pts|" : SCORE=SCORE+2500 : End If
End If
A$=A$+B$
L=0
While A$<>""
   I=Instr(A$,"|")
   If I>0 and I<24
      L$=Left$(A$,I-1)
      L$=Left$(L$+Space$(24),24)
      A$=Mid$(A$,I+1)
   Else
      L$=Left$(A$+Space$(24),24)
      A$=Mid$(A$,25)
   End If
   While Right$(L$,1)<>" "
      A$=Right$(L$,1)+A$
      L$=Left$(L$,Len(L$)-1)
   Wend
   Text 100,40+L,L$
   L=L+8
Wend
Screen Copy Logic(0) To Physic(0)
While Fire(1)=0 and Mouse Key=0 and(Inkey$="") : Wend
While Mouse Key>0 or Fire(1) : Wend
Screen Open 2,320,208,16,Lowres
Curs Off : Flash Off
Get Icon Palette
Screen Hide 2
HXO=-1
Screen 0
Get Icon Palette
Wait Vbl
Return
PLYTENNIS:
If TENWIN=0
   If TENCHEER
      If TENCHEER=1
         For A=0 To 2
            Set Envel 0,A*2 To 2,63
            Set Envel 0,A*2+1 To 0,0
         Next A
         Wave 0 To %1000
         Noise To %111
         Volume 15,63
         Play %1000,70,0
         Play %111,90,0
      End If
      Play %1000,60+Rnd(10),0
      If Rnd(2)>1
         Screen 0
         For A=0 To 15 : Colour A,$FFF : Next A
         Fade 3 To 2
      End If
      Inc TENCHEER : If TENCHEER=16 : HXO=-1 : TENCHEER=0 : Wave 1 To 15 : End If
   Else
      TENPY=Max(40,Min(136,Y Screen(Y Mouse)))
      Bob 25,128,Y-3,34+TENPS
      Bob 26,192,Y-3,34+TENCS
      Bob 27,82,TENPY,32
      Bob 28,238,TENCY,32
      Bob 29,TENBX,TENBY,33
      TENBX=TENBX+TENDX : TENBY=TENBY+TENDY*2
      If TENBX<80 : Inc TENCS : TENBX=128 : TENBY=48+Rnd(90) : TENDY=Rnd(4)-Rnd(4) : TENDX=4 : TENCHEER=1 : End If
      If TENBX>240 : Inc TENPS : TENBX=192 : TENBY=48+Rnd(90) : TENDY=Rnd(4)-Rnd(4) : TENDX=-4 : TENCHEER=1 : SCORE=SCORE+10 : End If
      If TENBY<41 : TENDY=Abs(TENDY) : Sam Play 8,4 : End If
      If TENBY>135 : TENDY=-Abs(TENDY) : Sam Play 8,4 : End If
      B=Bob Col(27,29 To 29)
      If B and TENDX<0 : TENDX=4 : Sam Play 8,4 : D=-(TENPY-TENBY-1) : TENDY=Max(-4,Min(4,(D+1)/2)) : End If
      B=Bob Col(28,29 To 29)
      If B and TENDX>0 : TENDX=-4 : Sam Play 8,4 : D=-(TENCY-TENBY-1) : TENDY=Max(-4,Min(4,(D+1)/2)) : End If
      If TENCY<>TENBY
         TENCY=TENCY+Sgn(TENBY-TENCY-6)*4
      End If
      If TENPS>4 : DLINE["Player Wins 5 Bonus Keys"] : SCORE=SCORE+10000 : KEYS=KEYS+5 : TENWIN=1 : End If
      If TENCS>4 : DLINE["Computer Wins ! Player Gets 1 Key"] : SCORE=SCORE+500 : Inc KEYS : TENWIN=1 : End If
   End If
End If
Return
COPCHOP:
DX=Sgn(X-XCOP)
DY=Sgn(Y-YCOP)
If GTG=0
   If Abs(DX) : DY=0 : End If
Else
   If Abs(DY) : DX=0 : End If
End If
CR=DX-(DX<>0)+DY-2*(DY<>0)
Bob 32,XCOP,YCOP,57+CR*2+GTG
If GTG=1
   NEENAW=1-NEENAW
   V=Max(0,Min(63,63-((Abs(X-XCOP)+Abs(Y-YCOP))*32)/260))
   Volume 8,V
   Play 8,20+NEENAW*10,0
End If
If RTIME>=20
   XCOP=XCOP+DX*8 : YCOP=YCOP+DY*8
Else
   XCOP=XCOP-8 : YCOP=YCOP-8
   If XCOP<0 and YCOP<0
      Bob 32,999,1,1
      COPFLAG=0
   End If
End If
C=Bob Col(32,1 To 1)
If C and DIE=0
   DLINE["You're nicked sonny Jim !"]
   COPFLAG=0
   DIE=1 : TT=0
End If
Return
ROCKET:
RTX=(PIGX-ROCKX) : RTY=(PIGY-ROCKY)
If ROCKX>=MX and ROCKX<=MX+304 and ROCKY>=MY and ROCKY<=MY+192
   Bob 33,ROCKX-MX,ROCKY-MY,65+ROCKR
Else
   Bob 33,999,1,1
   ROCKX=-1
End If
DX=Sgn(RTX) : DY=Sgn(RTY)
ROCKX=ROCKX+DX*8 : ROCKY=ROCKY+DY*8
ROCKR=R((DX+1)+(DY+1)*3)
C=Bob Col(33,30 To 30)
If C
   Sam Play 8,2
   ROCKX=-1 : Bob 33,999,1,1
   SCORE=SCORE+1000
   PIGHIT=1
End If
Return
PIGEON:
If PIGX>=MX and PIGX<=MX+304 and PIGY>=MY and PIGY<=MY+192
   Bob 30,PIGX-MX,PIGY-MY,52+GTG+PIGHIT*21
   If EGGX<=0 and Rnd(10)>9 and PIGHIT=0
      Sam Play 8,7,16000
      EGGX=PIGX : EGGY=PIGY : EGGR=0
   End If
Else
   Bob 30,999,16,1
End If
PIGY=Max(0,Min(HIY+176,PIGY-6))
PIGX=Max(0,Min(HIX+288,PIGX-PIGHIT*4))
If PIGY<1 or PIGX<1
   PIGX=0
   Bob 30,999,16,1
End If
Return
EGG:
If EGGX>=MX and EGGX<=MX+304 and EGGY>=MY and EGGY<=MY+192
   Bob 31,EGGX-MX,EGGY-MY,54+EGGR
Else
   Bob 31,999,16,1
End If
If EGGX>-1
   EGGY=Max(0,Min(HIY+176,EGGY-4))
   EGGX=Max(0,EGGX-1)
   EGGTIME=EGGTIME+1
   If EGGTIME mod 4=0
      Inc EGGR
      If EGGR=3
         Sam Play 8,2
         If Rnd(10)>6
            ETX=EGGX/16 : ETY=EGGY/16
            V00= Extension_5_0096(ETX,ETY)
            V11= Extension_5_0142(ETX,ETY,0)
            If V11<32
               V2= Extension_5_0142(ETX,ETY,1)
               If V2=V00 and Rnd(100)>80
                  V2=7
               End If
               PT[V2,ETX,ETY]
            End If
         End If
         EGGX=-1
         Bob 31,999,1,1
      End If
   End If
End If
Return
BADDIES:
For B=0 To NBAD
   If BX(B)>0
      On BT(B)+1 Gosub BADDY1,BADDY2
   Else
      Bob Off B+2
   End If
Next B
If NBAD>=0
   If BX(NBAD)<=0
      Bob Off NBAD+2
      Dec NBAD
   End If
End If
Return
BADDY1:
' B=baddy number
'Baddy 1 runs straight, until hitting a wall, then he
'turns  right, reverse then left
BX=BX(B) : BY=BY(B)
BR=BR(B)
If BX>=MX and BX<=MX+304 and BY>=MY and BY<=MY+192
   Bob B+2,BX-MX+8,BY-MY+12,17+BR*2+GTG
Else
   Bob B+2,999,B*16,1
End If
BX=Max(0,Min(HIX+288,BX+DX(BR*2)*4)) : BY=Max(0,Min(HIY+176,BY+DY(BR*2)*4))
BTX=BX/16 : BTY=BY/16
V= Extension_5_0142(BTX,BTY,0)
If(V>0 and V<4) or V=64
   PT[6,BTX,BTY]
   BX(B)=-1 : SCORE=SCORE+100 : Sam Play 8,3
End If
If V=128 or V=16 or V=17
   Gosub B1TURN
End If
If BX(B)>-1
   BX(B)=BX : BY(B)=BY
   BR(B)=BR
End If
Return
B1TURN:
BTX=BX(B)/16 : BTY=BY(B)/16
BR=(BR+1) mod 4
F=0 : C=1 : While F=0 and C<4
   V= Extension_5_0142(BTX+DX(BR*2),BTY+DY(BR*2),0)
   If V<127 : F=1
   Else
      BR=((BR+BRT(C,0))+4) mod 4
      Inc C
   End If
Wend
BX=BTX*16 : BY=BTY*16
Return
BADDY2:
' B=baddy number
'Baddy 2 runs straight, until hitting a wall, then he
'turns  left, right then reverse
BX=BX(B) : BY=BY(B)
BR=BR(B)
If BX>=MX and BX<=MX+304 and BY>=MY and BY<=MY+192
   Bob B+2,BX-MX,BY-MY,44+BR*2+GTG
Else
   Bob B+2,999,B*16,1
End If
BX=Max(0,Min(HIX+288,BX+DX(BR*2)*4)) : BY=Max(0,Min(HIY+176,BY+DY(BR*2)*4))
BTX=BX/16 : BTY=BY/16
V= Extension_5_0142(BTX,BTY,0)
If(V=1 or V=3) or V=64
   PT[6,BTX,BTY]
   BX(B)=-1 : SCORE=SCORE+100 : Sam Play 8,3
End If
V2= Extension_5_0096(BTX,BTY)
If(V=128 and V2<>97) or V=16 or V=17 or V=2
   Gosub B2TURN
End If
If BX(B)>-1
   BX(B)=BX : BY(B)=BY
   BR(B)=BR
End If
Return
B2TURN:
BTX=BX(B)/16 : BTY=BY(B)/16
BR=(BR+3) mod 4
F=0 : C=1 : While F=0 and C<4
   V= Extension_5_0142(BTX+DX(BR*2),BTY+DY(BR*2),0)
   If V<127 : F=1
   Else
      BR=((BR+BRT(C,1))+4) mod 4
      Inc C
   End If
Wend
BX=BTX*16 : BY=BTY*16
Return
SETBADDIES:
MUGS=0 : ROTS=0
A=0 : B=0 : While B<2
   SX= Extension_5_0156(47+B,0,0 To Extension_5_00BC -1, Extension_5_00C8 -1,0)
   SY= Extension_5_0172(47+B,0,0 To Extension_5_00BC -1, Extension_5_00C8 -1,0)
   If SX>=0
      BX(A)=SX*16+8 : BY(A)=SY*16+8 : BR(A)=0 : BT(A)=B : Inc A
       Extension_5_00A8 7,SX,SY
      A=Min(20,A)
      If BT(A)=0
         Inc MUGS
      Else
         Inc ROTS
      End If
   Else
      Inc B
   End If
Wend
NBAD=A
SX= Extension_5_0156(50,0,0 To Extension_5_00BC -1, Extension_5_00C8 -1,0)
SY= Extension_5_0172(50,0,0 To Extension_5_00BC -1, Extension_5_00C8 -1,0)
If SX>=0 and LVL<>2
   CARX=SX*16+8 : CARY=SY*16+8
   M= Extension_5_0096(SX-1,SY)
    Extension_5_00A8 M,SX,SY
End If
Return
D1:
Screen 1
If DTIME=0
   For A=0 To 5 : Paste Icon A*16+34,20,48+A : Next A
   DTIME=1
Else
   Screen Copy 1,DTIME+32,20,DTIME+129,36 To 1,DTIME+33,20
   Inc DTIME
   If DTIME=160
      DEMO=0
      Cls 0,48,20 To 288,36
   End If
End If
Return
D2:
Screen Copy 1,52,20,288,36 To 1,48,20
Screen 1
Inc DTIME
If DTIME=4 : DTIME=0
   A=Asc(Left$(MES$,1))-65
   MES$=Mid$(MES$,2)+Left$(MES$,1)
   If Left$(MES$,1)="x"
      DEMO=0
   Else
      If A>=0 and A<26
         Paste Icon 272,20,A+48
      Else
         Cls 0,272,20 To 288,36
      End If
   End If
End If
Return
D3:
Screen 1
If DTIME=0
   VK=0 : VX=48 : VX4=-1 : DTIME=1
Else
   Cls 0,48,20 To 288,36
   Paste Icon VX,21,76+Sgn(VK) : VX=VX+2 : If VK>0 : Paste Icon VK,21,79+VT : VT=(VT+1) mod 3 : End If
   If VX4>0 : Put Block 1,VX4,20 : End If
   If VX=80 : VX4=48 : Paste Icon 48,20,78 : Get Block 1,48,20,16,16,1 : End If
   If VX4=VX : Sam Play 8,2 : VK=VX : VT=0 : DLINE["Virus X4.0 Kills all viruses!"] : End If
   If VX4>0 : VX4=VX4+4 : End If
   If VX4>272 or VX>272 : DEMO=0 : Cls 0,48,20 To 288,76 : End If
End If
Return
D4:
If DTIME=0
   DTIME=1 : B1=48 : B2=272
   Paste Icon B1,52,74 : Get Block 1,B1,52,16,16,1
   Paste Icon B2,52,75 : Get Block 2,B2,52,16,16,1
Else
   Screen 1
   Cls 0,48,20 To 288,70
   If V0>0 : V0=V0-8
   Else
      V0=Min(32,Vumeter(0)/4)
   End If
   If V1>0 : V1=V1-8
   Else
      V1=Min(32,Vumeter(2)/4)
   End If
   Put Block 1,B1,52-V0 : Put Block 2,B2,52-V1
   Inc B1 : Dec B2
   If B1>272 or B2<48 : DEMO=0 : Cls 0,48,20 To 288,70 : DLINE["Are your balls music sensitive ?"] : End If
End If
Return
D5:
Screen 1
If DTIME=0
   Paste Icon 48,62,82 : Get Block 1,48,63,16,16,1
   Paste Icon 48,46,83 : Get Block 2,48,47,16,16,1
   For A=48 To 272 Step 16 : Paste Icon A,20,84+Rnd(2) : B((A-48)/16)=1 : Next A
   DTIME=1 : BRX=48 : BRY=46 : DX#=1 : BSP=2 : DBY=-1 : BALL=3
Else
   Cls 0,48,28 To 288,78
   BTX=Max(48,Min(272,X Screen(X Mouse)))
   Put Block 1,BTX,62 : Put Block 2,BRX,BRY
   BRX=BRX+DX# : BRY=BRY+DBY*BSP : If BRX<48 or BRX>282 : Sam Play 8,4 : BRX=Max(48,Min(282,BRX)) : DX#=-DX# : End If
   If BRY<18 : Sam Play 8,4 : BRY=18 : DBY=1 : Gosub CHECKBRICKS : End If
   If BRY>58 : If BRX>BTX-4 and BRX<BTX+16 : Sam Play 8,4 : BRY=Min(61,BRY) : DBY=-1 : DX#=Max(-4,Min(4,(BRX-BTX-4)/2.0)) : End If : End If
   If BRY>62 : Sam Play 8,2 : Dec BALL : BRX=48 : BRY=46 : DX#=1 : DBY=-1 : If BALL=0 : DEMO=0 : Cls 0,48,20 To 288,78 : End If : End If
   Inc DTIME : If DTIME mod 150=0 : BSP=Min(6,BSP+1) : End If
End If
Return
CHECKBRICKS:
B=Max(0,Min(14,(BRX-46)/16)) : If B(B)=1 : SCORE=SCORE+10 : End If
Cls 0,48+B*16,20 To 64+B*16,26
B(B)=0 : F=0 : For A=0 To 14 : If B(A)=1 : F=1 : A=99 : End If
Next A
If F=0 : DLINE["Special Arcadia Bonus !"] : SCORE=SCORE+100000 : DEMO=0 : Cls 0,48,20 To 288,78 : End If
Return
D6:
Screen 1
Paste Icon 272-DTIME,22,87+DTIME mod 2
Ink Rnd(15) : Bar 280-DTIME,20 To 281-DTIME,21 : Inc DTIME
If DTIME=224 : Cls 0,48,20 To 288,38 : DEMO=0 : End If
Ink 15,0
Return
D7:
Screen 1
Paste Icon 152,20,89+DTIME/8
Inc DTIME
If DTIME=52 : DEMO=0 : Cls 0,144,20 To 176,36 : End If
Return
D8:
Screen 1
Cls 0,48,20 To 288,52
Paste Icon 272-FTX-FTT*4,20,96
Paste Icon 272-FTX+FTT*4,36,97
If DTIME mod 2=0 : FTT=1-FTT
   FTX=FTX+8
End If
If FTX>=224 : Cls 0,48,20 To 288,52 : DEMO=0 : End If
Return
NICEMAP:
Screen 2
If HXO=-1 Then Extension_5_0006 HX,HY : Goto NDNICE
MDX=Sgn(HX-HXO)*16 : MDY=Sgn(HY-HYO)*16 : DX2=-(MDX<0)*16 : DY2=-(MDY<0)*16
Screen Copy 2,Max(0,MDX),Max(0,MDY),320,208 To 2,DX2,DY2
If HX<HXO Then Extension_5_003C HX,HY
If HX>HXO Then Extension_5_004E HX,HY
If HY<HYO Then Extension_5_0060 HX,HY
If HY>HYO Then Extension_5_0070 HX,HY
NDNICE: Return
RDBITS:
Restore BITS
For A=0 To 2 : For B=0 To 2 : Read R(A*3+B) : Next B : Next A
BITS: Data 1,2,3,0,0,4,7,6,5
For A=0 To 15 : Read CDX(A),CDY(A) : Next A
Data -4,0,-3,-1,-2,-2,-1,-3,0,-4,1,-3,2,-2,3,-1,4,0
Data 3,2,2,2,2,3,0,4,-2,3,-2,2,-3,2
For A=0 To 7 : Read DX(A),DY(A) : Next A
Data -1,0,-1,-1,0,-1,1,-1,1,0,1,1,0,1,-1,1
For B=0 To 1
   For A=0 To 3 : Read BRT(A,B) : Next A
Next B
Data 1,-2,3,1
Data 3,2,1,1
For A=0 To 5 : Read COMP$(A) : Next A
Data "Amiga","Monitor","Disk Drive","Mouse","Joystick","RAM CARD"
For A=0 To 3 : Read MES$(A) : Next A
Data "I HATE SCROLLY MESSAGES"
Data "OH NO A BORING SCROLLY MESSAGE"
Data "GREETS TO NOBODY FROM ANN T SOCIAL"
Data "GOSH A SCROLLY MESSAGE DEMO GOING ON AT THE SAME TIME AS THE GAME"
For A=0 To 2
   Read AMOS$(A)
Next A
Data "AMOS-The Creator|This game was written using the AMOS language and AMOS TOME. AMOS is available now. R.R.P �49.95"
Data "AMOS TOME|The TOtal Map Editor, used to write this game, gives you 27 new AMOS commands and the most powerfull map editor available on any machine. out Now !. �24.99"
Data "The AMOS Compiler|Make your programs go 2-10 times faster ! Compiles AMOS programs into executable machine code. available May 1991"
A=0 : Read MAP$
While MAP$<>"END"
   MAP$(A)=MAP$
   Read LVL$(A),LTXT$(A)
   Inc A
   Read MAP$
Wend
Data "deadline3.map","Easy Street","Find the Mouse, and P.D disks, avoid muggers, rottweilers and don't jaywalk !"
Data "deadline4.map","By the River","At least the sun is shining, find your AMOS package."
Data "deadline5.map","Techno Fear","Find the monitor."
Data "deadline6.map","Tinstone","Go racing and get the Ram upgrade"
Data "deadline7.map","Horsham Common","Find out about a U.F.O sighting, and get the Disk Drive"
Data "deadline8.map","Close Encounters","On board an alien ship, Find the TOME box !"
Data "deadline1.map","Mean Streets","Find the Joystick, and P.D disks, avoid muggers, rottweilers and don't jaywalk !"
Data "deadline2.map","Wobildin Park","There's an Amiga in here somewhere, and some sport !"
Data "deadline9.map","Hall of the Compiler","Find the compiler, but watch out !"
Data "END"
Return
Procedure CREDITS
   Load "tomelogo.abk",11
   Screen Open 0,320,256,16,Lowres : Curs Off : Flash Off : Cls 0
   Unpack 11 To 0
   SCROFF
   T$="This disk is public domain, and may be copied freely, as long as none of the files on it are"
   T$=T$+" removed, modified or used for any commercial gain (i.e coverdisks). Deadline is (c) Shadow Software/AMOS Club 1991"
   DTEXT[T$]
   SCROFF
   T$="AMOS TOME will be available in March 91, with a discount for AMOS Club Members."
   T$=T$+"TOME includes a new extension of 27 commands for AMOS, as well as the most powerfull Map Editor available for any computer!"
   DTEXT[T$]
   SCROFF
   T$="The AMOS Club provides programming advice and support for AMOS users."
   T$=T$+" Membership is �10 per year (�15 Overseas) and provides 6, 20 page newsletters"
   T$=T$+" as well as access to the AMOS Helpline, and the AMOS P.D Library."
   DTEXT[T$]
   SCROFF
   T$="Also on this disk are some typical AMOS programs from the newsletters."
   T$=T$+" More programs like these, as well as advice, hints, tips and help for absolute beginners to experts is in each newsletter."
   DTEXT[T$]
   SCROFF
   T$="To join the AMOS Club, send a cheque for the correct amount (�10 U.K, �15 Overseas) and your name and address"
   T$=T$+" to AARON FOTHERGILL, AMOS CLUB, 1 LOWER MOOR,WHIDDON VALLEY, BARNSTAPLE, N.DEVON. EX32 8NW, ENGLAND."
   DTEXT[T$]
   SCROFF
   T$=" The music in this game is from LUKE MILLER'S MUSIC DISK #1 from the AMOS P.D Library"
   T$=T$+" Samples are from Peter Hickman's P.D samples disks."
   DTEXT[T$]
   SCROFF
   T$="Instructions: You control Arnold Shortscribbler, who is trying to write an article for the next AMOS newsletter."
   T$=T$+" unfortunately, he has only a limited amount of time to collect together all his AMOS P.D collection, his Amiga"
   T$=T$+" and his AMOS software so that he can write the article [MORE]"
   DTEXT[T$]
   SCROFF
   T$="by the deadline for the next issue. Unfortunately, a huge storm has blown all of Arnold's disks and computer components"
   T$=T$+" out of the window and throughout the town's park and streets !"
   T$=T$+" [MORE]"
   DTEXT[T$]
   SCROFF
   T$="Arnold must avoid Muggers, Rottweilers, pits, water and mutant pigeons"
   T$=T$+" while collecting all his hardware and software. [MORE]"
   DTEXT[T$]
   SCROFF
   T$="Fortunately, Arnold has an unlimited supply of Stop Signs to divert muggers"
   T$=T$+" and can collect spades so that he can dig pits to trap either muggers or rottweilers."
   T$=T$+"[MORE]"
   DTEXT[T$]
   SCROFF
   T$="Go get em !"
   DTEXT[T$]
   SCROFF
   T$="AMOS TOME is (c) Shadow Software 1990. AMOS the Creator is (c) Mandarin/Jawx 1990."
   DTEXT[T$]
   SCROFF
   Z=Free
   Load "adverts.abk",11
End Proc
Procedure PT[P,X,Y]
   Shared PT(),PTX(),PTY(),PTP
   PT(PTP)=P : PTX(PTP)=X : PTY(PTP)=Y
   Inc PTP : PTP=Min(PTP,20)
End Proc
Procedure SHWCOMP
   Shared COMP(),COMP$()
   Screen 1
   C$=""
   For A=0 To 4 : If COMP(A)=1 : C$=C$+COMP$(A)+":" : End If
   Next A
   DLINE[C$]
End Proc
Procedure SHWDISK[D]
   Shared PD$(),MES$(),MES$,DTIME,DEMO,SCORE
   Z=Free
   If D<160
      A$=PD$(D-1)
      If A$="" : A$="This Could Be your disk !" : End If
      If(Left$(A$,3)="LPD") or(Left$(A$,3)="ACE")
         DLINE["This Disk "+A$]
         SCORE=SCORE+2000 : If Left$(A$,3)="ACE" : SCORE=SCORE+2500 : End If
      Else
         DLINE["This Disk APD"+Str$(D)+"-"+A$]
      End If
   Else
      DLINE["AMOS Club and AMOS Club P.D"]
   End If
   A$=Upper$(A$)
   If DEMO=0 : DTIME=0 : End If
   If Instr(A$,"FONTS") and DEMO=0 and Rnd(10)>8 : DEMO=1 : End If
   If Instr(A$,"DEMO") and DEMO=0 and Rnd(10)>7 : DEMO=2 : MES$=MES$(Rnd(3))+Space$(35)+"x" : End If
   If Instr(A$,"VIRUS") and DEMO=0 and Rnd(10)>3 : DEMO=3 : End If
   If Instr(A$,"MUSIC") and Rnd(10)>8 : Music Off : Bank Swap 3,9 : Music 1 : End If
   If Instr(A$,"SAMPLE") : Sam Loop Off : Sam Play 8,Rnd(8)+1 : End If
   If Instr(A$,"BALLS") and DEMO=0 and Rnd(10)>4 : DEMO=4 : End If
   If Instr(A$,"ARCADIA") and DEMO<4 and Rnd(10)>0 : DEMO=5 : DTIME=0 : End If
   If Instr(A$,"PAINT") and DEMO<5 : DEMO=6 : DTIME=0 : End If
   If Instr(A$,"REVERSI") and DEMO<5 : DEMO=7 : DTIME=0 : End If
   If Instr(A$,"TREASURE") and DEMO<5 : DEMO=8 : DTIME=0 : End If
End Proc
Procedure DLINE[D$]
   Ink 15,0 : Screen 1
   L$=Left$(D$+Space$(35),35) : R$=Left$(Mid$(D$,36)+Space$(35),35)
   While Right$(L$,1)<>" "
      R$=Right$(L$,1)+R$
      L$=Left$(L$,Len(L$)-1)
   Wend
   Text 20,9,Left$(L$+Space$(35),35) : Text 20,17,Left$(R$+Space$(35),35)
End Proc
KEYCHECK:
A$=Upper$(A$)
If CHEAT<24
   If A$=Mid$("HELLO I MUST BE CHEATING",CHEAT+1,1)
      Inc CHEAT
      If CHEAT=24
         DLINE["Of course you are !"]
      End If
   End If
Else
   If A$="N"
      NDLVL=-1 : BIGBON=1
   End If
   If A$="L"
      LIVES=5
   End If
End If
Return
Procedure SETDISP
   Screen 1
   Ink 2,0 : Box 17,1 To 303,78
   Ink 5,0 : Box 16,0 To 304,79
   DLINE["No P.D Disks Collected"]
   Ink 6,0
   A$="SCORE"
   For A=1 To 5
      Text 21,19+A*7,Mid$(A$,A,1)
   Next A
   A$="STATUS"
   For A=1 To 6
      Text 292,19+A*7,Mid$(A$,A,1)
   Next A
   Get Block 1,0,0,16,16
   Get Block 2,0,0,16,16
   Get Block 3,16,16,16,64
   Get Block 4,288,16,16,64
End Proc
Procedure SHWGOODIES[G]
   Shared AMOS$(),HXO
   Unpack 11 To 2
   Flash Off
   Screen Hide 2
   Screen 0
   Fade 1 To 2
   GX=G mod 3
   GY=G/3
   GX=GX*93 : GY=GY*127
   Cls 0
   Screen Copy 2,GX,GY,GX+93,GY+127 To Logic(0),0,0 : Screen Copy 2,96,184,209,214 To Logic(0),96,0
   Screen Copy 2,132,131,171,183 To Logic(0),132,32
   Screen Copy 2,190,133,279,151 To Logic(0),0,130
   Ink 1,0 : Text 100,90,"You have collected "
   A$=AMOS$(G)+" "
   I=Instr(A$,"|")
   Text 100,98,Left$(A$,I-1)
   A$=Mid$(A$,I+1)
   L=0
   While A$<>""
      L$=Left$(A$+Space$(24),24)
      A$=Mid$(A$,25)
      While Right$(L$,1)<>" "
         A$=Right$(L$,1)+A$
         L$=Left$(L$,Len(L$)-1)
      Wend
      Text 100,106+L,L$
      L=L+8
   Wend
   Screen Copy Logic(0) To Physic(0)
   While Fire(1)=0 and Mouse Key=0 and(Inkey$="") : Wend
   While Mouse Key>0 or Fire(1) : Wend
   Screen Open 2,320,208,16,Lowres
   Curs Off : Flash Off
   Get Icon Palette
   Screen Hide 2
   HXO=-1
   Screen 0
   Get Icon Palette
   Wait Vbl
End Proc
Procedure LDPD
   Shared PD$()
   A=0
   Restore PDLIST
   Do
      Read PD$
      Exit If PD$="END"
      PD$(A)=PD$
      Inc A
   Loop
   PDLIST:
   Data "Games Music Creator","Treasure Search","Fonts disk 1"
   Data "Fonts disk 2","Fonts disk 3","STOS to AMOS","Virus X 4.0"
   Data "Music & Samples","AMOS Big Demo V4","Samples 2","Samples 3","Samples 4"
   Data "Samples 5","Iff Pictures 1","Iff Pictures 2","Iff Pictures 3"
   Data "Instruments (ST-01)","Instruments (ST-02)","Microman's Music  Sensitive Balls Demo"
   Data "Arc Angel Demo 1","Word Square Solver","Fun School 3 Demo","Soundtrack Module 1"
   Data "Soundtracker Module 2","Soundtracker Module 3","Soundtracker Module 4"
   Data "Soundtracker Module 5","Soundtracker Module 6","Soundtracker Module 7"
   Data "Soundtracker Module 8","Screen Designer","AMOS Programs"
   Data "Pink Goes Ape Demo","Luke Miller's Music 1","Archivist","AMOS UPDATER"
   Data "Arc Angel Demo 3","IFF Fonts Disk","Music 2","Music 3","Music 4"
   Data "Music 5","Music 6","Music 7","Music 8","Music 9","Music 10","Music 11"
   Data "Music 12","Music 13","Wierd Science Demo","Forms Really Unlimited"
   Data "Curos & Stavros Mega Demo II","AMOS programs","Samples 6","Samples 7"
   Data "Samples 8","Samples 9","Quiz Game","Hockey Pista Demo","Luke Millers Music 2"
   Data "Arcadia","Hack Magic Demo Creator","Art Program + Other AMOS programs"
   Data "Amos Programs","Music 14","Music 15","Music 16","Music 17","Music 18","Music 19","Music 20"
   Data "Music 21","Music 22","Music 23","AMOS Utility Disk"
   Data "AMOS programs","IFF Pictures 4","Instruments (ST-03)","Instruments (ST-04)"
   Data "Jukebox Demo Disk 1","Jukebox Demo Disk 2","AMOS Paint","Luke Miller's Music 3"
   Data "Reversi & Snakes & Ladders","Instruments (ST-05)","Instruments (ST-06)"
   Data "Instruments (ST-07)","Instruments (ST-08)","Instruments (ST-09)"
   Data "Instruments (ST-10)","Instruments (ST-11)","Instruments (ST-12)"
   Data "Instruments (ST-13)","Instruments (ST-14)","Pair It","Dynamite Dick + Other programs"
   Data "Music 24","Benson Demo I","AMOS DEMO II","Auto Player","Chainsaw Death"
   Data "Pick-A-Puzzle","Pick-A-Puzzle Data Disk","Picture It","Picture it disk 2"
   Data "AMOS Programs 6","Music Player","Weird Science Demo II","Cross Fire"
   Data "Bladerunners Music Disk","Panthorus Mega Demo I","Panthorus Mega Demo I Disk 2"
   Data "Predators Demo","Balloonacy","J.P.M Sound","AMOS Music + upgrades","Fun School 3 Sprites"
   Data "Electro Cad Demo","AMOS Music Player","Nik Williams BC Pictures","Jukebox","Deadline (You're Playing it !)"
   Data "Bob Maniacs","Benson Demo II","Dreamers Disk Mag","Cybornetics Demo Disk II","MACC Computer Club Demo","Music Disk 1"
   Data "The Wooden Ball","Armageddon Demo","Family History Database+PFDB 3.0","Mandelbrot Generator"
   Data "SpectraPaint V2.0","Simon Says & Space Maths","Maths Calculator"
   Data "Tile Trial","Spanish Tutor","Master Race","AMOS Programs 7"
   Data "LPD-1: Colouring Book","LPD-2: Arc Angel's Maths","LPD-3: Curos & Stavros Demo I"
   Data "LPD-4: Thingamajig","LPD-5: Jungle Bungle","LPD-6: Pukadu","LPD-7: 4 Way Lynx"
   Data "LPD-8: Work and Play","LPD-9: AMOS Assembler","LPD-10: The Word Factory","LPD-11: Go-Getter"
   Data "ACE-1: SPRITE X. (AMOS Club Members only !)"
   Data "END"
End Proc
Procedure DTEXT[D$]
   L=0
   Ink 1,0
   Cls 0,0,150 To 320,256
   While D$<>""
      L$=Left$(D$+Space$(38),38)
      D$=Mid$(D$,39)
      While Right$(L$,1)<>" "
         D$=Right$(L$,1)+D$
         L$=Left$(L$,Len(L$)-1)
      Wend
      While Right$(L$,1)=" "
         L$=Left$(L$,Len(L$)-1)
      Wend
      Text 160-Len(L$)*4,158+L*8,L$
      Inc L
   Wend
End Proc
Procedure SCROFF
   Timer=0 : OK=0 : While OK=0 and Timer<1000 : OK=Mouse Key-Fire(1) : Wend
   For A=0 To 53 : Screen Copy 0,0,150,320,256 To 0,0,148 : Wait Vbl : Next A
End Proc