#
showstat 1
showinput 0
KILLALL
DEBUG = 1
USEHTML = 1
''
'<h1></h1>'
''
ACT '':GOTO 'intro'
ACT '':GOTO ''

---  ---------------------------------

# 
'<h1></h1>'
'<center>Rono Graisl</center>'
'<h1></h1>'
'<center> </center>'
ACT '':GOTO ''

---  ---------------------------------

# intro
$ONOBJSEL='ONOBJSEL'
$ONNEWLOC='ONNEWLOC'

'   "    , -  ,  . -         ..."'
'    ,    ,          ,  .'
'      ,      ,        ,       ,             .'
'   "     ...  , -  ,   , -     ...   ,  ,    .     ..."'
' - , , -     .'
' -   , -    ,        .'
'              .      ,    ,         .     :    -  .  ,        .           .       .'
'                      .'

ACT '':GOTO 'intro1'
-

#intro1
' -  ,    ,     ,     , -  ,           .'
'      ,     ,   ,  ,      ,      ,   . , ,   ,  ...'
'            .  ,          .'
' -  ,    ,    ,  ,    , -    . -     ,     ,   ,        ,    ,     .        ,           .    ,   ,  -  ...'
'        ,     ,       ,               ,         ,     .'
' -    ? -  , ,               ,    ,        ,    .'
' -  , -     . -     ,       ,    .    ,    .    ,       .'
' -  ? -                 .'
' -  ,            ,      ,    ,        .'
' -   ,    , -  ,     , -       .'
' -      . ,   ,    .    , !       .  ,          .     ,         ,    .'
'            ,             ,    .'
IF  = 0:
ADDOBJ ''
 = 1
END

ACT '':GOTO '1'
-

#ONOBJSEL
*CLR
CLA

! begin descriptions
IF $SELOBJ = '':'   ,    .'	
IF $SELOBJ = '':' ,    .'
IF $SELOBJ = '':'  ,    .'
IF $SELOBJ = '':'   -.'
IF $SELOBJ = '  ':'    - ,    .'
IF $SELOBJ = '':'    .'
IF $SELOBJ = '':'     .'
IF $SELOBJ = '':'   ,     .'
IF $SELOBJ = ' ':' ,   .'
IF $SELOBJ = ' ':' ,           .'
IF $SELOBJ = '':'  ,    .'
IF $SELOBJ = '':'  .'
IF $SELOBJ = '':' .'
IF $SELOBJ = '  ':'    ,    .'
IF $SELOBJ = ' ':'    .'
IF $SELOBJ = '':'  .'
IF $SELOBJ = '':' .'
IF $SELOBJ = '':' ,   .'
IF $SELOBJ = '':'  ,     .'
IF $SELOBJ = '':' ,     .'
IF $SELOBJ = ' ()':'          .'
IF $SELOBJ = '   ()':'      -  -,   .'
! end descriptions

IF $OBJECT[0] = '':
	ACT '':
		GOSUB 'USE_OBJECTS'
		IF USE_OBJECTS_OK = 0:
			GOSUB 'free'
			CLA
			'   .'
			ACT '':GOTO $LASTLOC
		END
		UNSEL
	END
	IF COUNTOBJ > 1:
		ACT '':
			$OBJECT[0] = $SELOBJ
			$OBJECT[1] = ''
			'    '
			CLA
		END
	END
	ACT '':UNSEL & GOTO $LASTLOC
ELSE
	$OBJECT[1] = $SELOBJ
	GOSUB 'MAKE_OBJECTS'
	IF MAKE_OBJECTS_OK = 0:
		$a = $OBJECT[1]
		$OBJECT[1] = $OBJECT[0]
		$OBJECT[0] = $a
		GOSUB 'MAKE_OBJECTS'
	END
	IF MAKE_OBJECTS_OK = 0:
		GOSUB 'free'
		'    .'
		ACT '':GOTO $LASTLOC
	END
