'---------------------------------------------
'  v
'  AiOvGXP[vV[PXŕ\܂
'  GXP[vV[PXgȂƐ삵܂
'---------------------------------------------
system.err.exit=1'\G[̃vO~

week[0]="SUN"
week[1]="MON"
week[2]="TUE"
week[3]="WED"
week[4]="THU"
week[5]="FRU"
week[6]="SAT"

@numfix st
	str st
	format "00",st
	eval #+"=format"
_@

main:
test=time.sec
clr
ch="."
base

short=0

ch="+"
val=time.sec
move

ch="\\"
val=time.min
move

short=1
ch="$"

val=time.hour
if val>=12 then val=val-12
val=(60/12*val)+(time.min/60)*5
abs val
val=abs
move

location 16,20

year=time.year
mon=time.mon
numfix mon
day=time.day
numfix day
hour=time.hour
numfix hour
min=time.min
numfix min
sec=time.sec
numfix sec

print year+"/"+mon+"/"+day+" "+week[time.week]+" "+hour+":"+min+":"+sec	

aaaa:
if test==time.sec then goto aaaa:


goto main:
end


@move

	if val==0 then label0
	if val==1 then label1
	if val==2 then label2
	if val==3 then label3
	if val==4 then label4
	if val==5 then label5
	if val==6 then label6
	if val==7 then label7
	if val==8 then label8
	if val==9 then label9
	if val==10 then label10
	if val==11 then label11
	if val==12 then label12
	if val==13 then label13
	if val==14 then label14
	if val==15 then label15
	if val==16 then label16
	if val==17 then label17
	if val==18 then label18
	if val==19 then label19
	if val==20 then label20
	if val==21 then label21
	if val==22 then label22
	if val==23 then label23
	if val==24 then label24
	if val==25 then label25
	if val==26 then label26
	if val==27 then label27
	if val==28 then label28
	if val==29 then label29
	if val==30 then label30
	if val==31 then label31
	if val==32 then label32
	if val==33 then label33
	if val==34 then label34
	if val==35 then label35
	if val==36 then label36
	if val==37 then label37
	if val==38 then label38
	if val==39 then label39
	if val==40 then label40
	if val==41 then label41
	if val==42 then label42
	if val==43 then label43
	if val==44 then label44
	if val==45 then label45
	if val==46 then label46
	if val==47 then label47
	if val==48 then label48
	if val==49 then label49
	if val==50 then label50
	if val==51 then label51
	if val==52 then label52
	if val==53 then label53
	if val==54 then label54
	if val==55 then label55
	if val==56 then label56
	if val==57 then label57
	if val==58 then label58
	if val==59 then label59

	return
_@



'-------------------------
@base
	location 10,30
	print ch
	'-------------------------
	location 1,30
	print "0"

	location 1,31
	print ch

	location 1,33
	print ch

	location 1,35
	print ch

	location 1,37
	print ch

	location 1,39
	print "1"

	location 1,42
	print ch

	location 2,46
	print ch

	location 3,50
	print ch

	location 4,53
	print ch

	location 5,55
	print "2"

	location 6,57
	print ch

	location 7,58
	print ch

	location 8,59
	print ch

	location 9,60
	print ch

	location 10,60
	print ch

	'--------------------------
	location 20-1,30
	print "6"

	location 20-1,31
	print ch

	location 20-1,33
	print ch

	location 20-1,35
	print ch

	location 20-1,37
	print ch

	location 20-1,39
	print "5"

	location 20-1,42
	print ch

	location 20-2,46
	print ch

	location 20-3,50
	print ch

	location 20-4,53
	print ch

	location 20-5,55
	print "4"

	location 20-6,57
	print ch

	location 20-7,58
	print ch

	location 20-8,59
	print ch

	location 20-9,60
	print ch

	location 20-10,60
	print "3"

	'-------------------------

	location 1,60-31
	print ch

	location 1,60-33
	print ch

	location 1,60-35
	print ch

	location 1,60-37
	print ch

	location 1,60-39
	print "11"

	location 1,60-42
	print ch

	location 2,60-46
	print ch

	location 3,60-50
	print ch

	location 4,60-53
	print ch

	location 5,60-55
	print "10"

	location 6,60-57
	print ch

	location 7,60-58
	print ch

	location 8,60-59
	print ch

	location 9,60-60
	print ch

	'-------------------------

	location 20-1,60-31
	print ch

	location 20-1,60-33
	print ch

	location 20-1,60-35
	print ch

	location 20-1,60-37
	print ch

	location 20-1,60-39
	print "7"

	location 20-1,60-42
	print ch

	location 20-2,60-46
	print ch

	location 20-3,60-50
	print ch

	location 20-4,60-53
	print ch

	location 20-5,60-55
	print "8"

	location 20-6,60-57
	print ch

	location 20-7,60-58
	print ch

	location 20-8,60-59
	print ch

	location 20-9,60-60
	print ch

	location 20-10,60-60
	print "9"

	'--------------------------

	return
_@

'-------------------------
@label0
	if short==1 then goto label0short:

	location 1,30
	print ch

	location 2,30
	print ch

	location 3,30
	print ch

	location 4,30
	print ch

	location 5,30
	print ch

	label0short:

	location 6,30
	print ch

	location 7,30
	print ch

	location 8,30
	print ch

	location 9,30
	print ch

	return
_@
'-------------------------
@label1
	if short==1 then goto label1short:

	location 1,31
	print ch

	location 2,31
	print ch

	location 3,31
	print ch

	location 4,30
	print ch

	label1short:

	location 5,30
	print ch

	location 6,30
	print ch

	location 7,30
	print ch

	location 8,30
	print ch

	location 9,30
	print ch

	return
_@
'-------------------------
@label2
	if short==1 then goto label2short:

	location 1,33
	print ch

	location 2,33
	print ch

	location 3,33
	print ch

	location 4,33
	print ch

	location 5,32
	print ch

	label2short:

	location 6,32
	print ch

	location 7,32
	print ch

	location 8,31
	print ch

	location 9,30
	print ch

	return
_@
'-------------------------
@label3
	if short==1 then goto label3short:

	location 1,35
	print ch

	location 2,34
	print ch

	location 3,34
	print ch

	location 4,33
	print ch

	location 5,33
	print ch

	label3short:

	location 6,32
	print ch

	location 7,32
	print ch

	location 8,31
	print ch

	location 9,31
	print ch

	return
_@
'-------------------------
@label4
	if short==1 then goto label4short:

	location 1,37
	print ch

	location 2,37
	print ch

	location 3,36
	print ch

	location 4,35
	print ch

	location 5,35
	print ch

	label4short:

	location 6,34
	print ch

	location 7,33
	print ch

	location 8,32
	print ch

	location 9,31
	print ch

	return
_@
'-------------------------
@label5
	if short==1 then goto label5short:

	location 1,39
	print ch

	location 2,39
	print ch

	location 3,38
	print ch

	location 4,37
	print ch

	location 5,36
	print ch

	label5short:

	location 6,35
	print ch

	location 7,34
	print ch

	location 8,33
	print ch

	location 9,32
	print ch

	return
_@
'-------------------------
@label6
	if short==1 then goto label6short:

	location 1,42
	print ch

	location 2,41
	print ch

	location 3,40
	print ch

	location 4,39
	print ch

	location 5,37
	print ch

	label6short:

	location 6,35
	print ch

	location 7,34
	print ch

	location 8,33
	print ch

	location 9,32
	print ch

	return
_@
'-------------------------
@label7
	if short==1 then goto label7short:

	location 2,46
	print ch

	location 3,44
	print ch

	location 4,42
	print ch

	location 5,40
	print ch

	label7short:

	location 6,38
	print ch

	location 7,36
	print ch

	location 8,34
	print ch

	location 9,32
	print ch

	return
_@
'-------------------------
@label8
	if short==1 then goto label8short:

	location 3,50
	print ch

	location 4,47
	print ch

	location 5,44
	print ch

	location 6,41
	print ch

	label8short:

	location 7,38
	print ch

	location 8,35
	print ch

	location 9,32
	print ch

	return
_@
'-------------------------
@label9
	if short==1 then goto label9short:

	location 4,53
	print ch

	location 5,50
	print ch

	location 6,47
	print ch

	label9short:

	location 7,44
	print ch

	location 8,41
	print ch

	location 9,36
	print ch

	return
