現状。まだ基本だけ。
取引先は400件くらい?登録。担当者は8つくらい、品名は300個くらい、単位は6個くらい

100 INPUT PROMPT "取引先の番号は？＞" : a
101 INPUT PROMPT "品名の番号は？9999=ctrl＞" : b
102 IF b=9999 THEN GOTO 100
103 INPUT  PROMPT "担当者は？＞" :c
104 INPUT  PROMPT "備考は？何もないときはエンターを2回＞" :d$
105 INPUT  PROMPT "目方は？＞" :e 
106 INPUT  PROMPT "単位は？＞" :f
107 INPUT  PROMPT "単価は？＞" :g
     
110 IF a=1 THEN PRINT "鳥居茶屋"
120 IF a=2 THEN PRINT "イセ重"
130 IF a=5 THEN PRINT "泉仙"
140 IF a=9 THEN PRINT "魚万"
     
170 IF b=1 THEN PRINT "鯛・小鯛"
180 IF b=2 THEN PRINT "アサリ"
     
200 IF c=1 THEN PRINT "社長"
210 IF c=2 THEN PRINT "宮本"
     
220 IF d$<>"" THEN  PRINT d$
     
240 PRINT e 
     
260 IF f=1 THEN PRINT "kg"
270 IF f=2 THEN PRINT "匹"
    
280 PRINT g
     
290 GOTO 101
300 END