END
-

#free
UNSEL
$OBJECT[0] = ''
*CLR
CLA
-

#USE_OBJECTS
USE_OBJECTS_OK = 1
$gsLoc = ''
IF $SELOBJ = '':
	$gsLoc = '_'
END
IF $SELOBJ = '':
	$gsLoc = ''
END
IF $SELOBJ = ' ()':
	$gsLoc = '_'
END
IF $SELOBJ = '':
	$gsLoc = '__'
END
IF $SELOBJ = '  ':
	$gsLoc = '_'
END
IF $SELOBJ = '   ()':
	$gsLoc = '_'
END
IF $SELOBJ = '':
	IF $LASTLOC = '4' AND  = 0:
		IF  = 1:$gsLoc = '_' ELSE $gsLoc = '_'
	END
END
IF $SELOBJ = '':
	IF $LASTLOC = '12':$gsLoc = '_'
END
IF $SELOBJ = '':
	IF $LASTLOC = '12' AND  = 1:$gsLoc = '_'
END
IF $SELOBJ = '':
	IF $LASTLOC = '24':$gsLoc = '_'
END
IF $SELOBJ = '':
	IF $LASTLOC = '25':$gsLoc = '_'
END
IF $SELOBJ = '':
	IF $LASTLOC = '26':$gsLoc = '_'
END
IF $SELOBJ = '':
	IF $LASTLOC = '24':$gsLoc = '_'
END
IF $SELOBJ = '':
	IF $LASTLOC = '25':$gsLoc = '_'
END
IF $SELOBJ = '':
	IF $LASTLOC = '26':$gsLoc = '_'
END
IF $SELOBJ = ' ':
	IF $LASTLOC = '27':$gsLoc = '_'
END
IF $SELOBJ = ' ':
	IF $LASTLOC = '35':$gsLoc = ''
END
IF $SELOBJ = '  ':
	IF $LASTLOC = '36':$gsLoc = ''
END
IF $SELOBJ = '  ':
	IF $LASTLOC = '37':$gsLoc = ''
END
IF $SELOBJ = '':
	IF $LASTLOC = '41':$gsLoc = '__'
END
IF $SELOBJ = '':
	IF $LASTLOC = '42':$gsLoc = '__'
END
IF $SELOBJ = '':
	IF $LASTLOC = '41':$gsLoc = '__'
END
IF $SELOBJ = '':
	IF $LASTLOC = '42':$gsLoc = '__'
END
IF $SELOBJ = ' ':
	IF $LASTLOC = '61' AND  = 1:$gsLoc = '_'
END
IF $SELOBJ = ' ':
	IF $LASTLOC = '62' AND  = 1:$gsLoc = '_'
END
IF $SELOBJ = ' ':
	IF $LASTLOC = '63' AND  = 1:$gsLoc = '_'
END
IF $SELOBJ = '':
	IF $LASTLOC = '39':$gsLoc = '_'
END

IF $gsLoc = '':
	USE_OBJECTS_OK = 0
ELSE
	GOSUB 'free'
	GOSUB $gsLoc
END
-

#MAKE_OBJECTS
	MAKE_OBJECTS_OK = 1
	$gsLoc = ''
	IF $OBJECT[0] = '' AND $OBJECT[1] = '':
		$gsLoc = '_'
	END
	IF $OBJECT[0] = '' AND $OBJECT[1] = '':
		$gsLoc = '_'
	END
							
	IF $gsLoc = '':
		MAKE_OBJECTS_OK = 0
	ELSE
		GOSUB 'free'
		GOSUB $gsLoc
	END
-

#ONNEWLOC
IF _USEOBJECT = 0: $LASTLOC = $CURLOC
LOC[$CURLOC] = 1
CLR
!PL ': <<$CURLOC>>'
IF  = 1:
PL '          .'
END
IF  = 1:
PL '    .'
END
IF  = 1 AND  = 1 AND  = 1:
 = 30
