10 COLOR 4,0:CLS:KEY OFF:ON ERROR GOTO 0
20 A$=STRING$(80,205):LOCATE 1,1:PRINT "De tijd is " TIME$,DATE$
30 LOCATE 2,1:PRINT A$:LOCATE 22,1:PRINT A$
40 LOCATE 4,5:COLOR 2,0:PRINT "Hoeveel tekens per regel (1 - 255) ";:COLOR 5,0:INPUT X
50 IF X > 255 THEN GOTO 40
60 IF X < 1 THEN GOTO 40
70 LOCATE 6,5:COLOR 2,0:PRINT "Welke printer (1 - 3) ";:COLOR 5,0:INPUT P$
80 IF VAL(P$)=0 THEN 70
90 IF VAL(P$) > 3 OR VAL(P$) < 1 THEN 70
100 LET WD$="LPT"+P$+":"
110 WIDTH WD$,X
120 CLS:LOCATE 10,20:PRINT "Zo goed ? (Breedte="X")";
130 KEUZE$=INKEY$
140 IF KEUZE$="J" OR KEUZE$="j" THEN RUN"a2menu.bas
150 IF KEUZE$="n" OR KEUZE$="N" THEN GOTO 10
160 GOTO 130