start tok64 d64-nKNzGu 0 DIMn$(46):s$="{space*27}":FORi=1TO46:n$(i)=s$:NEXT 1 PRINT"{clear}";:i=1 2 PRINTiTAB(6)n$(i):x$="":INPUT"{up}{right*4}";x$:IFx$="*"THEN4 3 n$(i)=LEFT$(x$+s$,27):i=i+1:IFi<47THEN2 4 INPUT"allt ok {space*2}j{left*3}";q$:IFq$<>"j"THEN1 5 OPEN1,4,.:PRINT#1,"U{sh asterisk*6}{cm r}";:FORi=1TO57:PRINT#1,"{sh asterisk}";:NEXT:PRINT#1,"{cm r}{sh asterisk*6}I" 6 FORi=1TO23:PRINT#1,"{sh -}{space*6}{sh -} "n$(i)" "n$(i+23)" {sh -}{space*6}{sh -}":NEXT 7 PRINT#1,"J{sh asterisk*6}{cm e}{cm r}";:FORi=1TO55:PRINT#1,"{sh asterisk}";:NEXT:PRINT#1,"{cm r}{cm e}{sh asterisk*6}K" 8 FORi=1TO28:PRINT#1,"{space*8}{sh -}";:FORj=1TO55:PRINT#1," ";:NEXT:PRINT#1,"{sh -}" 9 NEXT:PRINT#1,"{space*8}J";:FORi=1TO55:PRINT#1,"{sh asterisk}";:NEXT:PRINT#1,"K":CLOSE1 10 REM sys pd 1991 11 REM 12 REM diskfodral 13 REM (dmz #16, 1989) 14 REM 15 REM ett program som g{pound}r diskfodral 16 REM p] printern. l]ter [ven l[gga in 17 REM en text p] framsidan av dem, 2 18 REM kolumner om vardera 23 rader som 19 REM kan inneh]lla 27 tecken f]r 20 REM plats. f{pound}r att avbryta 21 REM inmatningen och g] {pound}ver till 22 REM utprintningen ge "*" p] en rad. 23 REM 24 REM av: mats h[gersten, furulund stop tok64 (bastext 1.0)