$ = 'ONNEWLOC'
GOSUB ''
END
IF  + 4 = :
 = 1
ELSE
 = 0
END
-

#
!     
 = 250
IF  <= 0: = 10
IF [$] = 0:
	[$] = 1
	 =  + 
	hwm.score = 
	''
	IF hwm.showscore = 1:
	'   <font color="blue">  <<>>    <<>> .</font>'
	''
	END
END
 = 10
-

#1
IF  = 1:
XGOTO '3'
ELSE
 = 1
END
'      ,      ,      .   -,  ,           ,  .'
'        ,      ,      ,      ,               ,   ,    .          ,    ,   ,      .'
'       ,      -  ,    ,   ,     .          ,     .'
'    ,         , ,   , ,   ,     ,   ,   ,     ,         .        ,        ,              .'
'    ,     ,    ,      .'

ACT ' ':GOTO '1'
ACT '  ':GOTO '2'
-

#_
'              .        .'
DELOBJ ''
ADDOBJ ' ()'
 = 1
''
XGOTO $LASTLOC
-

#_
'             .'
DELOBJ ' ()'
ADDOBJ ''
 = 0
''
XGOTO $LASTLOC
-

#__
'     ,       ,    .'
 = 1
''
XGOTO $LASTLOC
-

#_
'        .'
DELOBJ '  '
ADDOBJ '   ()'
 = 1
''
XGOTO $LASTLOC
-

#_
'        .'
DELOBJ '   ()'
ADDOBJ '  '
 = 0
''
XGOTO $LASTLOC
-

#_
'       -  -.'
DELOBJ ''
DELOBJ ''
ADDOBJ '  '
$ = '_'
GOSUB ''
''
XGOTO $LASTLOC
-

#_
'       ,     .'
DELOBJ ''
DELOBJ ''
ADDOBJ ' '
$ = '_'
GOSUB ''
''
XGOTO $LASTLOC
-

#1
'      ,     ,          ,          .'
'         ,  ,    .      ,      ,    .         .'
IF NO OBJ '':
ADDOBJ ''
END

ACT '':GOTO '3'
-

#2
' - , ! -         . -   ,    .   ! ,  ,         ,  .'
'       ,        ,         .  ,      ,       .'
IF NO OBJ '':
ADDOBJ ''
END
$ = '2'
GOSUB ''
ACT '':GOTO '3'
-

#3
'        ,     ,          . ,  ,     ,  .'
'      ,             .  ,         ,        .'
'        ,       .     ,       .'
'    ,   ,      .'

ACT '  ':GOTO '4'
ACT '  ':GOTO '5'
ACT '   ':GOTO '6'
ACT '    ':GOTO '7'
-

#4
IF  = 0:
IF  = 0:
' -  , ,         ! -     . - - ,  ,      !'
'   , ,  ,     ,    .'
ACT '':GOTO '3'
ELSE
' -    ! -     ,  . -      !'
' -   , -  ,    .'
IF  = 0:
' -      , -    . -        ,     !'
' -  ,    , -   .'
' -   ,  !      ,     .'
 = 1
END
ACT '  ':GOTO '8'
ACT '  ':GOTO '3'
END
ELSE
IF  = 0:
' -     ,         ! -    ,  ,    ,    .'
' -      , -   , . -           ,    ,     !'
 = 1
ELSE
'     ,    - .             .'
END
IF  = 0:
' -      , -   . -        ,     !'
' -  ,    , -   .'
' -   ,  !      ,     .'
 = 1
END
ACT '  ':GOTO '9'
ACT '  ':GOTO '3'
END
-

#5
'        ,      ,     .      ,   .            .      .'
'          ,     ,   -   .'

ACT '  ':GOTO '10'
IF NO OBJ '':
ACT '  ':GOTO '11'
ELSE
ACT '  ':GOTO '_'
END
ACT '  ':GOTO '27'
ACT '  ':GOTO '3'
-

