image of READY prompt

Wang2200.org

Listing of file='8B' on disk='vmedia/glbr_22.wvd.zip'

# Sector 663, program filename = '8B'
0010 PRINT "ENTER MONTH,DAY,YEAR (FOR EXAMPLE: 1,21,1972)"
0015 PRINT "TO END PROGRAM ENTER 0,0,0"
0020 INPUT M,D,Y
0025 IF M=0 THEN 1010
0030 IF M>2 THEN 60
0040 M=M+12
0050 Y=Y-1
0060 N=D+2*M+INT(.6*(M+1))+Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+2
0070 N=INT((N/7-INT(N/7))*7+.5)
0080 IF N>0 THEN 90
0081 PRINT "SATURDAY"
0082 GOTO 999
0090 IF N>1 THEN 100
0091 PRINT "SUNDAY"
0092 GOTO 999
0100 IF N>2 THEN 110
0101 PRINT "MONDAY"
0102 GOTO 999
0110 IF N>3 THEN 120
0111 PRINT "TUESDAY"
0112 GOTO 999
0120 IF N>4 THEN 130
0121 PRINT "WEDNESDAY"
0122 GOTO 999
0130 IF N>5 THEN 140
0131 PRINT "THURSDAY"
0132 GOTO 999
0140 PRINT "FRIDAY"
0999 PRINT
1000 PRINT "ENTER MONTH,DAY,YEAR"
1005 GOTO 20
1010 END