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

week[0]=""
week[1]=""
week[2]=""
week[3]=""
week[4]=""
week[5]=""
week[6]="y"



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

short=0

ch="+"
val=time.sec
gosub move

ch="\\"
val=time.min
gosub 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
gosub move

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

aaaa
if test=time.sec then goto aaaa


goto main
end


move


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