#6
'       ,    ,   ,    .'
''
XGOTO '12'
-

#7
'        ,          .'
''
XGOTO '13'
-

#8
' -    ,   ? -  ,  , , .'
''
XGOTO '14'
-

#9
'           .'
''
XGOTO '14'
-

#_
' -    , ? -  ,    .'
' - !    ?! -  ,   . -  -  ...'
'       ,       ,           ׸ .'
' -  !    ,       ! -  ,  .'
' -     , -  , ,     ,  ,   ,      . -     ,    , ,   ,   .'
' -   ! -   . -         !'
DELOBJ ''
 = 30
$ = '_'
GOSUB ''

ACT '':GOTO '4'
-

#_
' -    ? -  ,    .'
' - , , ! -  ,     . -  -   !     !'
'        ,   ,        .'
' -  , , -  ,     , -         .   ,       .     .'
' -    , - ,  . -     ,     !'
'   , ,   ,      ,    .'
DELOBJ ''

ACT '':GOTO '3'
-

#10
IF  = 0:
IF  = 0:
' -    ! -     ,     ,   . -   , ,  ,     !'
'   ,      ,    .'
ELSE
'                 .'
ACT '  ':GOTO '15'
IF OBJ '' AND  = 0:
ACT ' ':GOTO '16'
END
IF OBJ ' ':
ACT '  ':GOTO '32'
END
END
ELSE
'       ,  .'
END

ACT '':GOTO '5'
-

#11
IF  = 0:
IF  = 0:
' -   ! -      . -   ,         !'
'   ,      ,         ,    .'
ACT '':GOTO '5'
ELSE
'             .'
''
XGOTO '17'
END
ELSE
'         ,          .'
''
XGOTO '17'
END
-

#12
'     ,     ,    ,  ,  ,      .             .       ,        ,      .'
IF  = 0:
ACT '  ':GOTO '18'
ELSE
IF  = 1 AND  = 0 AND NO OBJ '  ' AND NO OBJ '   ()':
ACT '  ':GOTO '51'
END
END

ACT ' ':GOTO '3'
-

#13
'           ,    .            .'
'        ,      ,   -.       ,      ,   ,     ,  ,   ,   .'
'         , ,     ,       ,        .'
IF OBJ ' ' AND  = 1:
ACT '  ':GOTO '31'
END
ACT '  ':GOTO '20'
ACT '  ':GOTO '21'
ACT '    ':GOTO '22'
-

#14
*P '     ,     .   ,    , '
IF  = 0 OR  = 0 OR  = 0:
*P ' '
END
*P ' : '
IF  = 0:
*P ',   '
ACT '   ':GOTO '26'
ELSE
*P '  '
END
*P '.        '
IF  = 0:
*P ',     '
ACT ' ':GOTO '33'
END
'.'

IF NO OBJ '':
ACT '  ':GOTO '23'
END
ACT '   ':GOTO '24'
ACT '   ':GOTO '25'
ACT ' ':GOTO '3'
-

#15
' -      , -  , ,      .'
''
XGOTO '10'
-

#16
' -      , ? -  ,    .'
' - , , -    . -      ,     .'
'     -       .'
' - , ,    !'
' -  , -  . -  !'
IF NO OBJ '':
ADDOBJ ''
END
 = 1

ACT '':GOTO '5'
-

#17
'   -    ,       -.'
'         ,     ,      .      .      ,      .'

ACT '  ':GOTO '29'
ACT '   ':GOTO '30'
ACT '':GOTO '5'
-

#18
IF  = 0:
' -   , -  , ,      .'
' -  , -  ,  . -      .     ,  ,    ,    .'
' -   ? -  .'
' - ,      , -    ,      . -    ,  ,    ,       .      ,      , .     .'
 = 1
