Back to Main page.
Back to Main tapes page.
10  DIM A$[255],B$[4],C$[4],S$[48],F$[72]
20  FILES SW.B951
30  IF TYP(1)=3 THEN 60
40  ADVANCE #1;1,A
50  GOTO 30
60  IF  END #1 THEN 390
70  PRINT "Station, location:  ";
80  LINPUT A$
90  A$[LEN(A$)+1]="  "
100  Z=LEN(A$)+1
110  GOTO (LEN(A$)<27)+ NOT LEN(A$[3]) OF 170,400
120  PRINT "Input too long--";
130  GOTO 70
140  PRINT #1;A$[1,LEN(A$)];S$
150  A$="*"
160  Z=2
170  PRINT "Frequencies:  ";
180  S$=""
190  LINPUT A$[LEN(A$)+1]
200  GOTO (LEN(A$)>26)+2* NOT LEN(A$[Z])+1 OF 220,120,70
210  PRINT "Not acceptable--";
220  PRINT "Times:  ";
230  LINPUT F$
240  IF F$="" THEN 140
250  CONVERT F$[1,4] TO B,210
260  CONVERT F$[6,9] TO C,210
270  IF B>2359 OR C>2359 THEN 210
280  B1=B
290  B=(100*INT(B/100)+(5/3)*(B-100*INT(B/100))-50)/50+1.5
300  C=(100*INT(C/100)+(5/3)*(C-100*INT(C/100))+2400*(C48)
360  S$[Z,Z]=UPS$(F$[11,11])
370  NEXT X
380  GOTO 220
390  PRINT "End of file encountered."
400  END