' Radio Shack PRO-2052 Scanner Program
' Demo program to show one way to do disk I/O

    TYPE ScanRecord
        chan AS STRING * 4
        freq AS SINGLE
        desc AS STRING * 30
    END TYPE
    DIM ProScan AS ScanRecord
    OPEN "PRO2052.DAT" FOR RANDOM AS #1 LEN = LEN(ProScan)
    ProScan.chan = "0001"
    ProScan.freq = 154.07
    ProScan.desc = "County Fire"
    PUT #1, 1, ProScan
    CLOSE #1
    OPEN "PRO2052.DAT" FOR RANDOM AS #1 LEN = LEN(ProScan)
    GET #1, 1, ProScan
    CLS
    PRINT "Channel:", ProScan.chan
    PRINT "Frequency:", ProScan.freq
    PRINT "Description:", ProScan.desc
    CLOSE #1
    KILL "PRO2052.DAT"