ACT '':GOTO '12'
ELSE
' -   , -  , ,      ,   ,   .'
'    ,     ,        ,     .'
''
XGOTO '3'
END
-

#19
'          ,      .      ,               .'
'         ,    ,     ,    -,         .'

ACT '  ':GOTO '34'
ACT '  ':GOTO '35'
ACT '  ':GOTO '36'
ACT '':GOTO '13'
-

#_
' -  ,     , -  ,     . -   ,       ,   .'
' -    ? -   ,  . - ,   .   ,      .    ,        ,   ,       .'
'         ,   ,      .'
'     ,      .         ,    .'
DELOBJ ''
IF NO OBJ '':
ADDOBJ ''
END
 = 30
$ = '_'
GOSUB ''

ACT '':GOTO '12'
-

#_
' -  , -  ,   .'
' -  ,    , -    . -     .   , .'
DELOBJ ''
IF NO OBJ '':
ADDOBJ ''
END
$ = '_'
GOSUB ''

ACT '':GOTO '12'
-

#20
IF  = 0:
IF  = 0:
' -     ! -     -.'
'    ,       ,    .'
''
XGOTO '13'
ELSE
IF OBJ '':
' -    , -    ,     .'
''
XGOTO '13'
ELSE
'           .'
''
XGOTO '19'
END
END
ELSE
'    ,    -     .'
''
XGOTO '19'
END
-

#21
*P '           . -        '
IF  = 0:
*P ',     ,'
ACT '  ':GOTO '37'
END
'    . " " -       .'
'           .'

ACT '  ':GOTO '38'
ACT '  ':GOTO '39'
ACT '  ':GOTO '13'
-

#22
'        ,          .'
''
XGOTO '3'
-

#23
'     ,    .'
ADDOBJ ''
''
XGOTO '14'
-

#24
IF  = 1:
'      .'
ELSE
*P '       '
IF  = 0:
*P '  '
ELSE
*P '   '
END
'.'
END

ACT '':GOTO '14'
-

#25
IF  = 1:
'      .'
ELSE
*P '       '
IF  = 0:
*P '  '
ELSE
*P '   '
END
'.'
END

ACT '':GOTO '14'
-

#26
IF  = 1:
'      .'
ELSE
*P '       '
IF  = 0:
*P '  '
ELSE
*P '   '
END
'.       ,    ,    .'
IF  = 1:
ACT ' ':GOTO '49'
END
END

ACT '':GOTO '14'
-

#27
'      - ,     .        .  ,             .'

ACT '  ':GOTO '5'
-

#28
'       ,     ,   .'
''
XGOTO '40'
-

#29

*P '       ,          ,       .          '
IF  + 4 > :
'.         .'
END
IF  >  + 4:
'.      .'
END
IF  =  + 4:
'     .'
END
IF  = 1:
'          .'
ACT '  ':GOTO '28'
END

ACT '   ':GOTO '41'
ACT '   ':GOTO '42'
ACT '':GOTO '17'
-

#30
'         .'

IF NO OBJ '':
ACT '  ':GOTO '43'
END
IF NO OBJ '':
ACT '  ':GOTO '44'
END
ACT '  ':GOTO '17'
-

#31
' -     ? -  ,   .'
' - ,   , -  ,  -    . -        .'
'    ,       .'
IF NO OBJ ' ':
ADDOBJ ' '
DELOBJ ' '
END

ACT '':GOTO '13'
-

#32
' -     ? -  ,     .'
' -  , -  , -      .'

ACT '':GOTO '10'
-

#
'    ,      . ,     ,   ,        .'
''
XGOTO $LASTLOC
-

#33
'           .'
ADDOBJ ''
 = 1
''
XGOTO '14'
-

#34
'       ,      ,   .'
''
XGOTO '45'
-

#35
'             -,    .          .'
'                ,    .'

ACT ' ':GOTO '46'
ACT '  ':GOTO '19'
-