_@
'-------------------------
@label10
	if short==1 then goto label10short:

	location 5,55
	print ch

	location 6,52
	print ch

	location 7,47
	print ch

	label10short:

	location 8,41
	print ch

	location 9,35
	print ch

	return
_@
'-------------------------
@label11
	if short==1 then goto label11short:

	location 6,57
	print ch

	location 7,53
	print ch

	location 7,49
	print ch

	label11short:

	location 8,45
	print ch

	location 8,41
	print ch

	location 9,38
	print ch

	location 10,34
	print ch


	return
_@
'-------------------------
@label12
	if short==1 then goto label12short:

	location 7,58
	print ch

	location 7,54
	print ch

	location 8,50
	print ch

	label12short:

	location 8,45
	print ch

	location 9,40
	print ch

	location 9,35
	print ch

	return
_@
'-------------------------
@label13
	if short==1 then goto label13short:

	location 8,59
	print ch

	location 8,57
	print ch

	location 8,55
	print ch

	location 8,53
	print ch

	location 8,51
	print ch

	location 8,49
	print ch

	label13short:

	location 9,45
	print ch

	location 9,43
	print ch

	location 9,41
	print ch

	location 9,39
	print ch

	location 9,37
	print ch

	location 9,35
	print ch

	location 9,33
	print ch


	return
_@
'-------------------------
@label14
	if short==1 then goto label14short:

	location 9,60
	print ch

	location 9,58
	print ch

	location 9,56
	print ch

	location 9,54
	print ch

	location 9,52
	print ch

	location 9,50
	print ch

	label14short:

	location 10,48
	print ch

	location 10,46
	print ch

	location 10,44
	print ch

	location 10,42
	print ch

	location 10,40
	print ch

	location 10,38
	print ch

	location 10,36
	print ch

	location 10,34
	print ch

	location 10,32
	print ch

	return
_@
'-------------------------
@label15
	if short==1 then goto label15short:

	location 10,60
	print ch

	location 10,58
	print ch

	location 10,56
	print ch

	location 10,54
	print ch

	location 10,52
	print ch

	location 10,50
	print ch

	label15short:

	location 10,48
	print ch

	location 10,46
	print ch

	location 10,44
	print ch

	location 10,42
	print ch

	location 10,40
	print ch

	location 10,38
	print ch

	location 10,36
	print ch

	location 10,34
	print ch

	location 10,32
	print ch

	return
_@
'-------------------------
@label16
	if short==1 then goto label16short:

	location 20-9,60
	print ch

	location 20-9,58
	print ch

	location 20-9,56
	print ch

	location 20-9,54
	print ch

	location 20-9,52
	print ch

	location 20-9,50
	print ch

	label16short:

	location 20-10,48
	print ch

	location 20-10,46
	print ch

	location 20-10,44
	print ch

	location 20-10,42
	print ch

	location 20-10,40
	print ch

	location 20-10,38
	print ch

	location 20-10,36
	print ch

	location 20-10,34
	print ch

	location 20-10,32
	print ch

	return
_@

'-------------------------
@label17
	if short==1 then goto label17short:

	location 20-8,59
	print ch

	location 20-8,57
	print ch

	location 20-8,55
	print ch

	location 20-8,53
	print ch

	location 20-8,51
	print ch

	location 20-8,49
	print ch

	label17short:

	location 20-9,45
	print ch

	location 20-9,43
	print ch

	location 20-9,41
	print ch

	location 20-9,39
	print ch

	location 20-9,37
	print ch

	location 20-9,35
	print ch

	location 20-9,33
	print ch

	return
_@
'-------------------------
@label18
	if short==1 then goto label18short:

	location 20-7,58
	print ch

	location 20-7,54
	print ch

	location 20-8,50
	print ch

	label18short:

	location 20-8,45
	print ch

	location 20-9,40
	print ch

	location 20-9,35
	print ch

	return
_@
'-------------------------
@label19
	if short==1 then goto label19short:

	location 20-6,57
	print ch

	location 20-7,53
	print ch

	location 20-7,49
	print ch

	label19short:

	location 20-8,45
	print ch

	location 20-8,41
	print ch

	location 20-9,38
	print ch

	location 20-10,34
	print ch


	return
