10 REM Sat,25 Apr 1992.00:41:01
   20 DEFFNS:$(PAGE+6)=TIME$:="PANCHT"
   30 FORL%=0TO2STEP2:P%=&C00:[:OPTL%
   40 JSR&FFF4:LDA#&60:STA&1A1D:STA&1A2A:STA&2845 \ SOME IMMORTALITY
   50 LDA#&EA:STA&24F5:STA&24F6\ SOME IMMORTALITY
   60 STA&2887:STA&2888\ INF LIVES
   70 RTS
   80 ]:NEXT
   90 *LO. OMCL
  100 ?&BAA=&00:?&BAB=&C:CALL&B00