#36
'    ,     ,         ,  ,     ,    .'
'   ,             .'

ACT '  ':GOTO '19'
-

#37
'   ׸        ,    .    ,   -        .'
' - , , -    .'
IF  = 0:
' - , ,  ! -   . -       ?'
 = 1
END

ACT ' ':GOTO '55'
ACT '':GOTO '21'
-

#38
IF NO OBJ '':
'      ,       .'
''
XGOTO '47'
ELSE
'          .'
''
XGOTO '21'
END
-

#39
*P '          ,   ,     ,     .'
IF 1 = 1:
'      .'
IF NO OBJ '':
ACT '  ':GOTO '48'
END
END

ACT '  ':GOTO '21'
-

#_
'        ,      .'
 = 1
DELOBJ ''
$ = '_'
GOSUB ''
''
XGOTO '24'
-

#_
'        ,      .'
 = 1
DELOBJ ''
$ = '_'
GOSUB ''
''
XGOTO '25'
-

#_
'        ,      .'
 = 1
DELOBJ ''
$ = '_'
GOSUB ''
''
XGOTO '26'
-

#_
'       ,      .'
 = 1
DELOBJ ''
$ = '_'
GOSUB ''
''
XGOTO '24'
-

#_
'       ,      .'
 = 1
DELOBJ ''
$ = '_'
GOSUB ''
''
XGOTO '25'
-

#_
'       ,      .'
 = 1
 = 1
DELOBJ ''
$ = '_'
GOSUB ''
''
XGOTO '24'
-

#_
'     ,     .'
DELOBJ ' '
ADDOBJ '  '
$ = '_'
GOSUB ''
''
XGOTO '27'
-

#40
'            .       ,      ,     .   ,          .       ,    ,       .'
' -    , -   , ,  ,  ,    -  . -  ,     !'
IF  = 0:
IF  = 0:
IF  < 2 OR  = 0:
' -  ! -     . -  !    ,          !      ,   !'
' -   ! ! ,    !   ! -     .'
 = 1
ACT '':GOTO '17'
ELSE
' -  ! -  . -       !     !'
' -   - ! -    . -        !     ,    !   ,  ,    ,    !  !'
' - ? ... ! -          ,       .'
' - ,  !  !   !  !  ! , , !'
' -   , -  . -     ,    !       .      : ,   .    .      .    .        !'
'                 .'
ACT '':GOTO '50'
END
ELSE
' -   , ? -    ,      . -    ,  ,        .  ,    ?'
ACT '':GOTO '17'
END
ELSE
'       ,    .'
ACT '':GOTO '17'
END
-

#41
*P '     ,      '
 = 0
 = 0
IF  > 0:
', :'
''
i = 0
 = 0
:
IF [i] = 3:
	''
	 = 1
	 =  + 3
END
IF [i] = 5: 
	''
	 = 1
	 =  + 5
END
i = i + 1
IF i < : JUMP ''
:
ELSE
', .'
END

IF  = 1: 
ACT '  ':GOTO '64'
END
IF  = 1: 
ACT '  ':GOTO '65'
END
ACT '':GOTO '29'
-

#42
*P '     '
 = 0
 = 0
IF  > 0:
' :'
''
i = 0
 = 0
:
IF [i] = 3: '' &  = 1 &  =  + 3
IF [i] = 5: '' &  = 1 &  =  + 5
i = i + 1
IF i < : JUMP ''
:
ELSE
' .'
END

IF  = 1: 
ACT '  ':GOTO '66'
END
IF  = 1: 
ACT '  ':GOTO '67'
END
ACT '':GOTO '29'
-

#43
'        .'
ADDOBJ ''
''
XGOTO '30'
-

#44
'        .'
ADDOBJ ''
''
XGOTO '30'
-

#45
*P '       ,   ,      .            ,  '
IF  = 0:
'     ,    ,     ,        ,    ,   .'
ELSE
'   .'
END
'          .'