_@
'-------------------------
@label20
	if short==1 then goto label20short:

	location 20-5,55
	print ch

	location 20-6,52
	print ch

	label20short:

	location 20-7,47
	print ch

	location 20-8,41
	print ch

	location 20-9,35
	print ch

	return
_@
'-------------------------
@label21
	if short==1 then goto label21short:

	location 20-4,53
	print ch

	location 20-5,50
	print ch

	location 20-6,47
	print ch

	label21short:

	location 20-7,44
	print ch

	location 20-8,41
	print ch

	location 20-9,36
	print ch

	return
_@
'-------------------------
@label22
	if short==1 then goto label22short:

	location 20-3,50
	print ch

	location 20-4,47
	print ch

	location 20-5,44
	print ch

	location 20-6,41
	print ch

	label22short:

	location 20-7,38
	print ch

	location 20-8,35
	print ch

	location 20-9,32
	print ch

	return
_@
'-------------------------
@label23
	if short==1 then goto label23short:

	location 20-2,46
	print ch

	location 20-3,44
	print ch

	location 20-4,42
	print ch

	location 20-5,40
	print ch

	label23short:

	location 20-6,38
	print ch

	location 20-7,36
	print ch

	location 20-8,34
	print ch

	location 20-9,32
	print ch

	return
_@
'-------------------------
@label24
	if short==1 then goto label24short:

	location 20-1,42
	print ch

	location 20-2,41
	print ch

	location 20-3,40
	print ch

	location 20-4,39
	print ch

	label24short:

	location 20-5,37
	print ch

	location 20-6,35
	print ch

	location 20-7,34
	print ch

	location 20-8,33
	print ch

	location 20-9,32
	print ch

	return
_@
'-------------------------
@label25
	if short==1 then goto label25short:

	location 20-1,39
	print ch

	location 20-2,39
	print ch

	location 20-3,38
	print ch

	location 20-4,37
	print ch

	location 20-5,36
	print ch

	label25short:

	location 20-6,35
	print ch

	location 20-7,34
	print ch

	location 20-8,33
	print ch

	location 20-9,32
	print ch

	return
_@
'-------------------------

@label26
	if short==1 then goto label26short:

	location 20-1,37
	print ch

	location 20-2,37
	print ch

	location 20-3,36
	print ch

	location 20-4,35
	print ch

	location 20-5,35
	print ch

	label26short:

	location 20-6,34
	print ch

	location 20-7,33
	print ch

	location 20-8,32
	print ch

	location 20-9,31
	print ch

	return
_@
'-------------------------
@label27
	if short==1 then goto label27short:

	location 20-1,35
	print ch

	location 20-2,34
	print ch

	location 20-3,34
	print ch

	location 20-4,33
	print ch

	location 20-5,33
	print ch

	label27short:

	location 20-6,32
	print ch

	location 20-7,32
	print ch

	location 20-8,31
	print ch

	location 20-9,31
	print ch

	return
_@
'-------------------------
@label28
	if short==1 then goto label28short:

	location 20-1,33
	print ch

	location 20-2,33
	print ch

	location 20-3,33
	print ch

	location 20-4,33
	print ch

	location 20-5,32
	print ch

	label28short:

	location 20-6,32
	print ch

	location 20-7,32
	print ch

	location 20-8,31
	print ch

	location 20-9,30
	print ch

	return
_@
'-------------------------
@label29
	if short==1 then goto label29short:

	location 20-1,31
	print ch

	location 20-2,31
	print ch

	location 20-3,31
	print ch

	location 20-4,30
	print ch

	location 20-5,30
	print ch

	label29short:

	location 20-6,30
	print ch

	location 20-7,30
	print ch

	location 20-8,30
	print ch

	location 20-9,30
	print ch

	return
_@
'-------------------------
@label30
	if short==1 then goto label30short:

	location 20-1,30
	print ch

	location 20-2,30
	print ch

	location 20-3,30
	print ch

	location 20-4,30
	print ch

	location 20-5,30
	print ch

	label30short:

	location 20-6,30
	print ch

	location 20-7,30
	print ch

	location 20-8,30
	print ch

	location 20-9,30
	print ch

	return
