start tok64 d64-fzmMUo
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 <j/n>{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)