home *** CD-ROM | disk | FTP | other *** search
- on spec1299
- if word 3 of the long date = "1," then
- go(72)
- else
- if word 3 of the long date = "2," then
- go(72)
- else
- if word 3 of the long date = "3," then
- go(72)
- else
- if word 3 of the long date = "4," then
- go(73)
- else
- if word 3 of the long date = "5," then
- go(73)
- else
- if word 3 of the long date = "6," then
- go(73)
- else
- if word 3 of the long date = "7," then
- go(73)
- else
- if word 3 of the long date = "8," then
- go(73)
- else
- if word 3 of the long date = "9," then
- go(73)
- else
- if word 3 of the long date = "10," then
- go(73)
- else
- if word 3 of the long date = "11," then
- go(74)
- else
- if word 3 of the long date = "12," then
- go(74)
- else
- if word 3 of the long date = "13," then
- go(74)
- else
- if word 3 of the long date = "14," then
- go(74)
- else
- if word 3 of the long date = "15," then
- go(74)
- else
- if word 3 of the long date = "16," then
- go(74)
- else
- if word 3 of the long date = "17," then
- go(74)
- else
- if word 3 of the long date = "18," then
- go(75)
- else
- if word 3 of the long date = "19," then
- go(75)
- else
- if word 3 of the long date = "20," then
- go(75)
- else
- if word 3 of the long date = "21," then
- go(75)
- else
- if word 3 of the long date = "22," then
- go(75)
- else
- if word 3 of the long date = "23," then
- go(75)
- else
- if word 3 of the long date = "24," then
- go(75)
- else
- if word 3 of the long date = "25," then
- go(76)
- else
- if word 3 of the long date = "26," then
- go(76)
- else
- if word 3 of the long date = "27," then
- go(76)
- else
- if word 3 of the long date = "28," then
- go(76)
- else
- if word 3 of the long date = "29," then
- go(76)
- else
- if word 3 of the long date = "30," then
- go(76)
- else
- if word 3 of the long date = "31," then
- go(76)
- else
- go(77)
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end
-