25 REM- COPYRIGHT ,FRANK SANDERS, 10/19/79
   50 REM- CREATE A RANDOM ACCESS FILE
  100 DIM A$(50),B(15)
  110 REM- VARY RECORD AND BLOCK SIZE IN LINE 200 TO SUIT 
  120 REM- INDIVIDUAL REQUIREMENTS
  130 FILE #1;"ACCOUNTS/1",,,64,1216
  140 REM- VARY LINE 250 TO SUIT INDIVIDUAL NEEDS AS TO NUMBER
  150 REM- OF ACCOUNTS IN THE FILE. THIS ALSO APPLIES TO
  160 REM- LINES 700 & 800 REGARDING NUMBER OF ITEMS
  170 REM- IN A RECORD
  180 FOR I=1 TO 12
  190 INPUT "ACCOUNT NAME ",A$
  200 PRINT #1,I;I,A$,B,A,S,C
  210 PRINT A$;I;I,A$;B;A;S;C
  220 NEXT I
  230 CLOSE #1
  240 END