10 !	CASFIL.BAS - THIS PROGRAM CREATES A SERIES OF VIRTUAL CORE
		     ARRAYS IN THE FILE $CASE1.DAT FOR USE 
		     WITH - WILKINSON ACCOUNTING WITH THE COMPUTER
20 OPEN "$CASE1.DAT<40>" AS FILE 1%
30 DIM#1,A(30),N(30),B(32),I$(28)=64
40 I$(28%)=""
50 MAT READ A,N,B,I$
60 DATA 15380,23400,10700,15000,-3000,-500,-8500,-1685,-1056,-92
70 DATA -602,-4645,-200,-6000,-30000,-8200,0,0,0,0,0,0,0,0,0,0,0,0,0,0
80 DATA 1010,1110,1400,1710,1720,2010,2020,2040,2050,2060,2070,2080
90 DATA 2090,2400,2600,2700,3010,3020,1400,4010,4020,1400,6020,6030
100 DATA 6100,6200,6300,6400,6500,6900
110 DATA 27051,18050,8800,27400,-2337,-6000,-20898,-1927,-1196,-138,-878
120 DATA -4676,-240,-6000,-30000,-7011,-36036,924,10700,18720,-38
130 DATA -8800,11500,920,705,137,2150,262,45,0,-89,78964
140 DATA"          ***I N S T R U C T I O N S***"
150 DATA"*MISTAKES"
160 DATA"     1) TO CORRECT MISTAKES, HOLD DOWN THE 'CTRL' KEY AND"
170 DATA"        DEPRESS THE 'U' KEY.  THEN RETYPE THE ENTIRE LINE"
180 DATA" "
190 DATA"*DATA INPUT"
200 DATA"     1) FIRST YOU WILL BE ASKED FOR THE MONTH CODE AND THE"
210 DATA"        ENDING INVENTORY FIGURE.  TYPE THEM IN AFTER THE"
220 DATA"        QUESTION MARK, SEPARATED BY A COMMA."
230 DATA" "
240 DATA"     2) NEXT YOU WILL BE ASKED TO TYPE IN THE TRANSACTION"
250 DATA"        NUMBER, ACCOUNT NUMBER, DEBITS AND CREDITS IN THAT"
260 DATA"        ORDER, SEPARATED BY COMMAS.  IF THERE ARE NO DEBITS"
270 DATA"        (OR CREDITS) IN A TRANSACTION, ZEROES MUST BE"
280 DATA"        TYPED IN THE APPROPRIATED SPOTS."
290 DATA"        I.E. TO DEBIT ACCOUNT NUMBER 2060 WITH $1016"
300 DATA"             THE ENTRY WOULD BE:  301,2060,1016,0"
310 DATA"        I.E. TO CREDIT ACCOUNT NUMBER 2060 WITH $1016"
320 DATA"             THE ENTRY WOULD BE:  301,2060,0,1016"
330 DATA" "
340 DATA"     3) ***NOTE:  WHEN FINISHED TYPING EACH LINE YOU MUST"
350 DATA"        TYPE THE RETURN KEY WHICH SIGNALS THE COMPUTER TO"
360 DATA"        PROCESS THAT LINE.  ONCE THE RETURN KEY IS DEPRESSED"
370 DATA"        IT IS IMPOSSIBLE TO CHANGE THAT LINE, SO CHECK YOUR"
380 DATA"        WORK!"
390 DATA" "
400 DATA"     4) ***NOTE:  AFTER TYPING YOUR LAST TRANSACTION,"
410 DATA"        TYPE IN:  9999,0,0,0"
420 CLOSE1
430 END