_@
'-------------------------
@label31
	if short==1 then goto label31short:

	location 20-1,60-31
	print ch

	location 20-2,60-31
	print ch

	location 20-3,60-31
	print ch

	location 20-4,60-30
	print ch

	location 20-5,60-30
	print ch

	label31short:

	location 20-6,60-30
	print ch

	location 20-7,60-30
	print ch

	location 20-8,60-30
	print ch

	location 20-9,60-30
	print ch

	return
_@
'-------------------------
@label32
	if short==1 then goto label32short:

	location 20-1,60-33
	print ch

	location 20-2,60-33
	print ch

	location 20-3,60-33
	print ch

	location 20-4,60-33
	print ch

	label32short:

	location 20-5,60-32
	print ch

	location 20-6,60-32
	print ch

	location 20-7,60-32
	print ch

	location 20-8,60-31
	print ch

	location 20-9,60-30
	print ch

	return
_@
'-------------------------
@label33
	if short==1 then goto label33short:

	location 20-1,60-35
	print ch

	location 20-2,60-34
	print ch

	location 20-3,60-34
	print ch

	location 20-4,60-33
	print ch

	label33short:

	location 20-5,60-33
	print ch

	location 20-6,60-32
	print ch

	location 20-7,60-32
	print ch

	location 20-8,60-31
	print ch

	location 20-9,60-31
	print ch

	return
_@
'-------------------------
@label34
	if short==1 then goto label34short:

	location 20-1,60-37
	print ch

	location 20-2,60-37
	print ch

	location 20-3,60-36
	print ch

	location 20-4,60-35
	print ch

	label34short:

	location 20-5,60-35
	print ch

	location 20-6,60-34
	print ch

	location 20-7,60-33
	print ch

	location 20-8,60-32
	print ch

	location 20-9,60-31
	print ch

	return
_@
'-------------------------
@label35
	if short==1 then goto label35short:

	location 20-1,60-39
	print ch

	location 20-2,60-39
	print ch

	location 20-3,60-38
	print ch

	location 20-4,60-37
	print ch

	location 20-5,60-36
	print ch

	label35short:

	location 20-6,60-35
	print ch

	location 20-7,60-34
	print ch

	location 20-8,60-33
	print ch

	location 20-9,60-32
	print ch

	return
_@
'-------------------------
@label36
	if short==1 then goto label36short:

	location 20-1,60-42
	print ch

	location 20-2,60-41
	print ch

	location 20-3,60-40
	print ch

	location 20-4,60-39
	print ch

	location 20-5,60-37
	print ch

	label36short:

	location 20-6,60-35
	print ch

	location 20-7,60-34
	print ch

	location 20-8,60-33
	print ch

	location 20-9,60-32
	print ch

	return
_@
'-------------------------
@label37
	if short==1 then goto label37short:

	location 20-2,60-46
	print ch

	location 20-3,60-44
	print ch

	location 20-4,60-42
	print ch

	location 20-5,60-40
	print ch

	label37short:

	location 20-6,60-38
	print ch

	location 20-7,60-36
	print ch

	location 20-8,60-34
	print ch

	location 20-9,60-32
	print ch

	return
_@
'-------------------------
@label38
	if short==1 then goto label38short:

	location 20-3,60-50
	print ch

	location 20-4,60-47
	print ch

	location 20-5,60-44
	print ch

	location 20-6,60-41
	print ch

	label38short:

	location 20-7,60-38
	print ch

	location 20-8,60-35
	print ch

	location 20-9,60-32
	print ch

	return
_@
'-------------------------
@label39
	if short==1 then goto label39short:

	location 20-4,60-53
	print ch

	location 20-5,60-50
	print ch

	location 20-6,60-47
	print ch

	label39short:

	location 20-7,60-44
	print ch

	location 20-8,60-41
	print ch

	location 20-9,60-36
	print ch

	return
_@
'-------------------------
@label40
	if short==1 then goto label40short:

	location 20-5,60-55
	print ch

	location 20-6,60-52
	print ch

	label40short:

	location 20-7,60-47
	print ch

	location 20-8,60-41
	print ch

	location 20-9,60-35
	print ch

	return
