Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape13a_acorn_eu_1990_july.wav » printer

printer

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape13a_acorn_eu_1990_july.wav
Filename: printer
Read OK:
File size: 2C5A bytes
Load address: 2000
Exec address: 1900
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM Easy Printer
   20REM by Leslie J Goodridge
   30REM (c) Electron User
   40:
   50ON ERROR GOTO3960
   60REM Until de-bugged add REMs to the next two lines
   70*KEY10 OLD|M RUN|M
   80*FX229,1
   90:
  100MODE6:CLS
  110VDU19,1,6;0;
  120VDU23,1,0;0;0;0;
  130PROCcheck_printer
  140CLEAR
  150PROCsetup
  160PROCscreen
  170exit=FALSE:reset=FALSE
  180REPEAT
  190PROCclear_window
  200PROCmenu_choice
  210UNTIL exit OR reset
  220IF reset GOTO140
  230CLS:VDU20
  240PRINTTAB(5,10)"Exit to :"
  250PRINTTAB(14,12)"1...BASIC"
  260PRINTTAB(14,13)"2...VIEW"
  270PRINTTAB(14,14)"3...VIEWSHEET"
  280REPEAT
  290*FX21,0
  300exit$=GET$
  310exit%=INSTR("123",exit$)
  320UNTIL exit%
  330PROCtidy:CLS
  340ON exit% GOTO350,360,370
  350OSCLI("basic"):END
  360OSCLI("word"):END
  370OSCLI("sheet"):END
  380:
  390DEF PROCsetup
  400VDU2,1,27,1,64,3:REM Reset Printer
  410*FX11,0
  420*FX4,1
  430*FX225,128
  440wide=?&70/10:IF wide=0 wide=1
  450lm%=0:rm%=INT(80*wide+0.5):rmax%=rm%:limit%=2:present=rmax%
  460alpha$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  470valid$=alpha$+CHR$129+CHR$133+CHR$137
  480numeric=1:string=0
  490printer$=STRING$(25," ")
  500final$=printer$:change$=printer$
  510delete$=CHR$127+"."+CHR$8
  520clear$=STRING$(3," ")+STRING$(3,CHR$8)
  530DIM selection$(26),on_off%(26),default%(9),alt%(3),country$(19),cpi$(3)
  540ENVELOPE1,1,13,2,1,1,1,2,126,0,0,-126,126,126
  550RESTORE 4000
  560FORI%=1 TO 26
  570READ selection$(I%)
  580on_off%(I%)=0
  590NEXT
  600RESTORE 4090
  610FOR I%=1 TO 8
  620READ default%(I%)
  630NEXT
  640default%(9)=rm%
  650FOR I%=1 TO 3
  660alt%(I%)=0
  670NEXT
  680alt%(0)=36
  690RESTORE 4110
  700FOR I%=0 TO 19
  710READ country$(I%)
  720NEXT
  730RESTORE 4170
  740FOR I%=0 TO 3
  750READ cpi$(I%)
  760NEXT
  770ENDPROC
  780:
  790DEF PROCcheck_printer
  800?&70=0:IF FNyn("Wide Carriage Printer Y/N?",7,12) ?&70=17
  810yes=FNyn("Is Printer set for auto linefeed Y/N?",1,12)
  820IF yes OSCLI("fx6,10") ELSE OSCLI("fx6,0")
  830CLS
  840PRINTTAB(0,10)"Make sure  your printer is  switched on"
  850PRINTTAB(0,12)"and on line or the program will hang up"
  860PRINTTAB(8,16)"Press any key when ready"
  870OSCLI("fx21,0"):key=GET:ENDPROC
  880:
  890DEF PROCclear_window
  900VDU28,0,24,39,19,12,26
  910ENDPROC
  920:
  930DEF PROCscreen
  940CLS
  950PRINTTAB(14,0)"EASY PRINTER"
  960PRINTTAB(14,1)"~~~~ ~~~~~~~"
  970PRINTTAB(15,2)"** Menu **"
  980FOR item%=1 TO 26
  990letter$=CHR$(64+item%)
 1000IF item%<14 col%=1:row%=3 ELSE col%=19:row%=-10
 1010PRINTTAB(col%,item%+row%);letter$;".";selection$(item%);
 1020IF item%=1 PRINT" (Draft)";
 1030IF item%=2 PRINT" (Pica)";
 1040IF item%=12 PRINT"(US)";
 1050IF item%>13 AND item%<23 PRINTTAB(36,item%+row%);default%(item%-13)
 1060NEXT
 1070ENDPROC
 1080:
 1090DEF PROCmenu_choice
 1100clash=FALSE
 1110PRINTTAB(7,19)"A-Z to set Printer options"
 1120PRINTTAB(3,21)"f1=Reset":PRINTTAB(25,21)"f5=Printout":PRINTTAB(16,23)"f9=Exit"
 1130REPEAT
 1140*FX202
 1150*FX21,0
 1160choice$=GET$
 1170choice%=INSTR(valid$,choice$)
 1180UNTILchoice%
 1190IF choice$=CHR$129 reset=TRUE:ENDPROC
 1200IF choice$=CHR$133 PROCtest_printer:ENDPROC
 1210IF choice$=CHR$137 PROCset_exit:ENDPROC
 1220IF choice$>="A" AND choice$<="Z" OSCLI("fx21,3"):PROCchange(choice%):IF clash ENDPROC
 1230IF INSTR("BCDNO",choice$) PROCmargin
 1240IF choice$<"N" OR choice$>"V" GOTO1130 ELSE ENDPROC
 1250ENDPROC
 1260:
 1270DEF PROCtest_printer
 1280other=on_off%(14) OR on_off%(15) OR on_off%(16)
 1290escape=FALSE
 1300IF LEFT$(printer$,1)<>" " PROCchange_printer ELSE PROCget_printer
 1310IF escape ENDPROC
 1320VDU2,21
 1330PRINT"This is ";
 1340IF other PROCother_test ELSE PROCnormal_test
 1350PRINT"on the ";printer$;
 1360PRINT" with descenders gjpqy and line spacing ";alt%(0);"/216 in."
 1370VDU6,3
 1380ENDPROC
 1390:
 1400DEF PROCother_test
 1410FOR I%=14 TO 16
 1420IF on_off%(I%) PRINT selection$(I%);" ";alt%(I%-13)" ";
 1430IF I%=14 AND on_off%(I%) PROCmode
 1440IF I%=15 AND on_off%(I%) PRINT cpi$(alt%(I%-13))" ";
 1450IF I%=16 AND on_off%(I%) PRINT country$(alt%(I%-13))":- ";:PROCalfabet
 1460NEXT
 1470PRINT"in ";:PROCnormal_test
 1480ENDPROC
 1490:
 1500DEF PROCnormal_test
 1510both=on_off%(14) OR on_off%(15)
 1520FOR set%=1 TO 12
 1530IF set%=1 AND on_off%(set%) PRINT selection$(set%);" ";ELSE IF set%=1 PRINT"Draft ";
 1540IF set%=2 AND on_off%(set%) PRINT selection$(set%);" ";ELSE IF set%=2 AND both PRINT"";ELSE IF set%=2 AND NOT both PRINT"Pica ";
 1550IF set%=12 AND on_off%(set%) PRINT selection$(set%);" ";ELSE IF set%=12 AND on_off%(16)=0 PRINT"US Chrs ";ELSE IFset%=12 AND on_off%(16)=1 PRINT"Chrs ";
 1560IF set%>2 AND set%<12 AND on_off%(set%) PRINT selection$(set%);" ";
 1570NEXT
 1580ENDPROC
 1590:
 1600DEF PROCalfabet
 1610FOR I%=33 TO 126
 1620PRINT CHR$(I%);
 1630NEXT
 1640PRINT" ";
 1650ENDPROC
 1660:
 1670DEF PROCchange_printer
 1680PROCclear_window
 1690IF NOT FNyn("Change Printer Y/N?",10,20) ENDPROC ELSE PROCget_printer
 1700ENDPROC
 1710:
 1720DEF PROCget_printer
 1730PROCclear_window
 1740PRINTTAB(12,23)"Escape to abhort"
 1750PRINTTAB(0,20)"Printer name: ";
 1760escape=FALSE
 1770change$=FNget_input(25,string)
 1780IF escape ENDPROC ELSE printer$=change$
 1790ENDPROC
 1800:
 1810DEF PROCset_exit
 1820PROCclear_window
 1830exit=FNyn("Exit Y/N?",15,20)
 1840ENDPROC
 1850:
 1860DEF PROCchange(choice%)
 1870PROCcheck_clash:IF clash PROCclear_window:VDU7:PRINTTAB(10,21)"!Control Code Clash!":PROCwait(150):ENDPROC
 1880on_off%(choice%)=on_off%(choice%)EOR1
 1890IF on_off%(choice%) PROCchange_on(choice%) ELSE PROCchange_off(choice%)
 1900ENDPROC
 1910:
 1920DEF FNyn(message$,col,row)
 1930PRINT TAB(col,row)message$
 1940REPEAT
 1950*FX21,0
 1960ans$=CHR$(GET AND &DF)
 1970UNTIL INSTR("YN",ans$)
 1980IF ans$="Y"=TRUE ELSE=FALSE
 1990:
 2000DEF FNget_input(len%,type)
 2010IF type=numeric first=48:last=57 ELSE first=32:last=126
 2020start$=STRING$(len%,".")+STRING$(len%,CHR$8)
 2030final$=""
 2040VDU23,1,1;0;0;0;
 2050PRINT start$;
 2060REPEAT
 2070*FX21,0
 2080input$=GET$:input=ASC(input$)
 2090IFinput$=CHR$27 escape=TRUE:GOTO2150
 2100IF input$=CHR$13 AND final$<>"" GOTO2150
 2110IF input$=CHR$127 AND LEN(final$)>0 final$=LEFT$(final$,LEN(final$)-1):PRINT delete$;:GOTO2070
 2120IF input<first OR input>last OR LEN(final$)=len% VDU7:GOTO2070
 2130PRINT input$;
 2140final$=final$+input$
 2150UNTIL input$=CHR$13 OR escape
 2160VDU23,1,0;0;0;0;
 2170=final$
 2180:
 2190DEF PROCmode
 2200PRINT"(";
 2210IF alt%(1) AND 1 PRINT selection$(2)" ";ELSE PRINT"Pica ";
 2220IF alt%(1) AND 4 PRINT selection$(3)" ";
 2230IF alt%(1) AND 32 PRINT selection$(4)" ";
 2240IF alt%(1) AND 8 PRINT selection$(5)" ";
 2250IF alt%(1) AND 16 PRINT selection$(6)" ";
 2260PRINT") ";
 2270ENDPROC
 2280:
 2290DEF PROCchange_off(choice%)
 2300ON choice% GOTO2310,2320,2330,2340,2350,2360,2370,2380,2390,2400,2410,2420,2430,2440,2450,2460,2470,2480,2490,2500,2510,2520,2530,2540,2550,2560
 2310VDU2,1,27,1,120,1,0,3:GOTO2570
 2320VDU2,1,27,1,80,3:GOTO2570
 2330VDU2,1,18,3:GOTO2570
 2340VDU2,1,27,1,87,1,0,3:GOTO2570
 2350VDU2,1,27,1,70,3:GOTO2570
 2360VDU2,1,27,1,72,3:GOTO2570
 2370VDU2,1,27,1,53,3:GOTO2570
 2380VDU2,1,27,1,84,3:GOTO2570
 2390VDU2,1,27,1,84,3:GOTO2570
 2400VDU2,1,27,1,112,1,0,3:GOTO2570
 2410VDU2,1,27,1,45,1,0,3:GOTO2570
 2420VDU2,1,27,1,82,1,0,3:GOTO2570
 2430VDU2,1,27,1,57,3:B$="on ":GOTO2570
 2440VDU2,1,27,1,33,1,0,3:GOTO2570
 2450VDU2,1,27,1,119,1,0,3:GOTO2570
 2460VDU2,1,27,1,82,1,0,3:GOTO2570
 2470VDU2,1,27,1,67,1,0,1,11,3:GOTO2570
 2480VDU2,1,27,1,67,1,66,3:GOTO2570
 2490VDU2,1,27,1,79,3:GOTO2570
 2500VDU2,1,27,1,51,1,36,3:GOTO2570
 2510VDU2,1,27,1,108,1,0,3:GOTO2570
 2520VDU2,1,27,1,81,1,default%(9),3:GOTO2570
 2530VDU2,1,27,1,97,1,0,3:GOTO2570
 2540VDU2,1,27,1,97,1,0,3:GOTO2570
 2550VDU2,1,27,1,97,1,0,3:GOTO2570
 2560VDU2,1,27,1,115,1,0,3:GOTO2570
 2570IF choice%<14 OR choice%>22 val%=0 ELSE val%=default%(choice%-13)
 2580PROCprint(choice%,val%," ")
 2590ENDPROC
 2600:
 2610DEFPROCprint(choice%,val%,C$)
 2620IF choice%<14 row%=3 ELSE row%=-10
 2630IF choice%>13 PRINTTAB(18,choice%+row%)C$ ELSE PRINTTAB(0,choice%+row%)C$
 2640IF choice%>13 AND choice%<23 PRINTTAB(36,choice%+row%)clear$;val%
 2650IF choice%=13 PRINTTAB(13,16)B$
 2660IF choice%=20 alt%(0)=val%
 2670IF choice%=21 lm%=val%
 2680IF choice%=22 rm%=val%
 2690SOUND1,1,178,5
 2700ENDPROC
 2710:
 2720DEFPROCchange_on(choice%)
 2730escape=FALSE
 2740IF choice%>13 AND choice%<23 PROCget_value(choice%)
 2750IF escape on_off%(choice%)=0:ENDPROC
 2760IF choice%>13 AND choice%<17 alt%(choice%-13)=value%
 2770ON choice% GOTO2780,2790,2800,2810,2820,2830,2840,2850,2860,2870,2880,2890,2900,2910,2920,2930,2940,2950,2960,2970,2980,2990,3000,3010,3020,3030
 2780VDU2,1,27,1,120,1,1,3:GOTO3040
 2790VDU2,1,27,1,77,3:GOTO3040
 2800VDU2,1,27,1,15,3:GOTO3040
 2810VDU2,1,27,1,87,1,1,3:GOTO3040
 2820VDU2,1,27,1,69,3:GOTO3040
 2830VDU2,1,27,1,71,3:GOTO3040
 2840VDU2,1,27,1,52,3:GOTO3040
 2850VDU2,1,27,1,83,1,0,3:GOTO3040
 2860VDU2,1,27,1,83,1,1,3:GOTO3040
 2870VDU2,1,27,1,112,1,1,3:GOTO3040
 2880VDU2,1,27,1,45,1,1,3:GOTO3040
 2890VDU2,1,27,1,82,1,3,3:GOTO3040
 2900VDU2,1,27,1,56,3:B$="off":GOTO3040
 2910VDU2,1,27,1,33,1,value%,3:GOTO3040
 2920VDU2,1,27,1,119,1,value%,3:GOTO3040
 2930VDU2,1,27,1,82,1,value%,3:GOTO3040
 2940VDU2,1,27,1,67,1,0,1,value%,3:GOTO3040
 2950VDU2,1,27,1,67,1,value%,3:GOTO3040
 2960VDU2,1,27,1,78,1,value%,3:GOTO3040
 2970VDU2,1,27,1,51,1,value%,3:GOTO3040
 2980VDU2,1,27,1,108,1,value%,3:GOTO3040
 2990VDU2,1,27,1,81,1,value%,3:GOTO3040
 3000VDU2,1,27,1,97,1,3,3:GOTO3040
 3010VDU2,1,27,1,97,1,1,3:GOTO3040
 3020VDU2,1,27,1,97,1,2,3:GOTO3040
 3030VDU2,1,27,1,115,1,1,3:GOTO3040
 3040IF choice%<14 OR choice%>22 value%=0
 3050PROCprint(choice%,value%,"*")
 3060ENDPROC
 3070:
 3080DEF PROCget_value(choice%)
 3090PROCclear_window
 3100min%=0:max%=255:len%=3
 3110IF choice%=14 max%=63:len%=2
 3120IF choice%=15 max%=3:len%=1
 3130IF choice%=16 max%=19:len%=2
 3140IF choice%=17 max%=22:min%=1:len%=2
 3150IF choice%=18 max%=127:min%=1
 3160IF choice%=19 max%=127
 3170IF choice%=20 min%=1
 3180IF choice%=21 max%=rm%-limit%:IF max%<=min% PROCno_change("Left"):ENDPROC
 3190IF choice%=22 max%=rmax%:min%=lm%+limit%:IF min%>=max% PROCno_change("Right"):ENDPROC
 3200PRINTTAB(12,23)"Escape to abhort"
 3210REPEAT
 3220PRINTTAB(7,20)"Enter a value (";min%;"-";max%;"):";
 3230escape=FALSE:correct_val=FALSE
 3240value%=VAL(FNget_input(len%,numeric))
 3250IF escape GOTO3290
 3260IF choice%=21 AND value%=0 AND lm%=0 VDU7:PRINTTAB(7,20)"Zero value already set!  ":PROCwait(200):GOTO3290
 3270IF value%>=min% AND value%<=max% correct_val=TRUE
 3280IF NOT correct_val VDU7
 3290UNTIL correct_val OR escape
 3300ENDPROC
 3310:
 3320DEF PROCcheck_clash
 3330IF choice$="N" AND(on_off%(2) OR on_off%(3) OR on_off%(4) OR on_off%(5) OR on_off%(6) OR on_off%(15)) GOTO3420
 3340IF choice%>1 AND choice%<7 AND on_off%(14) GOTO3420
 3350IF choice$="O" AND(on_off%(2) OR on_off%(3) OR on_off%(4) OR on_off%(14)) GOTO3420
 3360IF choice%>1 AND choice%<5 AND on_off%(15) GOTO3420
 3370IF choice$="P" AND on_off%(12) OR choice$="L" AND on_off%(16) GOTO3420
 3380IF choice$="Q" AND on_off%(18) OR choice$="R" AND on_off%(17) GOTO3420
 3390IF choice$="W" AND(on_off%(24) OR on_off%(25)) OR choice$="X" AND(on_off%(23) OR on_off%(25)) OR choice$="Y" AND(on_off%(23) OR on_off%(24)) GOTO3420
 3400IF choice$="H" AND on_off%(9) OR choice$="I" AND on_off%(8) GOTO3420
 3410ENDPROC
 3420clash=TRUE:ENDPROC
 3430:
 3440DEF PROCno_change(A$)
 3450PRINTTAB(9-LEN(A$),21)A$" margin cannot be changed"
 3460PRINTTAB(7,23)"!max & min values equal!"
 3470VDU7:PROCwait(300):escape=TRUE
 3480ENDPROC
 3490:
 3500DEF PROCwait(delay)
 3510REPEAT UNTIL INKEY(delay)
 3520ENDPROC
 3530:
 3540DEF PROCmargin
 3550elite=on_off%(2):condensed=on_off%(3):enlarged=on_off%(4)
 3560alternate%=on_off%(14) OR on_off%(15)
 3570IF alternate% GOTO3670
 3580IF NOT(elite OR condensed OR enlarged)result%=0
 3590IF elite AND NOT(condensed OR enlarged)result%=1
 3600IF condensed AND NOT(elite OR enlarged)result%=4
 3610IF condensed AND elite AND NOT enlarged result%=5
 3620IF enlarged AND NOT(elite OR condensed)result%=32
 3630IF enlarged AND elite AND NOT condensed result%=33
 3640IF enlarged AND condensed AND NOT elite result%=36
 3650IF enlarged AND condensed AND elite result%=37
 3660GOTO3680
 3670IF on_off%(14) result%=alt%(1) AND &25 ELSE result%=alt%(2)
 3680IF result%=0 rmax%=INT(80*wide+0.5):limit%=2
 3690IF result%=1 rmax%=INT(96*wide+0.5):limit%=3
 3700IF result%=2 rmax%=INT(120*wide+0.5):limit%=4
 3710IF result%=3 OR result%=4 rmax%=INT(137*wide+0.5):limit%=4
 3720IF result%=5 rmax%=INT(160*wide+0.5):limit%=4
 3730IF result%=32 rmax%=INT(40*wide+0.5):limit%=1
 3740IF result%=33 rmax%=INT(48*wide+0.5):limit%=1
 3750IF result%=36 rmax%=INT(68*wide+0.5):limit%=2
 3760IF result%=37 rmax%=INT(80*wide+0.5):limit%=2
 3770IF rmax%=137 default%(9)=132 ELSE IF rmax%=68 AND wide=1 default%(9)=66 ELSE default%(9)=rmax%
 3780new=default%(9)
 3790IF on_off%(21) lm%=INT(lm%*(new/present)+0.5)
 3800IF on_off%(22) rm%=INT(rm%*(new/present)+0.5) ELSE rm%=default%(9)
 3810IF rm%>rmax% rm%=rmax%
 3820IF lm%>=rm% lm%=rm%-limit%
 3830PRINTTAB(36,12)clear$;rm%
 3840PRINTTAB(36,11)clear$;lm%
 3850present=new
 3860ENDPROC
 3870:
 3880DEF PROCtidy
 3890*FX12,0
 3900*FX4,0
 3910*FX229,0
 3920*FX225,1
 3930VDU23,1,1;0;0;0;
 3940ENDPROC
 3950:
 3960PROCtidy
 3970REPORT:PRINT" at line ";ERL
 3980END
 3990:
 4000DATA NLQ,Elite,Condensed,Enlarged,Emphasized
 4010DATA Dble Strike,Italics,Superscript,Subscript
 4020DATA Proportional,Underlined,UK Chrs
 4030DATA Paper OUT on,Print mode,Char pitch
 4040DATA Int char set,Form length in,Form length Ln
 4050DATA Skip over perf,Line spc n/216,LH margin chrs
 4060DATA RH margin chrs,Auto justify,Auto centre
 4070DATA RH align,Half speed
 4080:
 4090DATA 0,0,0,11,66,0,36,0
 4100:
 4110DATA (USA),(French),(German),(English),(Danish I)
 4120DATA (Swedish I),(Italian),(Spanish I),(Japanese)
 4130DATA (Norwegian),(Danish II),(Spanish II),(Latin American)
 4140DATA (French Canadian),(Dutch),(Swedish II)
 4150DATA (Swedish III),(Turkish),(Swiss I),(Swiss II)
 4160:
 4170DATA (10 cpi),(12 cpi),(15 cpi),(17 cpi)

