|
|
PRINT "ＴＶ放送周波数割当一覧表"
PRINT
LET i=90
CALL CHANNEL(" ", 1, 3, i, 6, "↓アナログ VHF（2011.7.24 まで)", "")
CALL CHANNEL("c",13, 21, i, 6, "↓ケーブル TV", "")
LET i=i+2
PRINT REPEAT$(" ",26);"※すき間２MHz"
CALL CHANNEL("c",22, 22, i, 6, "", "")
CALL CHANNEL(" ", 4, 6, i, 6, "↓アナログ VHF（2011.7.24 まで)", "")
CALL CHANNEL(" ", 7, 7, i, 4, "", " ※幅２MHz 重なり")
CALL CHANNEL(" ", 8, 8, i, 6, "", " ※(同地域内片方)")
CALL CHANNEL(" ", 9, 12, i, 6, "", "")
CALL CHANNEL("c",23, 63, i, 6, "↓ケーブル TV", "")
LET i=i+2
PRINT REPEAT$(" ",26);"※すき間２MHz"
CALL CHANNEL(" ",13, 53, i, 6, "↓地上デジタル物理ch.／アナログ UHF（2011.7.24 まで)" , "")
CALL CHANNEL(" ",54, 62, i, 6, "↓アナログ UHF（2011.7.24 まで)" , "")
LET i=i+11322
PRINT REPEAT$(" ",26);"※すき間 11,322MHz"
CALL CHANNEL(" ",63, 80, i, 6, "↓SHF（難視聴地域用ローカル）", "")
SUB CHANNEL(h$,c1,c2,i,s,t$,m$)
IF ""< t$ THEN
PRINT "-------------------------"
PRINT t$
PRINT "-------------------------"
END IF
FOR c=c1 TO c2
PRINT h$;USING$("##",c);" ch. ";
PRINT USING "##,###~##,### MHz<#################":i, i+6, m$;
PRINT USING "映像搬送波##,###.## 音声搬送波##,###.##" :i+1.25,i+5.75
LET i=i+s
NEXT c
END SUB
END
|
|