_@
'-------------------------
@label41
	if short==1 then goto label41short:

	location 20-6,60-57
	print ch

	location 20-7,60-53
	print ch

	location 20-7,60-49
	print ch

	label41short:

	location 20-8,60-45
	print ch

	location 20-8,60-41
	print ch

	location 20-9,60-38
	print ch

	location 20-10,60-34
	print ch


	return
_@
'-------------------------
@label42
	if short==1 then goto label42short:

	location 20-7,60-58
	print ch

	location 20-7,60-54
	print ch

	location 20-8,60-50
	print ch

	label42short:

	location 20-8,60-45
	print ch

	location 20-9,60-40
	print ch

	location 20-9,60-35
	print ch

	return
_@
'-------------------------
@label43
	if short==1 then goto label43short:

	location 20-8,60-59
	print ch

	location 20-8,60-57
	print ch

	location 20-8,60-55
	print ch

	location 20-8,60-53
	print ch

	location 20-8,60-51
	print ch

	location 20-8,60-49
	print ch

	label43short:

	location 20-9,60-45
	print ch

	location 20-9,60-43
	print ch

	location 20-9,60-41
	print ch

	location 20-9,60-39
	print ch

	location 20-9,60-37
	print ch

	location 20-9,60-35
	print ch

	location 20-9,60-33
	print ch

	return
_@
'-------------------------
@label44
	if short==1 then goto label44short:

	location 20-9,60-60
	print ch

	location 20-9,60-58
	print ch

	location 20-9,60-56
	print ch

	location 20-9,60-54
	print ch

	location 20-9,60-52
	print ch

	location 20-9,60-50
	print ch

	label44short:

	location 20-10,60-48
	print ch

	location 20-10,60-46
	print ch

	location 20-10,60-44
	print ch

	location 20-10,60-42
	print ch

	location 20-10,60-40
	print ch

	location 20-10,60-38
	print ch

	location 20-10,60-36
	print ch

	location 20-10,60-34
	print ch

	location 20-10,60-32
	print ch

	return
_@
'-------------------------
@label45
	if short==1 then goto label45short:

	location 20-10,60-60
	print ch

	location 20-10,60-58
	print ch

	location 20-10,60-56
	print ch

	location 20-10,60-54
	print ch

	location 20-10,60-52
	print ch

	location 20-10,60-50
	print ch

	label45short:

	location 20-10,60-48
	print ch

	location 20-10,60-46
	print ch

	location 20-10,60-44
	print ch

	location 20-10,60-42
	print ch

	location 20-10,60-40
	print ch

	location 20-10,60-38
	print ch

	location 20-10,60-36
	print ch

	location 20-10,60-34
	print ch

	location 20-10,60-32
	print ch

	return
_@
'-------------------------
@label46
	if short==1 then goto label46short:

	location 9,60-60
	print ch

	location 9,60-58
	print ch

	location 9,60-56
	print ch

	location 9,60-54
	print ch

	location 9,60-52
	print ch

	location 9,60-50
	print ch

	label46short:

	location 10,60-48
	print ch

	location 10,60-46
	print ch

	location 10,60-44
	print ch

	location 10,60-42
	print ch

	location 10,60-40
	print ch

	location 10,60-38
	print ch

	location 10,60-36
	print ch

	location 10,60-34
	print ch

	location 10,60-32
	print ch

	return
_@
'-------------------------
@label47
	if short==1 then goto label47short:

	location 8,60-59
	print ch

	location 8,60-57
	print ch

	location 8,60-55
	print ch

	location 8,60-53
	print ch

	location 8,60-51
	print ch

	location 8,60-49
	print ch

	label47short:

	location 9,60-45
	print ch

	location 9,60-43
	print ch

	location 9,60-41
	print ch

	location 9,60-39
	print ch

	location 9,60-37
	print ch

	location 9,60-35
	print ch

	location 9,60-33
	print ch

	return
_@
'-------------------------
@label48
	if short==1 then goto label48short:

	location 7,60-58
	print ch

	location 7,60-54
	print ch

	location 8,60-50
	print ch

	label48short:

	location 8,60-45
	print ch

	location 9,60-40
	print ch

	location 9,60-35
	print ch

	return
