00000000: 01 04 0A 04 64 00 89 31 32 30 00 22 04 6E 00 99 |....d..120.".n..|
00000010: 22 13 13 93 0E 11 11 20 20 22 3B 3A 48 34 B2 30 |"...... ";:H4.0|
00000020: 3A 8E 00 56 04 78 00 8D 31 31 30 3A 9F 31 35 2C |:..V.x..110:.15,|
00000030: 38 2C 31 35 3A 98 31 35 2C 22 4D 2D 52 22 C7 28 |8,15:.15,"M-R".(|
00000040: 32 35 35 29 C7 28 32 35 35 29 3A A1 23 31 35 2C |255).(255):.#15,|
00000050: 51 24 3A A0 31 35 00 9A 04 82 00 99 22 11 11 11 |Q$:.15......"...|
00000060: 49 4E 53 45 52 54 20 4E 45 57 20 44 49 53 43 20 |INSERT NEW DISC |
00000070: 49 4E 20 44 52 49 56 45 20 30 20 22 3A 99 22 11 |IN DRIVE 0 ":.".|
00000080: 20 20 20 20 20 41 4E 44 20 48 49 54 20 5B 12 20 | AND HIT [. |
00000090: 52 45 54 55 52 4E 20 92 5D 22 00 E9 04 8C 00 86 |RETURN .]"......|
000000A0: 54 24 28 34 29 2C 43 53 24 28 39 35 29 3A 54 24 |T$(4),CS$(95):T$|
000000B0: 28 30 29 B2 22 2A 2A 2A 22 3A 54 24 28 31 29 B2 |(0)."***":T$(1).|
000000C0: 22 53 45 51 22 3A 54 24 28 32 29 B2 22 50 52 47 |"SEQ":T$(2)."PRG|
000000D0: 22 3A 54 24 28 33 29 B2 22 55 53 52 22 3A 54 24 |":T$(3)."USR":T$|
000000E0: 28 34 29 B2 22 52 45 4C 22 00 FC 04 96 00 A1 41 |(4)."REL"......A|
000000F0: 24 3A 8B 41 24 B2 22 22 A7 31 35 30 00 27 05 A0 |$:.A$."".150.'..|
00000100: 00 8D 31 31 30 3A 48 57 B2 31 3A 8B C6 28 51 24 |..110:HW.1:..(Q$|
00000110: 29 AF 31 36 A7 48 57 B2 33 3A 8B C6 28 51 24 29 |).16.HW.3:..(Q$)|
00000120: AF 31 A7 48 57 B2 32 00 5C 05 AA 00 81 49 B2 38 |.1.HW.2.\....I.8|
00000130: 36 30 A4 39 31 34 3A 87 58 3A 97 49 2C 58 3A 82 |60.914:.X:.I,X:.|
00000140: 3A 9F 34 2C 34 3A 47 24 B2 22 20 20 20 20 20 20 |:.4,4:G$." |
00000150: 20 20 20 20 20 20 20 20 20 20 20 22 00 94 05 B4 | "....|
00000160: 00 81 49 B2 31 A4 33 30 3A 87 43 53 24 28 49 29 |..I.1.30:.CS$(I)|
00000170: 3A 43 53 24 28 49 AA 33 30 29 B2 43 53 24 28 49 |:CS$(I.30).CS$(I|
00000180: 29 3A 43 53 24 28 49 AA 36 30 29 B2 43 53 24 28 |):CS$(I.60).CS$(|
00000190: 49 29 3A 82 00 B4 05 BE 00 9F 31 2C 38 2C 31 35 |I):.......1,8,15|
000001A0: 2C 22 49 30 22 3A A0 31 3A 9F 31 2C 38 2C 33 2C |,"I0":.1:.1,8,3,|
000001B0: 22 24 30 22 00 D5 05 C8 00 81 49 B2 31 A4 31 34 |"$0"......I.1.14|
000001C0: 32 AA 28 48 57 B2 33 29 AC 31 33 38 3A A1 23 31 |2.(HW.3).138:.#1|
000001D0: 2C 41 24 3A 82 00 F7 05 D2 00 81 49 B2 31 A4 31 |,A$:.......I.1.1|
000001E0: 36 3A A1 23 31 2C 41 24 3A 8B 41 24 B2 C7 28 31 |6:.#1,A$:.A$..(1|
000001F0: 36 30 29 A7 32 33 30 00 16 06 DC 00 4E 24 B2 4E |60).230.....N$.N|
00000200: 24 AA 41 24 3A 49 44 24 B2 CA 28 4E 24 2C 34 2C |$.A$:ID$..(N$,4,|
00000210: 34 29 AA 22 2E 22 00 26 06 E6 00 82 3A A1 23 31 |4).".".&....:.#1|
00000220: 2C 41 24 2C 41 24 00 47 06 F0 00 81 49 B2 31 A4 |,A$,A$.G....I.1.|
00000230: 32 3A A1 23 31 2C 41 24 3A 8B 41 24 B2 C7 28 31 |2:.#1,A$:.A$..(1|
00000240: 36 30 29 A7 32 36 30 00 54 06 FA 00 49 24 B2 49 |60).260.T...I$.I|
00000250: 24 AA 41 24 00 5A 06 04 01 82 00 90 06 0E 01 81 |$.A$.Z..........|
00000260: 49 B2 31 A4 39 32 AB 28 48 57 B2 33 29 AC 36 34 |I.1.92.(HW.3).64|
00000270: 36 3A A1 23 31 2C 41 24 3A 82 3A 8D 37 30 30 3A |6:.#1,A$:.:.700:|
00000280: 85 22 11 11 11 4E 55 4D 4D 42 45 52 22 3B 49 24 |."...NUMMBER";I$|
00000290: 00 B3 06 18 01 98 34 2C 22 31 20 20 20 20 20 01 |......4,"1 .|
000002A0: 23 22 49 24 22 20 20 20 20 20 20 20 20 20 20 20 |#"I$" |
000002B0: 22 4E 24 00 C0 06 22 01 8D 37 30 30 3A 4D B2 30 |"N$..."..700:M.0|
000002C0: 00 DE 06 2C 01 59 B2 59 AA 31 3A 50 50 B2 50 50 |...,.Y.Y.1:PP.PP|
000002D0: AA 31 3A 4D B2 4D AA 31 3A 46 24 B2 22 22 00 FE |.1:M.M.1:F$.""..|
000002E0: 06 36 01 A1 23 31 2C 4B 24 2C 54 24 2C 53 24 3A |.6..#1,K$,T$,S$:|
000002F0: 8B 53 24 B2 22 22 A7 53 24 B2 C7 28 30 29 00 20 |.S$."".S$..(0). |
00000300: 07 40 01 81 49 B2 31 A4 31 36 3A A1 23 31 2C 41 |.@..I.1.16:.#1,A|
00000310: 24 3A 8B 41 24 B2 C7 28 31 36 30 29 A7 33 34 30 |$:.A$..(160).340|
00000320: 00 2D 07 4A 01 46 24 B2 46 24 AA 41 24 00 33 07 |.-.J.F$.F$.A$.3.|
00000330: 54 01 82 00 48 07 5E 01 81 49 B2 31 A4 31 30 3A |T...H.^..I.1.10:|
00000340: A1 23 31 2C 41 24 3A 82 00 60 07 68 01 4C B2 30 |.#1,A$:..`.h.L.0|
00000350: 3A 8B 41 24 B3 B1 22 22 A7 4C B2 C6 28 41 24 29 |:.A$.."".L..(A$)|
00000360: 00 92 07 72 01 A1 23 31 2C 41 24 3A 4C B2 4C AA |...r..#1,A$:L.L.|
00000370: C6 28 41 24 AA C7 28 30 29 29 AC 32 35 36 3A 8B |.(A$..(0)).256:.|
00000380: 4D B3 38 A7 A1 23 31 2C 41 24 2C 41 24 3A 89 33 |M.8..#1,A$,A$:.3|
00000390: 39 30 00 9A 07 7C 01 4D B2 30 00 BE 07 86 01 53 |90...|.M.0.....S|
000003A0: 57 B2 53 54 3A 8B 4B 24 B2 22 22 A7 59 B2 59 AB |W.ST:.K$."".Y.Y.|
000003B0: 31 3A 50 50 B2 50 50 AB 31 3A 89 35 39 30 00 DB |1:PP.PP.1:.590..|
000003C0: 07 90 01 4B B2 C6 28 4B 24 29 AB 31 32 38 3A 8B |...K..(K$).128:.|
000003D0: 4B B3 31 B0 4B B1 34 A7 4B B2 30 00 F8 07 9A 01 |K.1.K.4.K.0.....|
000003E0: 8B 4B B2 30 A7 98 34 2C 22 20 20 20 20 20 20 20 |.K.0..4," |
000003F0: 20 22 3B 3A 89 35 31 30 00 1A 08 A4 01 9F 32 2C | ";:.510......2,|
00000400: 38 2C 34 2C 22 30 3A 22 AA 46 24 AA 22 2C 22 AA |8,4,"0:".F$.",".|
00000410: 54 24 28 4B 29 AA 22 2C 52 22 00 3E 08 AE 01 41 |T$(K).",R".>...A|
00000420: B2 30 3A 42 B2 30 3A 8B 4B B3 B1 32 A7 98 34 2C |.0:B.0:.K..2..4,|
00000430: 22 20 20 20 20 20 20 22 3B 3A 89 34 37 30 00 5D |" ";:.470.]|
00000440: 08 B8 01 41 B2 30 3A A1 23 32 2C 41 24 3A 8B 41 |...A.0:.#2,A$:.A|
00000450: 24 B3 B1 22 22 A7 41 B2 C6 28 41 24 29 00 7C 08 |$.."".A..(A$).|.|
00000460: C2 01 42 B2 30 3A A1 23 32 2C 42 24 3A 8B 42 24 |..B.0:.#2,B$:.B$|
00000470: B3 B1 22 22 A7 42 B2 C6 28 42 24 29 00 A3 08 CC |.."".B..(B$)....|
00000480: 01 49 50 28 31 29 B2 42 AC 32 35 36 AA 41 3A 98 |.IP(1).B.256.A:.|
00000490: 34 2C 22 24 22 3B 3A 8D 36 38 30 3A 98 34 2C 22 |4,"$";:.680:.4,"|
000004A0: 2D 22 3B 00 BB 08 D6 01 97 31 2C 39 32 3A 97 32 |-";......1,92:.2|
000004B0: 2C 33 3A 41 B2 41 AA B7 28 30 29 00 DA 08 E0 01 |,3:A.A..(0).....|
000004C0: 41 25 B2 41 AD 32 35 36 3A 41 B2 41 AB 41 25 AC |A%.A.256:A.A.A%.|
000004D0: 32 35 36 3A 42 B2 42 AA 41 25 00 F9 08 EA 01 49 |256:B.B.A%.....I|
000004E0: 50 28 32 29 B2 42 AC 32 35 36 AA 41 3A 98 34 2C |P(2).B.256.A:.4,|
000004F0: 22 24 22 3B 3A 8D 36 38 30 00 00 09 F4 01 A0 32 |"$";:.680......2|
00000500: 00 06 09 FE 01 8F 00 1E 09 FF 01 8B 4B B3 B1 32 |............K..2|
00000510: A7 49 50 B2 49 50 28 32 29 3A 89 35 32 31 00 31 |.IP.IP(2):.521.1|
00000520: 09 08 02 49 50 B2 49 50 28 32 29 AB 49 50 28 31 |...IP.IP(2).IP(1|
00000530: 29 00 64 09 09 02 49 50 24 B2 C4 28 49 50 29 3A |).d...IP$..(IP):|
00000540: 81 49 B2 C3 28 49 50 24 29 A4 36 3A 49 50 24 B2 |.I..(IP$).6:IP$.|
00000550: 22 20 22 AA 49 50 24 3A 82 3A 98 34 2C 49 50 24 |" ".IP$:.:.4,IP$|
00000560: 22 20 22 3B 00 75 09 12 02 98 34 2C 22 42 59 54 |" ";.u....4,"BYT|
00000570: 45 53 20 22 3B 00 AC 09 1C 02 48 24 B2 CA 28 C4 |ES ";.....H$..(.|
00000580: 28 4C 29 2C 32 29 3A 98 34 2C C8 28 47 24 2C 34 |(L),2):.4,.(G$,4|
00000590: AB C3 28 48 24 29 29 3B 48 24 22 20 42 4C 4F 43 |..(H$));H$" BLOC|
000005A0: 4B 53 20 20 22 3B 3A 51 B2 51 AA 4C 00 C5 09 26 |KS ";:Q.Q.L...&|
000005B0: 02 58 B2 C6 28 54 24 AA C7 28 30 29 29 AD 31 36 |.X..(T$..(0)).16|
000005C0: 3A 8D 36 39 30 00 D1 09 30 02 98 34 2C 22 3A 22 |:.690...0..4,":"|
000005D0: 3B 00 E5 09 3A 02 58 B2 C6 28 53 24 29 AD 31 36 |;...:.X..(S$).16|
000005E0: 3A 8D 36 39 30 00 14 0A 44 02 98 34 2C 22 20 20 |:.690...D..4," |
000005F0: 22 54 24 28 4B 29 22 20 20 22 3B 3A 8D 37 35 30 |"T$(K)" ";:.750|
00000600: 3A 98 34 2C 22 20 20 22 C7 28 33 34 29 46 24 C7 |:.4," ".(34)F$.|
00000610: 28 33 34 29 00 23 0A 4E 02 8B 53 57 B3 B1 30 A7 |(34).#.N..SW..0.|
00000620: 36 33 30 00 45 0A 58 02 8B 59 B1 B2 36 35 A7 8D |630.E.X..Y..65..|
00000630: 37 30 30 3A 81 49 B2 59 A4 36 37 3A 98 34 3A 82 |700:.I.Y.67:.4:.|
00000640: 3A 8D 37 30 30 00 7D 0A 62 02 8B 59 B1 B2 36 35 |:.700.}.b..Y..65|
00000650: A7 98 34 2C 22 32 20 20 20 01 23 22 49 24 22 20 |..4,"2 .#"I$" |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 22 4E 24 3A | "N$:|
00000670: 8D 37 30 30 3A 59 B2 30 3A 59 59 B2 31 00 86 0A |.700:Y.0:YY.1...|
00000680: 6C 02 89 33 30 30 00 92 0A 76 02 A0 31 3A 8D 37 |l..300...v..1:.7|
00000690: 30 30 00 C3 0A 80 02 48 24 B2 C9 28 47 24 AA C4 |00.....H$..(G$..|
000006A0: 28 51 29 2C 35 29 3A 57 B2 36 36 34 AB 28 48 57 |(Q),5):W.664.(HW|
000006B0: B2 33 29 AC 31 33 38 38 AB 28 48 57 B2 31 29 AC |.3).1388.(HW.1).|
000006C0: 36 AB 51 00 04 0B 8A 02 98 34 2C 22 20 20 20 20 |6.Q......4," |
000006D0: 20 20 20 20 20 20 20 20 20 20 22 48 24 22 20 42 | "H$" B|
000006E0: 4C 4F 43 4B 53 20 55 53 45 44 20 20 20 20 20 20 |LOCKS USED |
000006F0: 20 20 41 4E 44 22 57 22 42 4C 4F 43 4B 53 20 46 | AND"W"BLOCKS F|
00000700: 52 45 45 2E 00 1A 0B 94 02 8D 37 30 30 3A 81 49 |REE.......700:.I|
00000710: B2 59 A4 36 35 3A 98 34 3A 82 00 23 0B 9E 02 A0 |.Y.65:.4:..#....|
00000720: 34 3A 8A 00 3A 0B A8 02 58 B2 42 AD 31 36 3A 8D |4:..:...X.B.16:.|
00000730: 36 39 30 3A 58 B2 41 AD 31 36 00 76 0B B2 02 81 |690:X.A.16.v....|
00000740: 49 B2 31 A4 32 3A 58 25 B2 58 3A 58 B2 28 58 AB |I.1.2:X%.X:X.(X.|
00000750: 58 25 29 AC 31 36 3A 58 25 B2 58 25 AB 37 AC 28 |X%).16:X%.X%.7.(|
00000760: 58 25 B1 39 29 3A 98 34 2C C7 28 58 25 AA 34 38 |X%.9):.4,.(X%.48|
00000770: 29 3B 3A 82 3A 8E 00 91 0B BC 02 81 49 B2 30 A4 |);:.:.......I.0.|
00000780: 37 39 3A 98 34 2C 22 2D 22 3B 3A 82 3A 98 34 3A |79:.4,"-";:.:.4:|
00000790: 8E 00 D9 0B C6 02 83 20 31 36 39 2C 30 2C 31 36 |....... 169,0,16|
000007A0: 32 2C 34 2C 31 34 39 2C 39 35 2C 32 30 32 2C 31 |2,4,149,95,202,1|
000007B0: 36 2C 32 35 31 2C 31 36 39 2C 31 36 30 2C 31 33 |6,251,169,160,13|
000007C0: 33 2C 39 34 2C 31 36 32 2C 32 2C 33 32 2C 31 39 |3,94,162,2,32,19|
000007D0: 38 2C 32 35 35 2C 32 33 30 00 21 0C D0 02 83 20 |8,255,230.!.... |
000007E0: 39 38 2C 32 30 38 2C 31 30 2C 32 33 30 2C 39 37 |98,208,10,230,97|
000007F0: 2C 32 30 38 2C 36 2C 32 33 30 2C 39 36 2C 32 30 |,208,6,230,96,20|
00000800: 38 2C 32 2C 32 33 30 2C 39 35 2C 33 32 2C 32 32 |8,2,230,95,32,22|
00000810: 38 2C 32 35 35 2C 31 36 35 2C 31 35 30 2C 32 34 |8,255,165,150,24|
00000820: 30 00 5E 0C DA 02 83 20 32 33 35 2C 33 32 2C 32 |0.^.... 235,32,2|
00000830: 30 34 2C 32 35 35 2C 31 39 38 2C 39 34 2C 36 2C |04,255,198,94,6,|
00000840: 39 38 2C 33 38 2C 39 37 2C 33 38 2C 39 36 2C 33 |98,38,97,38,96,3|
00000850: 38 2C 39 35 2C 31 36 2C 32 34 34 2C 39 36 00 9F |8,95,16,244,96..|
00000860: 0C E4 02 83 41 2C 42 2C 43 2C 44 2C 45 2C 46 2C |....A,B,C,D,E,F,|
00000870: 47 2C 48 2C 49 2C 4A 2C 4B 2C 4C 2C 4D 2C 4E 2C |G,H,I,J,K,L,M,N,|
00000880: 4F 2C 50 2C 51 2C 52 2C 53 2C 54 2C 55 2C 56 2C |O,P,Q,R,S,T,U,V,|
00000890: 57 2C 58 2C 59 2C 5A 2C 31 2C 32 2C 33 2C 34 00 |W,X,Y,Z,1,2,3,4.|
000008A0: B2 0C EE 02 8F 20 59 20 41 41 4E 54 41 4C 20 50 |..... Y AANTAL P|
000008B0: 52 47 00 C7 0C F8 02 8F 20 59 59 20 3D 31 20 50 |RG...... YY =1 P|
000008C0: 41 47 49 4E 41 20 32 00 E5 0C 02 03 8B 50 50 B2 |AGINA 2......PP.|
000008D0: 31 B0 50 50 B2 32 A7 98 34 2C 22 20 20 20 20 20 |1.PP.2..4," |
000008E0: 20 22 3B 3A 8E 00 F1 0C 0C 03 50 50 B2 50 50 AB | ";:......PP.PP.|
000008F0: 32 00 0A 0D 16 03 8B 50 50 B1 30 30 AF 50 50 B3 |2......PP.00.PP.|
00000900: 33 31 A7 59 31 24 B2 22 31 22 00 23 0D 20 03 8B |31.Y1$."1".#. ..|
00000910: 50 50 B1 33 30 AF 50 50 B3 36 31 A7 59 31 24 B2 |PP.30.PP.61.Y1$.|
00000920: 22 32 22 00 3C 0D 2A 03 8B 50 50 B1 36 30 AF 50 |"2".<.*..PP.60.P|
00000930: 50 B3 39 31 A7 59 31 24 B2 22 33 22 00 53 0D 34 |P.91.Y1$."3".S.4|
00000940: 03 98 34 2C 49 24 3B 59 31 24 3B 43 53 24 28 50 |..4,I$;Y1$;CS$(P|
00000950: 50 29 3B 00 5F 0D 3E 03 50 50 B2 50 50 AA 32 00 |P);._.>.PP.PP.2.|
00000960: 65 0D 48 03 8E 00 00 00 |e.H..... |
....D..120.".N.."...... ";:H4.0:..V.X..
110:.15,8,15:.15,"M-R"G(255)G(255):.#15,
Q$: 15......"...INSERT NEW DISC IN DRIVE
0 ":.". AND HIT [. RETURN .]"......
T$(4),CS$(95):T$(0)."***":T$(1)."SEQ":T$
(2)."PRG":T$(3)."USR":T$(4)."REL"......A
$:.A$."".150.'. ..110:HW.1:.F(Q$).16.HW.
3:.F(Q$).1.HW.2.\....I.860.914:.X:.I,X:.
:.4,4:G$." "......I.1.30
:.CS$(I):CS$(I.30).CS$(I):CS$(I.60).CS$(
I):.......1,8,15,"I0": 1:.1,8,3,"$0".U.H
..I.1.142.(HW.3).138:.#1,A$:....R..I.1.1
6:.#1,A$:.A$.G(160).230.....N$.N$.A$:ID$
.J(N$,4,4).".".&....:.#1,A$,A$.G....I.1.
2:.#1,A$:.A$.G(160).260.T...I$.I$.A$.Z..
........I.1.92.(HW.3).646:.#1,A$:.:.700:
."...NUMMBER";I$......4,"1 .#"I$"
"N$..."..700:M.0...,.Y.Y.1:PP.PP
.1:M.M.1:F$.""...6..#1,K$,T$,S$:.S$."".S
$.G(0). .@..I.1.16:.#1,A$:.A$.G(160).340
.-.J.F$.F$.A$.3.T...H.^..I.1.10:.#1,A$:.
.`.H.L.0:.A$.."".L.F(A$)...R..#1,A$:L.L.
F(A$.G(0)).256:.M.8..#1,A$,A$:.390...|.M
.0.....SW.ST:.K$."".Y.Y.1:PP.PP.1:.590..
...K.F(K$).128:.K.1.K.4.K.0......K.0..4,
" ";:.510......2,8,4,"0:".F$.",".
T$(K).",R".>...A.0:B.0:.K..2..4," "
;:.470.]...A.0:.#2,A$:.A$.."".A.F(A$).|.
B.B.0:.#2,B$:.B$.."".B.F(B$)...L.IP(1).B
.256.A:.4,"$";:.680:.4,"-";...V..1,92:.2
,3:A.A..(0).Z...A%.A.256:A.A.A%.256:B.B.
A%.....IP(2).B.256.A:.4,"$";:.680..... 2
............K..2.IP.IP(2):.521.1...IP.IP
(2).IP(1).D...IP$.D(IP):.I.C(IP$).6:IP$.
" ".IP$:.:.4,IP$" ";.U....4,"BYTES ";...
..H$.J(D(L),2):.4,H(G$,4.C(H$));H$" BLOC
KS ";:Q.Q.L.E.&.X.F(T$.G(0)).16:.690.Q.
0..4,":";...:.X.F(S$).16:.690...D..4,"
"T$(K)" ";:.750:.4," "G(34)F$G(34).#.N
..SW..0.630.E.X..Y..65..700:.I.Y.67:.4:.
:.700.}.B..Y..65..4,"2 .#"I$"
"N$:.700:Y.0:YY.1...L..300...V. 1:.7
00.C...H$.I(G$.D(Q),5):W.664.(HW.3).1388
.(HW.1).6.Q......4," "H$" B
LOCKS USED AND"W"BLOCKS FREE.....
..700:.I.Y.65:.4:..#... 4:..:...X.B.16:.
690:X.A.16.V....I.1.2:X%.X:X.(X.X%).16:X
%.X%.7.(X%.9):.4,G(X%.48);:.:.......I.0.
79:.4,"-";:.:.4:..Y.F.. 169,0,162,4,149,
95,202,16,251,169,160,133,94,162,2,32,19
8,255,230.!.P.. 98,208,10,230,97,208,6,2
30,96,208,2,230,95,32,228,255,165,150,24
0.^.Z.. 235,32,204,255,198,94,6,98,38,97
,38,96,38,95,16,244,96......A,B,C,D,E,F,
G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,
1,2,3,4...... Y AANTAL PRG.G.... YY =1 P
AGINA 2......PP.1.PP.2..4," ";:....
..PP.PP.2......PP.00.PP.31.Y1$."1".#. ..
PP.30.PP.61.Y1$."2".<.*..PP.60.PP.91.Y1$
."3".S.4..4,I$;Y1$;CS$(PP);._.>.PP.PP.2.
E.H.....