start tok64 d64-a2kDI2
0 REM"@0:nydat",8            :rem960312
10 OPEN15,8,15,"i0":OPEN2,8,2,"#"
11 PRINT#15,"u1 2 0 18 0":PRINT#15,"b-p 2 152
12 FORi=1TO8:GET#2,a$:d$=d$+a$:NEXT
13 PRINT"datum? "d$:INPUT"{up}datum";d$
14 PRINT#15,"b-p 2 152":PRINT#2,d$;:PRINT#15,"u2 2 0 18 0":PRINT#15,"i0"
20 CLOSE2:CLOSE15
stop tok64
(bastext 1.0)