01 LBL "BANREG"
 02 CLRG
 03 CLST
 04 CLA
 05 SF 25
 06 STO 13
 07 FC? 25
 08 GTO 01
 09 31
 10 XROM 29,06
 11 STO 10
 12 ARCL 10
 13 ARCL 10
 14 ASTO 11
 15 ARCL 11
 16 ARCL 11
 17 ASTO 01
 18 "      "
 19 ASTO 00
 20 CLA
 21 ARCL 10
 22 >"    "
 23 ARCL 10
 24 ASTO 02
 25 "     "
 26 ARCL 10
 27 ASTO 03
 28 CLA
 29 ARCL 10
 30 ARCL 00
 31 ASTO 04
 32 " "
 33 ARCL 11
 34 ARCL 11
 35 >" "
 36 ASTO 05
 37 " "
 38 ARCL 11
 39 ARCL 00
 40 ASTO 06
 41 "   "
 42 ARCL 11
 43 >" "
 44 ASTO 07
 45 CLA
 46 ARCL 11
 47 ARCL 11
 48 ARCL 02
 49 ASTO 08
 50 " "
 51 ARCL 01
 52 ASTO 09
 53 0
 54 STO 10
 55 STO 11
 56 "STORE DATA"
 57 AVIEW
 58 .015
 59 XROM 30,08
 60 STOP
 61 LBL 01
 62 "SIZE = 014"
 63 PROMPT
 64 END