� Easy Printer
� by Leslie J Goodridge
� (c) Electron User
(:
2
� � �DxO
<4� Until de-bugged add REMs to the next two lines
F*KEY10 OLD|M RUN|M
P*FX229,1
Z:
d�6:�
n�19,1,6;0;
x�23,1,0;0;0;0;
��check_printer
��
�
�setup
��screen
�exit=�:reset=�
��
��clear_window
��menu_choice
�� exit � reset
�� reset �tL@
�	�:�20
��5,10)"Exit to :"
��14,12)"1...BASIC"
�14,13)"2...VIEW"
�14,14)"3...VIEWSHEET"
�
"*FX21,0
,exit$=�
6exit%=�"123",exit$)
@� exit%
J�tidy:�
T� exit% �D^A,�DhA,�DrA
^�("basic"):�
h�("word"):�
r�("sheet"):�
|:
�� �setup
�"�2,1,27,1,64,3:� Reset Printer
�*FX11,0
�
*FX4,1
�*FX225,128
� wide=?&70/10:� wide=0 wide=1
�=lm%=0:rm%=�(80*wide+0.5):rmax%=rm%:limit%=2:present=rmax%
�'alpha$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
� valid$=alpha$+�129+�133+�137
�numeric=1:string=0
�printer$=�25," ")
�$final$=printer$:change$=printer$
�delete$=�127+"."+�8
clear$=�3," ")+�3,�8)
I� selection$(26),on_off%(26),default%(9),alt%(3),country$(19),cpi$(3)
*�1,1,13,2,1,1,1,2,126,0,0,-126,126,126
&
� �t`O
0�I%=1 � 26
:� selection$(I%)
Don_off%(I%)=0
N�
X
� �dzO
b� I%=1 � 8
l� default%(I%)
v�
�default%(9)=rm%
�� I%=1 � 3
�alt%(I%)=0
��
�alt%(0)=36
�
� �TNP
�� I%=0 � 19
�� country$(I%)
��
�
� �DJP
�� I%=0 � 3
�� cpi$(I%)
��
�
:
� �check_printer
 ;?&70=0:� �yn("Wide Carriage Printer Y/N?",7,12) ?&70=17
*9yes=�yn("Is Printer set for auto linefeed Y/N?",1,12)
4"� yes �("fx6,10") � �("fx6,0")
>�
H4�0,10)"Make sure  your printer is  switched on"
R4�0,12)"and on line or the program will hang up"
\%�8,16)"Press any key when ready"
f�("fx21,0"):key=�:�
p:
z� �clear_window
��28,0,24,39,19,12,26
��
�:
�
� �screen
��
��14,0)"EASY PRINTER"
��14,1)"~~~~ ~~~~~~~"
��15,2)"** Menu **"
�� item%=1 � 26
�letter$=�(64+item%)
�/� item%<14 col%=1:row%=3 � col%=19:row%=-10
�5�col%,item%+row%);letter$;".";selection$(item%);
�� item%=1 �" (Draft)";
� item%=2 �" (Pica)";
� item%=12 �"(US)";
=� item%>13 � item%<23 �36,item%+row%);default%(item%-13)
$�
.�
8:
B� �menu_choice
Lclash=�
V'�7,19)"A-Z to set Printer options"
`=�3,21)"f1=Reset":�25,21)"f5=Printout":�16,23)"f9=Exit"
j�
t
*FX202
~*FX21,0
�
choice$=�
�choice%=�valid$,choice$)
��choice%
�� choice$=�129 reset=�:�
�"� choice$=�133 �test_printer:�
�� choice$=�137 �set_exit:�
�H� choice$>="A" � choice$<="Z" �("fx21,3"):�change(choice%):� clash �
�� �"BCDNO",choice$) �margin
�)� choice$<"N" � choice$>"V" �DjD � �
��
�:
�� �test_printer
1other=on_off%(14) � on_off%(15) � on_off%(16)

escape=�
6� �printer$,1)<>" " �change_printer � �get_printer
� escape �
(	�2,21
2�"This is ";
<&� other �other_test � �normal_test
F�"on the ";printer$;
PB�" with descenders gjpqy and line spacing ";alt%(0);"/216 in."
Z�6,3
d�
n:
x� �other_test
�� I%=14 � 16
�6� on_off%(I%) � selection$(I%);" ";alt%(I%-13)" ";
�� I%=14 � on_off%(I%) �mode
�1� I%=15 � on_off%(I%) � cpi$(alt%(I%-13))" ";
�@� I%=16 � on_off%(I%) � country$(alt%(I%-13))":- ";:�alfabet
��
��"in ";:�normal_test
��
�:
�� �normal_test
�"both=on_off%(14) � on_off%(15)
�� set%=1 � 12
�I� set%=1 � on_off%(set%) � selection$(set%);" ";� � set%=1 �"Draft ";
g� set%=2 � on_off%(set%) � selection$(set%);" ";� � set%=2 � both �"";� � set%=2 � � both �"Pica ";
�� set%=12 � on_off%(set%) � selection$(set%);" ";� � set%=12 � on_off%(16)=0 �"US Chrs ";� �set%=12 � on_off%(16)=1 �"Chrs ";
>� set%>2 � set%<12 � on_off%(set%) � selection$(set%);" ";
"�
,�
6:
@� �alfabet
J� I%=33 � 126
T� �(I%);
^�
h	�" ";
r�
|:
�� �change_printer
��clear_window
�9� � �yn("Change Printer Y/N?",10,20) � � �get_printer
��
�:
�� �get_printer
��clear_window
��12,23)"Escape to abhort"
��0,20)"Printer name: ";
�escape=�
�!change$=�get_input(25,string)
�!� escape � � printer$=change$
��
:
� �set_exit
�clear_window
&exit=�yn("Exit Y/N?",15,20)
0�
::
D� �change(choice%)
NU�check_clash:� clash �clear_window:�7:�10,21)"!Control Code Clash!":�wait(150):�
X'on_off%(choice%)=on_off%(choice%)�1
bA� on_off%(choice%) �change_on(choice%) � �change_off(choice%)
l�
v:
�� �yn(message$,col,row)
�� �col,row)message$
��
�*FX21,0
�ans$=�(� � &DF)
�� �"YN",ans$)
�� ans$="Y"=� �=�
�:
�� �get_input(len%,type)
�7� type=numeric first=48:last=57 � first=32:last=126
�start$=�len%,".")+�len%,�8)
�
final$=""
��23,1,1;0;0;0;

� start$;
�
*FX21,0
 input$=�:input=�(input$)
*�input$=�27 escape=�:�DfH
4#� input$=�13 � final$<>"" �DfH
>L� input$=�127 � �(final$)>0 final$=�final$,�(final$)-1):� delete$;:�TVH
H8� input<first � input>last � �(final$)=len% �7:�TVH
R
� input$;
\final$=final$+input$
f� input$=�13 � escape
p�23,1,0;0;0;0;
z=final$
�:
�� �mode
�	�"(";
�0� alt%(1) � 1 � selection$(2)" ";� �"Pica ";
�%� alt%(1) � 4 � selection$(3)" ";
�&� alt%(1) � 32 � selection$(4)" ";
�%� alt%(1) � 8 � selection$(5)" ";
�&� alt%(1) � 16 � selection$(6)" ";
�
�") ";
��
�:
�� �change_off(choice%)
��� choice% �TFI,�TPI,�TZI,�TdI,�TnI,�TxI,�DBI,�DLI,�DVI,�D`I,�DjI,�DtI,�D~I,�tHI,�tRI,�t\I,�tfI,�tpI,�tzI,�dDI,�dNI,�dXI,�dbI,�dlI,�dvI,�T@J
	�2,1,27,1,120,1,0,3:�TJJ
	�2,1,27,1,80,3:�TJJ
	�2,1,18,3:�TJJ
	$�2,1,27,1,87,1,0,3:�TJJ
	.�2,1,27,1,70,3:�TJJ
	8�2,1,27,1,72,3:�TJJ
	B�2,1,27,1,53,3:�TJJ
	L�2,1,27,1,84,3:�TJJ
	V�2,1,27,1,84,3:�TJJ
	`�2,1,27,1,112,1,0,3:�TJJ
	j�2,1,27,1,45,1,0,3:�TJJ
	t�2,1,27,1,82,1,0,3:�TJJ
	~!�2,1,27,1,57,3:B$="on ":�TJJ
	��2,1,27,1,33,1,0,3:�TJJ
	��2,1,27,1,119,1,0,3:�TJJ
	��2,1,27,1,82,1,0,3:�TJJ
	�!�2,1,27,1,67,1,0,1,11,3:�TJJ
	��2,1,27,1,67,1,66,3:�TJJ
	��2,1,27,1,79,3:�TJJ
	��2,1,27,1,51,1,36,3:�TJJ
	��2,1,27,1,108,1,0,3:�TJJ
	�&�2,1,27,1,81,1,default%(9),3:�TJJ
	��2,1,27,1,97,1,0,3:�TJJ
	��2,1,27,1,97,1,0,3:�TJJ
	��2,1,27,1,97,1,0,3:�TJJ
�2,1,27,1,115,1,0,3:�TJJ

