Code:

000000: FF 30 10 0A 00 AD 20 41 | EA 57 3A B9 20 FE 94 00 ".0...- AjW:9 ~.."000010: 4A 10 14 00 97 20 D1 52 | 41 4E 44 28 41 29 E7 FF "J.... QRAND(A)g."000020: 85 28 FF 88 EB 41 29 E9 | 12 00 94 10 1E 00 B8 20 ".(..kA)i......8 "000030: 42 41 53 45 20 31 3A 86 | 20 46 43 48 4F 49 43 45 "BASE 1:. FCHOICE"000040: 24 28 0F 0A 29 2C 46 46 | 49 4C 45 24 28 0F 0A 29 "$(..),FFILE$(..)"000050: 2C 4B 43 48 4F 49 43 45 | 24 28 0F 28 29 2C 4B 46 ",KCHOICE$(.(),KF"000060: 49 4C 45 53 24 28 0F 28 | 29 2C 4B 4C 49 4E 45 28 "ILES$(.(),KLINE("000070: 0F 28 29 00 B2 10 28 00 | 82 20 41 E7 12 20 CC 20 ".().2.(.. Ag. L "000080: 0F 0A 3A C9 20 41 2C 22 | 22 3A 83 20 41 3A C9 20 "..:I A,"":. A:I "000090: 95 00 D1 10 32 00 BA 20 | 22 41 44 26 44 53 55 42 "..Q.2.: "AD&DSUB"0000A0: 52 2E 54 58 54 22 20 82 | 20 85 20 41 53 20 23 12 "R.TXT" . . AS #."0000B0: 00 84 11 3C 00 41 E7 12 | 3A B1 E9 20 D3 20 FF A3 "...<.Ag.:1i S .#"0000C0: 28 12 29 3A 85 20 23 12 | 2C 4B 43 48 4F 49 43 45 "(.):. #.,KCHOICE"0000D0: 24 28 41 29 2C 4B 46 49 | 4C 45 24 28 41 29 2C 4B "$(A),KFILE$(A),K"0000E0: 4C 49 4E 45 24 28 41 29 | 3A 41 E7 41 E9 41 3A 4B "LINE$(A):AgAiA:K"0000F0: 43 48 4F 49 43 45 24 28 | 41 29 E7 FF 81 28 4B 43 "CHOICE$(A)g..(KC"