bwBASIC/B15B/gwmonth.bas

10 REM     NAME OF MONTH
20 REM
25 DIM A$(150)
27 DIM M$(25)
30 LET A$="320125799653785534469788JANUARYFEBRUARYMARCHAPRILMAYJUNEJULYAUGUSTSEPTEMBEROCTOBERNOVEMBERDECEMBER"
40 INPUT A
50 LET M$=MID$(A$,(A*6+22-VAL(MID$(A$,A,1))),VAL(MID$(A$,A+12,1)))
60 PRINT M$
70 REM ***********************************
80 REM APPEARED IN ASTRONOMICAL COMPUTING
90 REM SKY & TELESCOPE, OCTOBER 1984 ISSUE
100 REM **********************************