_@
'-------------------------
@label49
	if short==1 then goto label49short:

	location 6,60-57
	print ch

	location 7,60-53
	print ch

	location 7,60-49
	print ch

	label49short:

	location 8,60-45
	print ch

	location 8,60-41
	print ch

	location 9,60-38
	print ch

	location 10,60-34
	print ch


	return
_@
'-------------------------
@label50
	if short==1 then goto label50short:

	location 5,60-55
	print ch

	location 6,60-52
	print ch

	label50short:

	location 7,60-47
	print ch

	location 8,60-41
	print ch

	location 9,60-35
	print ch

	return
_@
'-------------------------
@label51
	if short==1 then goto label51short:

	location 4,60-53
	print ch

	location 5,60-50
	print ch

	location 6,60-47
	print ch

	label51short:

	location 7,60-44
	print ch

	location 8,60-41
	print ch

	location 9,60-36
	print ch

	return
_@
'-------------------------
@label52
	if short==1 then goto label52short:

	location 3,60-50
	print ch

	location 4,60-47
	print ch

	location 5,60-44
	print ch

	location 6,60-41
	print ch

	label52short:

	location 7,60-38
	print ch

	location 8,60-35
	print ch

	location 9,60-32
	print ch

	return
_@
'-------------------------
@label53
	if short==1 then goto label53short:

	location 2,60-46
	print ch

	location 3,60-44
	print ch

	location 4,60-42
	print ch

	location 5,60-40
	print ch

	label53short:

	location 6,60-38
	print ch

	location 7,60-36
	print ch

	location 8,60-34
	print ch

	location 9,60-32
	print ch

	return
_@
'-------------------------
@label54
	if short==1 then goto label54short:

	location 1,60-42
	print ch

	location 2,60-41
	print ch

	location 3,60-40
	print ch

	location 4,60-39
	print ch

	location 5,60-37
	print ch

	label54short:

	location 6,60-35
	print ch

	location 7,60-34
	print ch

	location 8,60-33
	print ch

	location 9,60-32
	print ch

	return
_@
'-------------------------
@label55
	if short==1 then goto label55short:

	location 1,60-39
	print ch

	location 2,60-39
	print ch

	location 3,60-38
	print ch

	location 4,60-37
	print ch

	location 5,60-36
	print ch

	label55short:

	location 6,60-35
	print ch

	location 7,60-34
	print ch

	location 8,60-33
	print ch

	location 9,60-32
	print ch

	return
_@
'-------------------------
@label56
	if short==1 then goto label56short:

	location 1,60-37
	print ch

	location 2,60-37
	print ch

	location 3,60-36
	print ch

	location 4,60-35
	print ch

	location 5,60-35
	print ch

	label56short:

	location 6,60-34
	print ch

	location 7,60-33
	print ch

	location 8,60-32
	print ch

	location 9,60-31
	print ch

	return
_@
'-------------------------
@label57
	if short==1 then goto label57short:

	location 1,60-35
	print ch

	location 2,60-34
	print ch

	location 3,60-34
	print ch

	location 4,60-33
	print ch

	location 5,60-33
	print ch

	label57short:

	location 6,60-32
	print ch

	location 7,60-32
	print ch

	location 8,60-31
	print ch

	location 9,60-31
	print ch

	return
_@
'-------------------------
@label58
	if short==1 then goto label58short:

	location 1,60-33
	print ch

	location 2,60-33
	print ch

	location 3,60-33
	print ch

	location 4,60-33
	print ch

	location 5,60-32
	print ch

	label58short:

	location 6,60-32
	print ch

	location 7,60-32
	print ch

	location 8,60-31
	print ch

	location 9,60-30
	print ch

	return
_@
'-------------------------
@label59
	if short==1 then goto label59short:

	location 1,60-31
	print ch

	location 2,60-31
	print ch

	location 3,60-31
	print ch

	location 4,60-30
	print ch

	location 5,60-30
	print ch

	label59short:

	location 6,60-30
	print ch

	location 7,60-30
	print ch

	location 8,60-30
	print ch

	location 9,60-30
	print ch

	return
_@
'-------------------------