ACT '   ':GOTO '52'
ACT '   ':GOTO '53'
ACT '  ':GOTO '54'
-

#
'          -,  , ,  ,   ,      ,      .  ,     ,       - .'
IF NO OBJ '':
ADDOBJ ''
DELOBJ ' '
END
$ = ''
GOSUB ''

ACT '':GOTO '19'
-

#46
IF  = 0:
'        .'
ELSE
*P '         ,     '
IF  = 0:
' ,     .        .'
ADDOBJ ''
 = 1
ELSE
'  .'
END
END

ACT '  ':GOTO '19'
-

#
'         ,  ,      ,      .'
 = 1
DELOBJ '  '
ADDOBJ ' '
$ = ''
GOSUB ''
''
XGOTO '36'
-

#
' - , ! -  ,     .'
' -    ,     ,    ,   ,     .'
IF NO OBJ ' ':
ADDOBJ ' '
DELOBJ '  '
END
 = 1
$ = ''
GOSUB ''

ACT '':GOTO '21'
-

#47
'      ,            .           .               .          .'
IF  = 0:
'            ,      ,     .'
ACT '  ':GOTO '56'
END

ACT '  ':GOTO '57'
ACT ' ':GOTO '21'
-

#48
'        ,  ,   .'
ADDOBJ ''
''
XGOTO '39'
-

#49
IF  = 0:
'          ,    ,    .'
ELSE
'           .'
 = 1
ADDOBJ ''
END
''
XGOTO '14'
-

#50
'    ,    ,         .     ,       ,   ,    .'
'            ,    .           ,       ,      -   .'
'       .   ,  ,   ,            .'
'   ,       .'

ACT '':GOTO '58'
-

#__
*P '         '
IF  + 5 + 4 > :
',      .'
ELSE
IF  + 5 + 4 = :
',    .'
ELSE
'.'
END
END
[] = 5
 =  + 1
DELOBJ ''
''
XGOTO '41'
-

#__
*P '         '
IF  + 3 + 4 > :
',      .'
ELSE
IF  + 3 + 4 = :
',    .'
ELSE
'.'
END
END
[] = 3
 =  + 1
DELOBJ ''
''
XGOTO '41'
-

#__
*P '         '
IF  + 5 >  + 4:
',      .'
ELSE
IF  + 5 =  + 4:
',    .'
ELSE
'.'
END
END
[] = 5
 =  + 1
DELOBJ ''
''
XGOTO '42'
-

#__
*P '         '
IF  + 3 >  + 4:
',      .'
ELSE
IF  + 3 =  + 4:
',    .'
ELSE
'.'
END
END
[] = 3
 =  + 1
DELOBJ ''
''
XGOTO '42'
-

#51
' -      ?! -  . -     !'
' -  ? -    ,   . - . ,    ...  ,    .'
 = 1

ACT '':GOTO '12'
-

#52
IF  = 0:
IF  = 0:
IF  = 0:
' -  , ! -  ,       .'
ELSE
' -    , -   . -   ,     .'
END
ELSE
'     ,      ,     .'
END
''
XGOTO '45'
ELSE
'    ,         ,     ,  ,   .'
''
XGOTO '59'
END
-

#53
IF  = 0:
IF  = 0:
' -  ! -      . -   ,  !              !'
ELSE
' -    , -    ,  . -     ,   .'
END
ELSE
'     ,      ,     .'
END
''
XGOTO '45'
-

#54
'          .'
''
XGOTO '19'
-

#55
*P '     ,   '
IF  = 0:
'          .  ,  ,    ,     .'
ADDOBJ ''
 = 1
$ = '55'
GOSUB ''
ELSE
',     .'
END
''
XGOTO '37'
-

