1REM      ARROW SOFTWARE (C)1987
2TEXT
3FOR x=1 TO 8
4READ a(x), b(x), c(x)
5NEXT x
6DATA       18,18,2,16,20,4,14,22,6,12,24,8
7DATA      10,26,10,8,28,12,6,30,14,4,32,16
8GR:COLOR =2: x=0
9FOR x=1 TO 8
10HLIN a(x), b(x) AT c(x)
11NEXT x
12COLOR =13
13VLIN 18, 39 AT 17:VLIN 18, 39 AT 18:VLIN 18, 39 AT 19
14?:? "    ARROW SOFTWARE (C) 1987"
15FOR x=1 TO 2500:NEXT x
16HGR
20HCOLOR =15
40HPLOT 10, 20 TO 150, 20
50HPLOT 10, 21 TO 10, 120
60HPLOT 10, 120 TO 150, 120
80HPLOT 149, 15 TO 149, 120
90HPLOT 125, 15 TO 125, 20
100HPLOT 125, 15 TO 149, 15
110HCOLOR =3
115FOR x=1 TO 96
120HPLOT 170, 26+x TO 250, 26+x
130NEXT x
140HCOLOR =0
150FOR x=177 TO 240 STEP 16
155FOR p=36 TO 110 STEP 7
160HPLOT x, p:HPLOT x+1, p
165NEXT p
170NEXT x
171? "******************************"
172? "********** FILE IT ***********"
173? "******************************"
190FOR x=1 TO 2500:NEXT x
200TEXT
201 d$=CHR$(4)
210? TAB(7); "FILE IT MAIN MENU"
211?:?
220? "1. RECORD COLLECTION"
230? "2. ADDRESS BOOK"
240? "3. PERSONAL"
250? "4. INVENTORY"
260? "5. EXIT PROGRAM"
270?:?
280GET gg$
290IF gg$="1" OR gg$="!" THEN ? d$; "RUN COLECT"
300IF gg$="@" OR gg$="2" THEN ? d$; "RUN BOOK"
310IF gg$="#" OR gg$="3" THEN ? d$; "RUN ELLEP"
320IF gg$="$" OR gg$="4" THEN ? d$; "RUN VALUE"
330IF gg$="%" OR gg$="5" THEN TEXT:NEW
340GOTO 280

