1 REM Program av Per Lindberg 10 DIM N$(3%)=12% 20 N$(1%)="BIGTXT57.BAS" 30 N$(2%)="BIGTXT69.BAS" 40 N$(3%)="BIGTXT12.BAS" 50 ; " BIG TEXT ON PRINTER " 60 ; 70 ; "V{lj mellan :" 80 ; 90 ; '1. 5x7 matris (max 13 tecken/rad)' 100 ; '2. 6x9 matris (max 11 tecken/rad)' 110 ; '3. 12x12 matris (max 6 tecken/rad)' 120 ; 130 ; "Alternativ(1-3) "; 140 GET N$ : ; N$; 150 N%=ASC(N$)-48% 160 IF N%>0% AND N%<4% THEN 190 170 ; CHR$(7%)" Mellan 1 och 3 var'e!!"; 180 GOTO 130 190 ; : ; : ; 200 ONERRORGOTO 300 210 OPEN "PR:" ASFILE 1% 220 CLOSE 1% 230 ; "V{nta..." : ; 240 ONERRORGOTO 260 250 CHAIN N$(N%) 260 IF ERRCODE<>21% THEN 290 270 ; "PROGRAMMET "N$(N%)" FINNS INTE." 280 END 290 ; "OV[NTAT FEL:"ERRCODE 300 IF ERRCODE<>21% THEN 290 310 ; 'Du har gl|mt att k|ra "PRINTER" !' 320 ; '-S} nu k|r vi det f|rst.' 330 ; : ; 'CHAIN "PRINTER"' 340 CHAIN "PRINTER"