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