00000000: 01 08 23 08 00 00 8F 20 43 4F 50 59 52 49 47 48 |..#.... COPYRIGH|
00000010: 54 20 31 39 38 37 20 4D 41 52 54 49 4E 20 47 52 |T 1987 MARTIN GR|
00000020: 49 45 42 00 3B 08 0A 00 97 20 35 33 32 38 30 2C |IEB.;.... 53280,|
00000030: 36 3A 97 35 33 32 38 31 2C 31 35 00 63 08 14 00 |6:.53281,15.c...|
00000040: 8D 20 37 30 30 20 3A 8F 20 4D 41 53 43 48 49 4E |. 700 :. MASCHIN|
00000050: 45 4E 52 4F 55 54 49 4E 45 4E 20 45 49 4E 4C 45 |ENROUTINEN EINLE|
00000060: 53 45 4E 00 6D 08 1E 00 89 20 32 32 30 00 81 08 |SEN.m.... 220...|
00000070: 28 00 8F 20 55 4E 54 45 52 52 4F 55 54 49 4E 45 |(.. UNTERROUTINE|
00000080: 4E 00 BC 08 32 00 84 31 2C 46 31 2C 46 24 2C 46 |N...2..1,F1,F$,F|
00000090: 32 2C 46 33 20 3A 8B 20 46 31 B2 30 20 B0 20 46 |2,F3 :. F1.0 . F|
000000A0: 31 B2 36 35 20 A7 20 8E 20 3A 8F 20 27 4E 4F 2D |1.65 . . :. 'NO-|
000000B0: 42 4C 4F 43 4B 2D 45 52 52 4F 52 27 00 D4 08 3C |BLOCK-ERROR'...<|
000000C0: 00 99 22 90 11 22 46 31 3B 46 24 3B 46 32 3B 46 |..".."F1;F$;F2;F|
000000D0: 33 20 3A 80 00 DA 08 46 00 20 00 ED 08 50 00 8B |3 :....F. ...P..|
000000E0: 20 4E 4F AA 45 4E B1 B2 43 20 A7 20 8E 00 0D 09 | NO.EN..C . ....|
000000F0: 5A 00 9E 20 35 33 30 35 36 2C 30 2C 32 2C 32 2C |Z.. 53056,0,2,2,|
00000100: 32 33 2C 31 38 3A 4E 4F B2 4E 4F AA 31 00 41 09 |23,18:NO.NO.1.A.|
00000110: 64 00 97 20 32 31 34 2C 32 33 20 3A 97 20 32 31 |d.. 214,23 :. 21|
00000120: 31 2C 32 20 3A 9E 20 43 53 20 3A 99 20 4E 41 24 |1,2 :. CS :. NA$|
00000130: 28 5A 55 28 4E 4F AA 45 4E AB 31 29 29 3B 20 3A |(ZU(NO.EN.1)); :|
00000140: 8E 00 50 09 6E 00 8B 20 4E 4F B2 30 20 A7 20 8E |..P.n.. NO.0 . .|
00000150: 00 71 09 78 00 9E 20 35 33 30 35 36 2C 31 2C 32 |.q.x.. 53056,1,2|
00000160: 2C 32 2C 32 33 2C 31 38 20 3A 4E 4F B2 4E 4F AB |,2,23,18 :NO.NO.|
00000170: 31 00 A0 09 82 00 97 20 32 31 34 2C 32 20 3A 97 |1...... 214,2 :.|
00000180: 20 32 31 31 2C 32 20 3A 9E 20 43 53 20 3A 99 20 | 211,2 :. CS :. |
00000190: 4E 41 24 28 5A 55 28 4E 4F AA 31 29 29 20 3A 8E |NA$(ZU(NO.1)) :.|
000001A0: 00 A6 09 8C 00 20 00 AC 09 96 00 99 00 DC 09 A0 |..... ..........|
000001B0: 00 99 20 22 20 C4 49 53 4B 45 54 54 45 20 45 49 |.. " .ISKETTE EI|
000001C0: 4E 4C 45 47 45 4E 20 55 4E 44 20 D4 41 53 54 45 |NLEGEN UND .ASTE|
000001D0: 20 44 52 55 45 43 4B 45 4E 20 21 22 00 EE 09 AA | DRUECKEN !"....|
000001E0: 00 92 20 31 39 38 2C 31 20 3A A1 20 54 24 00 F4 |.. 198,1 :. T$..|
000001F0: 09 B4 00 8E 00 FA 09 BE 00 20 00 1B 0A C8 00 8F |......... ......|
00000200: 20 42 45 47 49 4E 4E 20 44 45 53 20 48 41 55 50 | BEGINN DES HAUP|
00000210: 54 50 52 4F 47 52 41 4D 4D 45 53 00 21 0A D2 00 |TPROGRAMMES.!...|
00000220: 20 00 50 0A DC 00 99 20 22 93 11 20 20 20 20 20 | .P.... ".. |
00000230: 20 20 20 20 20 20 20 20 C4 49 52 45 43 54 4F 52 | .IRECTOR|
00000240: 59 20 20 4C 41 44 45 4E 22 20 3A 8D 20 31 35 30 |Y LADEN" :. 150|
00000250: 00 96 0A F0 00 9F 20 31 2C 38 2C 31 35 2C 22 49 |...... 1,8,15,"I|
00000260: 22 20 3A 86 20 41 4E 24 28 32 30 30 29 2C 4E 41 |" :. AN$(200),NA|
00000270: 24 28 32 30 30 29 2C 52 45 24 28 32 30 30 29 2C |$(200),RE$(200),|
00000280: 5A 55 28 31 34 36 29 2C 53 4E 28 31 39 29 2C 52 |ZU(146),SN(19),R|
00000290: 4E 24 28 31 36 29 00 B6 0A FA 00 8C 20 3A 81 20 |N$(16)...... :. |
000002A0: 49 B2 31 20 A4 20 31 38 20 3A 87 20 53 4E 28 49 |I.1 . 18 :. SN(I|
000002B0: 29 20 3A 82 20 49 00 D2 0A 04 01 8D 20 35 30 20 |) :. I...... 50 |
000002C0: 3A 9F 20 32 2C 38 2C 32 2C 22 23 22 20 3A 8D 20 |:. 2,8,2,"#" :. |
000002D0: 35 30 00 0B 0B 0E 01 53 B2 31 20 3A 43 B2 31 20 |50.....S.1 :C.1 |
000002E0: 3A 4E 24 B2 C7 28 30 29 20 3A 4E 4E 24 B2 4E 24 |:N$..(0) :NN$.N$|
000002F0: AA 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 AA |.N$.N$.N$.N$.N$.|
00000300: 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 00 2E 0B 18 01 |N$.N$.N$.N$.....|
00000310: 4E 55 24 B2 4E 4E 24 AA 4E 4E 24 AA 4E 4E 24 20 |NU$.NN$.NN$.NN$ |
00000320: 3A 52 45 24 28 30 29 B2 4E 4E 24 AA 4E 24 00 4B |:RE$(0).NN$.N$.K|
00000330: 0B 22 01 41 4E 24 28 30 29 B2 C7 28 31 32 38 29 |.".AN$(0)..(128)|
00000340: AA C7 28 31 38 29 AA C7 28 31 29 00 51 0B 2C 01 |..(18)..(1).Q.,.|
00000350: 20 00 6F 0B 36 01 8F 20 45 49 4E 4C 45 53 45 4E | .o.6.. EINLESEN|
00000360: 20 44 45 53 20 44 49 52 45 43 54 4F 52 59 53 00 | DES DIRECTORYS.|
00000370: 75 0B 40 01 20 00 97 0B 4A 01 49 44 B2 31 20 3A |u.@. ...J.ID.1 :|
00000380: 8F 20 44 49 52 45 43 54 4F 52 59 20 49 4D 20 53 |. DIRECTORY IM S|
00000390: 50 45 49 43 48 45 52 00 AC 0B 54 01 98 20 31 2C |PEICHER...T.. 1,|
000003A0: 22 55 31 20 32 20 30 20 31 38 22 53 00 CD 0B 5E |"U1 2 0 18"S...^|
000003B0: 01 A1 23 20 32 2C 54 24 20 3A A1 23 20 32 2C 53 |..# 2,T$ :.# 2,S|
000003C0: 24 20 3A 53 B2 C6 28 53 24 AA 4E 24 29 00 F1 0B |$ :S..(S$.N$)...|
000003D0: 68 01 81 20 42 50 B2 30 20 A4 20 37 20 3A 98 20 |h.. BP.0 . 7 :. |
000003E0: 31 2C 22 42 2D 50 20 32 22 3B 42 50 AC 33 32 AA |1,"B-P 2";BP.32.|
000003F0: 32 00 28 0C 72 01 9E 20 35 32 39 39 32 2C 32 2C |2.(.r.. 52992,2,|
00000400: 33 2C 58 24 20 3A 41 4E 24 28 43 29 B2 58 24 20 |3,X$ :AN$(C).X$ |
00000410: 3A 8B 20 C8 28 58 24 2C 31 29 B2 4E 24 20 A7 20 |:. .(X$,1).N$ . |
00000420: 82 20 3A 89 20 34 30 30 00 63 0C 7C 01 9E 20 35 |. :. 400.c.|.. 5|
00000430: 32 39 39 32 2C 32 2C 31 36 2C 58 24 20 3A 4E 41 |2992,2,16,X$ :NA|
00000440: 24 28 43 29 B2 58 24 20 3A 9E 20 35 32 39 39 32 |$(C).X$ :. 52992|
00000450: 2C 32 2C 31 31 2C 58 24 20 3A 52 45 24 28 43 29 |,2,11,X$ :RE$(C)|
00000460: B2 58 24 00 79 0C 86 01 5A 55 28 43 29 B2 43 20 |.X$.y...ZU(C).C |
00000470: 3A 43 B2 43 AA 31 20 3A 82 00 8C 0C 90 01 8B 20 |:C.C.1 :....... |
00000480: 54 24 B3 B1 22 22 20 A7 20 33 34 30 00 9F 0C 9A |T$.."" . 340....|
00000490: 01 A0 20 32 20 3A 97 20 36 35 30 2C 31 32 38 00 |.. 2 :. 650,128.|
000004A0: BC 0C A4 01 43 50 B2 32 3A 4E 4F B2 30 3A 4E 55 |....CP.2:NO.0:NU|
000004B0: B2 30 3A 4E 4D B2 43 3A 45 4E B2 43 00 ED 0C AE |.0:NM.C:EN.C....|
000004C0: 01 99 20 C7 28 31 33 29 A3 32 29 4E 41 24 28 4E |.. .(13).2)NA$(N|
000004D0: 55 AA 31 29 3B 3A 4E 55 B2 4E 55 AA 31 3A 8B 20 |U.1);:NU.NU.1:. |
000004E0: 4E 55 B3 45 4E AB 31 20 A7 20 34 33 30 00 11 0D |NU.EN.1 . 430...|
000004F0: B8 01 8F 20 53 43 48 52 45 49 42 45 4E 20 44 45 |... SCHREIBEN DE|
00000500: 53 20 53 4F 52 54 49 45 52 54 45 4E 20 44 49 52 |S SORTIERTEN DIR|
00000510: 2E 00 17 0D C2 01 20 00 2B 0D CC 01 56 31 B2 30 |...... .+...V1.0|
00000520: 20 3A 8F 20 5A 41 45 48 4C 45 52 00 58 0D D6 01 | :. ZAEHLER.X...|
00000530: 99 3A 99 20 22 11 20 20 20 20 20 20 20 20 20 20 |.:. ". |
00000540: 20 20 20 C4 49 52 45 43 54 4F 52 59 20 20 53 50 | .IRECTORY SP|
00000550: 45 49 43 48 45 52 4E 22 00 95 0D E0 01 9F 20 32 |EICHERN"...... 2|
00000560: 2C 38 2C 32 2C 22 23 22 3A 54 B2 31 38 20 3A 81 |,8,2,"#":T.18 :.|
00000570: 20 49 B2 30 20 A4 20 B5 28 28 43 AB 32 29 AD 38 | I.0 . .((C.2).8|
00000580: 29 3A 8B 20 38 AC 49 AA 38 20 B1 B2 43 AB 31 20 |):. 8.I.8 ..C.1 |
00000590: A7 20 54 B2 30 00 BA 0D EA 01 98 31 2C 22 42 2D |. T.0......1,"B-|
000005A0: 50 20 32 20 30 22 20 3A 98 20 32 2C C7 28 54 29 |P 2 0" :. 2,.(T)|
000005B0: C7 28 53 4E 28 49 AA 32 29 29 00 DC 0D F4 01 81 |.(SN(I.2))......|
000005C0: 20 42 50 B2 30 20 A4 20 37 3A 98 31 2C 22 42 2D | BP.0 . 7:.1,"B-|
000005D0: 50 20 32 22 3B 42 50 AC 33 32 AA 32 00 06 0E FE |P 2";BP.32.2....|
000005E0: 01 8B 20 42 50 AA 38 AC 49 AA 31 B1 B2 43 20 A7 |.. BP.8.I.1..C .|
000005F0: 20 98 20 32 2C 4E 55 24 3B 20 3A 82 20 42 50 20 | . 2,NU$; :. BP |
00000600: 3A 89 20 35 34 30 00 21 0E 08 02 8D 20 37 33 30 |:. 540.!.... 730|
00000610: 20 3A 8F 20 55 4D 4E 55 4D 4D 45 52 49 45 52 45 | :. UMNUMMERIERE|
00000620: 4E 00 45 0E 12 02 98 32 2C 41 4E 24 28 56 32 29 |N.E....2,AN$(V2)|
00000630: 4E 41 24 28 56 32 29 52 45 24 28 56 32 29 3B 20 |NA$(V2)RE$(V2); |
00000640: 3A 82 20 42 50 00 65 0E 1C 02 98 31 2C 22 55 32 |:. BP.e....1,"U2|
00000650: 20 32 20 30 20 31 38 22 53 4E 28 49 AA 31 29 20 | 2 0 18"SN(I.1) |
00000660: 3A 8D 20 35 30 00 89 0E 26 02 98 31 2C 22 42 2D |:. 50...&..1,"B-|
00000670: 41 20 30 20 31 38 22 53 4E 28 49 AA 31 29 20 3A |A 0 18"SN(I.1) :|
00000680: 8D 20 35 30 20 3A 82 20 49 00 91 0E 30 02 A0 20 |. 50 :. I...0.. |
00000690: 32 00 B8 0E 35 02 85 22 11 20 CE 4F 43 48 20 45 |2...5..". .OCH E|
000006A0: 49 4E 45 20 C4 49 53 4B 45 54 54 45 20 3F 20 4A |INE .ISKETTE ? J|
000006B0: 9D 9D 9D 22 3B 4A 41 24 00 CE 0E 36 02 8B 20 4A |...";JA$...6.. J|
000006C0: 41 24 B2 22 4A 22 20 A7 20 8A 20 32 32 30 00 D4 |A$."J" . . 220..|
000006D0: 0E 37 02 80 00 DA 0E 3A 02 20 00 FE 0E 44 02 8F |.7.....:. ...D..|
000006E0: 20 53 45 4B 54 4F 52 45 4E 20 44 45 53 20 44 49 | SEKTOREN DES DI|
000006F0: 52 45 43 54 4F 52 59 20 54 52 41 43 4B 53 00 04 |RECTORY TRACKS..|
00000700: 0F 4E 02 20 00 37 0F 58 02 83 20 31 2C 34 2C 37 |.N. .7.X.. 1,4,7|
00000710: 2C 31 30 2C 31 33 2C 31 36 2C 32 2C 35 2C 38 2C |,10,13,16,2,5,8,|
00000720: 31 31 2C 31 34 2C 31 37 2C 33 2C 36 2C 39 2C 31 |11,14,17,3,6,9,1|
00000730: 32 2C 31 35 2C 31 38 00 3D 0F 62 02 20 00 43 0F |2,15,18.=.b. .C.|
00000740: 6C 02 20 00 61 0F 76 02 8F 20 49 4E 50 55 54 20 |l. .a.v.. INPUT |
00000750: 4D 41 53 43 48 49 4E 45 4E 2D 52 4F 55 54 49 4E |MASCHINEN-ROUTIN|
00000760: 45 00 67 0F 80 02 20 00 B1 0F 8A 02 83 20 33 32 |E.g... ...... 32|
00000770: 2C 32 35 33 2C 31 37 34 2C 33 32 2C 31 35 38 2C |,253,174,32,158,|
00000780: 31 38 33 2C 33 32 2C 33 30 2C 32 32 35 2C 33 32 |183,32,30,225,32|
00000790: 2C 32 35 33 2C 31 37 34 2C 33 32 2C 31 35 38 2C |,253,174,32,158,|
000007A0: 31 38 33 2C 31 33 38 2C 37 32 2C 33 32 2C 32 35 |183,138,72,32,25|
000007B0: 33 00 F8 0F 94 02 83 20 31 37 34 2C 33 32 2C 31 |3...... 174,32,1|
000007C0: 33 39 2C 31 37 36 2C 31 33 33 2C 37 33 2C 31 33 |39,176,133,73,13|
000007D0: 32 2C 37 34 2C 33 32 2C 31 36 33 2C 31 38 32 2C |2,74,32,163,182,|
000007E0: 31 30 34 2C 33 32 2C 31 31 37 2C 31 38 30 2C 31 |104,32,117,180,1|
000007F0: 36 30 2C 32 2C 31 38 35 00 40 10 9E 02 83 20 39 |60,2,185.@.... 9|
00000800: 37 2C 30 2C 31 34 35 2C 37 33 2C 31 33 36 2C 31 |7,0,145,73,136,1|
00000810: 36 2C 32 34 38 2C 32 30 30 2C 33 32 2C 31 38 2C |6,248,200,32,18,|
00000820: 32 32 35 2C 31 34 35 2C 39 38 2C 32 30 30 2C 31 |225,145,98,200,1|
00000830: 39 36 2C 39 37 2C 32 30 38 2C 32 34 36 2C 33 32 |96,97,208,246,32|
00000840: 00 5B 10 A8 02 83 20 32 30 34 2C 32 35 35 2C 39 |.[.... 204,255,9|
00000850: 36 2C 30 2C 30 2C 30 2C 30 2C 30 00 61 10 B2 02 |6,0,0,0,0,0.a...|
00000860: 20 00 78 10 BC 02 81 20 49 B2 31 20 A4 20 31 38 | .x.... I.1 . 18|
00000870: 20 3A 87 20 41 20 3A 82 00 9D 10 C6 02 81 20 49 | :. A :....... I|
00000880: B2 35 32 39 39 32 20 A4 20 35 33 30 35 35 20 3A |.52992 . 53055 :|
00000890: 87 20 53 20 3A 97 20 49 2C 53 20 3A 82 00 A3 10 |. S :. I,S :....|
000008A0: D0 02 8E 00 B7 10 DA 02 8F 20 4E 41 4D 45 4E 20 |......... NAMEN |
000008B0: 41 45 4E 44 45 52 4E 00 CB 10 E4 02 56 32 B2 5A |AENDERN.....V2.Z|
000008C0: 55 28 42 50 AA 38 AC 49 AA 31 29 00 E7 10 EE 02 |U(BP.8.I.1).....|
000008D0: 8B 20 C8 28 4E 41 24 28 56 32 29 2C 31 29 B3 B1 |. .(NA$(V2),1)..|
000008E0: 22 BF 22 20 A7 20 8E 00 F3 10 F8 02 56 31 B2 56 |"." . ......V1.V|
000008F0: 31 AA 31 00 05 11 02 03 56 33 B2 C3 28 4E 41 24 |1.1.....V3..(NA$|
00000900: 28 56 32 29 29 00 1D 11 0C 03 56 31 24 B2 22 BF |(V2)).....V1$.".|
00000910: 30 22 AA C9 28 C4 28 56 31 29 2C 31 29 00 3D 11 |0"..(.(V1),1).=.|
00000920: 16 03 8B 20 56 31 B1 39 20 A7 20 56 31 24 B2 22 |... V1.9 . V1$."|
00000930: BF 22 AA C9 28 C4 28 56 31 29 2C 32 29 00 5D 11 |."..(.(V1),2).].|
00000940: 20 03 4E 41 24 28 56 32 29 B2 56 31 24 AA C9 28 | .NA$(V2).V1$..(|
00000950: 4E 41 24 28 56 32 29 2C 56 33 AB 33 29 00 63 11 |NA$(V2),V3.3).c.|
00000960: 2A 03 8E 00 00 00 |*..... |
..#.... COPYRIGHT 1987 MARTIN GRIEB.;...
. 53280,6:.53281,15.C.... 700 :. MASCHIN
ENROUTINEN EINLESEN.M.... 220...(.. UNTE
RROUTINEN...2..1,F1,F$,F2,F3 :. F1.0 . F
1.65 . . :. 'NO-BLOCK-ERROR'.T.<..".."F1
;F$;F2;F3 :..Z.F. ...P.. NO.EN..C . ....
Z.. 53056,0,2,2,23,18:NO.NO.1.A.D.. 214,
23 :. 211,2 :. CS :. NA$(ZU(NO.EN.1)); :
..P.N.. NO.0 . ..Q.X.. 53056,1,2,2,23,18
:NO.NO.1. .... 214,2 :. 211,2 :. CS :.
NA$(ZU(NO.1)) :...... ......... .. " DIS
KETTE EINLEGEN UND TASTE DRUECKEN !"....
.. 198,1 :. T$........... ...H.. BEGINN
DES HAUPTPROGRAMMES.!.R. .P.... "..
DIRECTORY LADEN" :. 150...... 1
,8,15,"I" :. AN$(200),NA$(200),RE$(200),
ZU(146),SN(19),RN$(16)...... :. I.1 . 18
:. SN(I) :. I.R.... 50 :. 2,8,2,"#" :.
50.....S.1 :C.1 :N$.G(0) :NN$.N$.N$.N$.N
$.N$.N$.N$.N$.N$.N$.....NU$.NN$.NN$.NN$
:RE$(0).NN$.N$.K.".AN$(0).G(128).G(18).G
(1).Q.,. .O.6.. EINLESEN DES DIRECTORYS.
U.@. ...J.ID.1 :. DIRECTORY IM SPEICHER.
..T.. 1,"U1 2 0 18"S.M.^..# 2,T$ :.# 2,S
$ :S.F(S$.N$)...H.. BP.0 . 7 :. 1,"B-P 2
";BP.32.2.(.R.. 52992,2,3,X$ :AN$(C).X$
:. H(X$,1).N$ . . :. 400.C.|.. 52992,2,1
6,X$ :NA$(C).X$ :. 52992,2,11,X$ :RE$(C)
.X$.Y...ZU(C).C :C.C.1 :....... T$.."" .
340..... 2 :. 650,128.....CP.2:NO.0:NU
.0:NM.C:EN.C...... G(13).2)NA$(NU.1);:NU
.NU.1:. NU.EN.1 . 430...... SCHREIBEN DE
S SORTIERTEN DIR....B. .+.L.V1.0 :. ZAEH
LER.X.V..:. ". DIRECTORY SP
EICHERN"...... 2,8,2,"#":T.18 :. I.0 . .
((C.2).8):. 8.I.8 ..C.1 . T.0......1,"B-
P 2 0" :. 2,G(T)G(SN(I.2))...... BP.0 .
7:.1,"B-P 2";BP.32.2...... BP.8.I.1..C .
. 2,NU$; :. BP :. 540.!.... 730 :. UMNU
MMERIEREN.E....2,AN$(V2)NA$(V2)RE$(V2);
:. BP.E....1,"U2 2 0 18"SN(I.1) :. 50...
&..1,"B-A 0 18"SN(I.1) :. 50 :. I...0.
2...5..". NOCH EINE DISKETTE ? J...";JA$
.N.6.. JA$."J" . . 220.T.7...Z.:. ...D..
SEKTOREN DES DIRECTORY TRACKS...N. .7.X
.. 1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,1
2,15,18.=.B. .C.L. .A.V.. INPUT MASCHINE
N-ROUTINE.G... ...... 32,253,174,32,158,
183,32,30,225,32,253,174,32,158,183,138,
72,32,253...... 174,32,139,176,133,73,13
2,74,32,163,182,104,32,117,180,160,2,185
.@.... 97,0,145,73,136,16,248,200,32,18,
225,145,98,200,196,97,208,246,32.[.... 2
04,255,96,0,0,0,0,0.A... .X.... I.1 . 18
:. A :....F.. I.52992 . 53055 :. S :. I
,S :....P.....Z.. NAMEN AENDERN.K...V2.Z
U(BP.8.I.1)...... H(NA$(V2),1).."." . ..
....V1.V1.1.....V3.C(NA$(V2)).....V1$.".
0".I(D(V1),1).=.... V1.9 . V1$.".".I(D(V
1),2).]. .NA$(V2).V1$.I(NA$(V2),V3.3).C.
*.....