sw/adventure/src/PCT.RA

   1         SECT    PCT
   2 /        PCT(N)=RND(100).LT.N
   3         EXTERN  RND
   4         JA      #ST
   5 #XR,    ORG     .+10
   6         TEXT    +PCT  +
   7 #RET,   SETX    #XR
   8         SETB    #BASE
   9         JA      .+3
  10 #BASE,  ORG     .+6
  11 N,      ORG     .+3
  12 HUND,   F 100.0
  13         ORG     #BASE+30
  14         FNOP
  15         JA      #RET
  16         FNOP
  17 #GOBAK, 0;0
  18 #RTN,   BASE    #BASE
  19         JA      #GOBAK
  20 #ST,    STARTD
  21         0210
  22         FSTA    #GOBAK,0
  23         0200
  24         SETX    #XR
  25         SETB    #BASE
  26         LDX     0,1
  27         FSTA    #BASE
  28         FLDA%   #BASE,1+
  29         FSTA    N
  30         STARTF
  31 /        RND(100)
  32         JSR     RND
  33         JA      .+0004
  34         JA      HUND
  35 /        .LT. N
  36         FSUB%   N
  37         EXTERN  #LT
  38         JSA     #LT
  39         JA      #RTN
  40         END