1 REM Ins{nt av 417
1 REM Ins{nt av 417
10 REM <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
11 REM < KEYWORD ACESS SYSTEM       <
12 REM < CREATE DATA FILE SUBSYSTEM <
13 REM <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
14 ; CHR$(12%)
15 E$="***" : F$=SPACE$(30%) : F%=2000%
16 ; '========== SKAPA EN DATAFIL ===========' : ; CUR(20%,0%)STRING$(38%,61%) : ; CUR(2%,0%)STRING$(38%,61%)
17 FOR I%=1% TO 20% : ; CUR(I%,0%)'=' : ; CUR(I%,38%)'=' : NEXT I% : ; CUR(4%,2%)'FILNAMN (EXT) > '
18 ONERRORGOTO 25
19 ; CUR(4%,18%)""; : INPUTLINE Z$ : Z$=LEFT$(Z$,LEN(Z$)-2%)
20 PREPARE "DR1:"+Z$ ASFILE 1
21 ; #1,E$
22 FOR I%=1% TO 12% : ; #1,F$ : NEXT I%
23 ; #1,F%
24 FOR I%=1% TO 2% : ; #1,F$ : NEXT I%
25 CLOSE 1
26 CHAIN "KASMENU"