Idiom Generator in QB64

OPTION BASE 1 'I start all my arrays at 1
CLS 'clear the screen
RANDOMIZE TIMER 'shake up the dice


DIM prefixes(27) AS STRING 'dimension an array to fit the data set
RESTORE prefixes 'set pointer to the start of the first dataset
FOR count = 1 TO 27
    READ prefixes(count) 'this takes the data from the set and copies it to slots in the array
NEXT count 'since only one is copied per loop, it must be done 27 times in a row

count = 1 'reset counter

DIM suffixes(28) AS STRING
RESTORE suffixes 'set the pointer to the start of the second dataset
FOR count = 1 TO 28
    READ suffixes(count) 'see above
NEXT count 'ditto

count = 1
FOR count = 1 TO 5
    PRINT prefixes(INT(RND * 27) + 1) + " " + suffixes(INT(RND * 28) + 1)
NEXT


END 'DATA must be placed after the end of the program (since its a seperate memory thing?)

prefixes: 'there are 27
DATA "bitter","fan the","guilty","in for the","jump","mean","once in a","raise","take with a","under","wicked","X","you can say that","balls","clam","dressed","elephant","home","kicking","cat","nerves","paint","quick","straw","vouch","zero","stop"

suffixes: 'there are 28
DATA "to the wall","up","to the nines","in the room","away from home","and screaming","out of the bag","of steel","with a broad brush","on the uptake","that broke the camel's back","for","in on","pill","flames","pleasure","home","kill","ship","streak","paint","the bar","grain of salt","the influince","tongue","factor","again","stop"