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