#56
IF  = 0:
IF  = 0:
' -  ! -   ,  . -        !   ,      ,    !'
ELSE
' -     ,    ? -  ,  . -      . ,   ,    , ,       ,       !   , ...   ?      !   !    !    !'
'     -       .     ,           .'
IF NO OBJ '':
ADDOBJ ''
END
 = 1
END
ELSE
'      .'
END

ACT '':GOTO '47'
-

#57
IF  = 1:
'      ,      .         .'
''
XGOTO '47'
ELSE
' -   ? -   .'
IF  = 0:
ACT ' ':GOTO '60'
ELSE
' - , , -      ,      .'
''
XGOTO '47'
END
END
-

#58
' -    , -  ,     . -     .   ,  ,     ,         ,     .   ,       !     !  ,  ,   ,     !      ,   .'
'      ,          .      ,  ,         ,     .'

ACT '':GOTO '68'
-

#59
'           .   ,           .'
'     ,   ,    ,  ,   ,  ... ,    ,    .'
IF  = 1 AND  = 0 AND  = 1:
'      ,            .   ,       ,  ,      ,         .'
 = 1
END

ACT '   ':GOTO '61'
ACT '   ':GOTO '62'
ACT '   ':GOTO '63'
ACT '  ':GOTO '45'
-

#60
' -   ? -  ,      .'
 = 1
ADDOBJ '  '
''
XGOTO '57'
-

#61
'         .'

ACT '  ':GOTO '59'
-

#62
'         .'

ACT '  ':GOTO '59'
-

#63
'         .'

ACT '  ':GOTO '59'
-

#_
'       ,    .'
''
XGOTO '61'
-

#_
'             .'
' -    ,  , -   -  . - , ,    !'
' - ,  , -    . -   ,      .'
'         -  ,       .'
' - ,     ! -     . -    !'
'            ,       .'
 = 2
$ = '_'
GOSUB ''

ACT '':GOTO '19'
-

#_
'       ,    .'
''
XGOTO '63'
-

#64
*P '         '
IF  - 3 + 4 < :
',     .'
ELSE
IF  - 3 + 4 = :
',   .'
ELSE
'.'
END
END
i = 0
:
IF  <= 0: JUMP ''
IF [i] = 3:
[i] = [ - 1]
[ - 1] = 0
 =  - 1
JUMP ''
END
i = i + 1
IF i < : JUMP ''
:
''
XGOTO '41'
-

#65
*P '         '
IF  - 5 + 4 < :
',     .'
ELSE
IF  - 5 + 4 = :
',   .'
ELSE
'.'
END
END
i = 0
:
IF  <= 0: JUMP ''
IF [i] = 5:
[i] = [ - 1]
[ - 1] = 0
 =  - 1
JUMP ''
END
i = i + 1
IF i < : JUMP ''
:
''
XGOTO '41'
-

#66
*P '         '
IF  + 4 >  - 3:
',     .'
ELSE
IF  + 4 =  - 3:
',   .'
ELSE
'.'
END
END
i = 0
:
IF  <= 0: JUMP ''
IF [i] = 3:
[i] = [ - 1]
[ - 1] = 0
 =  - 1
JUMP ''
END
i = i + 1
IF i < : JUMP ''
:
''
XGOTO '42'
-

#67
*P '         '
IF  + 4 >  - 5:
',     .'
ELSE
IF  + 4 =  - 5:
',    .'
ELSE
'.'
END
END
i = 0
:
IF  <= 0: JUMP ''
IF [i] = 5:
[i] = [ - 1]
[ - 1] = 0
 =  - 1
JUMP ''
END
i = i + 1
IF i < : JUMP ''
:
''
XGOTO '42'
-

#_
'       .'
DELOBJ ''
1 = 1
''
XGOTO '39'
-

#_
'         .'
''
XGOTO '3'
-

#_
'         .'
''
XGOTO '5'
-

#68
'    ,    .       ,          .'
'       ,   -    .     ,  -     .'
'        , ,      ,  ,    !'