@� choice%<14 � choice%>22 val%=0 � val%=default%(choice%-13)
�print(choice%,val%," ")
�
(:
2��print(choice%,val%,C$)
<"� choice%<14 row%=3 � row%=-10
F;� choice%>13 �18,choice%+row%)C$ � �0,choice%+row%)C$
P;� choice%>13 � choice%<23 �36,choice%+row%)clear$;val%
Z� choice%=13 �13,16)B$
d� choice%=20 alt%(0)=val%
n� choice%=21 lm%=val%
x� choice%=22 rm%=val%
��1,1,178,5
��
�:
���change_on(choice%)
�escape=�
�1� choice%>13 � choice%<23 �get_value(choice%)
�!� escape on_off%(choice%)=0:�
�5� choice%>13 � choice%<17 alt%(choice%-13)=value%
Ґ� choice% �d\J,�dfJ,�dpJ,�dzJ,�TDK,�TNK,�TXK,�TbK,�TlK,�TvK,�D@K,�DJK,�DTK,�D^K,�DhK,�DrK,�D|K,�tFK,�tPK,�tZK,�tdK,�tnK,�txK,�dBK,�dLK,�dVK
��2,1,27,1,120,1,1,3:�d`K
��2,1,27,1,77,3:�d`K
��2,1,27,1,15,3:�d`K
��2,1,27,1,87,1,1,3:�d`K
�2,1,27,1,69,3:�d`K
�2,1,27,1,71,3:�d`K
�2,1,27,1,52,3:�d`K
"�2,1,27,1,83,1,0,3:�d`K
,�2,1,27,1,83,1,1,3:�d`K
6�2,1,27,1,112,1,1,3:�d`K
@�2,1,27,1,45,1,1,3:�d`K
J�2,1,27,1,82,1,3,3:�d`K
T!�2,1,27,1,56,3:B$="off":�d`K
^!�2,1,27,1,33,1,value%,3:�d`K
h"�2,1,27,1,119,1,value%,3:�d`K
r!�2,1,27,1,82,1,value%,3:�d`K
|%�2,1,27,1,67,1,0,1,value%,3:�d`K
�!�2,1,27,1,67,1,value%,3:�d`K
�!�2,1,27,1,78,1,value%,3:�d`K
�!�2,1,27,1,51,1,value%,3:�d`K
�"�2,1,27,1,108,1,value%,3:�d`K
�!�2,1,27,1,81,1,value%,3:�d`K
��2,1,27,1,97,1,3,3:�d`K
��2,1,27,1,97,1,1,3:�d`K
��2,1,27,1,97,1,2,3:�d`K
��2,1,27,1,115,1,1,3:�d`K
�&� choice%<14 � choice%>22 value%=0
��print(choice%,value%,"*")
��
�:
� �get_value(choice%)
�clear_window
min%=0:max%=255:len%=3
&� choice%=14 max%=63:len%=2
0� choice%=15 max%=3:len%=1
:� choice%=16 max%=19:len%=2
D&� choice%=17 max%=22:min%=1:len%=2
N � choice%=18 max%=127:min%=1
X� choice%=19 max%=127
b� choice%=20 min%=1
lB� choice%=21 max%=rm%-limit%:� max%<=min% �no_change("Left"):�
vN� choice%=22 max%=rmax%:min%=lm%+limit%:� min%>=max% �no_change("Right"):�
��12,23)"Escape to abhort"
��
�0�7,20)"Enter a value (";min%;"-";max%;"):";
�escape=�:correct_val=�
�&value%=�(�get_input(len%,numeric))
�� escape �dZL
�Z� choice%=21 � value%=0 � lm%=0 �7:�7,20)"Zero value already set!  ":�wait(200):�dZL
�/� value%>=min% � value%<=max% correct_val=�
�� � correct_val �7
�� correct_val � escape
��
�:
�� �check_clash

g� choice$="N" �(on_off%(2) � on_off%(3) � on_off%(4) � on_off%(5) � on_off%(6) � on_off%(15)) �D\M

/� choice%>1 � choice%<7 � on_off%(14) �D\M

M� choice$="O" �(on_off%(2) � on_off%(3) � on_off%(4) � on_off%(14)) �D\M

 /� choice%>1 � choice%<5 � on_off%(15) �D\M

*A� choice$="P" � on_off%(12) � choice$="L" � on_off%(16) �D\M

4A� choice$="Q" � on_off%(18) � choice$="R" � on_off%(17) �D\M

>�� choice$="W" �(on_off%(24) � on_off%(25)) � choice$="X" �(on_off%(23) � on_off%(25)) � choice$="Y" �(on_off%(23) � on_off%(24)) �D\M

H?� choice$="H" � on_off%(9) � choice$="I" � on_off%(8) �D\M

R�

\
clash=�:�

f:

p� �no_change(A$)

z.�9-�(A$),21)A$" margin cannot be changed"

�%�7,23)"!max & min values equal!"

��7:�wait(300):escape=�

��

�:

�� �wait(delay)

�� � �(delay)

��

�:

�
� �margin

�=elite=on_off%(2):condensed=on_off%(3):enlarged=on_off%(4)

�(alternate%=on_off%(14) � on_off%(15)

�� alternate% �DVN

�.� �(elite � condensed � enlarged)result%=0
.� elite � �(condensed � enlarged)result%=1
.� condensed � �(elite � enlarged)result%=4
.� condensed � elite � � enlarged result%=5
$/� enlarged � �(elite � condensed)result%=32
./� enlarged � elite � � condensed result%=33
8/� enlarged � condensed � � elite result%=36
B-� enlarged � condensed � elite result%=37
L	�D`N
V9� on_off%(14) result%=alt%(1) � &25 � result%=alt%(2)
`-� result%=0 rmax%=�(80*wide+0.5):limit%=2
j-� result%=1 rmax%=�(96*wide+0.5):limit%=3
t.� result%=2 rmax%=�(120*wide+0.5):limit%=4
~:� result%=3 � result%=4 rmax%=�(137*wide+0.5):limit%=4
�.� result%=5 rmax%=�(160*wide+0.5):limit%=4
�.� result%=32 rmax%=�(40*wide+0.5):limit%=1
�.� result%=33 rmax%=�(48*wide+0.5):limit%=1
�.� result%=36 rmax%=�(68*wide+0.5):limit%=2
�.� result%=37 rmax%=�(80*wide+0.5):limit%=2
�X� rmax%=137 default%(9)=132 � � rmax%=68 � wide=1 default%(9)=66 � default%(9)=rmax%
�new=default%(9)
�.� on_off%(21) lm%=�(lm%*(new/present)+0.5)
�@� on_off%(22) rm%=�(rm%*(new/present)+0.5) � rm%=default%(9)
�� rm%>rmax% rm%=rmax%
�� lm%>=rm% lm%=rm%-limit%
��36,12)clear$;rm%
�36,11)clear$;lm%

present=new
�
:
(� �tidy
2*FX12,0
<
*FX4,0
F*FX229,0
P*FX225,1
Z�23,1,1;0;0;0;
d�
n:
x	�tidy
��:�" at line ";�
��
�:
�-� NLQ,Elite,Condensed,Enlarged,Emphasized
�/� Dble Strike,Italics,Superscript,Subscript
�%� Proportional,Underlined,UK Chrs
�(� Paper OUT on,Print mode,Char pitch
�0� Int char set,Form length in,Form length Ln
�2� Skip over perf,Line spc n/216,LH margin chrs
�-� RH margin chrs,Auto justify,Auto centre
�� RH align,Half speed
�:
�� 0,0,0,11,66,0,36,0
:
2� (USA),(French),(German),(English),(Danish I)
2� (Swedish I),(Italian),(Spanish I),(Japanese)
";� (Norwegian),(Danish II),(Spanish II),(Latin American)
,,� (French Canadian),(Dutch),(Swedish II)
62� (Swedish III),(Turkish),(Swiss I),(Swiss II)
@:
J)� (10 cpi),(12 cpi),(15 cpi),(17 cpi)
�
00000000  0d 00 0a 12 f4 20 45 61  73 79 20 50 72 69 6e 74  |..... Easy Print|
00000010  65 72 0d 00 14 1b f4 20  62 79 20 4c 65 73 6c 69  |er..... by Lesli|
00000020  65 20 4a 20 47 6f 6f 64  72 69 64 67 65 0d 00 1e  |e J Goodridge...|
00000030  17 f4 20 28 63 29 20 45  6c 65 63 74 72 6f 6e 20  |.. (c) Electron |
00000040  55 73 65 72 0d 00 28 05  3a 0d 00 32 0d ee 20 85  |User..(.:..2.. .|
00000050  20 e5 8d 44 78 4f 0d 00  3c 34 f4 20 55 6e 74 69  | ..DxO..<4. Unti|
00000060  6c 20 64 65 2d 62 75 67  67 65 64 20 61 64 64 20  |l de-bugged add |
00000070  52 45 4d 73 20 74 6f 20  74 68 65 20 6e 65 78 74  |REMs to the next|
00000080  20 74 77 6f 20 6c 69 6e  65 73 0d 00 46 16 2a 4b  | two lines..F.*K|
00000090  45 59 31 30 20 4f 4c 44  7c 4d 20 52 55 4e 7c 4d  |EY10 OLD|M RUN|M|
000000a0  0d 00 50 0c 2a 46 58 32  32 39 2c 31 0d 00 5a 05  |..P.*FX229,1..Z.|
000000b0  3a 0d 00 64 08 eb 36 3a  db 0d 00 6e 0e ef 31 39  |:..d..6:...n..19|
000000c0  2c 31 2c 36 3b 30 3b 0d  00 78 12 ef 32 33 2c 31  |,1,6;0;..x..23,1|
000000d0  2c 30 3b 30 3b 30 3b 30  3b 0d 00 82 12 f2 63 68  |,0;0;0;0;.....ch|
000000e0  65 63 6b 5f 70 72 69 6e  74 65 72 0d 00 8c 05 d8  |eck_printer.....|
000000f0  0d 00 96 0a f2 73 65 74  75 70 0d 00 a0 0b f2 73  |.....setup.....s|
00000100  63 72 65 65 6e 0d 00 aa  12 65 78 69 74 3d a3 3a  |creen....exit=.:|
00000110  72 65 73 65 74 3d a3 0d  00 b4 05 f5 0d 00 be 11  |reset=..........|
00000120  f2 63 6c 65 61 72 5f 77  69 6e 64 6f 77 0d 00 c8  |.clear_window...|
00000130  10 f2 6d 65 6e 75 5f 63  68 6f 69 63 65 0d 00 d2  |..menu_choice...|
00000140  12 fd 20 65 78 69 74 20  84 20 72 65 73 65 74 0d  |.. exit . reset.|
00000150  00 dc 11 e7 20 72 65 73  65 74 20 e5 8d 74 4c 40  |.... reset ..tL@|
00000160  0d 00 e6 09 db 3a ef 32  30 0d 00 f0 16 f1 8a 35  |.....:.20......5|
00000170  2c 31 30 29 22 45 78 69  74 20 74 6f 20 3a 22 0d  |,10)"Exit to :".|
00000180  00 fa 17 f1 8a 31 34 2c  31 32 29 22 31 2e 2e 2e  |.....14,12)"1...|
00000190  42 41 53 49 43 22 0d 01  04 16 f1 8a 31 34 2c 31  |BASIC"......14,1|
000001a0  33 29 22 32 2e 2e 2e 56  49 45 57 22 0d 01 0e 1b  |3)"2...VIEW"....|
000001b0  f1 8a 31 34 2c 31 34 29  22 33 2e 2e 2e 56 49 45  |..14,14)"3...VIE|
000001c0  57 53 48 45 45 54 22 0d  01 18 05 f5 0d 01 22 0b  |WSHEET".......".|
000001d0  2a 46 58 32 31 2c 30 0d  01 2c 0b 65 78 69 74 24  |*FX21,0..,.exit$|
000001e0  3d be 0d 01 36 17 65 78  69 74 25 3d a7 22 31 32  |=...6.exit%=."12|
000001f0  33 22 2c 65 78 69 74 24  29 0d 01 40 0b fd 20 65  |3",exit$)..@.. e|
00000200  78 69 74 25 0d 01 4a 0b  f2 74 69 64 79 3a db 0d  |xit%..J..tidy:..|
00000210  01 54 1b ee 20 65 78 69  74 25 20 e5 8d 44 5e 41  |.T.. exit% ..D^A|
00000220  2c 8d 44 68 41 2c 8d 44  72 41 0d 01 5e 10 ff 28  |,.DhA,.DrA..^..(|
00000230  22 62 61 73 69 63 22 29  3a e0 0d 01 68 0f ff 28  |"basic"):...h..(|
00000240  22 77 6f 72 64 22 29 3a  e0 0d 01 72 10 ff 28 22  |"word"):...r..("|
00000250  73 68 65 65 74 22 29 3a  e0 0d 01 7c 05 3a 0d 01  |sheet"):...|.:..|
00000260  86 0c dd 20 f2 73 65 74  75 70 0d 01 90 22 ef 32  |... .setup...".2|
00000270  2c 31 2c 32 37 2c 31 2c  36 34 2c 33 3a f4 20 52  |,1,27,1,64,3:. R|
00000280  65 73 65 74 20 50 72 69  6e 74 65 72 0d 01 9a 0b  |eset Printer....|
00000290  2a 46 58 31 31 2c 30 0d  01 a4 0a 2a 46 58 34 2c  |*FX11,0....*FX4,|
000002a0  31 0d 01 ae 0e 2a 46 58  32 32 35 2c 31 32 38 0d  |1....*FX225,128.|
000002b0  01 b8 20 77 69 64 65 3d  3f 26 37 30 2f 31 30 3a  |.. wide=?&70/10:|
000002c0  e7 20 77 69 64 65 3d 30  20 77 69 64 65 3d 31 0d  |. wide=0 wide=1.|
000002d0  01 c2 3d 6c 6d 25 3d 30  3a 72 6d 25 3d a8 28 38  |..=lm%=0:rm%=.(8|
000002e0  30 2a 77 69 64 65 2b 30  2e 35 29 3a 72 6d 61 78  |0*wide+0.5):rmax|
000002f0  25 3d 72 6d 25 3a 6c 69  6d 69 74 25 3d 32 3a 70  |%=rm%:limit%=2:p|
00000300  72 65 73 65 6e 74 3d 72  6d 61 78 25 0d 01 cc 27  |resent=rmax%...'|
00000310  61 6c 70 68 61 24 3d 22  41 42 43 44 45 46 47 48  |alpha$="ABCDEFGH|
00000320  49 4a 4b 4c 4d 4e 4f 50  51 52 53 54 55 56 57 58  |IJKLMNOPQRSTUVWX|
00000330  59 5a 22 0d 01 d6 20 76  61 6c 69 64 24 3d 61 6c  |YZ"... valid$=al|
00000340  70 68 61 24 2b bd 31 32  39 2b bd 31 33 33 2b bd  |pha$+.129+.133+.|
00000350  31 33 37 0d 01 e0 16 6e  75 6d 65 72 69 63 3d 31  |137....numeric=1|
00000360  3a 73 74 72 69 6e 67 3d  30 0d 01 ea 15 70 72 69  |:string=0....pri|
00000370  6e 74 65 72 24 3d c4 32  35 2c 22 20 22 29 0d 01  |nter$=.25," ")..|
00000380  f4 24 66 69 6e 61 6c 24  3d 70 72 69 6e 74 65 72  |.$final$=printer|
00000390  24 3a 63 68 61 6e 67 65  24 3d 70 72 69 6e 74 65  |$:change$=printe|
000003a0  72 24 0d 01 fe 17 64 65  6c 65 74 65 24 3d bd 31  |r$....delete$=.1|
000003b0  32 37 2b 22 2e 22 2b bd  38 0d 02 08 19 63 6c 65  |27+"."+.8....cle|
000003c0  61 72 24 3d c4 33 2c 22  20 22 29 2b c4 33 2c bd  |ar$=.3," ")+.3,.|
000003d0  38 29 0d 02 12 49 de 20  73 65 6c 65 63 74 69 6f  |8)...I. selectio|
000003e0  6e 24 28 32 36 29 2c 6f  6e 5f 6f 66 66 25 28 32  |n$(26),on_off%(2|
000003f0  36 29 2c 64 65 66 61 75  6c 74 25 28 39 29 2c 61  |6),default%(9),a|
00000400  6c 74 25 28 33 29 2c 63  6f 75 6e 74 72 79 24 28  |lt%(3),country$(|
00000410  31 39 29 2c 63 70 69 24  28 33 29 0d 02 1c 2a e2  |19),cpi$(3)...*.|
00000420  31 2c 31 2c 31 33 2c 32  2c 31 2c 31 2c 31 2c 32  |1,1,13,2,1,1,1,2|
00000430  2c 31 32 36 2c 30 2c 30  2c 2d 31 32 36 2c 31 32  |,126,0,0,-126,12|
00000440  36 2c 31 32 36 0d 02 26  0a f7 20 8d 74 60 4f 0d  |6,126..&.. .t`O.|
00000450  02 30 0e e3 49 25 3d 31  20 b8 20 32 36 0d 02 3a  |.0..I%=1 . 26..:|
00000460  14 f3 20 73 65 6c 65 63  74 69 6f 6e 24 28 49 25  |.. selection$(I%|
00000470  29 0d 02 44 11 6f 6e 5f  6f 66 66 25 28 49 25 29  |)..D.on_off%(I%)|
00000480  3d 30 0d 02 4e 05 ed 0d  02 58 0a f7 20 8d 64 7a  |=0..N....X.. .dz|
00000490  4f 0d 02 62 0e e3 20 49  25 3d 31 20 b8 20 38 0d  |O..b.. I%=1 . 8.|
000004a0  02 6c 12 f3 20 64 65 66  61 75 6c 74 25 28 49 25  |.l.. default%(I%|
000004b0  29 0d 02 76 05 ed 0d 02  80 13 64 65 66 61 75 6c  |)..v......defaul|
000004c0  74 25 28 39 29 3d 72 6d  25 0d 02 8a 0e e3 20 49  |t%(9)=rm%..... I|
000004d0  25 3d 31 20 b8 20 33 0d  02 94 0e 61 6c 74 25 28  |%=1 . 3....alt%(|
000004e0  49 25 29 3d 30 0d 02 9e  05 ed 0d 02 a8 0e 61 6c  |I%)=0.........al|
000004f0  74 25 28 30 29 3d 33 36  0d 02 b2 0a f7 20 8d 54  |t%(0)=36..... .T|
00000500  4e 50 0d 02 bc 0f e3 20  49 25 3d 30 20 b8 20 31  |NP..... I%=0 . 1|
00000510  39 0d 02 c6 12 f3 20 63  6f 75 6e 74 72 79 24 28  |9..... country$(|
00000520  49 25 29 0d 02 d0 05 ed  0d 02 da 0a f7 20 8d 44  |I%).......... .D|
00000530  4a 50 0d 02 e4 0e e3 20  49 25 3d 30 20 b8 20 33  |JP..... I%=0 . 3|
00000540  0d 02 ee 0e f3 20 63 70  69 24 28 49 25 29 0d 02  |..... cpi$(I%)..|
00000550  f8 05 ed 0d 03 02 05 e1  0d 03 0c 05 3a 0d 03 16  |............:...|
00000560  14 dd 20 f2 63 68 65 63  6b 5f 70 72 69 6e 74 65  |.. .check_printe|
00000570  72 0d 03 20 3b 3f 26 37  30 3d 30 3a e7 20 a4 79  |r.. ;?&70=0:. .y|
00000580  6e 28 22 57 69 64 65 20  43 61 72 72 69 61 67 65  |n("Wide Carriage|
00000590  20 50 72 69 6e 74 65 72  20 59 2f 4e 3f 22 2c 37  | Printer Y/N?",7|
000005a0  2c 31 32 29 20 3f 26 37  30 3d 31 37 0d 03 2a 39  |,12) ?&70=17..*9|
000005b0  79 65 73 3d a4 79 6e 28  22 49 73 20 50 72 69 6e  |yes=.yn("Is Prin|
000005c0  74 65 72 20 73 65 74 20  66 6f 72 20 61 75 74 6f  |ter set for auto|
000005d0  20 6c 69 6e 65 66 65 65  64 20 59 2f 4e 3f 22 2c  | linefeed Y/N?",|
000005e0  31 2c 31 32 29 0d 03 34  22 e7 20 79 65 73 20 ff  |1,12)..4". yes .|
000005f0  28 22 66 78 36 2c 31 30  22 29 20 8b 20 ff 28 22  |("fx6,10") . .("|
00000600  66 78 36 2c 30 22 29 0d  03 3e 05 db 0d 03 48 34  |fx6,0")..>....H4|
00000610  f1 8a 30 2c 31 30 29 22  4d 61 6b 65 20 73 75 72  |..0,10)"Make sur|
00000620  65 20 20 79 6f 75 72 20  70 72 69 6e 74 65 72 20  |e  your printer |
00000630  69 73 20 20 73 77 69 74  63 68 65 64 20 6f 6e 22  |is  switched on"|
00000640  0d 03 52 34 f1 8a 30 2c  31 32 29 22 61 6e 64 20  |..R4..0,12)"and |
00000650  6f 6e 20 6c 69 6e 65 20  6f 72 20 74 68 65 20 70  |on line or the p|
00000660  72 6f 67 72 61 6d 20 77  69 6c 6c 20 68 61 6e 67  |rogram will hang|
00000670  20 75 70 22 0d 03 5c 25  f1 8a 38 2c 31 36 29 22  | up"..\%..8,16)"|
00000680  50 72 65 73 73 20 61 6e  79 20 6b 65 79 20 77 68  |Press any key wh|
00000690  65 6e 20 72 65 61 64 79  22 0d 03 66 17 ff 28 22  |en ready"..f..("|
000006a0  66 78 32 31 2c 30 22 29  3a 6b 65 79 3d a5 3a e1  |fx21,0"):key=.:.|
000006b0  0d 03 70 05 3a 0d 03 7a  13 dd 20 f2 63 6c 65 61  |..p.:..z.. .clea|
000006c0  72 5f 77 69 6e 64 6f 77  0d 03 84 18 ef 32 38 2c  |r_window.....28,|
000006d0  30 2c 32 34 2c 33 39 2c  31 39 2c 31 32 2c 32 36  |0,24,39,19,12,26|
000006e0  0d 03 8e 05 e1 0d 03 98  05 3a 0d 03 a2 0d dd 20  |.........:..... |
000006f0  f2 73 63 72 65 65 6e 0d  03 ac 05 db 0d 03 b6 19  |.screen.........|
00000700  f1 8a 31 34 2c 30 29 22  45 41 53 59 20 50 52 49  |..14,0)"EASY PRI|
00000710  4e 54 45 52 22 0d 03 c0  19 f1 8a 31 34 2c 31 29  |NTER"......14,1)|
00000720  22 7e 7e 7e 7e 20 7e 7e  7e 7e 7e 7e 7e 22 0d 03  |"~~~~ ~~~~~~~"..|
00000730  ca 17 f1 8a 31 35 2c 32  29 22 2a 2a 20 4d 65 6e  |....15,2)"** Men|
00000740  75 20 2a 2a 22 0d 03 d4  12 e3 20 69 74 65 6d 25  |u **"..... item%|
00000750  3d 31 20 b8 20 32 36 0d  03 de 17 6c 65 74 74 65  |=1 . 26....lette|
00000760  72 24 3d bd 28 36 34 2b  69 74 65 6d 25 29 0d 03  |r$=.(64+item%)..|
00000770  e8 2f e7 20 69 74 65 6d  25 3c 31 34 20 63 6f 6c  |./. item%<14 col|
00000780  25 3d 31 3a 72 6f 77 25  3d 33 20 8b 20 63 6f 6c  |%=1:row%=3 . col|
00000790  25 3d 31 39 3a 72 6f 77  25 3d 2d 31 30 0d 03 f2  |%=19:row%=-10...|
000007a0  35 f1 8a 63 6f 6c 25 2c  69 74 65 6d 25 2b 72 6f  |5..col%,item%+ro|
000007b0  77 25 29 3b 6c 65 74 74  65 72 24 3b 22 2e 22 3b  |w%);letter$;".";|
000007c0  73 65 6c 65 63 74 69 6f  6e 24 28 69 74 65 6d 25  |selection$(item%|
000007d0  29 3b 0d 03 fc 1a e7 20  69 74 65 6d 25 3d 31 20  |);..... item%=1 |
000007e0  f1 22 20 28 44 72 61 66  74 29 22 3b 0d 04 06 19  |." (Draft)";....|
000007f0  e7 20 69 74 65 6d 25 3d  32 20 f1 22 20 28 50 69  |. item%=2 ." (Pi|
00000800  63 61 29 22 3b 0d 04 10  17 e7 20 69 74 65 6d 25  |ca)";..... item%|
00000810  3d 31 32 20 f1 22 28 55  53 29 22 3b 0d 04 1a 3d  |=12 ."(US)";...=|
00000820  e7 20 69 74 65 6d 25 3e  31 33 20 80 20 69 74 65  |. item%>13 . ite|
00000830  6d 25 3c 32 33 20 f1 8a  33 36 2c 69 74 65 6d 25  |m%<23 ..36,item%|
00000840  2b 72 6f 77 25 29 3b 64  65 66 61 75 6c 74 25 28  |+row%);default%(|
00000850  69 74 65 6d 25 2d 31 33  29 0d 04 24 05 ed 0d 04  |item%-13)..$....|
00000860  2e 05 e1 0d 04 38 05 3a  0d 04 42 12 dd 20 f2 6d  |.....8.:..B.. .m|
00000870  65 6e 75 5f 63 68 6f 69  63 65 0d 04 4c 0b 63 6c  |enu_choice..L.cl|
00000880  61 73 68 3d a3 0d 04 56  27 f1 8a 37 2c 31 39 29  |ash=...V'..7,19)|
00000890  22 41 2d 5a 20 74 6f 20  73 65 74 20 50 72 69 6e  |"A-Z to set Prin|
000008a0  74 65 72 20 6f 70 74 69  6f 6e 73 22 0d 04 60 3d  |ter options"..`=|
000008b0  f1 8a 33 2c 32 31 29 22  66 31 3d 52 65 73 65 74  |..3,21)"f1=Reset|
000008c0  22 3a f1 8a 32 35 2c 32  31 29 22 66 35 3d 50 72  |":..25,21)"f5=Pr|
000008d0  69 6e 74 6f 75 74 22 3a  f1 8a 31 36 2c 32 33 29  |intout":..16,23)|
000008e0  22 66 39 3d 45 78 69 74  22 0d 04 6a 05 f5 0d 04  |"f9=Exit"..j....|
000008f0  74 0a 2a 46 58 32 30 32  0d 04 7e 0b 2a 46 58 32  |t.*FX202..~.*FX2|
00000900  31 2c 30 0d 04 88 0d 63  68 6f 69 63 65 24 3d be  |1,0....choice$=.|
00000910  0d 04 92 1c 63 68 6f 69  63 65 25 3d a7 76 61 6c  |....choice%=.val|
00000920  69 64 24 2c 63 68 6f 69  63 65 24 29 0d 04 9c 0c  |id$,choice$)....|
00000930  fd 63 68 6f 69 63 65 25  0d 04 a6 1c e7 20 63 68  |.choice%..... ch|
00000940  6f 69 63 65 24 3d bd 31  32 39 20 72 65 73 65 74  |oice$=.129 reset|
00000950  3d b9 3a e1 0d 04 b0 22  e7 20 63 68 6f 69 63 65  |=.:....". choice|
00000960  24 3d bd 31 33 33 20 f2  74 65 73 74 5f 70 72 69  |$=.133 .test_pri|
00000970  6e 74 65 72 3a e1 0d 04  ba 1e e7 20 63 68 6f 69  |nter:...... choi|
00000980  63 65 24 3d bd 31 33 37  20 f2 73 65 74 5f 65 78  |ce$=.137 .set_ex|
00000990  69 74 3a e1 0d 04 c4 48  e7 20 63 68 6f 69 63 65  |it:....H. choice|
000009a0  24 3e 3d 22 41 22 20 80  20 63 68 6f 69 63 65 24  |$>="A" . choice$|
000009b0  3c 3d 22 5a 22 20 ff 28  22 66 78 32 31 2c 33 22  |<="Z" .("fx21,3"|
000009c0  29 3a f2 63 68 61 6e 67  65 28 63 68 6f 69 63 65  |):.change(choice|
000009d0  25 29 3a e7 20 63 6c 61  73 68 20 e1 0d 04 ce 1f  |%):. clash .....|
000009e0  e7 20 a7 22 42 43 44 4e  4f 22 2c 63 68 6f 69 63  |. ."BCDNO",choic|
000009f0  65 24 29 20 f2 6d 61 72  67 69 6e 0d 04 d8 29 e7  |e$) .margin...).|
00000a00  20 63 68 6f 69 63 65 24  3c 22 4e 22 20 84 20 63  | choice$<"N" . c|
00000a10  68 6f 69 63 65 24 3e 22  56 22 20 e5 8d 44 6a 44  |hoice$>"V" ..DjD|
00000a20  20 8b 20 e1 0d 04 e2 05  e1 0d 04 ec 05 3a 0d 04  | . ..........:..|
00000a30  f6 13 dd 20 f2 74 65 73  74 5f 70 72 69 6e 74 65  |... .test_printe|
00000a40  72 0d 05 00 31 6f 74 68  65 72 3d 6f 6e 5f 6f 66  |r...1other=on_of|
00000a50  66 25 28 31 34 29 20 84  20 6f 6e 5f 6f 66 66 25  |f%(14) . on_off%|
00000a60  28 31 35 29 20 84 20 6f  6e 5f 6f 66 66 25 28 31  |(15) . on_off%(1|
00000a70  36 29 0d 05 0a 0c 65 73  63 61 70 65 3d a3 0d 05  |6)....escape=...|
00000a80  14 36 e7 20 c0 70 72 69  6e 74 65 72 24 2c 31 29  |.6. .printer$,1)|
00000a90  3c 3e 22 20 22 20 f2 63  68 61 6e 67 65 5f 70 72  |<>" " .change_pr|
00000aa0  69 6e 74 65 72 20 8b 20  f2 67 65 74 5f 70 72 69  |inter . .get_pri|
00000ab0  6e 74 65 72 0d 05 1e 0e  e7 20 65 73 63 61 70 65  |nter..... escape|
00000ac0  20 e1 0d 05 28 09 ef 32  2c 32 31 0d 05 32 10 f1  | ...(..2,21..2..|
00000ad0  22 54 68 69 73 20 69 73  20 22 3b 0d 05 3c 26 e7  |"This is ";..<&.|
00000ae0  20 6f 74 68 65 72 20 f2  6f 74 68 65 72 5f 74 65  | other .other_te|
00000af0  73 74 20 8b 20 f2 6e 6f  72 6d 61 6c 5f 74 65 73  |st . .normal_tes|
00000b00  74 0d 05 46 18 f1 22 6f  6e 20 74 68 65 20 22 3b  |t..F.."on the ";|
00000b10  70 72 69 6e 74 65 72 24  3b 0d 05 50 42 f1 22 20  |printer$;..PB." |
00000b20  77 69 74 68 20 64 65 73  63 65 6e 64 65 72 73 20  |with descenders |
00000b30  67 6a 70 71 79 20 61 6e  64 20 6c 69 6e 65 20 73  |gjpqy and line s|
00000b40  70 61 63 69 6e 67 20 22  3b 61 6c 74 25 28 30 29  |pacing ";alt%(0)|
00000b50  3b 22 2f 32 31 36 20 69  6e 2e 22 0d 05 5a 08 ef  |;"/216 in."..Z..|
00000b60  36 2c 33 0d 05 64 05 e1  0d 05 6e 05 3a 0d 05 78  |6,3..d....n.:..x|
00000b70  11 dd 20 f2 6f 74 68 65  72 5f 74 65 73 74 0d 05  |.. .other_test..|
00000b80  82 10 e3 20 49 25 3d 31  34 20 b8 20 31 36 0d 05  |... I%=14 . 16..|
00000b90  8c 36 e7 20 6f 6e 5f 6f  66 66 25 28 49 25 29 20  |.6. on_off%(I%) |
00000ba0  f1 20 73 65 6c 65 63 74  69 6f 6e 24 28 49 25 29  |. selection$(I%)|
00000bb0  3b 22 20 22 3b 61 6c 74  25 28 49 25 2d 31 33 29  |;" ";alt%(I%-13)|
00000bc0  22 20 22 3b 0d 05 96 1f  e7 20 49 25 3d 31 34 20  |" ";..... I%=14 |
00000bd0  80 20 6f 6e 5f 6f 66 66  25 28 49 25 29 20 f2 6d  |. on_off%(I%) .m|
00000be0  6f 64 65 0d 05 a0 31 e7  20 49 25 3d 31 35 20 80  |ode...1. I%=15 .|
00000bf0  20 6f 6e 5f 6f 66 66 25  28 49 25 29 20 f1 20 63  | on_off%(I%) . c|
00000c00  70 69 24 28 61 6c 74 25  28 49 25 2d 31 33 29 29  |pi$(alt%(I%-13))|
00000c10  22 20 22 3b 0d 05 aa 40  e7 20 49 25 3d 31 36 20  |" ";...@. I%=16 |
00000c20  80 20 6f 6e 5f 6f 66 66  25 28 49 25 29 20 f1 20  |. on_off%(I%) . |
00000c30  63 6f 75 6e 74 72 79 24  28 61 6c 74 25 28 49 25  |country$(alt%(I%|
00000c40  2d 31 33 29 29 22 3a 2d  20 22 3b 3a f2 61 6c 66  |-13))":- ";:.alf|
00000c50  61 62 65 74 0d 05 b4 05  ed 0d 05 be 18 f1 22 69  |abet.........."i|
00000c60  6e 20 22 3b 3a f2 6e 6f  72 6d 61 6c 5f 74 65 73  |n ";:.normal_tes|
00000c70  74 0d 05 c8 05 e1 0d 05  d2 05 3a 0d 05 dc 12 dd  |t.........:.....|
00000c80  20 f2 6e 6f 72 6d 61 6c  5f 74 65 73 74 0d 05 e6  | .normal_test...|
00000c90  22 62 6f 74 68 3d 6f 6e  5f 6f 66 66 25 28 31 34  |"both=on_off%(14|
00000ca0  29 20 84 20 6f 6e 5f 6f  66 66 25 28 31 35 29 0d  |) . on_off%(15).|
00000cb0  05 f0 11 e3 20 73 65 74  25 3d 31 20 b8 20 31 32  |.... set%=1 . 12|
00000cc0  0d 05 fa 49 e7 20 73 65  74 25 3d 31 20 80 20 6f  |...I. set%=1 . o|
00000cd0  6e 5f 6f 66 66 25 28 73  65 74 25 29 20 f1 20 73  |n_off%(set%) . s|
00000ce0  65 6c 65 63 74 69 6f 6e  24 28 73 65 74 25 29 3b  |election$(set%);|
00000cf0  22 20 22 3b 8b 20 e7 20  73 65 74 25 3d 31 20 f1  |" ";. . set%=1 .|
00000d00  22 44 72 61 66 74 20 22  3b 0d 06 04 67 e7 20 73  |"Draft ";...g. s|
00000d10  65 74 25 3d 32 20 80 20  6f 6e 5f 6f 66 66 25 28  |et%=2 . on_off%(|
00000d20  73 65 74 25 29 20 f1 20  73 65 6c 65 63 74 69 6f  |set%) . selectio|
00000d30  6e 24 28 73 65 74 25 29  3b 22 20 22 3b 8b 20 e7  |n$(set%);" ";. .|
00000d40  20 73 65 74 25 3d 32 20  80 20 62 6f 74 68 20 f1  | set%=2 . both .|
00000d50  22 22 3b 8b 20 e7 20 73  65 74 25 3d 32 20 80 20  |"";. . set%=2 . |
00000d60  ac 20 62 6f 74 68 20 f1  22 50 69 63 61 20 22 3b  |. both ."Pica ";|
00000d70  0d 06 0e 81 e7 20 73 65  74 25 3d 31 32 20 80 20  |..... set%=12 . |
00000d80  6f 6e 5f 6f 66 66 25 28  73 65 74 25 29 20 f1 20  |on_off%(set%) . |
00000d90  73 65 6c 65 63 74 69 6f  6e 24 28 73 65 74 25 29  |selection$(set%)|
00000da0  3b 22 20 22 3b 8b 20 e7  20 73 65 74 25 3d 31 32  |;" ";. . set%=12|
00000db0  20 80 20 6f 6e 5f 6f 66  66 25 28 31 36 29 3d 30  | . on_off%(16)=0|
00000dc0  20 f1 22 55 53 20 43 68  72 73 20 22 3b 8b 20 e7  | ."US Chrs ";. .|
00000dd0  73 65 74 25 3d 31 32 20  80 20 6f 6e 5f 6f 66 66  |set%=12 . on_off|
00000de0  25 28 31 36 29 3d 31 20  f1 22 43 68 72 73 20 22  |%(16)=1 ."Chrs "|
00000df0  3b 0d 06 18 3e e7 20 73  65 74 25 3e 32 20 80 20  |;...>. set%>2 . |
00000e00  73 65 74 25 3c 31 32 20  80 20 6f 6e 5f 6f 66 66  |set%<12 . on_off|
00000e10  25 28 73 65 74 25 29 20  f1 20 73 65 6c 65 63 74  |%(set%) . select|
00000e20  69 6f 6e 24 28 73 65 74  25 29 3b 22 20 22 3b 0d  |ion$(set%);" ";.|
00000e30  06 22 05 ed 0d 06 2c 05  e1 0d 06 36 05 3a 0d 06  |."....,....6.:..|
00000e40  40 0e dd 20 f2 61 6c 66  61 62 65 74 0d 06 4a 11  |@.. .alfabet..J.|
00000e50  e3 20 49 25 3d 33 33 20  b8 20 31 32 36 0d 06 54  |. I%=33 . 126..T|
00000e60  0c f1 20 bd 28 49 25 29  3b 0d 06 5e 05 ed 0d 06  |.. .(I%);..^....|
00000e70  68 09 f1 22 20 22 3b 0d  06 72 05 e1 0d 06 7c 05  |h.." ";..r....|.|
00000e80  3a 0d 06 86 15 dd 20 f2  63 68 61 6e 67 65 5f 70  |:..... .change_p|
00000e90  72 69 6e 74 65 72 0d 06  90 11 f2 63 6c 65 61 72  |rinter.....clear|
00000ea0  5f 77 69 6e 64 6f 77 0d  06 9a 39 e7 20 ac 20 a4  |_window...9. . .|
00000eb0  79 6e 28 22 43 68 61 6e  67 65 20 50 72 69 6e 74  |yn("Change Print|
00000ec0  65 72 20 59 2f 4e 3f 22  2c 31 30 2c 32 30 29 20  |er Y/N?",10,20) |
00000ed0  e1 20 8b 20 f2 67 65 74  5f 70 72 69 6e 74 65 72  |. . .get_printer|
00000ee0  0d 06 a4 05 e1 0d 06 ae  05 3a 0d 06 b8 12 dd 20  |.........:..... |
00000ef0  f2 67 65 74 5f 70 72 69  6e 74 65 72 0d 06 c2 11  |.get_printer....|
00000f00  f2 63 6c 65 61 72 5f 77  69 6e 64 6f 77 0d 06 cc  |.clear_window...|
00000f10  1e f1 8a 31 32 2c 32 33  29 22 45 73 63 61 70 65  |...12,23)"Escape|
00000f20  20 74 6f 20 61 62 68 6f  72 74 22 0d 06 d6 1c f1  | to abhort".....|
00000f30  8a 30 2c 32 30 29 22 50  72 69 6e 74 65 72 20 6e  |.0,20)"Printer n|
00000f40  61 6d 65 3a 20 22 3b 0d  06 e0 0c 65 73 63 61 70  |ame: ";....escap|
00000f50  65 3d a3 0d 06 ea 21 63  68 61 6e 67 65 24 3d a4  |e=....!change$=.|
00000f60  67 65 74 5f 69 6e 70 75  74 28 32 35 2c 73 74 72  |get_input(25,str|
00000f70  69 6e 67 29 0d 06 f4 21  e7 20 65 73 63 61 70 65  |ing)...!. escape|
00000f80  20 e1 20 8b 20 70 72 69  6e 74 65 72 24 3d 63 68  | . . printer$=ch|
00000f90  61 6e 67 65 24 0d 06 fe  05 e1 0d 07 08 05 3a 0d  |ange$.........:.|
00000fa0  07 12 0f dd 20 f2 73 65  74 5f 65 78 69 74 0d 07  |.... .set_exit..|
00000fb0  1c 11 f2 63 6c 65 61 72  5f 77 69 6e 64 6f 77 0d  |...clear_window.|
00000fc0  07 26 1f 65 78 69 74 3d  a4 79 6e 28 22 45 78 69  |.&.exit=.yn("Exi|
00000fd0  74 20 59 2f 4e 3f 22 2c  31 35 2c 32 30 29 0d 07  |t Y/N?",15,20)..|
00000fe0  30 05 e1 0d 07 3a 05 3a  0d 07 44 16 dd 20 f2 63  |0....:.:..D.. .c|
00000ff0  68 61 6e 67 65 28 63 68  6f 69 63 65 25 29 0d 07  |hange(choice%)..|
00001000  4e 55 f2 63 68 65 63 6b  5f 63 6c 61 73 68 3a e7  |NU.check_clash:.|
00001010  20 63 6c 61 73 68 20 f2  63 6c 65 61 72 5f 77 69  | clash .clear_wi|
00001020  6e 64 6f 77 3a ef 37 3a  f1 8a 31 30 2c 32 31 29  |ndow:.7:..10,21)|
00001030  22 21 43 6f 6e 74 72 6f  6c 20 43 6f 64 65 20 43  |"!Control Code C|
00001040  6c 61 73 68 21 22 3a f2  77 61 69 74 28 31 35 30  |lash!":.wait(150|
00001050  29 3a e1 0d 07 58 27 6f  6e 5f 6f 66 66 25 28 63  |):...X'on_off%(c|
00001060  68 6f 69 63 65 25 29 3d  6f 6e 5f 6f 66 66 25 28  |hoice%)=on_off%(|
00001070  63 68 6f 69 63 65 25 29  82 31 0d 07 62 41 e7 20  |choice%).1..bA. |
00001080  6f 6e 5f 6f 66 66 25 28  63 68 6f 69 63 65 25 29  |on_off%(choice%)|
00001090  20 f2 63 68 61 6e 67 65  5f 6f 6e 28 63 68 6f 69  | .change_on(choi|
000010a0  63 65 25 29 20 8b 20 f2  63 68 61 6e 67 65 5f 6f  |ce%) . .change_o|
000010b0  66 66 28 63 68 6f 69 63  65 25 29 0d 07 6c 05 e1  |ff(choice%)..l..|
000010c0  0d 07 76 05 3a 0d 07 80  1b dd 20 a4 79 6e 28 6d  |..v.:..... .yn(m|
000010d0  65 73 73 61 67 65 24 2c  63 6f 6c 2c 72 6f 77 29  |essage$,col,row)|
000010e0  0d 07 8a 17 f1 20 8a 63  6f 6c 2c 72 6f 77 29 6d  |..... .col,row)m|
000010f0  65 73 73 61 67 65 24 0d  07 94 05 f5 0d 07 9e 0b  |essage$.........|
00001100  2a 46 58 32 31 2c 30 0d  07 a8 13 61 6e 73 24 3d  |*FX21,0....ans$=|
00001110  bd 28 a5 20 80 20 26 44  46 29 0d 07 b2 11 fd 20  |.(. . &DF)..... |
00001120  a7 22 59 4e 22 2c 61 6e  73 24 29 0d 07 bc 14 e7  |."YN",ans$).....|
00001130  20 61 6e 73 24 3d 22 59  22 3d b9 20 8b 3d a3 0d  | ans$="Y"=. .=..|
00001140  07 c6 05 3a 0d 07 d0 1b  dd 20 a4 67 65 74 5f 69  |...:..... .get_i|
00001150  6e 70 75 74 28 6c 65 6e  25 2c 74 79 70 65 29 0d  |nput(len%,type).|
00001160  07 da 37 e7 20 74 79 70  65 3d 6e 75 6d 65 72 69  |..7. type=numeri|
00001170  63 20 66 69 72 73 74 3d  34 38 3a 6c 61 73 74 3d  |c first=48:last=|
00001180  35 37 20 8b 20 66 69 72  73 74 3d 33 32 3a 6c 61  |57 . first=32:la|
00001190  73 74 3d 31 32 36 0d 07  e4 1f 73 74 61 72 74 24  |st=126....start$|
000011a0  3d c4 6c 65 6e 25 2c 22  2e 22 29 2b c4 6c 65 6e  |=.len%,".")+.len|
000011b0  25 2c bd 38 29 0d 07 ee  0d 66 69 6e 61 6c 24 3d  |%,.8)....final$=|
000011c0  22 22 0d 07 f8 12 ef 32  33 2c 31 2c 31 3b 30 3b  |"".....23,1,1;0;|
000011d0  30 3b 30 3b 0d 08 02 0d  f1 20 73 74 61 72 74 24  |0;0;..... start$|
000011e0  3b 0d 08 0c 05 f5 0d 08  16 0b 2a 46 58 32 31 2c  |;.........*FX21,|
000011f0  30 0d 08 20 1c 69 6e 70  75 74 24 3d be 3a 69 6e  |0.. .input$=.:in|
00001200  70 75 74 3d 97 28 69 6e  70 75 74 24 29 0d 08 2a  |put=.(input$)..*|
00001210  1e e7 69 6e 70 75 74 24  3d bd 32 37 20 65 73 63  |..input$=.27 esc|
00001220  61 70 65 3d b9 3a e5 8d  44 66 48 0d 08 34 23 e7  |ape=.:..DfH..4#.|
00001230  20 69 6e 70 75 74 24 3d  bd 31 33 20 80 20 66 69  | input$=.13 . fi|
00001240  6e 61 6c 24 3c 3e 22 22  20 e5 8d 44 66 48 0d 08  |nal$<>"" ..DfH..|
00001250  3e 4c e7 20 69 6e 70 75  74 24 3d bd 31 32 37 20  |>L. input$=.127 |
00001260  80 20 a9 28 66 69 6e 61  6c 24 29 3e 30 20 66 69  |. .(final$)>0 fi|
00001270  6e 61 6c 24 3d c0 66 69  6e 61 6c 24 2c a9 28 66  |nal$=.final$,.(f|
00001280  69 6e 61 6c 24 29 2d 31  29 3a f1 20 64 65 6c 65  |inal$)-1):. dele|
00001290  74 65 24 3b 3a e5 8d 54  56 48 0d 08 48 38 e7 20  |te$;:..TVH..H8. |
000012a0  69 6e 70 75 74 3c 66 69  72 73 74 20 84 20 69 6e  |input<first . in|
000012b0  70 75 74 3e 6c 61 73 74  20 84 20 a9 28 66 69 6e  |put>last . .(fin|
000012c0  61 6c 24 29 3d 6c 65 6e  25 20 ef 37 3a e5 8d 54  |al$)=len% .7:..T|
000012d0  56 48 0d 08 52 0d f1 20  69 6e 70 75 74 24 3b 0d  |VH..R.. input$;.|
000012e0  08 5c 18 66 69 6e 61 6c  24 3d 66 69 6e 61 6c 24  |.\.final$=final$|
000012f0  2b 69 6e 70 75 74 24 0d  08 66 19 fd 20 69 6e 70  |+input$..f.. inp|
00001300  75 74 24 3d bd 31 33 20  84 20 65 73 63 61 70 65  |ut$=.13 . escape|
00001310  0d 08 70 12 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |..p..23,1,0;0;0;|
00001320  30 3b 0d 08 7a 0b 3d 66  69 6e 61 6c 24 0d 08 84  |0;..z.=final$...|
00001330  05 3a 0d 08 8e 0b dd 20  f2 6d 6f 64 65 0d 08 98  |.:..... .mode...|
00001340  09 f1 22 28 22 3b 0d 08  a2 30 e7 20 61 6c 74 25  |.."(";...0. alt%|
00001350  28 31 29 20 80 20 31 20  f1 20 73 65 6c 65 63 74  |(1) . 1 . select|
00001360  69 6f 6e 24 28 32 29 22  20 22 3b 8b 20 f1 22 50  |ion$(2)" ";. ."P|
00001370  69 63 61 20 22 3b 0d 08  ac 25 e7 20 61 6c 74 25  |ica ";...%. alt%|
00001380  28 31 29 20 80 20 34 20  f1 20 73 65 6c 65 63 74  |(1) . 4 . select|
00001390  69 6f 6e 24 28 33 29 22  20 22 3b 0d 08 b6 26 e7  |ion$(3)" ";...&.|
000013a0  20 61 6c 74 25 28 31 29  20 80 20 33 32 20 f1 20  | alt%(1) . 32 . |
000013b0  73 65 6c 65 63 74 69 6f  6e 24 28 34 29 22 20 22  |selection$(4)" "|
000013c0  3b 0d 08 c0 25 e7 20 61  6c 74 25 28 31 29 20 80  |;...%. alt%(1) .|
000013d0  20 38 20 f1 20 73 65 6c  65 63 74 69 6f 6e 24 28  | 8 . selection$(|
000013e0  35 29 22 20 22 3b 0d 08  ca 26 e7 20 61 6c 74 25  |5)" ";...&. alt%|
000013f0  28 31 29 20 80 20 31 36  20 f1 20 73 65 6c 65 63  |(1) . 16 . selec|
00001400  74 69 6f 6e 24 28 36 29  22 20 22 3b 0d 08 d4 0a  |tion$(6)" ";....|
00001410  f1 22 29 20 22 3b 0d 08  de 05 e1 0d 08 e8 05 3a  |.") ";.........:|
00001420  0d 08 f2 1a dd 20 f2 63  68 61 6e 67 65 5f 6f 66  |..... .change_of|
00001430  66 28 63 68 6f 69 63 65  25 29 0d 08 fc 90 ee 20  |f(choice%)..... |
00001440  63 68 6f 69 63 65 25 20  e5 8d 54 46 49 2c 8d 54  |choice% ..TFI,.T|
00001450  50 49 2c 8d 54 5a 49 2c  8d 54 64 49 2c 8d 54 6e  |PI,.TZI,.TdI,.Tn|
00001460  49 2c 8d 54 78 49 2c 8d  44 42 49 2c 8d 44 4c 49  |I,.TxI,.DBI,.DLI|
00001470  2c 8d 44 56 49 2c 8d 44  60 49 2c 8d 44 6a 49 2c  |,.DVI,.D`I,.DjI,|
00001480  8d 44 74 49 2c 8d 44 7e  49 2c 8d 74 48 49 2c 8d  |.DtI,.D~I,.tHI,.|
00001490  74 52 49 2c 8d 74 5c 49  2c 8d 74 66 49 2c 8d 74  |tRI,.t\I,.tfI,.t|
000014a0  70 49 2c 8d 74 7a 49 2c  8d 64 44 49 2c 8d 64 4e  |pI,.tzI,.dDI,.dN|
000014b0  49 2c 8d 64 58 49 2c 8d  64 62 49 2c 8d 64 6c 49  |I,.dXI,.dbI,.dlI|
000014c0  2c 8d 64 76 49 2c 8d 54  40 4a 0d 09 06 1d ef 32  |,.dvI,.T@J.....2|
000014d0  2c 31 2c 32 37 2c 31 2c  31 32 30 2c 31 2c 30 2c  |,1,27,1,120,1,0,|
000014e0  33 3a e5 8d 54 4a 4a 0d  09 10 18 ef 32 2c 31 2c  |3:..TJJ.....2,1,|
000014f0  32 37 2c 31 2c 38 30 2c  33 3a e5 8d 54 4a 4a 0d  |27,1,80,3:..TJJ.|
00001500  09 1a 13 ef 32 2c 31 2c  31 38 2c 33 3a e5 8d 54  |....2,1,18,3:..T|
00001510  4a 4a 0d 09 24 1c ef 32  2c 31 2c 32 37 2c 31 2c  |JJ..$..2,1,27,1,|
00001520  38 37 2c 31 2c 30 2c 33  3a e5 8d 54 4a 4a 0d 09  |87,1,0,3:..TJJ..|
00001530  2e 18 ef 32 2c 31 2c 32  37 2c 31 2c 37 30 2c 33  |...2,1,27,1,70,3|
00001540  3a e5 8d 54 4a 4a 0d 09  38 18 ef 32 2c 31 2c 32  |:..TJJ..8..2,1,2|
00001550  37 2c 31 2c 37 32 2c 33  3a e5 8d 54 4a 4a 0d 09  |7,1,72,3:..TJJ..|
00001560  42 18 ef 32 2c 31 2c 32  37 2c 31 2c 35 33 2c 33  |B..2,1,27,1,53,3|
00001570  3a e5 8d 54 4a 4a 0d 09  4c 18 ef 32 2c 31 2c 32  |:..TJJ..L..2,1,2|
00001580  37 2c 31 2c 38 34 2c 33  3a e5 8d 54 4a 4a 0d 09  |7,1,84,3:..TJJ..|
00001590  56 18 ef 32 2c 31 2c 32  37 2c 31 2c 38 34 2c 33  |V..2,1,27,1,84,3|
000015a0  3a e5 8d 54 4a 4a 0d 09  60 1d ef 32 2c 31 2c 32  |:..TJJ..`..2,1,2|
000015b0  37 2c 31 2c 31 31 32 2c  31 2c 30 2c 33 3a e5 8d  |7,1,112,1,0,3:..|
000015c0  54 4a 4a 0d 09 6a 1c ef  32 2c 31 2c 32 37 2c 31  |TJJ..j..2,1,27,1|
000015d0  2c 34 35 2c 31 2c 30 2c  33 3a e5 8d 54 4a 4a 0d  |,45,1,0,3:..TJJ.|
000015e0  09 74 1c ef 32 2c 31 2c  32 37 2c 31 2c 38 32 2c  |.t..2,1,27,1,82,|
000015f0  31 2c 30 2c 33 3a e5 8d  54 4a 4a 0d 09 7e 21 ef  |1,0,3:..TJJ..~!.|
00001600  32 2c 31 2c 32 37 2c 31  2c 35 37 2c 33 3a 42 24  |2,1,27,1,57,3:B$|
00001610  3d 22 6f 6e 20 22 3a e5  8d 54 4a 4a 0d 09 88 1c  |="on ":..TJJ....|
00001620  ef 32 2c 31 2c 32 37 2c  31 2c 33 33 2c 31 2c 30  |.2,1,27,1,33,1,0|
00001630  2c 33 3a e5 8d 54 4a 4a  0d 09 92 1d ef 32 2c 31  |,3:..TJJ.....2,1|
00001640  2c 32 37 2c 31 2c 31 31  39 2c 31 2c 30 2c 33 3a  |,27,1,119,1,0,3:|
00001650  e5 8d 54 4a 4a 0d 09 9c  1c ef 32 2c 31 2c 32 37  |..TJJ.....2,1,27|
00001660  2c 31 2c 38 32 2c 31 2c  30 2c 33 3a e5 8d 54 4a  |,1,82,1,0,3:..TJ|
00001670  4a 0d 09 a6 21 ef 32 2c  31 2c 32 37 2c 31 2c 36  |J...!.2,1,27,1,6|
00001680  37 2c 31 2c 30 2c 31 2c  31 31 2c 33 3a e5 8d 54  |7,1,0,1,11,3:..T|
00001690  4a 4a 0d 09 b0 1d ef 32  2c 31 2c 32 37 2c 31 2c  |JJ.....2,1,27,1,|
000016a0  36 37 2c 31 2c 36 36 2c  33 3a e5 8d 54 4a 4a 0d  |67,1,66,3:..TJJ.|
000016b0  09 ba 18 ef 32 2c 31 2c  32 37 2c 31 2c 37 39 2c  |....2,1,27,1,79,|
000016c0  33 3a e5 8d 54 4a 4a 0d  09 c4 1d ef 32 2c 31 2c  |3:..TJJ.....2,1,|
000016d0  32 37 2c 31 2c 35 31 2c  31 2c 33 36 2c 33 3a e5  |27,1,51,1,36,3:.|
000016e0  8d 54 4a 4a 0d 09 ce 1d  ef 32 2c 31 2c 32 37 2c  |.TJJ.....2,1,27,|
000016f0  31 2c 31 30 38 2c 31 2c  30 2c 33 3a e5 8d 54 4a  |1,108,1,0,3:..TJ|
00001700  4a 0d 09 d8 26 ef 32 2c  31 2c 32 37 2c 31 2c 38  |J...&.2,1,27,1,8|
00001710  31 2c 31 2c 64 65 66 61  75 6c 74 25 28 39 29 2c  |1,1,default%(9),|
00001720  33 3a e5 8d 54 4a 4a 0d  09 e2 1c ef 32 2c 31 2c  |3:..TJJ.....2,1,|
00001730  32 37 2c 31 2c 39 37 2c  31 2c 30 2c 33 3a e5 8d  |27,1,97,1,0,3:..|
00001740  54 4a 4a 0d 09 ec 1c ef  32 2c 31 2c 32 37 2c 31  |TJJ.....2,1,27,1|
00001750  2c 39 37 2c 31 2c 30 2c  33 3a e5 8d 54 4a 4a 0d  |,97,1,0,3:..TJJ.|
00001760  09 f6 1c ef 32 2c 31 2c  32 37 2c 31 2c 39 37 2c  |....2,1,27,1,97,|
00001770  31 2c 30 2c 33 3a e5 8d  54 4a 4a 0d 0a 00 1d ef  |1,0,3:..TJJ.....|
00001780  32 2c 31 2c 32 37 2c 31  2c 31 31 35 2c 31 2c 30  |2,1,27,1,115,1,0|
00001790  2c 33 3a e5 8d 54 4a 4a  0d 0a 0a 40 e7 20 63 68  |,3:..TJJ...@. ch|
000017a0  6f 69 63 65 25 3c 31 34  20 84 20 63 68 6f 69 63  |oice%<14 . choic|
000017b0  65 25 3e 32 32 20 76 61  6c 25 3d 30 20 8b 20 76  |e%>22 val%=0 . v|
000017c0  61 6c 25 3d 64 65 66 61  75 6c 74 25 28 63 68 6f  |al%=default%(cho|
000017d0  69 63 65 25 2d 31 33 29  0d 0a 14 1c f2 70 72 69  |ice%-13).....pri|
000017e0  6e 74 28 63 68 6f 69 63  65 25 2c 76 61 6c 25 2c  |nt(choice%,val%,|
000017f0  22 20 22 29 0d 0a 1e 05  e1 0d 0a 28 05 3a 0d 0a  |" ").......(.:..|
00001800  32 1c dd f2 70 72 69 6e  74 28 63 68 6f 69 63 65  |2...print(choice|
00001810  25 2c 76 61 6c 25 2c 43  24 29 0d 0a 3c 22 e7 20  |%,val%,C$)..<". |
00001820  63 68 6f 69 63 65 25 3c  31 34 20 72 6f 77 25 3d  |choice%<14 row%=|
00001830  33 20 8b 20 72 6f 77 25  3d 2d 31 30 0d 0a 46 3b  |3 . row%=-10..F;|
00001840  e7 20 63 68 6f 69 63 65  25 3e 31 33 20 f1 8a 31  |. choice%>13 ..1|
00001850  38 2c 63 68 6f 69 63 65  25 2b 72 6f 77 25 29 43  |8,choice%+row%)C|
00001860  24 20 8b 20 f1 8a 30 2c  63 68 6f 69 63 65 25 2b  |$ . ..0,choice%+|
00001870  72 6f 77 25 29 43 24 0d  0a 50 3b e7 20 63 68 6f  |row%)C$..P;. cho|
00001880  69 63 65 25 3e 31 33 20  80 20 63 68 6f 69 63 65  |ice%>13 . choice|
00001890  25 3c 32 33 20 f1 8a 33  36 2c 63 68 6f 69 63 65  |%<23 ..36,choice|
000018a0  25 2b 72 6f 77 25 29 63  6c 65 61 72 24 3b 76 61  |%+row%)clear$;va|
000018b0  6c 25 0d 0a 5a 1b e7 20  63 68 6f 69 63 65 25 3d  |l%..Z.. choice%=|
000018c0  31 33 20 f1 8a 31 33 2c  31 36 29 42 24 0d 0a 64  |13 ..13,16)B$..d|
000018d0  1d e7 20 63 68 6f 69 63  65 25 3d 32 30 20 61 6c  |.. choice%=20 al|
000018e0  74 25 28 30 29 3d 76 61  6c 25 0d 0a 6e 19 e7 20  |t%(0)=val%..n.. |
000018f0  63 68 6f 69 63 65 25 3d  32 31 20 6c 6d 25 3d 76  |choice%=21 lm%=v|
00001900  61 6c 25 0d 0a 78 19 e7  20 63 68 6f 69 63 65 25  |al%..x.. choice%|
00001910  3d 32 32 20 72 6d 25 3d  76 61 6c 25 0d 0a 82 0e  |=22 rm%=val%....|
00001920  d4 31 2c 31 2c 31 37 38  2c 35 0d 0a 8c 05 e1 0d  |.1,1,178,5......|
00001930  0a 96 05 3a 0d 0a a0 18  dd f2 63 68 61 6e 67 65  |...:......change|
00001940  5f 6f 6e 28 63 68 6f 69  63 65 25 29 0d 0a aa 0c  |_on(choice%)....|
00001950  65 73 63 61 70 65 3d a3  0d 0a b4 31 e7 20 63 68  |escape=....1. ch|
00001960  6f 69 63 65 25 3e 31 33  20 80 20 63 68 6f 69 63  |oice%>13 . choic|
00001970  65 25 3c 32 33 20 f2 67  65 74 5f 76 61 6c 75 65  |e%<23 .get_value|
00001980  28 63 68 6f 69 63 65 25  29 0d 0a be 21 e7 20 65  |(choice%)...!. e|
00001990  73 63 61 70 65 20 6f 6e  5f 6f 66 66 25 28 63 68  |scape on_off%(ch|
000019a0  6f 69 63 65 25 29 3d 30  3a e1 0d 0a c8 35 e7 20  |oice%)=0:....5. |
000019b0  63 68 6f 69 63 65 25 3e  31 33 20 80 20 63 68 6f  |choice%>13 . cho|
000019c0  69 63 65 25 3c 31 37 20  61 6c 74 25 28 63 68 6f  |ice%<17 alt%(cho|
000019d0  69 63 65 25 2d 31 33 29  3d 76 61 6c 75 65 25 0d  |ice%-13)=value%.|
000019e0  0a d2 90 ee 20 63 68 6f  69 63 65 25 20 e5 8d 64  |.... choice% ..d|
000019f0  5c 4a 2c 8d 64 66 4a 2c  8d 64 70 4a 2c 8d 64 7a  |\J,.dfJ,.dpJ,.dz|
00001a00  4a 2c 8d 54 44 4b 2c 8d  54 4e 4b 2c 8d 54 58 4b  |J,.TDK,.TNK,.TXK|
00001a10  2c 8d 54 62 4b 2c 8d 54  6c 4b 2c 8d 54 76 4b 2c  |,.TbK,.TlK,.TvK,|
00001a20  8d 44 40 4b 2c 8d 44 4a  4b 2c 8d 44 54 4b 2c 8d  |.D@K,.DJK,.DTK,.|
00001a30  44 5e 4b 2c 8d 44 68 4b  2c 8d 44 72 4b 2c 8d 44  |D^K,.DhK,.DrK,.D|
00001a40  7c 4b 2c 8d 74 46 4b 2c  8d 74 50 4b 2c 8d 74 5a  ||K,.tFK,.tPK,.tZ|
00001a50  4b 2c 8d 74 64 4b 2c 8d  74 6e 4b 2c 8d 74 78 4b  |K,.tdK,.tnK,.txK|
00001a60  2c 8d 64 42 4b 2c 8d 64  4c 4b 2c 8d 64 56 4b 0d  |,.dBK,.dLK,.dVK.|
00001a70  0a dc 1d ef 32 2c 31 2c  32 37 2c 31 2c 31 32 30  |....2,1,27,1,120|
00001a80  2c 31 2c 31 2c 33 3a e5  8d 64 60 4b 0d 0a e6 18  |,1,1,3:..d`K....|
00001a90  ef 32 2c 31 2c 32 37 2c  31 2c 37 37 2c 33 3a e5  |.2,1,27,1,77,3:.|
00001aa0  8d 64 60 4b 0d 0a f0 18  ef 32 2c 31 2c 32 37 2c  |.d`K.....2,1,27,|
00001ab0  31 2c 31 35 2c 33 3a e5  8d 64 60 4b 0d 0a fa 1c  |1,15,3:..d`K....|
00001ac0  ef 32 2c 31 2c 32 37 2c  31 2c 38 37 2c 31 2c 31  |.2,1,27,1,87,1,1|
00001ad0  2c 33 3a e5 8d 64 60 4b  0d 0b 04 18 ef 32 2c 31  |,3:..d`K.....2,1|
00001ae0  2c 32 37 2c 31 2c 36 39  2c 33 3a e5 8d 64 60 4b  |,27,1,69,3:..d`K|
00001af0  0d 0b 0e 18 ef 32 2c 31  2c 32 37 2c 31 2c 37 31  |.....2,1,27,1,71|
00001b00  2c 33 3a e5 8d 64 60 4b  0d 0b 18 18 ef 32 2c 31  |,3:..d`K.....2,1|
00001b10  2c 32 37 2c 31 2c 35 32  2c 33 3a e5 8d 64 60 4b  |,27,1,52,3:..d`K|
00001b20  0d 0b 22 1c ef 32 2c 31  2c 32 37 2c 31 2c 38 33  |.."..2,1,27,1,83|
00001b30  2c 31 2c 30 2c 33 3a e5  8d 64 60 4b 0d 0b 2c 1c  |,1,0,3:..d`K..,.|
00001b40  ef 32 2c 31 2c 32 37 2c  31 2c 38 33 2c 31 2c 31  |.2,1,27,1,83,1,1|
00001b50  2c 33 3a e5 8d 64 60 4b  0d 0b 36 1d ef 32 2c 31  |,3:..d`K..6..2,1|
00001b60  2c 32 37 2c 31 2c 31 31  32 2c 31 2c 31 2c 33 3a  |,27,1,112,1,1,3:|
00001b70  e5 8d 64 60 4b 0d 0b 40  1c ef 32 2c 31 2c 32 37  |..d`K..@..2,1,27|
00001b80  2c 31 2c 34 35 2c 31 2c  31 2c 33 3a e5 8d 64 60  |,1,45,1,1,3:..d`|
00001b90  4b 0d 0b 4a 1c ef 32 2c  31 2c 32 37 2c 31 2c 38  |K..J..2,1,27,1,8|
00001ba0  32 2c 31 2c 33 2c 33 3a  e5 8d 64 60 4b 0d 0b 54  |2,1,3,3:..d`K..T|
00001bb0  21 ef 32 2c 31 2c 32 37  2c 31 2c 35 36 2c 33 3a  |!.2,1,27,1,56,3:|
00001bc0  42 24 3d 22 6f 66 66 22  3a e5 8d 64 60 4b 0d 0b  |B$="off":..d`K..|
00001bd0  5e 21 ef 32 2c 31 2c 32  37 2c 31 2c 33 33 2c 31  |^!.2,1,27,1,33,1|
00001be0  2c 76 61 6c 75 65 25 2c  33 3a e5 8d 64 60 4b 0d  |,value%,3:..d`K.|
00001bf0  0b 68 22 ef 32 2c 31 2c  32 37 2c 31 2c 31 31 39  |.h".2,1,27,1,119|
00001c00  2c 31 2c 76 61 6c 75 65  25 2c 33 3a e5 8d 64 60  |,1,value%,3:..d`|
00001c10  4b 0d 0b 72 21 ef 32 2c  31 2c 32 37 2c 31 2c 38  |K..r!.2,1,27,1,8|
00001c20  32 2c 31 2c 76 61 6c 75  65 25 2c 33 3a e5 8d 64  |2,1,value%,3:..d|
00001c30  60 4b 0d 0b 7c 25 ef 32  2c 31 2c 32 37 2c 31 2c  |`K..|%.2,1,27,1,|
00001c40  36 37 2c 31 2c 30 2c 31  2c 76 61 6c 75 65 25 2c  |67,1,0,1,value%,|
00001c50  33 3a e5 8d 64 60 4b 0d  0b 86 21 ef 32 2c 31 2c  |3:..d`K...!.2,1,|
00001c60  32 37 2c 31 2c 36 37 2c  31 2c 76 61 6c 75 65 25  |27,1,67,1,value%|
00001c70  2c 33 3a e5 8d 64 60 4b  0d 0b 90 21 ef 32 2c 31  |,3:..d`K...!.2,1|
00001c80  2c 32 37 2c 31 2c 37 38  2c 31 2c 76 61 6c 75 65  |,27,1,78,1,value|
00001c90  25 2c 33 3a e5 8d 64 60  4b 0d 0b 9a 21 ef 32 2c  |%,3:..d`K...!.2,|
00001ca0  31 2c 32 37 2c 31 2c 35  31 2c 31 2c 76 61 6c 75  |1,27,1,51,1,valu|
00001cb0  65 25 2c 33 3a e5 8d 64  60 4b 0d 0b a4 22 ef 32  |e%,3:..d`K...".2|
00001cc0  2c 31 2c 32 37 2c 31 2c  31 30 38 2c 31 2c 76 61  |,1,27,1,108,1,va|
00001cd0  6c 75 65 25 2c 33 3a e5  8d 64 60 4b 0d 0b ae 21  |lue%,3:..d`K...!|
00001ce0  ef 32 2c 31 2c 32 37 2c  31 2c 38 31 2c 31 2c 76  |.2,1,27,1,81,1,v|
00001cf0  61 6c 75 65 25 2c 33 3a  e5 8d 64 60 4b 0d 0b b8  |alue%,3:..d`K...|
00001d00  1c ef 32 2c 31 2c 32 37  2c 31 2c 39 37 2c 31 2c  |..2,1,27,1,97,1,|
00001d10  33 2c 33 3a e5 8d 64 60  4b 0d 0b c2 1c ef 32 2c  |3,3:..d`K.....2,|
00001d20  31 2c 32 37 2c 31 2c 39  37 2c 31 2c 31 2c 33 3a  |1,27,1,97,1,1,3:|
00001d30  e5 8d 64 60 4b 0d 0b cc  1c ef 32 2c 31 2c 32 37  |..d`K.....2,1,27|
00001d40  2c 31 2c 39 37 2c 31 2c  32 2c 33 3a e5 8d 64 60  |,1,97,1,2,3:..d`|
00001d50  4b 0d 0b d6 1d ef 32 2c  31 2c 32 37 2c 31 2c 31  |K.....2,1,27,1,1|
00001d60  31 35 2c 31 2c 31 2c 33  3a e5 8d 64 60 4b 0d 0b  |15,1,1,3:..d`K..|
00001d70  e0 26 e7 20 63 68 6f 69  63 65 25 3c 31 34 20 84  |.&. choice%<14 .|
00001d80  20 63 68 6f 69 63 65 25  3e 32 32 20 76 61 6c 75  | choice%>22 valu|
00001d90  65 25 3d 30 0d 0b ea 1e  f2 70 72 69 6e 74 28 63  |e%=0.....print(c|
00001da0  68 6f 69 63 65 25 2c 76  61 6c 75 65 25 2c 22 2a  |hoice%,value%,"*|
00001db0  22 29 0d 0b f4 05 e1 0d  0b fe 05 3a 0d 0c 08 19  |").........:....|
00001dc0  dd 20 f2 67 65 74 5f 76  61 6c 75 65 28 63 68 6f  |. .get_value(cho|
00001dd0  69 63 65 25 29 0d 0c 12  11 f2 63 6c 65 61 72 5f  |ice%).....clear_|
00001de0  77 69 6e 64 6f 77 0d 0c  1c 1a 6d 69 6e 25 3d 30  |window....min%=0|
00001df0  3a 6d 61 78 25 3d 32 35  35 3a 6c 65 6e 25 3d 33  |:max%=255:len%=3|
00001e00  0d 0c 26 1f e7 20 63 68  6f 69 63 65 25 3d 31 34  |..&.. choice%=14|
00001e10  20 6d 61 78 25 3d 36 33  3a 6c 65 6e 25 3d 32 0d  | max%=63:len%=2.|
00001e20  0c 30 1e e7 20 63 68 6f  69 63 65 25 3d 31 35 20  |.0.. choice%=15 |
00001e30  6d 61 78 25 3d 33 3a 6c  65 6e 25 3d 31 0d 0c 3a  |max%=3:len%=1..:|
00001e40  1f e7 20 63 68 6f 69 63  65 25 3d 31 36 20 6d 61  |.. choice%=16 ma|
00001e50  78 25 3d 31 39 3a 6c 65  6e 25 3d 32 0d 0c 44 26  |x%=19:len%=2..D&|
00001e60  e7 20 63 68 6f 69 63 65  25 3d 31 37 20 6d 61 78  |. choice%=17 max|
00001e70  25 3d 32 32 3a 6d 69 6e  25 3d 31 3a 6c 65 6e 25  |%=22:min%=1:len%|
00001e80  3d 32 0d 0c 4e 20 e7 20  63 68 6f 69 63 65 25 3d  |=2..N . choice%=|
00001e90  31 38 20 6d 61 78 25 3d  31 32 37 3a 6d 69 6e 25  |18 max%=127:min%|
00001ea0  3d 31 0d 0c 58 19 e7 20  63 68 6f 69 63 65 25 3d  |=1..X.. choice%=|
00001eb0  31 39 20 6d 61 78 25 3d  31 32 37 0d 0c 62 17 e7  |19 max%=127..b..|
00001ec0  20 63 68 6f 69 63 65 25  3d 32 30 20 6d 69 6e 25  | choice%=20 min%|
00001ed0  3d 31 0d 0c 6c 42 e7 20  63 68 6f 69 63 65 25 3d  |=1..lB. choice%=|
00001ee0  32 31 20 6d 61 78 25 3d  72 6d 25 2d 6c 69 6d 69  |21 max%=rm%-limi|
00001ef0  74 25 3a e7 20 6d 61 78  25 3c 3d 6d 69 6e 25 20  |t%:. max%<=min% |
00001f00  f2 6e 6f 5f 63 68 61 6e  67 65 28 22 4c 65 66 74  |.no_change("Left|
00001f10  22 29 3a e1 0d 0c 76 4e  e7 20 63 68 6f 69 63 65  |"):...vN. choice|
00001f20  25 3d 32 32 20 6d 61 78  25 3d 72 6d 61 78 25 3a  |%=22 max%=rmax%:|
00001f30  6d 69 6e 25 3d 6c 6d 25  2b 6c 69 6d 69 74 25 3a  |min%=lm%+limit%:|
00001f40  e7 20 6d 69 6e 25 3e 3d  6d 61 78 25 20 f2 6e 6f  |. min%>=max% .no|
00001f50  5f 63 68 61 6e 67 65 28  22 52 69 67 68 74 22 29  |_change("Right")|
00001f60  3a e1 0d 0c 80 1e f1 8a  31 32 2c 32 33 29 22 45  |:.......12,23)"E|
00001f70  73 63 61 70 65 20 74 6f  20 61 62 68 6f 72 74 22  |scape to abhort"|
00001f80  0d 0c 8a 05 f5 0d 0c 94  30 f1 8a 37 2c 32 30 29  |........0..7,20)|
00001f90  22 45 6e 74 65 72 20 61  20 76 61 6c 75 65 20 28  |"Enter a value (|
00001fa0  22 3b 6d 69 6e 25 3b 22  2d 22 3b 6d 61 78 25 3b  |";min%;"-";max%;|
00001fb0  22 29 3a 22 3b 0d 0c 9e  1a 65 73 63 61 70 65 3d  |"):";....escape=|
00001fc0  a3 3a 63 6f 72 72 65 63  74 5f 76 61 6c 3d a3 0d  |.:correct_val=..|
00001fd0  0c a8 26 76 61 6c 75 65  25 3d bb 28 a4 67 65 74  |..&value%=.(.get|
00001fe0  5f 69 6e 70 75 74 28 6c  65 6e 25 2c 6e 75 6d 65  |_input(len%,nume|
00001ff0  72 69 63 29 29 0d 0c b2  12 e7 20 65 73 63 61 70  |ric))..... escap|
00002000  65 20 e5 8d 64 5a 4c 0d  0c bc 5a e7 20 63 68 6f  |e ..dZL...Z. cho|
00002010  69 63 65 25 3d 32 31 20  80 20 76 61 6c 75 65 25  |ice%=21 . value%|
00002020  3d 30 20 80 20 6c 6d 25  3d 30 20 ef 37 3a f1 8a  |=0 . lm%=0 .7:..|
00002030  37 2c 32 30 29 22 5a 65  72 6f 20 76 61 6c 75 65  |7,20)"Zero value|
00002040  20 61 6c 72 65 61 64 79  20 73 65 74 21 20 20 22  | already set!  "|
00002050  3a f2 77 61 69 74 28 32  30 30 29 3a e5 8d 64 5a  |:.wait(200):..dZ|
00002060  4c 0d 0c c6 2f e7 20 76  61 6c 75 65 25 3e 3d 6d  |L.../. value%>=m|
00002070  69 6e 25 20 80 20 76 61  6c 75 65 25 3c 3d 6d 61  |in% . value%<=ma|
00002080  78 25 20 63 6f 72 72 65  63 74 5f 76 61 6c 3d b9  |x% correct_val=.|
00002090  0d 0c d0 16 e7 20 ac 20  63 6f 72 72 65 63 74 5f  |..... . correct_|
000020a0  76 61 6c 20 ef 37 0d 0c  da 1a fd 20 63 6f 72 72  |val .7..... corr|
000020b0  65 63 74 5f 76 61 6c 20  84 20 65 73 63 61 70 65  |ect_val . escape|
000020c0  0d 0c e4 05 e1 0d 0c ee  05 3a 0d 0c f8 12 dd 20  |.........:..... |
000020d0  f2 63 68 65 63 6b 5f 63  6c 61 73 68 0d 0d 02 67  |.check_clash...g|
000020e0  e7 20 63 68 6f 69 63 65  24 3d 22 4e 22 20 80 28  |. choice$="N" .(|
000020f0  6f 6e 5f 6f 66 66 25 28  32 29 20 84 20 6f 6e 5f  |on_off%(2) . on_|
00002100  6f 66 66 25 28 33 29 20  84 20 6f 6e 5f 6f 66 66  |off%(3) . on_off|
00002110  25 28 34 29 20 84 20 6f  6e 5f 6f 66 66 25 28 35  |%(4) . on_off%(5|
00002120  29 20 84 20 6f 6e 5f 6f  66 66 25 28 36 29 20 84  |) . on_off%(6) .|
00002130  20 6f 6e 5f 6f 66 66 25  28 31 35 29 29 20 e5 8d  | on_off%(15)) ..|
00002140  44 5c 4d 0d 0d 0c 2f e7  20 63 68 6f 69 63 65 25  |D\M.../. choice%|
00002150  3e 31 20 80 20 63 68 6f  69 63 65 25 3c 37 20 80  |>1 . choice%<7 .|
00002160  20 6f 6e 5f 6f 66 66 25  28 31 34 29 20 e5 8d 44  | on_off%(14) ..D|
00002170  5c 4d 0d 0d 16 4d e7 20  63 68 6f 69 63 65 24 3d  |\M...M. choice$=|
00002180  22 4f 22 20 80 28 6f 6e  5f 6f 66 66 25 28 32 29  |"O" .(on_off%(2)|
00002190  20 84 20 6f 6e 5f 6f 66  66 25 28 33 29 20 84 20  | . on_off%(3) . |
000021a0  6f 6e 5f 6f 66 66 25 28  34 29 20 84 20 6f 6e 5f  |on_off%(4) . on_|
000021b0  6f 66 66 25 28 31 34 29  29 20 e5 8d 44 5c 4d 0d  |off%(14)) ..D\M.|
000021c0  0d 20 2f e7 20 63 68 6f  69 63 65 25 3e 31 20 80  |. /. choice%>1 .|
000021d0  20 63 68 6f 69 63 65 25  3c 35 20 80 20 6f 6e 5f  | choice%<5 . on_|
000021e0  6f 66 66 25 28 31 35 29  20 e5 8d 44 5c 4d 0d 0d  |off%(15) ..D\M..|
000021f0  2a 41 e7 20 63 68 6f 69  63 65 24 3d 22 50 22 20  |*A. choice$="P" |
00002200  80 20 6f 6e 5f 6f 66 66  25 28 31 32 29 20 84 20  |. on_off%(12) . |
00002210  63 68 6f 69 63 65 24 3d  22 4c 22 20 80 20 6f 6e  |choice$="L" . on|
00002220  5f 6f 66 66 25 28 31 36  29 20 e5 8d 44 5c 4d 0d  |_off%(16) ..D\M.|
00002230  0d 34 41 e7 20 63 68 6f  69 63 65 24 3d 22 51 22  |.4A. choice$="Q"|
00002240  20 80 20 6f 6e 5f 6f 66  66 25 28 31 38 29 20 84  | . on_off%(18) .|
00002250  20 63 68 6f 69 63 65 24  3d 22 52 22 20 80 20 6f  | choice$="R" . o|
00002260  6e 5f 6f 66 66 25 28 31  37 29 20 e5 8d 44 5c 4d  |n_off%(17) ..D\M|
00002270  0d 0d 3e 8a e7 20 63 68  6f 69 63 65 24 3d 22 57  |..>.. choice$="W|
00002280  22 20 80 28 6f 6e 5f 6f  66 66 25 28 32 34 29 20  |" .(on_off%(24) |
00002290  84 20 6f 6e 5f 6f 66 66  25 28 32 35 29 29 20 84  |. on_off%(25)) .|
000022a0  20 63 68 6f 69 63 65 24  3d 22 58 22 20 80 28 6f  | choice$="X" .(o|
000022b0  6e 5f 6f 66 66 25 28 32  33 29 20 84 20 6f 6e 5f  |n_off%(23) . on_|
000022c0  6f 66 66 25 28 32 35 29  29 20 84 20 63 68 6f 69  |off%(25)) . choi|
000022d0  63 65 24 3d 22 59 22 20  80 28 6f 6e 5f 6f 66 66  |ce$="Y" .(on_off|
000022e0  25 28 32 33 29 20 84 20  6f 6e 5f 6f 66 66 25 28  |%(23) . on_off%(|
000022f0  32 34 29 29 20 e5 8d 44  5c 4d 0d 0d 48 3f e7 20  |24)) ..D\M..H?. |
00002300  63 68 6f 69 63 65 24 3d  22 48 22 20 80 20 6f 6e  |choice$="H" . on|
00002310  5f 6f 66 66 25 28 39 29  20 84 20 63 68 6f 69 63  |_off%(9) . choic|
00002320  65 24 3d 22 49 22 20 80  20 6f 6e 5f 6f 66 66 25  |e$="I" . on_off%|
00002330  28 38 29 20 e5 8d 44 5c  4d 0d 0d 52 05 e1 0d 0d  |(8) ..D\M..R....|
00002340  5c 0d 63 6c 61 73 68 3d  b9 3a e1 0d 0d 66 05 3a  |\.clash=.:...f.:|
00002350  0d 0d 70 14 dd 20 f2 6e  6f 5f 63 68 61 6e 67 65  |..p.. .no_change|
00002360  28 41 24 29 0d 0d 7a 2e  f1 8a 39 2d a9 28 41 24  |(A$)..z...9-.(A$|
00002370  29 2c 32 31 29 41 24 22  20 6d 61 72 67 69 6e 20  |),21)A$" margin |
00002380  63 61 6e 6e 6f 74 20 62  65 20 63 68 61 6e 67 65  |cannot be change|
00002390  64 22 0d 0d 84 25 f1 8a  37 2c 32 33 29 22 21 6d  |d"...%..7,23)"!m|
000023a0  61 78 20 26 20 6d 69 6e  20 76 61 6c 75 65 73 20  |ax & min values |
000023b0  65 71 75 61 6c 21 22 0d  0d 8e 1a ef 37 3a f2 77  |equal!".....7:.w|
000023c0  61 69 74 28 33 30 30 29  3a 65 73 63 61 70 65 3d  |ait(300):escape=|
000023d0  b9 0d 0d 98 05 e1 0d 0d  a2 05 3a 0d 0d ac 12 dd  |..........:.....|
000023e0  20 f2 77 61 69 74 28 64  65 6c 61 79 29 0d 0d b6  | .wait(delay)...|
000023f0  10 f5 20 fd 20 a6 28 64  65 6c 61 79 29 0d 0d c0  |.. . .(delay)...|
00002400  05 e1 0d 0d ca 05 3a 0d  0d d4 0d dd 20 f2 6d 61  |......:..... .ma|
00002410  72 67 69 6e 0d 0d de 3d  65 6c 69 74 65 3d 6f 6e  |rgin...=elite=on|
00002420  5f 6f 66 66 25 28 32 29  3a 63 6f 6e 64 65 6e 73  |_off%(2):condens|
00002430  65 64 3d 6f 6e 5f 6f 66  66 25 28 33 29 3a 65 6e  |ed=on_off%(3):en|
00002440  6c 61 72 67 65 64 3d 6f  6e 5f 6f 66 66 25 28 34  |larged=on_off%(4|
00002450  29 0d 0d e8 28 61 6c 74  65 72 6e 61 74 65 25 3d  |)...(alternate%=|
00002460  6f 6e 5f 6f 66 66 25 28  31 34 29 20 84 20 6f 6e  |on_off%(14) . on|
00002470  5f 6f 66 66 25 28 31 35  29 0d 0d f2 16 e7 20 61  |_off%(15)..... a|
00002480  6c 74 65 72 6e 61 74 65  25 20 e5 8d 44 56 4e 0d  |lternate% ..DVN.|
00002490  0d fc 2e e7 20 ac 28 65  6c 69 74 65 20 84 20 63  |.... .(elite . c|
000024a0  6f 6e 64 65 6e 73 65 64  20 84 20 65 6e 6c 61 72  |ondensed . enlar|
000024b0  67 65 64 29 72 65 73 75  6c 74 25 3d 30 0d 0e 06  |ged)result%=0...|
000024c0  2e e7 20 65 6c 69 74 65  20 80 20 ac 28 63 6f 6e  |.. elite . .(con|
000024d0  64 65 6e 73 65 64 20 84  20 65 6e 6c 61 72 67 65  |densed . enlarge|
000024e0  64 29 72 65 73 75 6c 74  25 3d 31 0d 0e 10 2e e7  |d)result%=1.....|
000024f0  20 63 6f 6e 64 65 6e 73  65 64 20 80 20 ac 28 65  | condensed . .(e|
00002500  6c 69 74 65 20 84 20 65  6e 6c 61 72 67 65 64 29  |lite . enlarged)|
00002510  72 65 73 75 6c 74 25 3d  34 0d 0e 1a 2e e7 20 63  |result%=4..... c|
00002520  6f 6e 64 65 6e 73 65 64  20 80 20 65 6c 69 74 65  |ondensed . elite|
00002530  20 80 20 ac 20 65 6e 6c  61 72 67 65 64 20 72 65  | . . enlarged re|
00002540  73 75 6c 74 25 3d 35 0d  0e 24 2f e7 20 65 6e 6c  |sult%=5..$/. enl|
00002550  61 72 67 65 64 20 80 20  ac 28 65 6c 69 74 65 20  |arged . .(elite |
00002560  84 20 63 6f 6e 64 65 6e  73 65 64 29 72 65 73 75  |. condensed)resu|
00002570  6c 74 25 3d 33 32 0d 0e  2e 2f e7 20 65 6e 6c 61  |lt%=32.../. enla|
00002580  72 67 65 64 20 80 20 65  6c 69 74 65 20 80 20 ac  |rged . elite . .|
00002590  20 63 6f 6e 64 65 6e 73  65 64 20 72 65 73 75 6c  | condensed resul|
000025a0  74 25 3d 33 33 0d 0e 38  2f e7 20 65 6e 6c 61 72  |t%=33..8/. enlar|
000025b0  67 65 64 20 80 20 63 6f  6e 64 65 6e 73 65 64 20  |ged . condensed |
000025c0  80 20 ac 20 65 6c 69 74  65 20 72 65 73 75 6c 74  |. . elite result|
000025d0  25 3d 33 36 0d 0e 42 2d  e7 20 65 6e 6c 61 72 67  |%=36..B-. enlarg|
000025e0  65 64 20 80 20 63 6f 6e  64 65 6e 73 65 64 20 80  |ed . condensed .|
000025f0  20 65 6c 69 74 65 20 72  65 73 75 6c 74 25 3d 33  | elite result%=3|
00002600  37 0d 0e 4c 09 e5 8d 44  60 4e 0d 0e 56 39 e7 20  |7..L...D`N..V9. |
00002610  6f 6e 5f 6f 66 66 25 28  31 34 29 20 72 65 73 75  |on_off%(14) resu|
00002620  6c 74 25 3d 61 6c 74 25  28 31 29 20 80 20 26 32  |lt%=alt%(1) . &2|
00002630  35 20 8b 20 72 65 73 75  6c 74 25 3d 61 6c 74 25  |5 . result%=alt%|
00002640  28 32 29 0d 0e 60 2d e7  20 72 65 73 75 6c 74 25  |(2)..`-. result%|
00002650  3d 30 20 72 6d 61 78 25  3d a8 28 38 30 2a 77 69  |=0 rmax%=.(80*wi|
00002660  64 65 2b 30 2e 35 29 3a  6c 69 6d 69 74 25 3d 32  |de+0.5):limit%=2|
00002670  0d 0e 6a 2d e7 20 72 65  73 75 6c 74 25 3d 31 20  |..j-. result%=1 |
00002680  72 6d 61 78 25 3d a8 28  39 36 2a 77 69 64 65 2b  |rmax%=.(96*wide+|
00002690  30 2e 35 29 3a 6c 69 6d  69 74 25 3d 33 0d 0e 74  |0.5):limit%=3..t|
000026a0  2e e7 20 72 65 73 75 6c  74 25 3d 32 20 72 6d 61  |.. result%=2 rma|
000026b0  78 25 3d a8 28 31 32 30  2a 77 69 64 65 2b 30 2e  |x%=.(120*wide+0.|
000026c0  35 29 3a 6c 69 6d 69 74  25 3d 34 0d 0e 7e 3a e7  |5):limit%=4..~:.|
000026d0  20 72 65 73 75 6c 74 25  3d 33 20 84 20 72 65 73  | result%=3 . res|
000026e0  75 6c 74 25 3d 34 20 72  6d 61 78 25 3d a8 28 31  |ult%=4 rmax%=.(1|
000026f0  33 37 2a 77 69 64 65 2b  30 2e 35 29 3a 6c 69 6d  |37*wide+0.5):lim|
00002700  69 74 25 3d 34 0d 0e 88  2e e7 20 72 65 73 75 6c  |it%=4..... resul|
00002710  74 25 3d 35 20 72 6d 61  78 25 3d a8 28 31 36 30  |t%=5 rmax%=.(160|
00002720  2a 77 69 64 65 2b 30 2e  35 29 3a 6c 69 6d 69 74  |*wide+0.5):limit|
00002730  25 3d 34 0d 0e 92 2e e7  20 72 65 73 75 6c 74 25  |%=4..... result%|
00002740  3d 33 32 20 72 6d 61 78  25 3d a8 28 34 30 2a 77  |=32 rmax%=.(40*w|
00002750  69 64 65 2b 30 2e 35 29  3a 6c 69 6d 69 74 25 3d  |ide+0.5):limit%=|
00002760  31 0d 0e 9c 2e e7 20 72  65 73 75 6c 74 25 3d 33  |1..... result%=3|
00002770  33 20 72 6d 61 78 25 3d  a8 28 34 38 2a 77 69 64  |3 rmax%=.(48*wid|
00002780  65 2b 30 2e 35 29 3a 6c  69 6d 69 74 25 3d 31 0d  |e+0.5):limit%=1.|
00002790  0e a6 2e e7 20 72 65 73  75 6c 74 25 3d 33 36 20  |.... result%=36 |
000027a0  72 6d 61 78 25 3d a8 28  36 38 2a 77 69 64 65 2b  |rmax%=.(68*wide+|
000027b0  30 2e 35 29 3a 6c 69 6d  69 74 25 3d 32 0d 0e b0  |0.5):limit%=2...|
000027c0  2e e7 20 72 65 73 75 6c  74 25 3d 33 37 20 72 6d  |.. result%=37 rm|
000027d0  61 78 25 3d a8 28 38 30  2a 77 69 64 65 2b 30 2e  |ax%=.(80*wide+0.|
000027e0  35 29 3a 6c 69 6d 69 74  25 3d 32 0d 0e ba 58 e7  |5):limit%=2...X.|
000027f0  20 72 6d 61 78 25 3d 31  33 37 20 64 65 66 61 75  | rmax%=137 defau|
00002800  6c 74 25 28 39 29 3d 31  33 32 20 8b 20 e7 20 72  |lt%(9)=132 . . r|
00002810  6d 61 78 25 3d 36 38 20  80 20 77 69 64 65 3d 31  |max%=68 . wide=1|
00002820  20 64 65 66 61 75 6c 74  25 28 39 29 3d 36 36 20  | default%(9)=66 |
00002830  8b 20 64 65 66 61 75 6c  74 25 28 39 29 3d 72 6d  |. default%(9)=rm|
00002840  61 78 25 0d 0e c4 13 6e  65 77 3d 64 65 66 61 75  |ax%....new=defau|
00002850  6c 74 25 28 39 29 0d 0e  ce 2e e7 20 6f 6e 5f 6f  |lt%(9)..... on_o|
00002860  66 66 25 28 32 31 29 20  6c 6d 25 3d a8 28 6c 6d  |ff%(21) lm%=.(lm|
00002870  25 2a 28 6e 65 77 2f 70  72 65 73 65 6e 74 29 2b  |%*(new/present)+|
00002880  30 2e 35 29 0d 0e d8 40  e7 20 6f 6e 5f 6f 66 66  |0.5)...@. on_off|
00002890  25 28 32 32 29 20 72 6d  25 3d a8 28 72 6d 25 2a  |%(22) rm%=.(rm%*|
000028a0  28 6e 65 77 2f 70 72 65  73 65 6e 74 29 2b 30 2e  |(new/present)+0.|
000028b0  35 29 20 8b 20 72 6d 25  3d 64 65 66 61 75 6c 74  |5) . rm%=default|
000028c0  25 28 39 29 0d 0e e2 19  e7 20 72 6d 25 3e 72 6d  |%(9)..... rm%>rm|
000028d0  61 78 25 20 72 6d 25 3d  72 6d 61 78 25 0d 0e ec  |ax% rm%=rmax%...|
000028e0  1d e7 20 6c 6d 25 3e 3d  72 6d 25 20 6c 6d 25 3d  |.. lm%>=rm% lm%=|
000028f0  72 6d 25 2d 6c 69 6d 69  74 25 0d 0e f6 16 f1 8a  |rm%-limit%......|
00002900  33 36 2c 31 32 29 63 6c  65 61 72 24 3b 72 6d 25  |36,12)clear$;rm%|
00002910  0d 0f 00 16 f1 8a 33 36  2c 31 31 29 63 6c 65 61  |......36,11)clea|
00002920  72 24 3b 6c 6d 25 0d 0f  0a 0f 70 72 65 73 65 6e  |r$;lm%....presen|
00002930  74 3d 6e 65 77 0d 0f 14  05 e1 0d 0f 1e 05 3a 0d  |t=new.........:.|
00002940  0f 28 0b dd 20 f2 74 69  64 79 0d 0f 32 0b 2a 46  |.(.. .tidy..2.*F|
00002950  58 31 32 2c 30 0d 0f 3c  0a 2a 46 58 34 2c 30 0d  |X12,0..<.*FX4,0.|
00002960  0f 46 0c 2a 46 58 32 32  39 2c 30 0d 0f 50 0c 2a  |.F.*FX229,0..P.*|
00002970  46 58 32 32 35 2c 31 0d  0f 5a 12 ef 32 33 2c 31  |FX225,1..Z..23,1|
00002980  2c 31 3b 30 3b 30 3b 30  3b 0d 0f 64 05 e1 0d 0f  |,1;0;0;0;..d....|
00002990  6e 05 3a 0d 0f 78 09 f2  74 69 64 79 0d 0f 82 14  |n.:..x..tidy....|
000029a0  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
000029b0  0d 0f 8c 05 e0 0d 0f 96  05 3a 0d 0f a0 2d dc 20  |.........:...-. |
000029c0  4e 4c 51 2c 45 6c 69 74  65 2c 43 6f 6e 64 65 6e  |NLQ,Elite,Conden|
000029d0  73 65 64 2c 45 6e 6c 61  72 67 65 64 2c 45 6d 70  |sed,Enlarged,Emp|
000029e0  68 61 73 69 7a 65 64 0d  0f aa 2f dc 20 44 62 6c  |hasized.../. Dbl|
000029f0  65 20 53 74 72 69 6b 65  2c 49 74 61 6c 69 63 73  |e Strike,Italics|
00002a00  2c 53 75 70 65 72 73 63  72 69 70 74 2c 53 75 62  |,Superscript,Sub|
00002a10  73 63 72 69 70 74 0d 0f  b4 25 dc 20 50 72 6f 70  |script...%. Prop|
00002a20  6f 72 74 69 6f 6e 61 6c  2c 55 6e 64 65 72 6c 69  |ortional,Underli|
00002a30  6e 65 64 2c 55 4b 20 43  68 72 73 0d 0f be 28 dc  |ned,UK Chrs...(.|
00002a40  20 50 61 70 65 72 20 4f  55 54 20 6f 6e 2c 50 72  | Paper OUT on,Pr|
00002a50  69 6e 74 20 6d 6f 64 65  2c 43 68 61 72 20 70 69  |int mode,Char pi|
00002a60  74 63 68 0d 0f c8 30 dc  20 49 6e 74 20 63 68 61  |tch...0. Int cha|
00002a70  72 20 73 65 74 2c 46 6f  72 6d 20 6c 65 6e 67 74  |r set,Form lengt|
00002a80  68 20 69 6e 2c 46 6f 72  6d 20 6c 65 6e 67 74 68  |h in,Form length|
00002a90  20 4c 6e 0d 0f d2 32 dc  20 53 6b 69 70 20 6f 76  | Ln...2. Skip ov|
00002aa0  65 72 20 70 65 72 66 2c  4c 69 6e 65 20 73 70 63  |er perf,Line spc|
00002ab0  20 6e 2f 32 31 36 2c 4c  48 20 6d 61 72 67 69 6e  | n/216,LH margin|
00002ac0  20 63 68 72 73 0d 0f dc  2d dc 20 52 48 20 6d 61  | chrs...-. RH ma|
00002ad0  72 67 69 6e 20 63 68 72  73 2c 41 75 74 6f 20 6a  |rgin chrs,Auto j|
00002ae0  75 73 74 69 66 79 2c 41  75 74 6f 20 63 65 6e 74  |ustify,Auto cent|
00002af0  72 65 0d 0f e6 19 dc 20  52 48 20 61 6c 69 67 6e  |re..... RH align|
00002b00  2c 48 61 6c 66 20 73 70  65 65 64 0d 0f f0 05 3a  |,Half speed....:|
00002b10  0d 0f fa 18 dc 20 30 2c  30 2c 30 2c 31 31 2c 36  |..... 0,0,0,11,6|
00002b20  36 2c 30 2c 33 36 2c 30  0d 10 04 05 3a 0d 10 0e  |6,0,36,0....:...|
00002b30  32 dc 20 28 55 53 41 29  2c 28 46 72 65 6e 63 68  |2. (USA),(French|
00002b40  29 2c 28 47 65 72 6d 61  6e 29 2c 28 45 6e 67 6c  |),(German),(Engl|
00002b50  69 73 68 29 2c 28 44 61  6e 69 73 68 20 49 29 0d  |ish),(Danish I).|
00002b60  10 18 32 dc 20 28 53 77  65 64 69 73 68 20 49 29  |..2. (Swedish I)|
00002b70  2c 28 49 74 61 6c 69 61  6e 29 2c 28 53 70 61 6e  |,(Italian),(Span|
00002b80  69 73 68 20 49 29 2c 28  4a 61 70 61 6e 65 73 65  |ish I),(Japanese|
00002b90  29 0d 10 22 3b dc 20 28  4e 6f 72 77 65 67 69 61  |)..";. (Norwegia|
00002ba0  6e 29 2c 28 44 61 6e 69  73 68 20 49 49 29 2c 28  |n),(Danish II),(|
00002bb0  53 70 61 6e 69 73 68 20  49 49 29 2c 28 4c 61 74  |Spanish II),(Lat|
00002bc0  69 6e 20 41 6d 65 72 69  63 61 6e 29 0d 10 2c 2c  |in American)..,,|
00002bd0  dc 20 28 46 72 65 6e 63  68 20 43 61 6e 61 64 69  |. (French Canadi|
00002be0  61 6e 29 2c 28 44 75 74  63 68 29 2c 28 53 77 65  |an),(Dutch),(Swe|
00002bf0  64 69 73 68 20 49 49 29  0d 10 36 32 dc 20 28 53  |dish II)..62. (S|
00002c00  77 65 64 69 73 68 20 49  49 49 29 2c 28 54 75 72  |wedish III),(Tur|
00002c10  6b 69 73 68 29 2c 28 53  77 69 73 73 20 49 29 2c  |kish),(Swiss I),|
00002c20  28 53 77 69 73 73 20 49  49 29 0d 10 40 05 3a 0d  |(Swiss II)..@.:.|
00002c30  10 4a 29 dc 20 28 31 30  20 63 70 69 29 2c 28 31  |.J). (10 cpi),(1|
00002c40  32 20 63 70 69 29 2c 28  31 35 20 63 70 69 29 2c  |2 cpi),(15 cpi),|
00002c50  28 31 37 20 63 70 69 29  0d ff                    |(17 cpi)..|
00002c5a
printer.m0
printer.m1
printer.m2
printer.m4
printer.m5