Home » Archimedes archive » Micro User » MU 1990-04.adf » To->VIW

To->VIW

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 » Archimedes archive » Micro User » MU 1990-04.adf
Filename: To->VIW
Read OK: ✔
File size: 200E bytes
Load address: FFFFFB43
Exec address: 6D395947
Duplicates

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

File contents
   10 REM Wordwise and Mini Office II to Inter-Word and VIEW converter
   20 REM by John Allen
   30 REM(c) The Micro User
   40 DIM trule%(50)
   50 DIM W% 256
   60 title$=CHR$(132)+CHR$(157)+CHR$(131)+CHR$(141)+" Wordwise and MO II Conversions"
   70 MODE7
   80 PRINT 'title$;'title$''
   90 pad$=CHR$(131)+"   "
  100 PRINT pad$;"1) from Wordwise Wordwise Plus"
  110 PRINT pad$;"2) from Mini Office II"
  120 PRINT '" Enter choice";CHR$(134);
  130 REPEAT:opt$=GET$:UNTIL INSTR("12",opt$)
  140 PRINT opt$
  150 IF opt$="1" THEN term%=7:tab%=&DD:CO$="CO":FI$="FI":JO$="JO":NJ$="NJ" ELSE term%=3:tab%=9:CO$="PO":FI$="IR":JO$="FJ":NJ$="RR"
  160 PRINT ''pad$;"1) to VIEW"
  170 PRINT pad$;"2) to InterWord"
  180 PRINT '" Enter choice";CHR$(134);
  190 REPEAT:option$=GET$:UNTIL INSTR("12",option$)
  200 PRINT option$
  210 PRINT ''" Name of file to convert:";CHR$(134);
  220 INPUT "" source$
  230 H%=OPENIN(source$)
  240 IF H%=0 THEN PRINT 'CHR$(136);CHR$(129);"File does not exist, try again":GOTO 210
  250 PRINT '" Name of file to create: ";CHR$(134);
  260 INPUT "" dest$
  270 IF option$="1" THEN D%=OPENOUT(dest$) ELSE D%=OPENOUT("!?!?!?!")
  280 ce%=0:in%=0:lm%=0:rm%=70:pb%=0:ts%=-1:bs%=-1:hp%=-1:fp%=-1:pl%=-1:ls%=-1:ul%=0:bo%=0:tno%=0:N%=0:F%=0
  290 IF option$="1" THEN PROCvhead ELSE PROCiwhead
  300 w$=""
  310 ON ERROR GOTO 500
  320 REPEAT
  330 FOR G%=in%+1 TO rm%
  340 IF F%<>0 THEN F%=F%-1:GOTO 460
  350 B%=BGET#H%
  360 IF B%=2 THEN N%=G%:G%=G%-1:PROCword:PROCembed:GOTO 460
  370 IF B%=13 THEN PROCword:F%=-1:GOTO 460
  380 IF B%<>tab% THEN GOTO 430
  390 pos%=-1:IF tno%=0 THEN GOTO 460
  400 REPEAT:pos%=pos%+1:UNTIL trule%(pos%)>G%
  410 IF trule%(pos%)<rm% THEN PROCword:BPUT#D%,9:F%=trule%(pos%)-G%:GOTO 460
  420 PROCword:PROCeline:BPUT#D%,9:G%=trule%(0):GOTO 460
  430 IF B%<>32 THEN w$=w$+CHR$(B%):GOTO 460
  440 PROCword
  450 BPUT#D%,32
  460 NEXT
  470 F%=0:PROCeline
  480 UNTIL EOF#H%
  490 :
  500 PROCword:PTR#D%=PTR#D%-1:BPUT#D%,13:CLOSE#0
  510 IF option$="1" THEN END
  520 ON ERROR GOTO 590
  530 S%=OPENIN("!?!?!?!"):D%=OPENOUT(dest$)
  540 FOR I%=1 TO &336:BPUT#D%,BGET#S%:NEXT
  550 REPEAT
  560 B%=BGET#S%:IF B%=&EE THEN B%=128+BGET#S%
  570 BPUT#D%,B%
  580 UNTIL EOF#S%
  590 BPUT#D%,&81:BPUT#D%,0:BPUT#D%,&87:BPUT#D%,&FF:BPUT#D%,&FF
  600 lb%=(PTR#D%-1) MOD 256:hb%=(PTR#D%-1) DIV 256
  610 PTR#D%=&34:BPUT#D%,lb%:BPUT#D%,hb%
  620 CLOSE#0:*DELETE !?!?!?!
  630 END
  640 :
  650 DEFPROCpar
  660 code$=CHR$(BGET#H% AND &DF)+CHR$(BGET#H% AND &DF)
  670 IF code$="DH" OR code$="DF" THEN REPEAT:UNTIL BGET#H%=13:ENDPROC
  680 IF code$="DT" THEN GOTO 750
  690 par$=""
  700 REPEAT
  710 B%=BGET#H%:IF B%<>32 THEN par$=par$+CHR$(B%)
  720 UNTIL B%=term% OR B%=13 OR B%=2 OR EOF#H%
  730 par$=LEFT$(par$,LEN(par$)-1)
  740 GOTO 840
  750 tno%=0:no$=""
  760 REPEAT
  770 B%=BGET#H%
  780 IF B%=32 OR B%=term% OR B%=2 OR B%=13 THEN GOTO 810
  790 IF B%=ASC"," THEN trule%(tno%)=VAL(no$):tno%=tno%+1:no$="":GOTO 810
  800 no$=no$+CHR$(B%)
  810 UNTIL B%=term% OR B%=13 OR B%=2
  820 IF no$<>"" THEN trule%(tno%)=VAL(no$):tno%=tno%+1
  830 trule%(tno%)=5000
  840 IF B%=2 THEN PTR#H%=PTR#H%-1
  850 ENDPROC
  860 :
  870 DEFPROCiruler
  880 BPUT#D%,&85:BPUT#D%,&86
  890 BPUT#D%,lm%+in%:BPUT#D%,(lm%+rm%):BPUT#D%,lm%+in%
  900 BPUT#D%,0:BPUT#D%,0
  910 IF tno%=0 THEN GOTO 960
  920 FOR I%=0 TO tno%-1
  930 IF trule%(I%)-in%>127 OR trule%(I%)<in% THEN GOTO 950
  940 BPUT#D%,(trule%(I%)+lm%-in%-1)
  950 NEXT
  960 BPUT#D%,&87
  970 ENDPROC
  980 :
  990 DEFPROCvruler
 1000 BPUT#D%,&81:BPUT#D%,ASC".":BPUT#D%,ASC"."
 1010 J%=-1
 1020 REPEAT:J%=J%+1:UNTIL trule%(J%)>in%
 1030 FOR I%=in%+1 TO rm%-1
 1040 IF I%=trule%(J%) THEN BPUT#D%,ASC"*":J%=J%+1 ELSE BPUT#D%,ASC"."
 1050 NEXT
 1060 BPUT#D%,ASC"<":BPUT#D%,13
 1070 F%=-1
 1080 ENDPROC
 1090 :
 1100 DEFPROCembed
 1110 PROCpar
 1120 IF option$="1" THEN PROCvembed ELSE PROCiembed
 1130 ENDPROC
 1140 :
 1150 DEFPROCvembed
 1160 IF N%=in%+1 THEN N%=0 ELSE N%=1
 1170 IF code$="BP" THEN PROCcommand("PE"):ENDPROC
 1180 IF code$="CE" THEN PROCcommand("CE"):PTR#D%=PTR#D%-1:ENDPROC
 1190 IF code$="CI" THEN in%=0:PROCcommand("LM"+STR$(lm%)):PROCvruler:ENDPROC
 1200 IF code$=CO$ THEN PROCcommand("PBOFF")
 1210 IF code$="CP" THEN PROCcommand("PE"+par$):ENDPROC
 1220 IF code$="DT" THEN PROCvruler:ENDPROC
 1230 IF code$="EP" THEN PROCcommand("PBON"):ENDPROC
 1240 IF code$=FI$ THEN PROCcommand("RJ"):PTR#D%=PTR#D%-1:ENDPROC
 1250 IF code$="IN" THEN in%=VAL(par$):PROCcommand("LM"+STR$(in%+lm%)):PROCvruler:ENDPROC
 1260 IF code$="LL" THEN rm%=VAL(par$):PROCvruler:ENDPROC
 1270 IF code$="LM" THEN lm%=VAL(par$):PROCcommand("LM"+par$):ENDPROC
 1280 IF code$="LS" THEN ls%=VAL(par$):PROCcommand("LS"+STR$(ls%-1)):ENDPROC
 1290 IF code$="PL" THEN pl%=VAL(par$):PROCcommand("PL"+par$):ENDPROC
 1300 IF code$="SP" THEN FOR I%=0 TO VAL(par$):BPUT#D%,13:NEXT:G%=in%:ENDPROC
 1310 IF code$="SS" THEN ls%=1:PROCcommand("LS0"):ENDPROC
 1320 IF code$="TI" THEN BPUT#D%,13:FOR I%=1 TO VAL(par$):BPUT#D%,32:NEXT:G%=VAL(par$):ENDPROC
 1330 IF code$="UE" THEN ul%=0:N%=0:BPUT#D%,&1C:ENDPROC
 1340 IF code$="DE" THEN bo%=0:N%=0:BPUT#D%,&1D:ENDPROC
 1350 IF code$="TS" ts%=VAL(par$):PROCvlayout:ENDPROC
 1360 IF code$="BS" bs%=VAL(par$):PROCvlayout:ENDPROC
 1370 IF code$="HP" hp%=VAL(par$):PROCvlayout:ENDPROC
 1380 IF code$="FP" fp%=VAL(par$):PROCvlayout:ENDPROC
 1390 IF opt$="2" THEN GOTO 1420
 1400 IF code$="US" THEN ul%=1:N%=0:BPUT#D%,&1C:ENDPROC
 1410 IF code$="DS" THEN bo%=1:N%=0:BPUT#D%,&1D:ENDPROC ELSE GOTO 1460
 1420 IF code$<>"DS" THEN GOTO 1440
 1430 IF VAL(par$)=0 THEN bo%=0:N%=0:BPUT#D%,&1D:ENDPROC ELSE bo%=1:N%=0:BPUT#D%,&1D:ENDPROC
 1440 IF code<>"UL" THEN GOTO 1460
 1450 IF VAL(par$)=0 THEN ul%=0:N%=0:BPUT#D%,&1C:ENDPROC ELSE ul%=1:N%=0:BPUT#D%,&1C:ENDPROC
 1460 N%=0:ENDPROC
 1470 :
 1480 DEFPROCcommand(string$)
 1490 IF N%=1 THEN BPUT#D%,13
 1500 BPUT#D%,&80
 1510 FOR I%=1 TO LEN(string$)
 1520 BPUT#D%,ASC(MID$(string$,I%,1))
 1530 NEXT
 1540 BPUT#D%,13
 1550 ENDPROC
 1560 :
 1570 DEFPROCvhead
 1580 PROCcommand("PBOFF")
 1590 PROCcommand("TM2")
 1600 PROCcommand("HM3")
 1610 PROCcommand("FM2")
 1620 PROCcommand("BM3")
 1630 PROCcommand("DF//PAGE |P//")
 1640 ts%=6:bs%=6:fp%=3:hp%=3:tm%=2:hm%=3:fm%=2:bm%=3
 1650 BPUT#D%,&81
 1660 FOR I%=1 TO 71:BPUT#D%,ASC".":NEXT
 1670 BPUT#D%,ASC"<":BPUT#D%,13
 1680 ENDPROC
 1690 :
 1700 DEFPROCvlayout
 1710 IF N%=1 THEN BPUT#D%,13
 1720 IF hp%>ts% THEN hp%=ts%
 1730 IF fp%>bs% THEN fp%=bs%
 1740 IF hp%-1<>tm% THEN tm%=hp%-1:PROCcommand("TM"+STR$(tm%))
 1750 IF ts%-hp%<>hm% THEN hm%=ts%-hp%:PROCcommand("HM"+STR$(hm%))
 1760 IF fp%-1<>fm% THEN fm%=fp%-1:PROCcommand("FM"+STR$(fm%))
 1770 IF bs%-fp%<>bm% THEN bm%=bs%-fp%:PROCcommand("BM"+STR$(bm%))
 1780 ENDPROC
 1790 :
 1800 DEFPROCeline
 1810 IF option$="1" THEN GOTO 1860
 1820 IF B%=13 OR B%=tab% THEN BPUT#D%,13
 1830 IF ce%=1 THEN ce%=0:BPUT#D%,23
 1840 BPUT#D%,&EE
 1850 ENDPROC
 1860 IF N%=0 THEN BPUT#D%,13 ELSE N%=0
 1870 IF ul%=1 THEN BPUT#D%,&1C
 1880 IF bo%=1 THEN BPUT#D%,&1D
 1890 ENDPROC
 1900 :
 1910 DEFPROCword
 1920 IF LEN(w$)=0 THEN ENDPROC
 1930 FOR J%=1 TO LEN(w$)
 1940 BPUT#D%,ASC(MID$(w$,J%,1))
 1950 NEXT
 1960 w$=""
 1970 ENDPROC
 1980 :
 1990 DEFPROCiwhead
 2000 REPEAT
 2010 IF BGET#H%=2 THEN PROCpar:PROCcheck
 2020 UNTIL EOF#H%
 2030 IF pl%<0 THEN pl%=66
 2040 IF ls%<0 THEN ls%=1
 2050 IF bs%<0 THEN bs%=6
 2060 IF ts%<0 THEN ts%=6
 2070 IF hp%<0 THEN hp%=3
 2080 IF fp%<0 THEN fp%=3
 2090 PTR#H%=0
 2100 FOR G%=1 TO 13:READ A$:BPUT#D%,(128+ASC(A$)):NEXT
 2110 BPUT#D%,1
 2120 PROCzero(24):PROCdata(24)
 2130 BPUT#D%,(hp% DIV ls%)
 2140 BPUT#D%,(ts% DIV ls%)
 2150 BPUT#D%,((pl%-bs%) DIV ls%)
 2160 BPUT#D%,((pl%-bs%+fp%) DIV ls%)
 2170 BPUT#D%,((pl% DIV ls%)+1)
 2180 PROCdata(6):BPUT#D%,pb%
 2190 PROCdata(30):PROCzero(32)
 2200 FOR G%=1 TO LEN(dest$):BPUT#D%,ASC(MID$(dest$,G%,1)):NEXT
 2210 BPUT#D%,13:PROCzero(95-LEN(dest$))
 2220 FOR G%=1 TO 3:BPUT#D%,&AA:NEXT:PROCzero(21)
 2230 BPUT#D%,2:BPUT#D%,&1B:BPUT#D%,&34:PROCzero(12)
 2240 BPUT#D%,2:BPUT#D%,&1B:BPUT#D%,&35:PROCzero(12)
 2250 BPUT#D%,3:BPUT#D%,&1B:BPUT#D%,&2D:BPUT#D%,1:PROCzero(11)
 2260 BPUT#D%,3:BPUT#D%,&1B:BPUT#D%,&2D:PROCzero(42)
 2270 BPUT#D%,2:BPUT#D%,&1B:BPUT#D%,&45:PROCzero(12)
 2280 BPUT#D%,2:BPUT#D%,&1B:BPUT#D%,&46:PROCzero(12)
 2290 BPUT#D%,1:BPUT#D%,&23
 2300 PROCzero(14):PROCdata(12)
 2310 BPUT#D%,((hp%+1) DIV ls%)
 2320 BPUT#D%,(ts% DIV ls%)
 2330 BPUT#D%,(bs% DIV ls%)
 2340 BPUT#D%,((pl%-bs%+fp%-1) DIV ls%)
 2350 BPUT#D%,(pl% DIV ls%):BPUT#D%,1
 2360 BPUT#D%,ls%:BPUT#D%,10
 2370 PROCzero(37):PROCdata(7):PROCzero(56)
 2380 BPUT#D%,&EC:BPUT#D%,&FF:BPUT#D%,2
 2390 PROCzero(253):PROCdata(55)
 2400 ENDPROC
 2410 :
 2420 DEFPROCzero(num%)
 2430 FOR I%=1 TO num%:BPUT#D%,0:NEXT
 2440 ENDPROC
 2450 :
 2460 DEFPROCdata(num%)
 2470 FOR I%=1 TO num%:READ A%:BPUT#D%,A%:NEXT
 2480 ENDPROC
 2490 :
 2500 DEFPROCcheck
 2510 IF code$="TS" AND ts%<0 THEN ts%=VAL(par$):ENDPROC
 2520 IF code$="BS" AND bs%<0 THEN bs%=VAL(par$):ENDPROC
 2530 IF code$="HP" AND hp%<0 THEN hp%=VAL(par$):ENDPROC
 2540 IF code$="FP" AND fp%<0 THEN fp%=VAL(par$):ENDPROC
 2550 IF code$="LS" AND ls%<0 THEN ls%=VAL(par$):ENDPROC
 2560 IF code$="PL" AND pl%<0 THEN pl%=VAL(par$):ENDPROC
 2570 IF code$="EP" THEN pb%=16
 2580 ENDPROC
 2590 :
 2600 DEFPROCiembed
 2610 IF code$="DE" THEN BPUT#D%,19:ENDPROC
 2620 IF code$="UE" THEN BPUT#D%,20:ENDPROC
 2630 IF opt$="2" THEN GOTO 2660
 2640 IF code$="DS" THEN BPUT#D%,11:ENDPROC
 2650 IF code$="US" THEN BPUT#D%,12:ENDPROC ELSE GOTO 2720
 2660 IF code$<>"DS" THEN GOTO 2680
 2670 IF VAL(par$)=0 THEN BPUT#D%,19:ENDPROC ELSE BPUT#D%,11:ENDPROC
 2680 IF code$<>"UL" THEN GOTO 2700
 2690 IF VAL(par$)=0 THEN BPUT#D%,20:ENDPROC ELSE BPUT#D%,12:ENDPROC
 2700 IF code$<>"IT" THEN GOTO 2720
 2710 IF VAL(par$)=0 THEN BPUT#D%,21:ENDPROC ELSE BPUT#D%,14:ENDPROC
 2720 IF code$="CE" THEN BPUT#D%,16:ce%=1:ENDPROC
 2730 IF code$=JO$ THEN BPUT#D%,18:ENDPROC
 2740 IF code$=NJ$ THEN BPUT#D%,25:ENDPROC
 2750 IF code$="PP" THEN BPUT#D%,3:ENDPROC
 2760 IF code$="BP" THEN BPUT#D%,1:BPUT#D%,0:BPUT#D%,&87:ENDPROC
 2770 IF code$="CP" THEN BPUT#D%,2:BPUT#D%,0:BPUT#D%,(VAL(par$)-1):BPUT#D%,&87:ENDPROC
 2780 IF code$="LL" THEN rm%=VAL(par$):PROCiruler:ENDPROC
 2790 IF code$="LM" THEN lm%=VAL(par$):PROCiruler:ENDPROC
 2800 IF code$="IN" THEN in%=VAL(par$):PROCiruler:ENDPROC
 2810 IF code$="DT" THEN PROCiruler
 2820 IF code$="TI" THEN BPUT#D%,13:FOR I%=1 TO VAL(par$):BPUT#D%,32:NEXT:G%=in%+VAL(par$):ENDPROC
 2830 IF code$="SP" THEN FOR I%=0 TO VAL(par$):BPUT#D%,13:NEXT:G%=in%:ENDPROC
 2840 ENDPROC
 2850 :
 2860 DATA "C","h","a","z","J","e","z","J","i","m","I","a","n"
 2870 DATA 2,0,0,&19,0,1,0,2,0,2,0,3,&25,3,0,0,&26,3,&37,3,0,0,0,0
 2880 DATA 14,32,80,4,12,64
 2890 DATA 0,7,0,&19,4,50,&C0,0,80,0,&55,0,&21,&22,0,0,2,4,0,&21,&22,1,0,2,4,0,&21,&22,1,0
 2900 DATA 1,0,0,1,1,&7C,0,1,255,0,0,0
 2910 DATA 1,0,33,34,1,0,&A1
 2920 DATA &22,&12,0,&85,&86,4,&4A,4,&40,0,&87,80,65,71,69,32,3,255,255,&85,&86
 2930 DATA 0,74,0,0,0,7,15,23,31,39,47,55,63,71,&87,255,255,&85,&86
 2940 DATA 0,69,0,0,0,72,74,76,78,80,82,84,86,88,&87


C � Wordwise and Mini Office II to Inter-Word and VIEW converter
 � by John Allen
 �(c) The Micro User
( � trule%(50)
2
 � W% 256
<I title$=�(132)+�(157)+�(131)+�(141)+" Wordwise and MO II Conversions"
F �7
P � 'title$;'title$''
Z pad$=�(131)+"   "
d, � pad$;"1) from Wordwise Wordwise Plus"
n$ � pad$;"2) from Mini Office II"
x � '" Enter choice";�(134);
� �:opt$=�:� �"12",opt$)
� � opt$
�{ � opt$="1" � term%=7:tab%=&DD:CO$="CO":FI$="FI":JO$="JO":NJ$="NJ" � term%=3:tab%=9:CO$="PO":FI$="IR":JO$="FJ":NJ$="RR"
� � ''pad$;"1) to VIEW"
� � pad$;"2) to InterWord"
� � '" Enter choice";�(134);
�! �:option$=�:� �"12",option$)
� � option$
�, � ''" Name of file to convert:";�(134);
� � "" source$
� H%=�(source$)
�F � H%=0 � � '�(136);�(129);"File does not exist, try again":� �dR@
�+ � '" Name of file to create: ";�(134);
 � "" dest$
2 � option$="1" � D%=�(dest$) � D%=�("!?!?!?!")
j ce%=0:in%=0:lm%=0:rm%=70:pb%=0:ts%=-1:bs%=-1:hp%=-1:fp%=-1:pl%=-1:ls%=-1:ul%=0:bo%=0:tno%=0:N%=0:F%=0
"% � option$="1" � �vhead � �iwhead
,
 w$=""
6 � � � �dtA
@ �
J � G%=in%+1 � rm%
T � F%<>0 � F%=F%-1:� �dLA
^ B%=�#H%
h/ � B%=2 � N%=G%:G%=G%-1:�word:�embed:� �dLA
r! � B%=13 � �word:F%=-1:� �dLA
| � B%<>tab% � � �tnA
� pos%=-1:� tno%=0 � � �dLA
�$ �:pos%=pos%+1:� trule%(pos%)>G%
�@ � trule%(pos%)<rm% � �word:�#D%,9:F%=trule%(pos%)-G%:� �dLA
�, �word:�eline:�#D%,9:G%=trule%(0):� �dLA
�" � B%<>32 � w$=w$+�(B%):� �dLA
�
 �word
� �#D%,32
� �
� F%=0:�eline
� � �#H%
� :
�" �word:�#D%=�#D%-1:�#D%,13:�#0
� � option$="1" � �
 � � � �DNB
  S%=�("!?!?!?!"):D%=�(dest$)
 � I%=1 � &336:�#D%,�#S%:�
& �
0# B%=�#S%:� B%=&EE � B%=128+�#S%
: �#D%,B%
D � �#S%
N/ �#D%,&81:�#D%,0:�#D%,&87:�#D%,&FF:�#D%,&FF
X* lb%=(�#D%-1) � 256:hb%=(�#D%-1) � 256
b �#D%=&34:�#D%,lb%:�#D%,hb%
l �#0:*DELETE !?!?!?!
v �
� :
�
 ��par
�& code$=�(�#H% � &DF)+�(�#H% � &DF)
�. � code$="DH" � code$="DF" � �:� �#H%=13:�
� � code$="DT" � � �dnB
� par$=""
� �
�' B%=�#H%:� B%<>32 � par$=par$+�(B%)
�% � B%=term% � B%=13 � B%=2 � �#H%
� par$=�par$,�(par$)-1)
� � �DHC
� tno%=0:no$=""
� �
 B%=�#H%
/ � B%=32 � B%=term% � B%=2 � B%=13 � � �TjC
> � B%=�"," � trule%(tno%)=�(no$):tno%=tno%+1:no$="":� �TjC
  no$=no$+�(B%)
* � B%=term% � B%=13 � B%=2
40 � no$<>"" � trule%(tno%)=�(no$):tno%=tno%+1
> trule%(tno%)=5000
H � B%=2 � �#H%=�#H%-1
R �
\ :
f
 ��iruler
p �#D%,&85:�#D%,&86
z- �#D%,lm%+in%:�#D%,(lm%+rm%):�#D%,lm%+in%
� �#D%,0:�#D%,0
� � tno%=0 � � �d@C
� � I%=0 � tno%-1
�3 � trule%(I%)-in%>127 � trule%(I%)<in% � � �tvC
�  �#D%,(trule%(I%)+lm%-in%-1)
� �
�
 �#D%,&87
� �
� :
�
 ��vruler
�! �#D%,&81:�#D%,�".":�#D%,�"."
�
 J%=-1
� �:J%=J%+1:� trule%(J%)>in%
 � I%=in%+1 � rm%-1
4 � I%=trule%(J%) � �#D%,�"*":J%=J%+1 � �#D%,�"."
 �
$ �#D%,�"<":�#D%,13
.
 F%=-1
8 �
B :
L ��embed
V	 �par
`& � option$="1" � �vembed � �iembed
j �
t :
~
 ��vembed
� � N%=in%+1 � N%=0 � N%=1
�$ � code$="BP" � �command("PE"):�
�0 � code$="CE" � �command("CE"):�#D%=�#D%-1:�
�9 � code$="CI" � in%=0:�command("LM"+�(lm%)):�vruler:�
�$ � code$=CO$ � �command("PBOFF")
�) � code$="CP" � �command("PE"+par$):�
� � code$="DT" � �vruler:�
�& � code$="EP" � �command("PBON"):�
�/ � code$=FI$ � �command("RJ"):�#D%=�#D%-1:�
�C � code$="IN" � in%=�(par$):�command("LM"+�(in%+lm%)):�vruler:�
�) � code$="LL" � rm%=�(par$):�vruler:�
�5 � code$="LM" � lm%=�(par$):�command("LM"+par$):�
9 � code$="LS" � ls%=�(par$):�command("LS"+�(ls%-1)):�

5 � code$="PL" � pl%=�(par$):�command("PL"+par$):�
7 � code$="SP" � � I%=0 � �(par$):�#D%,13:�:G%=in%:�
+ � code$="SS" � ls%=1:�command("LS0"):�
(C � code$="TI" � �#D%,13:� I%=1 � �(par$):�#D%,32:�:G%=�(par$):�
2) � code$="UE" � ul%=0:N%=0:�#D%,&1C:�
<) � code$="DE" � bo%=0:N%=0:�#D%,&1D:�
F( � code$="TS" ts%=�(par$):�vlayout:�
P( � code$="BS" bs%=�(par$):�vlayout:�
Z( � code$="HP" hp%=�(par$):�vlayout:�
d( � code$="FP" fp%=�(par$):�vlayout:�
n � opt$="2" � � �tLE
x) � code$="US" � ul%=1:N%=0:�#D%,&1C:�
�2 � code$="DS" � bo%=1:N%=0:�#D%,&1D:� � � �ttE
� � code$<>"DS" � � �t`E
�@ � �(par$)=0 � bo%=0:N%=0:�#D%,&1D:� � bo%=1:N%=0:�#D%,&1D:�
� � code<>"UL" � � �ttE
�@ � �(par$)=0 � ul%=0:N%=0:�#D%,&1C:� � ul%=1:N%=0:�#D%,&1C:�
� N%=0:�
� :
� ��command(string$)
� � N%=1 � �#D%,13
�
 �#D%,&80
� � I%=1 � �(string$)
� �#D%,�(�string$,I%,1))
� �
 �#D%,13
 �
 :
" ��vhead
, �command("PBOFF")
6 �command("TM2")
@ �command("HM3")
J �command("FM2")
T �command("BM3")
^ �command("DF//PAGE |P//")
h4 ts%=6:bs%=6:fp%=3:hp%=3:tm%=2:hm%=3:fm%=2:bm%=3
r
 �#D%,&81
| � I%=1 � 71:�#D%,�".":�
� �#D%,�"<":�#D%,13
� �
� :
� ��vlayout
� � N%=1 � �#D%,13
� � hp%>ts% � hp%=ts%
� � fp%>bs% � fp%=bs%
�3 � hp%-1<>tm% � tm%=hp%-1:�command("TM"+�(tm%))
�7 � ts%-hp%<>hm% � hm%=ts%-hp%:�command("HM"+�(hm%))
�3 � fp%-1<>fm% � fm%=fp%-1:�command("FM"+�(fm%))
�7 � bs%-fp%<>bm% � bm%=bs%-fp%:�command("BM"+�(bm%))
� �
� :
 ��eline
 � option$="1" � � �DDG
  � B%=13 � B%=tab% � �#D%,13
& � ce%=1 � ce%=0:�#D%,23
0
 �#D%,&EE
: �
D � N%=0 � �#D%,13 � N%=0
N � ul%=1 � �#D%,&1C
X � bo%=1 � �#D%,&1D
b �
l :
v ��word
� � �(w$)=0 � �
� � J%=1 � �(w$)
� �#D%,�(�w$,J%,1))
� �
�
 w$=""
� �
� :
�
 ��iwhead
� �
� � �#H%=2 � �par:�check
� � �#H%
� � pl%<0 � pl%=66
� � ls%<0 � ls%=1
 � bs%<0 � bs%=6
 � ts%<0 � ts%=6
 � hp%<0 � hp%=3
  � fp%<0 � fp%=3
* �#H%=0
4( � G%=1 � 13:� A$:�#D%,(128+�(A$)):�
> �#D%,1
H �zero(24):�data(24)
R �#D%,(hp% � ls%)
\ �#D%,(ts% � ls%)
f �#D%,((pl%-bs%) � ls%)
p �#D%,((pl%-bs%+fp%) � ls%)
z �#D%,((pl% � ls%)+1)
� �data(6):�#D%,pb%
� �data(30):�zero(32)
�- � G%=1 � �(dest$):�#D%,�(�dest$,G%,1)):�
� �#D%,13:�zero(95-�(dest$))
�$ � G%=1 � 3:�#D%,&AA:�:�zero(21)
�' �#D%,2:�#D%,&1B:�#D%,&34:�zero(12)
�' �#D%,2:�#D%,&1B:�#D%,&35:�zero(12)
�. �#D%,3:�#D%,&1B:�#D%,&2D:�#D%,1:�zero(11)
�' �#D%,3:�#D%,&1B:�#D%,&2D:�zero(42)
�' �#D%,2:�#D%,&1B:�#D%,&45:�zero(12)
�' �#D%,2:�#D%,&1B:�#D%,&46:�zero(12)
� �#D%,1:�#D%,&23
� �zero(14):�data(12)
	 �#D%,((hp%+1) � ls%)
	 �#D%,(ts% � ls%)
	 �#D%,(bs% � ls%)
	$! �#D%,((pl%-bs%+fp%-1) � ls%)
	. �#D%,(pl% � ls%):�#D%,1
	8 �#D%,ls%:�#D%,10
	B! �zero(37):�data(7):�zero(56)
	L �#D%,&EC:�#D%,&FF:�#D%,2
	V �zero(253):�data(55)
	` �
	j :
	t ��zero(num%)
	~ � I%=1 � num%:�#D%,0:�
	� �
	� :
	� ��data(num%)
	�! � I%=1 � num%:� A%:�#D%,A%:�
	� �
	� :
	� ��check
	�) � code$="TS" � ts%<0 � ts%=�(par$):�
	�) � code$="BS" � bs%<0 � bs%=�(par$):�
	�) � code$="HP" � hp%<0 � hp%=�(par$):�
	�) � code$="FP" � fp%<0 � fp%=�(par$):�
	�) � code$="LS" � ls%<0 � ls%=�(par$):�
) � code$="PL" � pl%<0 � pl%=�(par$):�

 � code$="EP" � pb%=16
 �
 :
(
 ��iembed
2 � code$="DE" � �#D%,19:�
< � code$="UE" � �#D%,20:�
F � opt$="2" � � �DdJ
P � code$="DS" � �#D%,11:�
Z& � code$="US" � �#D%,12:� � � �t`J
d � code$<>"DS" � � �DxJ
n( � �(par$)=0 � �#D%,19:� � �#D%,11:�
x � code$<>"UL" � � �tLJ
�( � �(par$)=0 � �#D%,20:� � �#D%,12:�
� � code$<>"IT" � � �t`J
�( � �(par$)=0 � �#D%,21:� � �#D%,14:�
�# � code$="CE" � �#D%,16:ce%=1:�
� � code$=JO$ � �#D%,18:�
� � code$=NJ$ � �#D%,25:�
� � code$="PP" � �#D%,3:�
�, � code$="BP" � �#D%,1:�#D%,0:�#D%,&87:�
�= � code$="CP" � �#D%,2:�#D%,0:�#D%,(�(par$)-1):�#D%,&87:�
�) � code$="LL" � rm%=�(par$):�iruler:�
�) � code$="LM" � lm%=�(par$):�iruler:�
�) � code$="IN" � in%=�(par$):�iruler:�
� � code$="DT" � �iruler
G � code$="TI" � �#D%,13:� I%=1 � �(par$):�#D%,32:�:G%=in%+�(par$):�
7 � code$="SP" � � I%=0 � �(par$):�#D%,13:�:G%=in%:�
 �
" :
,: � "C","h","a","z","J","e","z","J","i","m","I","a","n"
6> � 2,0,0,&19,0,1,0,2,0,2,0,3,&25,3,0,0,&26,3,&37,3,0,0,0,0
@ � 14,32,80,4,12,64
JV � 0,7,0,&19,4,50,&C0,0,80,0,&55,0,&21,&22,0,0,2,4,0,&21,&22,1,0,2,4,0,&21,&22,1,0
T" � 1,0,0,1,1,&7C,0,1,255,0,0,0
^ � 1,0,33,34,1,0,&A1
hK � &22,&12,0,&85,&86,4,&4A,4,&40,0,&87,80,65,71,69,32,3,255,255,&85,&86
r? � 0,74,0,0,0,7,15,23,31,39,47,55,63,71,&87,255,255,&85,&86
|0 � 0,69,0,0,0,72,74,76,78,80,82,84,86,88,&87
�
00000000  0d 00 0a 43 20 f4 20 57  6f 72 64 77 69 73 65 20  |...C . Wordwise |
00000010  61 6e 64 20 4d 69 6e 69  20 4f 66 66 69 63 65 20  |and Mini Office |
00000020  49 49 20 74 6f 20 49 6e  74 65 72 2d 57 6f 72 64  |II to Inter-Word|
00000030  20 61 6e 64 20 56 49 45  57 20 63 6f 6e 76 65 72  | and VIEW conver|
00000040  74 65 72 0d 00 14 14 20  f4 20 62 79 20 4a 6f 68  |ter.... . by Joh|
00000050  6e 20 41 6c 6c 65 6e 0d  00 1e 18 20 f4 28 63 29  |n Allen.... .(c)|
00000060  20 54 68 65 20 4d 69 63  72 6f 20 55 73 65 72 0d  | The Micro User.|
00000070  00 28 11 20 de 20 74 72  75 6c 65 25 28 35 30 29  |.(. . trule%(50)|
00000080  0d 00 32 0d 20 de 20 57  25 20 32 35 36 0d 00 3c  |..2. . W% 256..<|
00000090  49 20 74 69 74 6c 65 24  3d bd 28 31 33 32 29 2b  |I title$=.(132)+|
000000a0  bd 28 31 35 37 29 2b bd  28 31 33 31 29 2b bd 28  |.(157)+.(131)+.(|
000000b0  31 34 31 29 2b 22 20 57  6f 72 64 77 69 73 65 20  |141)+" Wordwise |
000000c0  61 6e 64 20 4d 4f 20 49  49 20 43 6f 6e 76 65 72  |and MO II Conver|
000000d0  73 69 6f 6e 73 22 0d 00  46 07 20 eb 37 0d 00 50  |sions"..F. .7..P|
000000e0  18 20 f1 20 27 74 69 74  6c 65 24 3b 27 74 69 74  |. . 'title$;'tit|
000000f0  6c 65 24 27 27 0d 00 5a  16 20 70 61 64 24 3d bd  |le$''..Z. pad$=.|
00000100  28 31 33 31 29 2b 22 20  20 20 22 0d 00 64 2c 20  |(131)+"   "..d, |
00000110  f1 20 70 61 64 24 3b 22  31 29 20 66 72 6f 6d 20  |. pad$;"1) from |
00000120  57 6f 72 64 77 69 73 65  20 57 6f 72 64 77 69 73  |Wordwise Wordwis|
00000130  65 20 50 6c 75 73 22 0d  00 6e 24 20 f1 20 70 61  |e Plus"..n$ . pa|
00000140  64 24 3b 22 32 29 20 66  72 6f 6d 20 4d 69 6e 69  |d$;"2) from Mini|
00000150  20 4f 66 66 69 63 65 20  49 49 22 0d 00 78 1f 20  | Office II"..x. |
00000160  f1 20 27 22 20 45 6e 74  65 72 20 63 68 6f 69 63  |. '" Enter choic|
00000170  65 22 3b bd 28 31 33 34  29 3b 0d 00 82 1b 20 f5  |e";.(134);.... .|
00000180  3a 6f 70 74 24 3d be 3a  fd 20 a7 22 31 32 22 2c  |:opt$=.:. ."12",|
00000190  6f 70 74 24 29 0d 00 8c  0b 20 f1 20 6f 70 74 24  |opt$).... . opt$|
000001a0  0d 00 96 7b 20 e7 20 6f  70 74 24 3d 22 31 22 20  |...{ . opt$="1" |
000001b0  8c 20 74 65 72 6d 25 3d  37 3a 74 61 62 25 3d 26  |. term%=7:tab%=&|
000001c0  44 44 3a 43 4f 24 3d 22  43 4f 22 3a 46 49 24 3d  |DD:CO$="CO":FI$=|
000001d0  22 46 49 22 3a 4a 4f 24  3d 22 4a 4f 22 3a 4e 4a  |"FI":JO$="JO":NJ|
000001e0  24 3d 22 4e 4a 22 20 8b  20 74 65 72 6d 25 3d 33  |$="NJ" . term%=3|
000001f0  3a 74 61 62 25 3d 39 3a  43 4f 24 3d 22 50 4f 22  |:tab%=9:CO$="PO"|
00000200  3a 46 49 24 3d 22 49 52  22 3a 4a 4f 24 3d 22 46  |:FI$="IR":JO$="F|
00000210  4a 22 3a 4e 4a 24 3d 22  52 52 22 0d 00 a0 1a 20  |J":NJ$="RR".... |
00000220  f1 20 27 27 70 61 64 24  3b 22 31 29 20 74 6f 20  |. ''pad$;"1) to |
00000230  56 49 45 57 22 0d 00 aa  1d 20 f1 20 70 61 64 24  |VIEW".... . pad$|
00000240  3b 22 32 29 20 74 6f 20  49 6e 74 65 72 57 6f 72  |;"2) to InterWor|
00000250  64 22 0d 00 b4 1f 20 f1  20 27 22 20 45 6e 74 65  |d".... . '" Ente|
00000260  72 20 63 68 6f 69 63 65  22 3b bd 28 31 33 34 29  |r choice";.(134)|
00000270  3b 0d 00 be 21 20 f5 3a  6f 70 74 69 6f 6e 24 3d  |;...! .:option$=|
00000280  be 3a fd 20 a7 22 31 32  22 2c 6f 70 74 69 6f 6e  |.:. ."12",option|
00000290  24 29 0d 00 c8 0e 20 f1  20 6f 70 74 69 6f 6e 24  |$).... . option$|
000002a0  0d 00 d2 2c 20 f1 20 27  27 22 20 4e 61 6d 65 20  |..., . ''" Name |
000002b0  6f 66 20 66 69 6c 65 20  74 6f 20 63 6f 6e 76 65  |of file to conve|
000002c0  72 74 3a 22 3b bd 28 31  33 34 29 3b 0d 00 dc 11  |rt:";.(134);....|
000002d0  20 e8 20 22 22 20 73 6f  75 72 63 65 24 0d 00 e6  | . "" source$...|
000002e0  12 20 48 25 3d 8e 28 73  6f 75 72 63 65 24 29 0d  |. H%=.(source$).|
000002f0  00 f0 46 20 e7 20 48 25  3d 30 20 8c 20 f1 20 27  |..F . H%=0 . . '|
00000300  bd 28 31 33 36 29 3b bd  28 31 32 39 29 3b 22 46  |.(136);.(129);"F|
00000310  69 6c 65 20 64 6f 65 73  20 6e 6f 74 20 65 78 69  |ile does not exi|
00000320  73 74 2c 20 74 72 79 20  61 67 61 69 6e 22 3a e5  |st, try again":.|
00000330  20 8d 64 52 40 0d 00 fa  2b 20 f1 20 27 22 20 4e  | .dR@...+ . '" N|
00000340  61 6d 65 20 6f 66 20 66  69 6c 65 20 74 6f 20 63  |ame of file to c|
00000350  72 65 61 74 65 3a 20 22  3b bd 28 31 33 34 29 3b  |reate: ";.(134);|
00000360  0d 01 04 0f 20 e8 20 22  22 20 64 65 73 74 24 0d  |.... . "" dest$.|
00000370  01 0e 32 20 e7 20 6f 70  74 69 6f 6e 24 3d 22 31  |..2 . option$="1|
00000380  22 20 8c 20 44 25 3d ae  28 64 65 73 74 24 29 20  |" . D%=.(dest$) |
00000390  8b 20 44 25 3d ae 28 22  21 3f 21 3f 21 3f 21 22  |. D%=.("!?!?!?!"|
000003a0  29 0d 01 18 6a 20 63 65  25 3d 30 3a 69 6e 25 3d  |)...j ce%=0:in%=|
000003b0  30 3a 6c 6d 25 3d 30 3a  72 6d 25 3d 37 30 3a 70  |0:lm%=0:rm%=70:p|
000003c0  62 25 3d 30 3a 74 73 25  3d 2d 31 3a 62 73 25 3d  |b%=0:ts%=-1:bs%=|
000003d0  2d 31 3a 68 70 25 3d 2d  31 3a 66 70 25 3d 2d 31  |-1:hp%=-1:fp%=-1|
000003e0  3a 70 6c 25 3d 2d 31 3a  6c 73 25 3d 2d 31 3a 75  |:pl%=-1:ls%=-1:u|
000003f0  6c 25 3d 30 3a 62 6f 25  3d 30 3a 74 6e 6f 25 3d  |l%=0:bo%=0:tno%=|
00000400  30 3a 4e 25 3d 30 3a 46  25 3d 30 0d 01 22 25 20  |0:N%=0:F%=0.."% |
00000410  e7 20 6f 70 74 69 6f 6e  24 3d 22 31 22 20 8c 20  |. option$="1" . |
00000420  f2 76 68 65 61 64 20 8b  20 f2 69 77 68 65 61 64  |.vhead . .iwhead|
00000430  0d 01 2c 0a 20 77 24 3d  22 22 0d 01 36 0f 20 ee  |..,. w$=""..6. .|
00000440  20 85 20 e5 20 8d 64 74  41 0d 01 40 06 20 f5 0d  | . . .dtA..@. ..|
00000450  01 4a 15 20 e3 20 47 25  3d 69 6e 25 2b 31 20 b8  |.J. . G%=in%+1 .|
00000460  20 72 6d 25 0d 01 54 1d  20 e7 20 46 25 3c 3e 30  | rm%..T. . F%<>0|
00000470  20 8c 20 46 25 3d 46 25  2d 31 3a e5 20 8d 64 4c  | . F%=F%-1:. .dL|
00000480  41 0d 01 5e 0c 20 42 25  3d 9a 23 48 25 0d 01 68  |A..^. B%=.#H%..h|
00000490  2f 20 e7 20 42 25 3d 32  20 8c 20 4e 25 3d 47 25  |/ . B%=2 . N%=G%|
000004a0  3a 47 25 3d 47 25 2d 31  3a f2 77 6f 72 64 3a f2  |:G%=G%-1:.word:.|
000004b0  65 6d 62 65 64 3a e5 20  8d 64 4c 41 0d 01 72 21  |embed:. .dLA..r!|
000004c0  20 e7 20 42 25 3d 31 33  20 8c 20 f2 77 6f 72 64  | . B%=13 . .word|
000004d0  3a 46 25 3d 2d 31 3a e5  20 8d 64 4c 41 0d 01 7c  |:F%=-1:. .dLA..||
000004e0  18 20 e7 20 42 25 3c 3e  74 61 62 25 20 8c 20 e5  |. . B%<>tab% . .|
000004f0  20 8d 74 6e 41 0d 01 86  1e 20 70 6f 73 25 3d 2d  | .tnA.... pos%=-|
00000500  31 3a e7 20 74 6e 6f 25  3d 30 20 8c 20 e5 20 8d  |1:. tno%=0 . . .|
00000510  64 4c 41 0d 01 90 24 20  f5 3a 70 6f 73 25 3d 70  |dLA...$ .:pos%=p|
00000520  6f 73 25 2b 31 3a fd 20  74 72 75 6c 65 25 28 70  |os%+1:. trule%(p|
00000530  6f 73 25 29 3e 47 25 0d  01 9a 40 20 e7 20 74 72  |os%)>G%...@ . tr|
00000540  75 6c 65 25 28 70 6f 73  25 29 3c 72 6d 25 20 8c  |ule%(pos%)<rm% .|
00000550  20 f2 77 6f 72 64 3a d5  23 44 25 2c 39 3a 46 25  | .word:.#D%,9:F%|
00000560  3d 74 72 75 6c 65 25 28  70 6f 73 25 29 2d 47 25  |=trule%(pos%)-G%|
00000570  3a e5 20 8d 64 4c 41 0d  01 a4 2c 20 f2 77 6f 72  |:. .dLA..., .wor|
00000580  64 3a f2 65 6c 69 6e 65  3a d5 23 44 25 2c 39 3a  |d:.eline:.#D%,9:|
00000590  47 25 3d 74 72 75 6c 65  25 28 30 29 3a e5 20 8d  |G%=trule%(0):. .|
000005a0  64 4c 41 0d 01 ae 22 20  e7 20 42 25 3c 3e 33 32  |dLA..." . B%<>32|
000005b0  20 8c 20 77 24 3d 77 24  2b bd 28 42 25 29 3a e5  | . w$=w$+.(B%):.|
000005c0  20 8d 64 4c 41 0d 01 b8  0a 20 f2 77 6f 72 64 0d  | .dLA.... .word.|
000005d0  01 c2 0c 20 d5 23 44 25  2c 33 32 0d 01 cc 06 20  |... .#D%,32.... |
000005e0  ed 0d 01 d6 10 20 46 25  3d 30 3a f2 65 6c 69 6e  |..... F%=0:.elin|
000005f0  65 0d 01 e0 0b 20 fd 20  c5 23 48 25 0d 01 ea 06  |e.... . .#H%....|
00000600  20 3a 0d 01 f4 22 20 f2  77 6f 72 64 3a cf 23 44  | :..." .word:.#D|
00000610  25 3d 8f 23 44 25 2d 31  3a d5 23 44 25 2c 31 33  |%=.#D%-1:.#D%,13|
00000620  3a d9 23 30 0d 01 fe 16  20 e7 20 6f 70 74 69 6f  |:.#0.... . optio|
00000630  6e 24 3d 22 31 22 20 8c  20 e0 0d 02 08 0f 20 ee  |n$="1" . ..... .|
00000640  20 85 20 e5 20 8d 44 4e  42 0d 02 12 20 20 53 25  | . . .DNB...  S%|
00000650  3d 8e 28 22 21 3f 21 3f  21 3f 21 22 29 3a 44 25  |=.("!?!?!?!"):D%|
00000660  3d ae 28 64 65 73 74 24  29 0d 02 1c 1e 20 e3 20  |=.(dest$).... . |
00000670  49 25 3d 31 20 b8 20 26  33 33 36 3a d5 23 44 25  |I%=1 . &336:.#D%|
00000680  2c 9a 23 53 25 3a ed 0d  02 26 06 20 f5 0d 02 30  |,.#S%:...&. ...0|
00000690  23 20 42 25 3d 9a 23 53  25 3a e7 20 42 25 3d 26  |# B%=.#S%:. B%=&|
000006a0  45 45 20 8c 20 42 25 3d  31 32 38 2b 9a 23 53 25  |EE . B%=128+.#S%|
000006b0  0d 02 3a 0c 20 d5 23 44  25 2c 42 25 0d 02 44 0b  |..:. .#D%,B%..D.|
000006c0  20 fd 20 c5 23 53 25 0d  02 4e 2f 20 d5 23 44 25  | . .#S%..N/ .#D%|
000006d0  2c 26 38 31 3a d5 23 44  25 2c 30 3a d5 23 44 25  |,&81:.#D%,0:.#D%|
000006e0  2c 26 38 37 3a d5 23 44  25 2c 26 46 46 3a d5 23  |,&87:.#D%,&FF:.#|
000006f0  44 25 2c 26 46 46 0d 02  58 2a 20 6c 62 25 3d 28  |D%,&FF..X* lb%=(|
00000700  8f 23 44 25 2d 31 29 20  83 20 32 35 36 3a 68 62  |.#D%-1) . 256:hb|
00000710  25 3d 28 8f 23 44 25 2d  31 29 20 81 20 32 35 36  |%=(.#D%-1) . 256|
00000720  0d 02 62 1f 20 cf 23 44  25 3d 26 33 34 3a d5 23  |..b. .#D%=&34:.#|
00000730  44 25 2c 6c 62 25 3a d5  23 44 25 2c 68 62 25 0d  |D%,lb%:.#D%,hb%.|
00000740  02 6c 18 20 d9 23 30 3a  2a 44 45 4c 45 54 45 20  |.l. .#0:*DELETE |
00000750  21 3f 21 3f 21 3f 21 0d  02 76 06 20 e0 0d 02 80  |!?!?!?!..v. ....|
00000760  06 20 3a 0d 02 8a 0a 20  dd f2 70 61 72 0d 02 94  |. :.... ..par...|
00000770  26 20 63 6f 64 65 24 3d  bd 28 9a 23 48 25 20 80  |& code$=.(.#H% .|
00000780  20 26 44 46 29 2b bd 28  9a 23 48 25 20 80 20 26  | &DF)+.(.#H% . &|
00000790  44 46 29 0d 02 9e 2e 20  e7 20 63 6f 64 65 24 3d  |DF).... . code$=|
000007a0  22 44 48 22 20 84 20 63  6f 64 65 24 3d 22 44 46  |"DH" . code$="DF|
000007b0  22 20 8c 20 f5 3a fd 20  9a 23 48 25 3d 31 33 3a  |" . .:. .#H%=13:|
000007c0  e1 0d 02 a8 1a 20 e7 20  63 6f 64 65 24 3d 22 44  |..... . code$="D|
000007d0  54 22 20 8c 20 e5 20 8d  64 6e 42 0d 02 b2 0c 20  |T" . . .dnB.... |
000007e0  70 61 72 24 3d 22 22 0d  02 bc 06 20 f5 0d 02 c6  |par$="".... ....|
000007f0  27 20 42 25 3d 9a 23 48  25 3a e7 20 42 25 3c 3e  |' B%=.#H%:. B%<>|
00000800  33 32 20 8c 20 70 61 72  24 3d 70 61 72 24 2b bd  |32 . par$=par$+.|
00000810  28 42 25 29 0d 02 d0 25  20 fd 20 42 25 3d 74 65  |(B%)...% . B%=te|
00000820  72 6d 25 20 84 20 42 25  3d 31 33 20 84 20 42 25  |rm% . B%=13 . B%|
00000830  3d 32 20 84 20 c5 23 48  25 0d 02 da 1a 20 70 61  |=2 . .#H%.... pa|
00000840  72 24 3d c0 70 61 72 24  2c a9 28 70 61 72 24 29  |r$=.par$,.(par$)|
00000850  2d 31 29 0d 02 e4 0b 20  e5 20 8d 44 48 43 0d 02  |-1).... . .DHC..|
00000860  ee 12 20 74 6e 6f 25 3d  30 3a 6e 6f 24 3d 22 22  |.. tno%=0:no$=""|
00000870  0d 02 f8 06 20 f5 0d 03  02 0c 20 42 25 3d 9a 23  |.... ..... B%=.#|
00000880  48 25 0d 03 0c 2f 20 e7  20 42 25 3d 33 32 20 84  |H%.../ . B%=32 .|
00000890  20 42 25 3d 74 65 72 6d  25 20 84 20 42 25 3d 32  | B%=term% . B%=2|
000008a0  20 84 20 42 25 3d 31 33  20 8c 20 e5 20 8d 54 6a  | . B%=13 . . .Tj|
000008b0  43 0d 03 16 3e 20 e7 20  42 25 3d 97 22 2c 22 20  |C...> . B%=."," |
000008c0  8c 20 74 72 75 6c 65 25  28 74 6e 6f 25 29 3d bb  |. trule%(tno%)=.|
000008d0  28 6e 6f 24 29 3a 74 6e  6f 25 3d 74 6e 6f 25 2b  |(no$):tno%=tno%+|
000008e0  31 3a 6e 6f 24 3d 22 22  3a e5 20 8d 54 6a 43 0d  |1:no$="":. .TjC.|
000008f0  03 20 12 20 6e 6f 24 3d  6e 6f 24 2b bd 28 42 25  |. . no$=no$+.(B%|
00000900  29 0d 03 2a 1e 20 fd 20  42 25 3d 74 65 72 6d 25  |)..*. . B%=term%|
00000910  20 84 20 42 25 3d 31 33  20 84 20 42 25 3d 32 0d  | . B%=13 . B%=2.|
00000920  03 34 30 20 e7 20 6e 6f  24 3c 3e 22 22 20 8c 20  |.40 . no$<>"" . |
00000930  74 72 75 6c 65 25 28 74  6e 6f 25 29 3d bb 28 6e  |trule%(tno%)=.(n|
00000940  6f 24 29 3a 74 6e 6f 25  3d 74 6e 6f 25 2b 31 0d  |o$):tno%=tno%+1.|
00000950  03 3e 16 20 74 72 75 6c  65 25 28 74 6e 6f 25 29  |.>. trule%(tno%)|
00000960  3d 35 30 30 30 0d 03 48  19 20 e7 20 42 25 3d 32  |=5000..H. . B%=2|
00000970  20 8c 20 cf 23 48 25 3d  8f 23 48 25 2d 31 0d 03  | . .#H%=.#H%-1..|
00000980  52 06 20 e1 0d 03 5c 06  20 3a 0d 03 66 0d 20 dd  |R. ...\. :..f. .|
00000990  f2 69 72 75 6c 65 72 0d  03 70 16 20 d5 23 44 25  |.iruler..p. .#D%|
000009a0  2c 26 38 35 3a d5 23 44  25 2c 26 38 36 0d 03 7a  |,&85:.#D%,&86..z|
000009b0  2d 20 d5 23 44 25 2c 6c  6d 25 2b 69 6e 25 3a d5  |- .#D%,lm%+in%:.|
000009c0  23 44 25 2c 28 6c 6d 25  2b 72 6d 25 29 3a d5 23  |#D%,(lm%+rm%):.#|
000009d0  44 25 2c 6c 6d 25 2b 69  6e 25 0d 03 84 12 20 d5  |D%,lm%+in%.... .|
000009e0  23 44 25 2c 30 3a d5 23  44 25 2c 30 0d 03 8e 16  |#D%,0:.#D%,0....|
000009f0  20 e7 20 74 6e 6f 25 3d  30 20 8c 20 e5 20 8d 64  | . tno%=0 . . .d|
00000a00  40 43 0d 03 98 14 20 e3  20 49 25 3d 30 20 b8 20  |@C.... . I%=0 . |
00000a10  74 6e 6f 25 2d 31 0d 03  a2 33 20 e7 20 74 72 75  |tno%-1...3 . tru|
00000a20  6c 65 25 28 49 25 29 2d  69 6e 25 3e 31 32 37 20  |le%(I%)-in%>127 |
00000a30  84 20 74 72 75 6c 65 25  28 49 25 29 3c 69 6e 25  |. trule%(I%)<in%|
00000a40  20 8c 20 e5 20 8d 74 76  43 0d 03 ac 20 20 d5 23  | . . .tvC...  .#|
00000a50  44 25 2c 28 74 72 75 6c  65 25 28 49 25 29 2b 6c  |D%,(trule%(I%)+l|
00000a60  6d 25 2d 69 6e 25 2d 31  29 0d 03 b6 06 20 ed 0d  |m%-in%-1).... ..|
00000a70  03 c0 0d 20 d5 23 44 25  2c 26 38 37 0d 03 ca 06  |... .#D%,&87....|
00000a80  20 e1 0d 03 d4 06 20 3a  0d 03 de 0d 20 dd f2 76  | ..... :.... ..v|
00000a90  72 75 6c 65 72 0d 03 e8  21 20 d5 23 44 25 2c 26  |ruler...! .#D%,&|
00000aa0  38 31 3a d5 23 44 25 2c  97 22 2e 22 3a d5 23 44  |81:.#D%,.".":.#D|
00000ab0  25 2c 97 22 2e 22 0d 03  f2 0a 20 4a 25 3d 2d 31  |%,.".".... J%=-1|
00000ac0  0d 03 fc 1f 20 f5 3a 4a  25 3d 4a 25 2b 31 3a fd  |.... .:J%=J%+1:.|
00000ad0  20 74 72 75 6c 65 25 28  4a 25 29 3e 69 6e 25 0d  | trule%(J%)>in%.|
00000ae0  04 06 17 20 e3 20 49 25  3d 69 6e 25 2b 31 20 b8  |... . I%=in%+1 .|
00000af0  20 72 6d 25 2d 31 0d 04  10 34 20 e7 20 49 25 3d  | rm%-1...4 . I%=|
00000b00  74 72 75 6c 65 25 28 4a  25 29 20 8c 20 d5 23 44  |trule%(J%) . .#D|
00000b10  25 2c 97 22 2a 22 3a 4a  25 3d 4a 25 2b 31 20 8b  |%,."*":J%=J%+1 .|
00000b20  20 d5 23 44 25 2c 97 22  2e 22 0d 04 1a 06 20 ed  | .#D%,.".".... .|
00000b30  0d 04 24 16 20 d5 23 44  25 2c 97 22 3c 22 3a d5  |..$. .#D%,."<":.|
00000b40  23 44 25 2c 31 33 0d 04  2e 0a 20 46 25 3d 2d 31  |#D%,13.... F%=-1|
00000b50  0d 04 38 06 20 e1 0d 04  42 06 20 3a 0d 04 4c 0c  |..8. ...B. :..L.|
00000b60  20 dd f2 65 6d 62 65 64  0d 04 56 09 20 f2 70 61  | ..embed..V. .pa|
00000b70  72 0d 04 60 26 20 e7 20  6f 70 74 69 6f 6e 24 3d  |r..`& . option$=|
00000b80  22 31 22 20 8c 20 f2 76  65 6d 62 65 64 20 8b 20  |"1" . .vembed . |
00000b90  f2 69 65 6d 62 65 64 0d  04 6a 06 20 e1 0d 04 74  |.iembed..j. ...t|
00000ba0  06 20 3a 0d 04 7e 0d 20  dd f2 76 65 6d 62 65 64  |. :..~. ..vembed|
00000bb0  0d 04 88 1d 20 e7 20 4e  25 3d 69 6e 25 2b 31 20  |.... . N%=in%+1 |
00000bc0  8c 20 4e 25 3d 30 20 8b  20 4e 25 3d 31 0d 04 92  |. N%=0 . N%=1...|
00000bd0  24 20 e7 20 63 6f 64 65  24 3d 22 42 50 22 20 8c  |$ . code$="BP" .|
00000be0  20 f2 63 6f 6d 6d 61 6e  64 28 22 50 45 22 29 3a  | .command("PE"):|
00000bf0  e1 0d 04 9c 30 20 e7 20  63 6f 64 65 24 3d 22 43  |....0 . code$="C|
00000c00  45 22 20 8c 20 f2 63 6f  6d 6d 61 6e 64 28 22 43  |E" . .command("C|
00000c10  45 22 29 3a cf 23 44 25  3d 8f 23 44 25 2d 31 3a  |E"):.#D%=.#D%-1:|
00000c20  e1 0d 04 a6 39 20 e7 20  63 6f 64 65 24 3d 22 43  |....9 . code$="C|
00000c30  49 22 20 8c 20 69 6e 25  3d 30 3a f2 63 6f 6d 6d  |I" . in%=0:.comm|
00000c40  61 6e 64 28 22 4c 4d 22  2b c3 28 6c 6d 25 29 29  |and("LM"+.(lm%))|
00000c50  3a f2 76 72 75 6c 65 72  3a e1 0d 04 b0 24 20 e7  |:.vruler:....$ .|
00000c60  20 63 6f 64 65 24 3d 43  4f 24 20 8c 20 f2 63 6f  | code$=CO$ . .co|
00000c70  6d 6d 61 6e 64 28 22 50  42 4f 46 46 22 29 0d 04  |mmand("PBOFF")..|
00000c80  ba 29 20 e7 20 63 6f 64  65 24 3d 22 43 50 22 20  |.) . code$="CP" |
00000c90  8c 20 f2 63 6f 6d 6d 61  6e 64 28 22 50 45 22 2b  |. .command("PE"+|
00000ca0  70 61 72 24 29 3a e1 0d  04 c4 1d 20 e7 20 63 6f  |par$):..... . co|
00000cb0  64 65 24 3d 22 44 54 22  20 8c 20 f2 76 72 75 6c  |de$="DT" . .vrul|
00000cc0  65 72 3a e1 0d 04 ce 26  20 e7 20 63 6f 64 65 24  |er:....& . code$|
00000cd0  3d 22 45 50 22 20 8c 20  f2 63 6f 6d 6d 61 6e 64  |="EP" . .command|
00000ce0  28 22 50 42 4f 4e 22 29  3a e1 0d 04 d8 2f 20 e7  |("PBON"):..../ .|
00000cf0  20 63 6f 64 65 24 3d 46  49 24 20 8c 20 f2 63 6f  | code$=FI$ . .co|
00000d00  6d 6d 61 6e 64 28 22 52  4a 22 29 3a cf 23 44 25  |mmand("RJ"):.#D%|
00000d10  3d 8f 23 44 25 2d 31 3a  e1 0d 04 e2 43 20 e7 20  |=.#D%-1:....C . |
00000d20  63 6f 64 65 24 3d 22 49  4e 22 20 8c 20 69 6e 25  |code$="IN" . in%|
00000d30  3d bb 28 70 61 72 24 29  3a f2 63 6f 6d 6d 61 6e  |=.(par$):.comman|
00000d40  64 28 22 4c 4d 22 2b c3  28 69 6e 25 2b 6c 6d 25  |d("LM"+.(in%+lm%|
00000d50  29 29 3a f2 76 72 75 6c  65 72 3a e1 0d 04 ec 29  |)):.vruler:....)|
00000d60  20 e7 20 63 6f 64 65 24  3d 22 4c 4c 22 20 8c 20  | . code$="LL" . |
00000d70  72 6d 25 3d bb 28 70 61  72 24 29 3a f2 76 72 75  |rm%=.(par$):.vru|
00000d80  6c 65 72 3a e1 0d 04 f6  35 20 e7 20 63 6f 64 65  |ler:....5 . code|
00000d90  24 3d 22 4c 4d 22 20 8c  20 6c 6d 25 3d bb 28 70  |$="LM" . lm%=.(p|
00000da0  61 72 24 29 3a f2 63 6f  6d 6d 61 6e 64 28 22 4c  |ar$):.command("L|
00000db0  4d 22 2b 70 61 72 24 29  3a e1 0d 05 00 39 20 e7  |M"+par$):....9 .|
00000dc0  20 63 6f 64 65 24 3d 22  4c 53 22 20 8c 20 6c 73  | code$="LS" . ls|
00000dd0  25 3d bb 28 70 61 72 24  29 3a f2 63 6f 6d 6d 61  |%=.(par$):.comma|
00000de0  6e 64 28 22 4c 53 22 2b  c3 28 6c 73 25 2d 31 29  |nd("LS"+.(ls%-1)|
00000df0  29 3a e1 0d 05 0a 35 20  e7 20 63 6f 64 65 24 3d  |):....5 . code$=|
00000e00  22 50 4c 22 20 8c 20 70  6c 25 3d bb 28 70 61 72  |"PL" . pl%=.(par|
00000e10  24 29 3a f2 63 6f 6d 6d  61 6e 64 28 22 50 4c 22  |$):.command("PL"|
00000e20  2b 70 61 72 24 29 3a e1  0d 05 14 37 20 e7 20 63  |+par$):....7 . c|
00000e30  6f 64 65 24 3d 22 53 50  22 20 8c 20 e3 20 49 25  |ode$="SP" . . I%|
00000e40  3d 30 20 b8 20 bb 28 70  61 72 24 29 3a d5 23 44  |=0 . .(par$):.#D|
00000e50  25 2c 31 33 3a ed 3a 47  25 3d 69 6e 25 3a e1 0d  |%,13:.:G%=in%:..|
00000e60  05 1e 2b 20 e7 20 63 6f  64 65 24 3d 22 53 53 22  |..+ . code$="SS"|
00000e70  20 8c 20 6c 73 25 3d 31  3a f2 63 6f 6d 6d 61 6e  | . ls%=1:.comman|
00000e80  64 28 22 4c 53 30 22 29  3a e1 0d 05 28 43 20 e7  |d("LS0"):...(C .|
00000e90  20 63 6f 64 65 24 3d 22  54 49 22 20 8c 20 d5 23  | code$="TI" . .#|
00000ea0  44 25 2c 31 33 3a e3 20  49 25 3d 31 20 b8 20 bb  |D%,13:. I%=1 . .|
00000eb0  28 70 61 72 24 29 3a d5  23 44 25 2c 33 32 3a ed  |(par$):.#D%,32:.|
00000ec0  3a 47 25 3d bb 28 70 61  72 24 29 3a e1 0d 05 32  |:G%=.(par$):...2|
00000ed0  29 20 e7 20 63 6f 64 65  24 3d 22 55 45 22 20 8c  |) . code$="UE" .|
00000ee0  20 75 6c 25 3d 30 3a 4e  25 3d 30 3a d5 23 44 25  | ul%=0:N%=0:.#D%|
00000ef0  2c 26 31 43 3a e1 0d 05  3c 29 20 e7 20 63 6f 64  |,&1C:...<) . cod|
00000f00  65 24 3d 22 44 45 22 20  8c 20 62 6f 25 3d 30 3a  |e$="DE" . bo%=0:|
00000f10  4e 25 3d 30 3a d5 23 44  25 2c 26 31 44 3a e1 0d  |N%=0:.#D%,&1D:..|
00000f20  05 46 28 20 e7 20 63 6f  64 65 24 3d 22 54 53 22  |.F( . code$="TS"|
00000f30  20 74 73 25 3d bb 28 70  61 72 24 29 3a f2 76 6c  | ts%=.(par$):.vl|
00000f40  61 79 6f 75 74 3a e1 0d  05 50 28 20 e7 20 63 6f  |ayout:...P( . co|
00000f50  64 65 24 3d 22 42 53 22  20 62 73 25 3d bb 28 70  |de$="BS" bs%=.(p|
00000f60  61 72 24 29 3a f2 76 6c  61 79 6f 75 74 3a e1 0d  |ar$):.vlayout:..|
00000f70  05 5a 28 20 e7 20 63 6f  64 65 24 3d 22 48 50 22  |.Z( . code$="HP"|
00000f80  20 68 70 25 3d bb 28 70  61 72 24 29 3a f2 76 6c  | hp%=.(par$):.vl|
00000f90  61 79 6f 75 74 3a e1 0d  05 64 28 20 e7 20 63 6f  |ayout:...d( . co|
00000fa0  64 65 24 3d 22 46 50 22  20 66 70 25 3d bb 28 70  |de$="FP" fp%=.(p|
00000fb0  61 72 24 29 3a f2 76 6c  61 79 6f 75 74 3a e1 0d  |ar$):.vlayout:..|
00000fc0  05 6e 18 20 e7 20 6f 70  74 24 3d 22 32 22 20 8c  |.n. . opt$="2" .|
00000fd0  20 e5 20 8d 74 4c 45 0d  05 78 29 20 e7 20 63 6f  | . .tLE..x) . co|
00000fe0  64 65 24 3d 22 55 53 22  20 8c 20 75 6c 25 3d 31  |de$="US" . ul%=1|
00000ff0  3a 4e 25 3d 30 3a d5 23  44 25 2c 26 31 43 3a e1  |:N%=0:.#D%,&1C:.|
00001000  0d 05 82 32 20 e7 20 63  6f 64 65 24 3d 22 44 53  |...2 . code$="DS|
00001010  22 20 8c 20 62 6f 25 3d  31 3a 4e 25 3d 30 3a d5  |" . bo%=1:N%=0:.|
00001020  23 44 25 2c 26 31 44 3a  e1 20 8b 20 e5 20 8d 74  |#D%,&1D:. . . .t|
00001030  74 45 0d 05 8c 1b 20 e7  20 63 6f 64 65 24 3c 3e  |tE.... . code$<>|
00001040  22 44 53 22 20 8c 20 e5  20 8d 74 60 45 0d 05 96  |"DS" . . .t`E...|
00001050  40 20 e7 20 bb 28 70 61  72 24 29 3d 30 20 8c 20  |@ . .(par$)=0 . |
00001060  62 6f 25 3d 30 3a 4e 25  3d 30 3a d5 23 44 25 2c  |bo%=0:N%=0:.#D%,|
00001070  26 31 44 3a e1 20 8b 20  62 6f 25 3d 31 3a 4e 25  |&1D:. . bo%=1:N%|
00001080  3d 30 3a d5 23 44 25 2c  26 31 44 3a e1 0d 05 a0  |=0:.#D%,&1D:....|
00001090  1a 20 e7 20 63 6f 64 65  3c 3e 22 55 4c 22 20 8c  |. . code<>"UL" .|
000010a0  20 e5 20 8d 74 74 45 0d  05 aa 40 20 e7 20 bb 28  | . .ttE...@ . .(|
000010b0  70 61 72 24 29 3d 30 20  8c 20 75 6c 25 3d 30 3a  |par$)=0 . ul%=0:|
000010c0  4e 25 3d 30 3a d5 23 44  25 2c 26 31 43 3a e1 20  |N%=0:.#D%,&1C:. |
000010d0  8b 20 75 6c 25 3d 31 3a  4e 25 3d 30 3a d5 23 44  |. ul%=1:N%=0:.#D|
000010e0  25 2c 26 31 43 3a e1 0d  05 b4 0b 20 4e 25 3d 30  |%,&1C:..... N%=0|
000010f0  3a e1 0d 05 be 06 20 3a  0d 05 c8 17 20 dd f2 63  |:..... :.... ..c|
00001100  6f 6d 6d 61 6e 64 28 73  74 72 69 6e 67 24 29 0d  |ommand(string$).|
00001110  05 d2 15 20 e7 20 4e 25  3d 31 20 8c 20 d5 23 44  |... . N%=1 . .#D|
00001120  25 2c 31 33 0d 05 dc 0d  20 d5 23 44 25 2c 26 38  |%,13.... .#D%,&8|
00001130  30 0d 05 e6 18 20 e3 20  49 25 3d 31 20 b8 20 a9  |0.... . I%=1 . .|
00001140  28 73 74 72 69 6e 67 24  29 0d 05 f0 1b 20 d5 23  |(string$).... .#|
00001150  44 25 2c 97 28 c1 73 74  72 69 6e 67 24 2c 49 25  |D%,.(.string$,I%|
00001160  2c 31 29 29 0d 05 fa 06  20 ed 0d 06 04 0c 20 d5  |,1)).... ..... .|
00001170  23 44 25 2c 31 33 0d 06  0e 06 20 e1 0d 06 18 06  |#D%,13.... .....|
00001180  20 3a 0d 06 22 0c 20 dd  f2 76 68 65 61 64 0d 06  | :..". ..vhead..|
00001190  2c 16 20 f2 63 6f 6d 6d  61 6e 64 28 22 50 42 4f  |,. .command("PBO|
000011a0  46 46 22 29 0d 06 36 14  20 f2 63 6f 6d 6d 61 6e  |FF")..6. .comman|
000011b0  64 28 22 54 4d 32 22 29  0d 06 40 14 20 f2 63 6f  |d("TM2")..@. .co|
000011c0  6d 6d 61 6e 64 28 22 48  4d 33 22 29 0d 06 4a 14  |mmand("HM3")..J.|
000011d0  20 f2 63 6f 6d 6d 61 6e  64 28 22 46 4d 32 22 29  | .command("FM2")|
000011e0  0d 06 54 14 20 f2 63 6f  6d 6d 61 6e 64 28 22 42  |..T. .command("B|
000011f0  4d 33 22 29 0d 06 5e 1e  20 f2 63 6f 6d 6d 61 6e  |M3")..^. .comman|
00001200  64 28 22 44 46 2f 2f 50  41 47 45 20 7c 50 2f 2f  |d("DF//PAGE |P//|
00001210  22 29 0d 06 68 34 20 74  73 25 3d 36 3a 62 73 25  |")..h4 ts%=6:bs%|
00001220  3d 36 3a 66 70 25 3d 33  3a 68 70 25 3d 33 3a 74  |=6:fp%=3:hp%=3:t|
00001230  6d 25 3d 32 3a 68 6d 25  3d 33 3a 66 6d 25 3d 32  |m%=2:hm%=3:fm%=2|
00001240  3a 62 6d 25 3d 33 0d 06  72 0d 20 d5 23 44 25 2c  |:bm%=3..r. .#D%,|
00001250  26 38 31 0d 06 7c 1c 20  e3 20 49 25 3d 31 20 b8  |&81..|. . I%=1 .|
00001260  20 37 31 3a d5 23 44 25  2c 97 22 2e 22 3a ed 0d  | 71:.#D%,.".":..|
00001270  06 86 16 20 d5 23 44 25  2c 97 22 3c 22 3a d5 23  |... .#D%,."<":.#|
00001280  44 25 2c 31 33 0d 06 90  06 20 e1 0d 06 9a 06 20  |D%,13.... ..... |
00001290  3a 0d 06 a4 0e 20 dd f2  76 6c 61 79 6f 75 74 0d  |:.... ..vlayout.|
000012a0  06 ae 15 20 e7 20 4e 25  3d 31 20 8c 20 d5 23 44  |... . N%=1 . .#D|
000012b0  25 2c 31 33 0d 06 b8 18  20 e7 20 68 70 25 3e 74  |%,13.... . hp%>t|
000012c0  73 25 20 8c 20 68 70 25  3d 74 73 25 0d 06 c2 18  |s% . hp%=ts%....|
000012d0  20 e7 20 66 70 25 3e 62  73 25 20 8c 20 66 70 25  | . fp%>bs% . fp%|
000012e0  3d 62 73 25 0d 06 cc 33  20 e7 20 68 70 25 2d 31  |=bs%...3 . hp%-1|
000012f0  3c 3e 74 6d 25 20 8c 20  74 6d 25 3d 68 70 25 2d  |<>tm% . tm%=hp%-|
00001300  31 3a f2 63 6f 6d 6d 61  6e 64 28 22 54 4d 22 2b  |1:.command("TM"+|
00001310  c3 28 74 6d 25 29 29 0d  06 d6 37 20 e7 20 74 73  |.(tm%))...7 . ts|
00001320  25 2d 68 70 25 3c 3e 68  6d 25 20 8c 20 68 6d 25  |%-hp%<>hm% . hm%|
00001330  3d 74 73 25 2d 68 70 25  3a f2 63 6f 6d 6d 61 6e  |=ts%-hp%:.comman|
00001340  64 28 22 48 4d 22 2b c3  28 68 6d 25 29 29 0d 06  |d("HM"+.(hm%))..|
00001350  e0 33 20 e7 20 66 70 25  2d 31 3c 3e 66 6d 25 20  |.3 . fp%-1<>fm% |
00001360  8c 20 66 6d 25 3d 66 70  25 2d 31 3a f2 63 6f 6d  |. fm%=fp%-1:.com|
00001370  6d 61 6e 64 28 22 46 4d  22 2b c3 28 66 6d 25 29  |mand("FM"+.(fm%)|
00001380  29 0d 06 ea 37 20 e7 20  62 73 25 2d 66 70 25 3c  |)...7 . bs%-fp%<|
00001390  3e 62 6d 25 20 8c 20 62  6d 25 3d 62 73 25 2d 66  |>bm% . bm%=bs%-f|
000013a0  70 25 3a f2 63 6f 6d 6d  61 6e 64 28 22 42 4d 22  |p%:.command("BM"|
000013b0  2b c3 28 62 6d 25 29 29  0d 06 f4 06 20 e1 0d 06  |+.(bm%)).... ...|
000013c0  fe 06 20 3a 0d 07 08 0c  20 dd f2 65 6c 69 6e 65  |.. :.... ..eline|
000013d0  0d 07 12 1b 20 e7 20 6f  70 74 69 6f 6e 24 3d 22  |.... . option$="|
000013e0  31 22 20 8c 20 e5 20 8d  44 44 47 0d 07 1c 20 20  |1" . . .DDG...  |
000013f0  e7 20 42 25 3d 31 33 20  84 20 42 25 3d 74 61 62  |. B%=13 . B%=tab|
00001400  25 20 8c 20 d5 23 44 25  2c 31 33 0d 07 26 1c 20  |% . .#D%,13..&. |
00001410  e7 20 63 65 25 3d 31 20  8c 20 63 65 25 3d 30 3a  |. ce%=1 . ce%=0:|
00001420  d5 23 44 25 2c 32 33 0d  07 30 0d 20 d5 23 44 25  |.#D%,23..0. .#D%|
00001430  2c 26 45 45 0d 07 3a 06  20 e1 0d 07 44 1c 20 e7  |,&EE..:. ...D. .|
00001440  20 4e 25 3d 30 20 8c 20  d5 23 44 25 2c 31 33 20  | N%=0 . .#D%,13 |
00001450  8b 20 4e 25 3d 30 0d 07  4e 17 20 e7 20 75 6c 25  |. N%=0..N. . ul%|
00001460  3d 31 20 8c 20 d5 23 44  25 2c 26 31 43 0d 07 58  |=1 . .#D%,&1C..X|
00001470  17 20 e7 20 62 6f 25 3d  31 20 8c 20 d5 23 44 25  |. . bo%=1 . .#D%|
00001480  2c 26 31 44 0d 07 62 06  20 e1 0d 07 6c 06 20 3a  |,&1D..b. ...l. :|
00001490  0d 07 76 0b 20 dd f2 77  6f 72 64 0d 07 80 12 20  |..v. ..word.... |
000014a0  e7 20 a9 28 77 24 29 3d  30 20 8c 20 e1 0d 07 8a  |. .(w$)=0 . ....|
000014b0  13 20 e3 20 4a 25 3d 31  20 b8 20 a9 28 77 24 29  |. . J%=1 . .(w$)|
000014c0  0d 07 94 16 20 d5 23 44  25 2c 97 28 c1 77 24 2c  |.... .#D%,.(.w$,|
000014d0  4a 25 2c 31 29 29 0d 07  9e 06 20 ed 0d 07 a8 0a  |J%,1)).... .....|
000014e0  20 77 24 3d 22 22 0d 07  b2 06 20 e1 0d 07 bc 06  | w$="".... .....|
000014f0  20 3a 0d 07 c6 0d 20 dd  f2 69 77 68 65 61 64 0d  | :.... ..iwhead.|
00001500  07 d0 06 20 f5 0d 07 da  1b 20 e7 20 9a 23 48 25  |... ..... . .#H%|
00001510  3d 32 20 8c 20 f2 70 61  72 3a f2 63 68 65 63 6b  |=2 . .par:.check|
00001520  0d 07 e4 0b 20 fd 20 c5  23 48 25 0d 07 ee 15 20  |.... . .#H%.... |
00001530  e7 20 70 6c 25 3c 30 20  8c 20 70 6c 25 3d 36 36  |. pl%<0 . pl%=66|
00001540  0d 07 f8 14 20 e7 20 6c  73 25 3c 30 20 8c 20 6c  |.... . ls%<0 . l|
00001550  73 25 3d 31 0d 08 02 14  20 e7 20 62 73 25 3c 30  |s%=1.... . bs%<0|
00001560  20 8c 20 62 73 25 3d 36  0d 08 0c 14 20 e7 20 74  | . bs%=6.... . t|
00001570  73 25 3c 30 20 8c 20 74  73 25 3d 36 0d 08 16 14  |s%<0 . ts%=6....|
00001580  20 e7 20 68 70 25 3c 30  20 8c 20 68 70 25 3d 33  | . hp%<0 . hp%=3|
00001590  0d 08 20 14 20 e7 20 66  70 25 3c 30 20 8c 20 66  |.. . . fp%<0 . f|
000015a0  70 25 3d 33 0d 08 2a 0b  20 cf 23 48 25 3d 30 0d  |p%=3..*. .#H%=0.|
000015b0  08 34 28 20 e3 20 47 25  3d 31 20 b8 20 31 33 3a  |.4( . G%=1 . 13:|
000015c0  f3 20 41 24 3a d5 23 44  25 2c 28 31 32 38 2b 97  |. A$:.#D%,(128+.|
000015d0  28 41 24 29 29 3a ed 0d  08 3e 0b 20 d5 23 44 25  |(A$)):...>. .#D%|
000015e0  2c 31 0d 08 48 18 20 f2  7a 65 72 6f 28 32 34 29  |,1..H. .zero(24)|
000015f0  3a f2 64 61 74 61 28 32  34 29 0d 08 52 15 20 d5  |:.data(24)..R. .|
00001600  23 44 25 2c 28 68 70 25  20 81 20 6c 73 25 29 0d  |#D%,(hp% . ls%).|
00001610  08 5c 15 20 d5 23 44 25  2c 28 74 73 25 20 81 20  |.\. .#D%,(ts% . |
00001620  6c 73 25 29 0d 08 66 1b  20 d5 23 44 25 2c 28 28  |ls%)..f. .#D%,((|
00001630  70 6c 25 2d 62 73 25 29  20 81 20 6c 73 25 29 0d  |pl%-bs%) . ls%).|
00001640  08 70 1f 20 d5 23 44 25  2c 28 28 70 6c 25 2d 62  |.p. .#D%,((pl%-b|
00001650  73 25 2b 66 70 25 29 20  81 20 6c 73 25 29 0d 08  |s%+fp%) . ls%)..|
00001660  7a 19 20 d5 23 44 25 2c  28 28 70 6c 25 20 81 20  |z. .#D%,((pl% . |
00001670  6c 73 25 29 2b 31 29 0d  08 84 16 20 f2 64 61 74  |ls%)+1).... .dat|
00001680  61 28 36 29 3a d5 23 44  25 2c 70 62 25 0d 08 8e  |a(6):.#D%,pb%...|
00001690  18 20 f2 64 61 74 61 28  33 30 29 3a f2 7a 65 72  |. .data(30):.zer|
000016a0  6f 28 33 32 29 0d 08 98  2d 20 e3 20 47 25 3d 31  |o(32)...- . G%=1|
000016b0  20 b8 20 a9 28 64 65 73  74 24 29 3a d5 23 44 25  | . .(dest$):.#D%|
000016c0  2c 97 28 c1 64 65 73 74  24 2c 47 25 2c 31 29 29  |,.(.dest$,G%,1))|
000016d0  3a ed 0d 08 a2 1f 20 d5  23 44 25 2c 31 33 3a f2  |:..... .#D%,13:.|
000016e0  7a 65 72 6f 28 39 35 2d  a9 28 64 65 73 74 24 29  |zero(95-.(dest$)|
000016f0  29 0d 08 ac 24 20 e3 20  47 25 3d 31 20 b8 20 33  |)...$ . G%=1 . 3|
00001700  3a d5 23 44 25 2c 26 41  41 3a ed 3a f2 7a 65 72  |:.#D%,&AA:.:.zer|
00001710  6f 28 32 31 29 0d 08 b6  27 20 d5 23 44 25 2c 32  |o(21)...' .#D%,2|
00001720  3a d5 23 44 25 2c 26 31  42 3a d5 23 44 25 2c 26  |:.#D%,&1B:.#D%,&|
00001730  33 34 3a f2 7a 65 72 6f  28 31 32 29 0d 08 c0 27  |34:.zero(12)...'|
00001740  20 d5 23 44 25 2c 32 3a  d5 23 44 25 2c 26 31 42  | .#D%,2:.#D%,&1B|
00001750  3a d5 23 44 25 2c 26 33  35 3a f2 7a 65 72 6f 28  |:.#D%,&35:.zero(|
00001760  31 32 29 0d 08 ca 2e 20  d5 23 44 25 2c 33 3a d5  |12).... .#D%,3:.|
00001770  23 44 25 2c 26 31 42 3a  d5 23 44 25 2c 26 32 44  |#D%,&1B:.#D%,&2D|
00001780  3a d5 23 44 25 2c 31 3a  f2 7a 65 72 6f 28 31 31  |:.#D%,1:.zero(11|
00001790  29 0d 08 d4 27 20 d5 23  44 25 2c 33 3a d5 23 44  |)...' .#D%,3:.#D|
000017a0  25 2c 26 31 42 3a d5 23  44 25 2c 26 32 44 3a f2  |%,&1B:.#D%,&2D:.|
000017b0  7a 65 72 6f 28 34 32 29  0d 08 de 27 20 d5 23 44  |zero(42)...' .#D|
000017c0  25 2c 32 3a d5 23 44 25  2c 26 31 42 3a d5 23 44  |%,2:.#D%,&1B:.#D|
000017d0  25 2c 26 34 35 3a f2 7a  65 72 6f 28 31 32 29 0d  |%,&45:.zero(12).|
000017e0  08 e8 27 20 d5 23 44 25  2c 32 3a d5 23 44 25 2c  |..' .#D%,2:.#D%,|
000017f0  26 31 42 3a d5 23 44 25  2c 26 34 36 3a f2 7a 65  |&1B:.#D%,&46:.ze|
00001800  72 6f 28 31 32 29 0d 08  f2 14 20 d5 23 44 25 2c  |ro(12).... .#D%,|
00001810  31 3a d5 23 44 25 2c 26  32 33 0d 08 fc 18 20 f2  |1:.#D%,&23.... .|
00001820  7a 65 72 6f 28 31 34 29  3a f2 64 61 74 61 28 31  |zero(14):.data(1|
00001830  32 29 0d 09 06 19 20 d5  23 44 25 2c 28 28 68 70  |2).... .#D%,((hp|
00001840  25 2b 31 29 20 81 20 6c  73 25 29 0d 09 10 15 20  |%+1) . ls%).... |
00001850  d5 23 44 25 2c 28 74 73  25 20 81 20 6c 73 25 29  |.#D%,(ts% . ls%)|
00001860  0d 09 1a 15 20 d5 23 44  25 2c 28 62 73 25 20 81  |.... .#D%,(bs% .|
00001870  20 6c 73 25 29 0d 09 24  21 20 d5 23 44 25 2c 28  | ls%)..$! .#D%,(|
00001880  28 70 6c 25 2d 62 73 25  2b 66 70 25 2d 31 29 20  |(pl%-bs%+fp%-1) |
00001890  81 20 6c 73 25 29 0d 09  2e 1c 20 d5 23 44 25 2c  |. ls%).... .#D%,|
000018a0  28 70 6c 25 20 81 20 6c  73 25 29 3a d5 23 44 25  |(pl% . ls%):.#D%|
000018b0  2c 31 0d 09 38 15 20 d5  23 44 25 2c 6c 73 25 3a  |,1..8. .#D%,ls%:|
000018c0  d5 23 44 25 2c 31 30 0d  09 42 21 20 f2 7a 65 72  |.#D%,10..B! .zer|
000018d0  6f 28 33 37 29 3a f2 64  61 74 61 28 37 29 3a f2  |o(37):.data(7):.|
000018e0  7a 65 72 6f 28 35 36 29  0d 09 4c 1d 20 d5 23 44  |zero(56)..L. .#D|
000018f0  25 2c 26 45 43 3a d5 23  44 25 2c 26 46 46 3a d5  |%,&EC:.#D%,&FF:.|
00001900  23 44 25 2c 32 0d 09 56  19 20 f2 7a 65 72 6f 28  |#D%,2..V. .zero(|
00001910  32 35 33 29 3a f2 64 61  74 61 28 35 35 29 0d 09  |253):.data(55)..|
00001920  60 06 20 e1 0d 09 6a 06  20 3a 0d 09 74 11 20 dd  |`. ...j. :..t. .|
00001930  f2 7a 65 72 6f 28 6e 75  6d 25 29 0d 09 7e 1b 20  |.zero(num%)..~. |
00001940  e3 20 49 25 3d 31 20 b8  20 6e 75 6d 25 3a d5 23  |. I%=1 . num%:.#|
00001950  44 25 2c 30 3a ed 0d 09  88 06 20 e1 0d 09 92 06  |D%,0:..... .....|
00001960  20 3a 0d 09 9c 11 20 dd  f2 64 61 74 61 28 6e 75  | :.... ..data(nu|
00001970  6d 25 29 0d 09 a6 21 20  e3 20 49 25 3d 31 20 b8  |m%)...! . I%=1 .|
00001980  20 6e 75 6d 25 3a f3 20  41 25 3a d5 23 44 25 2c  | num%:. A%:.#D%,|
00001990  41 25 3a ed 0d 09 b0 06  20 e1 0d 09 ba 06 20 3a  |A%:..... ..... :|
000019a0  0d 09 c4 0c 20 dd f2 63  68 65 63 6b 0d 09 ce 29  |.... ..check...)|
000019b0  20 e7 20 63 6f 64 65 24  3d 22 54 53 22 20 80 20  | . code$="TS" . |
000019c0  74 73 25 3c 30 20 8c 20  74 73 25 3d bb 28 70 61  |ts%<0 . ts%=.(pa|
000019d0  72 24 29 3a e1 0d 09 d8  29 20 e7 20 63 6f 64 65  |r$):....) . code|
000019e0  24 3d 22 42 53 22 20 80  20 62 73 25 3c 30 20 8c  |$="BS" . bs%<0 .|
000019f0  20 62 73 25 3d bb 28 70  61 72 24 29 3a e1 0d 09  | bs%=.(par$):...|
00001a00  e2 29 20 e7 20 63 6f 64  65 24 3d 22 48 50 22 20  |.) . code$="HP" |
00001a10  80 20 68 70 25 3c 30 20  8c 20 68 70 25 3d bb 28  |. hp%<0 . hp%=.(|
00001a20  70 61 72 24 29 3a e1 0d  09 ec 29 20 e7 20 63 6f  |par$):....) . co|
00001a30  64 65 24 3d 22 46 50 22  20 80 20 66 70 25 3c 30  |de$="FP" . fp%<0|
00001a40  20 8c 20 66 70 25 3d bb  28 70 61 72 24 29 3a e1  | . fp%=.(par$):.|
00001a50  0d 09 f6 29 20 e7 20 63  6f 64 65 24 3d 22 4c 53  |...) . code$="LS|
00001a60  22 20 80 20 6c 73 25 3c  30 20 8c 20 6c 73 25 3d  |" . ls%<0 . ls%=|
00001a70  bb 28 70 61 72 24 29 3a  e1 0d 0a 00 29 20 e7 20  |.(par$):....) . |
00001a80  63 6f 64 65 24 3d 22 50  4c 22 20 80 20 70 6c 25  |code$="PL" . pl%|
00001a90  3c 30 20 8c 20 70 6c 25  3d bb 28 70 61 72 24 29  |<0 . pl%=.(par$)|
00001aa0  3a e1 0d 0a 0a 1a 20 e7  20 63 6f 64 65 24 3d 22  |:..... . code$="|
00001ab0  45 50 22 20 8c 20 70 62  25 3d 31 36 0d 0a 14 06  |EP" . pb%=16....|
00001ac0  20 e1 0d 0a 1e 06 20 3a  0d 0a 28 0d 20 dd f2 69  | ..... :..(. ..i|
00001ad0  65 6d 62 65 64 0d 0a 32  1d 20 e7 20 63 6f 64 65  |embed..2. . code|
00001ae0  24 3d 22 44 45 22 20 8c  20 d5 23 44 25 2c 31 39  |$="DE" . .#D%,19|
00001af0  3a e1 0d 0a 3c 1d 20 e7  20 63 6f 64 65 24 3d 22  |:...<. . code$="|
00001b00  55 45 22 20 8c 20 d5 23  44 25 2c 32 30 3a e1 0d  |UE" . .#D%,20:..|
00001b10  0a 46 18 20 e7 20 6f 70  74 24 3d 22 32 22 20 8c  |.F. . opt$="2" .|
00001b20  20 e5 20 8d 44 64 4a 0d  0a 50 1d 20 e7 20 63 6f  | . .DdJ..P. . co|
00001b30  64 65 24 3d 22 44 53 22  20 8c 20 d5 23 44 25 2c  |de$="DS" . .#D%,|
00001b40  31 31 3a e1 0d 0a 5a 26  20 e7 20 63 6f 64 65 24  |11:...Z& . code$|
00001b50  3d 22 55 53 22 20 8c 20  d5 23 44 25 2c 31 32 3a  |="US" . .#D%,12:|
00001b60  e1 20 8b 20 e5 20 8d 74  60 4a 0d 0a 64 1b 20 e7  |. . . .t`J..d. .|
00001b70  20 63 6f 64 65 24 3c 3e  22 44 53 22 20 8c 20 e5  | code$<>"DS" . .|
00001b80  20 8d 44 78 4a 0d 0a 6e  28 20 e7 20 bb 28 70 61  | .DxJ..n( . .(pa|
00001b90  72 24 29 3d 30 20 8c 20  d5 23 44 25 2c 31 39 3a  |r$)=0 . .#D%,19:|
00001ba0  e1 20 8b 20 d5 23 44 25  2c 31 31 3a e1 0d 0a 78  |. . .#D%,11:...x|
00001bb0  1b 20 e7 20 63 6f 64 65  24 3c 3e 22 55 4c 22 20  |. . code$<>"UL" |
00001bc0  8c 20 e5 20 8d 74 4c 4a  0d 0a 82 28 20 e7 20 bb  |. . .tLJ...( . .|
00001bd0  28 70 61 72 24 29 3d 30  20 8c 20 d5 23 44 25 2c  |(par$)=0 . .#D%,|
00001be0  32 30 3a e1 20 8b 20 d5  23 44 25 2c 31 32 3a e1  |20:. . .#D%,12:.|
00001bf0  0d 0a 8c 1b 20 e7 20 63  6f 64 65 24 3c 3e 22 49  |.... . code$<>"I|
00001c00  54 22 20 8c 20 e5 20 8d  74 60 4a 0d 0a 96 28 20  |T" . . .t`J...( |
00001c10  e7 20 bb 28 70 61 72 24  29 3d 30 20 8c 20 d5 23  |. .(par$)=0 . .#|
00001c20  44 25 2c 32 31 3a e1 20  8b 20 d5 23 44 25 2c 31  |D%,21:. . .#D%,1|
00001c30  34 3a e1 0d 0a a0 23 20  e7 20 63 6f 64 65 24 3d  |4:....# . code$=|
00001c40  22 43 45 22 20 8c 20 d5  23 44 25 2c 31 36 3a 63  |"CE" . .#D%,16:c|
00001c50  65 25 3d 31 3a e1 0d 0a  aa 1c 20 e7 20 63 6f 64  |e%=1:..... . cod|
00001c60  65 24 3d 4a 4f 24 20 8c  20 d5 23 44 25 2c 31 38  |e$=JO$ . .#D%,18|
00001c70  3a e1 0d 0a b4 1c 20 e7  20 63 6f 64 65 24 3d 4e  |:..... . code$=N|
00001c80  4a 24 20 8c 20 d5 23 44  25 2c 32 35 3a e1 0d 0a  |J$ . .#D%,25:...|
00001c90  be 1c 20 e7 20 63 6f 64  65 24 3d 22 50 50 22 20  |.. . code$="PP" |
00001ca0  8c 20 d5 23 44 25 2c 33  3a e1 0d 0a c8 2c 20 e7  |. .#D%,3:...., .|
00001cb0  20 63 6f 64 65 24 3d 22  42 50 22 20 8c 20 d5 23  | code$="BP" . .#|
00001cc0  44 25 2c 31 3a d5 23 44  25 2c 30 3a d5 23 44 25  |D%,1:.#D%,0:.#D%|
00001cd0  2c 26 38 37 3a e1 0d 0a  d2 3d 20 e7 20 63 6f 64  |,&87:....= . cod|
00001ce0  65 24 3d 22 43 50 22 20  8c 20 d5 23 44 25 2c 32  |e$="CP" . .#D%,2|
00001cf0  3a d5 23 44 25 2c 30 3a  d5 23 44 25 2c 28 bb 28  |:.#D%,0:.#D%,(.(|
00001d00  70 61 72 24 29 2d 31 29  3a d5 23 44 25 2c 26 38  |par$)-1):.#D%,&8|
00001d10  37 3a e1 0d 0a dc 29 20  e7 20 63 6f 64 65 24 3d  |7:....) . code$=|
00001d20  22 4c 4c 22 20 8c 20 72  6d 25 3d bb 28 70 61 72  |"LL" . rm%=.(par|
00001d30  24 29 3a f2 69 72 75 6c  65 72 3a e1 0d 0a e6 29  |$):.iruler:....)|
00001d40  20 e7 20 63 6f 64 65 24  3d 22 4c 4d 22 20 8c 20  | . code$="LM" . |
00001d50  6c 6d 25 3d bb 28 70 61  72 24 29 3a f2 69 72 75  |lm%=.(par$):.iru|
00001d60  6c 65 72 3a e1 0d 0a f0  29 20 e7 20 63 6f 64 65  |ler:....) . code|
00001d70  24 3d 22 49 4e 22 20 8c  20 69 6e 25 3d bb 28 70  |$="IN" . in%=.(p|
00001d80  61 72 24 29 3a f2 69 72  75 6c 65 72 3a e1 0d 0a  |ar$):.iruler:...|
00001d90  fa 1b 20 e7 20 63 6f 64  65 24 3d 22 44 54 22 20  |.. . code$="DT" |
00001da0  8c 20 f2 69 72 75 6c 65  72 0d 0b 04 47 20 e7 20  |. .iruler...G . |
00001db0  63 6f 64 65 24 3d 22 54  49 22 20 8c 20 d5 23 44  |code$="TI" . .#D|
00001dc0  25 2c 31 33 3a e3 20 49  25 3d 31 20 b8 20 bb 28  |%,13:. I%=1 . .(|
00001dd0  70 61 72 24 29 3a d5 23  44 25 2c 33 32 3a ed 3a  |par$):.#D%,32:.:|
00001de0  47 25 3d 69 6e 25 2b bb  28 70 61 72 24 29 3a e1  |G%=in%+.(par$):.|
00001df0  0d 0b 0e 37 20 e7 20 63  6f 64 65 24 3d 22 53 50  |...7 . code$="SP|
00001e00  22 20 8c 20 e3 20 49 25  3d 30 20 b8 20 bb 28 70  |" . . I%=0 . .(p|
00001e10  61 72 24 29 3a d5 23 44  25 2c 31 33 3a ed 3a 47  |ar$):.#D%,13:.:G|
00001e20  25 3d 69 6e 25 3a e1 0d  0b 18 06 20 e1 0d 0b 22  |%=in%:..... ..."|
00001e30  06 20 3a 0d 0b 2c 3a 20  dc 20 22 43 22 2c 22 68  |. :..,: . "C","h|
00001e40  22 2c 22 61 22 2c 22 7a  22 2c 22 4a 22 2c 22 65  |","a","z","J","e|
00001e50  22 2c 22 7a 22 2c 22 4a  22 2c 22 69 22 2c 22 6d  |","z","J","i","m|
00001e60  22 2c 22 49 22 2c 22 61  22 2c 22 6e 22 0d 0b 36  |","I","a","n"..6|
00001e70  3e 20 dc 20 32 2c 30 2c  30 2c 26 31 39 2c 30 2c  |> . 2,0,0,&19,0,|
00001e80  31 2c 30 2c 32 2c 30 2c  32 2c 30 2c 33 2c 26 32  |1,0,2,0,2,0,3,&2|
00001e90  35 2c 33 2c 30 2c 30 2c  26 32 36 2c 33 2c 26 33  |5,3,0,0,&26,3,&3|
00001ea0  37 2c 33 2c 30 2c 30 2c  30 2c 30 0d 0b 40 17 20  |7,3,0,0,0,0..@. |
00001eb0  dc 20 31 34 2c 33 32 2c  38 30 2c 34 2c 31 32 2c  |. 14,32,80,4,12,|
00001ec0  36 34 0d 0b 4a 56 20 dc  20 30 2c 37 2c 30 2c 26  |64..JV . 0,7,0,&|
00001ed0  31 39 2c 34 2c 35 30 2c  26 43 30 2c 30 2c 38 30  |19,4,50,&C0,0,80|
00001ee0  2c 30 2c 26 35 35 2c 30  2c 26 32 31 2c 26 32 32  |,0,&55,0,&21,&22|
00001ef0  2c 30 2c 30 2c 32 2c 34  2c 30 2c 26 32 31 2c 26  |,0,0,2,4,0,&21,&|
00001f00  32 32 2c 31 2c 30 2c 32  2c 34 2c 30 2c 26 32 31  |22,1,0,2,4,0,&21|
00001f10  2c 26 32 32 2c 31 2c 30  0d 0b 54 22 20 dc 20 31  |,&22,1,0..T" . 1|
00001f20  2c 30 2c 30 2c 31 2c 31  2c 26 37 43 2c 30 2c 31  |,0,0,1,1,&7C,0,1|
00001f30  2c 32 35 35 2c 30 2c 30  2c 30 0d 0b 5e 18 20 dc  |,255,0,0,0..^. .|
00001f40  20 31 2c 30 2c 33 33 2c  33 34 2c 31 2c 30 2c 26  | 1,0,33,34,1,0,&|
00001f50  41 31 0d 0b 68 4b 20 dc  20 26 32 32 2c 26 31 32  |A1..hK . &22,&12|
00001f60  2c 30 2c 26 38 35 2c 26  38 36 2c 34 2c 26 34 41  |,0,&85,&86,4,&4A|
00001f70  2c 34 2c 26 34 30 2c 30  2c 26 38 37 2c 38 30 2c  |,4,&40,0,&87,80,|
00001f80  36 35 2c 37 31 2c 36 39  2c 33 32 2c 33 2c 32 35  |65,71,69,32,3,25|
00001f90  35 2c 32 35 35 2c 26 38  35 2c 26 38 36 0d 0b 72  |5,255,&85,&86..r|
00001fa0  3f 20 dc 20 30 2c 37 34  2c 30 2c 30 2c 30 2c 37  |? . 0,74,0,0,0,7|
00001fb0  2c 31 35 2c 32 33 2c 33  31 2c 33 39 2c 34 37 2c  |,15,23,31,39,47,|
00001fc0  35 35 2c 36 33 2c 37 31  2c 26 38 37 2c 32 35 35  |55,63,71,&87,255|
00001fd0  2c 32 35 35 2c 26 38 35  2c 26 38 36 0d 0b 7c 30  |,255,&85,&86..|0|
00001fe0  20 dc 20 30 2c 36 39 2c  30 2c 30 2c 30 2c 37 32  | . 0,69,0,0,0,72|
00001ff0  2c 37 34 2c 37 36 2c 37  38 2c 38 30 2c 38 32 2c  |,74,76,78,80,82,|
00002000  38 34 2c 38 36 2c 38 38  2c 26 38 37 0d ff        |84,86,88,&87..|
0000200e

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .