#11 Article 654 Posted at 1987/12/02 03:09:57 by ｱﾙﾙｶﾝ (MAP475) [PRG.NL3]
Subject: NL3 FOR PC-9801
10 F$="NL3.COM":GOSUB 50
20 F$="DON.COM":GOSUB 50
30 F$="DOFF.COM":GOSUB 50
40 END
50 OPEN F$ FOR OUTPUT AS #1
60 READ A$:IF A$="END" THEN CLOSE #1:RETURN
70 FOR I=1 TO LEN(A$) STEP 2:PRINT #1,CHR$(VAL("&H"+MID$(A$,I,2)));:NEXT
80 GOTO 60
101 DATA E9D00AFF1D80000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C
102 DATA 1D1E1F202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F
103 DATA 404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F00FF21
104 DATA 805F606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7D7E7F80
105 DATA 8182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E4000FF1D80
106 DATA 9FA0FF0000000080002000A000A000A040A010A050A050E050B050F050F050F0D0F070
107 DATA 2300F00480000480080002000A000A000A040A010A050A050E050B050F050F050F0D0F
108 DATA 070F0F0F0F63E60643E6066BF7064BF7066E08074E0807741907541907772A07572A07
109 DATA 001B5B324A1B5B3E3168242E4E4C33002E4E5433000D0A24560000B781010000000205
110 DATA 00008780BCC8002E8C1E3303B800008ED890E85500723FE87200723AE8FE01E8AB0072
111 DATA 2FE89E00E83200721CE8F6007217E86D03721DE89103E83F04803E38030074E4E82605
112 DATA 73DFE836007209B000B44CCD21E82B00B001B44CCD21B406B2FFCD213C037402F8C3F9
113 DATA C32E8E063303BBD8002E2B1E330383C311B44ACD217219C38E068001B449CD21720EC3
114 DATA BB0010B448CD217204A38001C32D0700740948740C48740FEB1390BA440CEB1390BA6B
115 DATA 0CEB0D90BA880CEB0790BA0A0BEB0190B409CD21F9C3BA8201B41ACD21C38E06330326
116 DATA 8A0E800080F9007424BE8100268A04463C0D74193C2074F44EBFB002268A0488054647
117 DATA 3C0D75F5C645FF00F8C3BA500AB409CD21BAB002B98000BB0000B43FCD21720EBBB002
118 DATA 8A07433C0D75F9C647FF00F8C3803E3203007405E83C007307E806007302F9C3F8C3E8
119 DATA 4200722A33FF8B85AE013C2F7505E8AE01EBECBAAE01B90000B44ECD217207C6063203
120 DATA 01F8C3BAAE01E80601EBD1F9C3B44FCD217207C606320301F8C3C606320300F9C38B36
121 DATA 3003E81100720EE81E0089363003E83300E85B00F8C38A84B002463C0074073C2074F3
122 DATA 4EF8C3F9C333FF8A84B0023C00740C3C2074088885AE014647E2ECC685AE0100C333FF
123 DATA 8A85AE01473C2E741F3C0075F34FB90500BE7101803E3803007403BE76018A048885AE
124 DATA 014647E2F6C333F68A84AE0188842E02463C0075F34E8A842E023C3A740E3C5C740AC6
125 DATA 842E020083EE0173EA468936AE02F8C31EB800008ED8BA6701B409CD21B000E6A6B037
126 DATA E6A8B015E6AAB026E6ACB004E6AEB442B5C0CD18B440CD18B800A8E80E00B800B0E808
127 DATA 00B800B8E802001FC38EC0B80000BF0000B9803EF3ABC3BA2E02B000B43DCD217238A3
128 DATA 7E01F8C3B43E8B1E7E01CD217229F8C3BA0000B9803E8B1E7E01B43F1E8E1E8001CD21
129 DATA 1F7211A33A03C38B1E7E01B442B000CD217201C33D0C00743F48741848741B48741E48
130 DATA 7421487424487427EB0190BA0A0BEB2890BA310BEB2290BA540BEB1C90BA730BEB1690
131 DATA BA940BEB1090BABD0BEB0A90BADE0BEB0490BA110CB409CD21F9C38A85AF01BB480180
132 DATA 3F00741A3A07740583C303EBF28B85B001FF57017307BAE50AB409CD21C3BA6F0AB409
133 DATA CD21F9C33C3074063C317402F9C32C30A23503F8C33C3074063C317402F9C32C30A236
134 DATA 03F8C33C3074063C317402F9C32C30A23703F8C33C3074063C317402F9C32C30A23803
135 DATA F8C32C30722E3C0A732A80FC00742080FC20741B80FC2E741680EC30721680FC0A7311
136 DATA 8ACCB50AF6E502C13C3C7305A23903F8C3F9C3E81100E89E01E8C0FE7208E8D7FE7203
137 DATA E8C6FEC333DB8B3EAE02B90D008A87A00188812E0243E2F5C31E8E1E800133F6E80500
138 DATA E834001FC333FFB94000E87A0032E450E87400B480F6E45B03C3BD090033D2F7F58895
139 DATA 00FAB209F6F288A501FA888502FA83C703E2D4C333FFE84B00724832E48BD883FB4073
140 DATA 06B90100EB0F9081E33F00E8330032E40502008BC88BC3D1E303D88B8700FAD1E0D1E0
141 DATA 8A9F02FAD0E3D0E381FF80BB740F8985803E889D823E83C703E2EDEBB3C32E3B363A03
142 DATA 7417538A1C2E89363C034632FF2E8A8700005B3CFF74E4F8C3F9C31E8E1E8001E80B00
143 DATA E81E001FE8D001E8AC00C31E8CC88ED88E068001BE0001BFC0FAB92400F3A51FC32E80
144 DATA 3E3503007404B00CE6A2E80500B06BE6A2C333DB33EDB9500032F65153B900A8E81600
145 DATA B900B8E81000B900B0E80A005B5981C3580245E2E3C38EC1B9640053558A97803E8BF2
146 DATA 8A97AC3F8BFA8A84C0FA8AA5E4FA02C4268846008A84C1FA8AA5E5FA02C4268846508A
147 DATA 84C2FA8AA5E6FA02C4268886A0008A84C3FA8AA5E7FA02C4268886F00083C30381C540
148 DATA 01E2B15D5B43C3803E3603007404B408CD21C3803E370300741FBA6701B409CD218B0E
149 DATA AE0283C10DBA2E02B440BB0000CD21BA7B01B409CD21C3E8FBFC723733C98B163C03E8
150 DATA 26FD722CE807FD72278E06800133F6C6063E0300C6063F0300C606400300E84C00E820
151 DATA 00721DE87C00803E3E030275F1E8CFFCBA6701B409CD21B40CCD18B440CD18F8C3E89D
152 DATA FA72163C0574123C1B741C3C2074383C1374343C0D743AF8C3C6063E0301BABA0AB409
153 DATA CD21F9C3A04003F6D0A240033C00740AB40CCD18B441CD18F8C3B40DCD18B440CD18F8
154 DATA C3A03F03F6D0A23F03F8C3803E3E03017505C6063E0302F8C3803E3E03007526803E3F
155 DATA 0300751F3B363A03750C06E851FC073D0000741133F6268A144680FA1A7406B402CD21
156 DATA F8C3C6063E0301BA920AB409CD21F8C3803E360300752E803E3803007527A039033C00
157 DATA 7420B42CCD21A0390302C632E4B23CF6F250E8DAF958720A50B42CCD21583AE675EFC3
158 DATA 000000837483408343838B836C815B838082CD89BD82BE82C182BF82E1814081462482
159 DATA BB82F182C88349837683568387839382DC82BE82C882A282C182BF82E181490D0A240D
160 DATA 0A071B5B33346D838A835E815B8393834C815B82F0899F82B782C182BF82E181491B5B
161 DATA 6D0D0A240D0A071B5B33316D82DC82BE9372928682BE82AF82C782E282DF82E982C182
162 DATA BF82E181491B5B6D070D0A248349837683568387839382CC8E6782A295FB82AA82BF82
163 DATA AA82A482C182BF82E181490D0A2489BD82BE82A982ED82A982E782C882A282AF82C782
164 DATA A882A982B582A282C182BF82E181490D0A2482B282DF82F1814982A482BF82AA82ED82
165 DATA E982A282F182BE82C182BF82E181490D0A2482BB82F182C8837483408343838B82CD82
166 DATA C882A282C182BF82E181490D0A2482BB82F182C88370835896BC82B682E182BE82DF82
167 DATA BE82C182BF82E181490D0A248349815B8376839382C582AB82E9837483408343838B82
168 DATA F0919D82E282B782C182BF82E181490D0A2482BB82EA82CD837483408343838B82B682
169 DATA E182C882A282C182BF82E181490D0A2482A882A982B582A282C182BF82E18149837483
170 DATA 408343838B836E83938368838B82AA96B38CF882BE82C182BF82E181490D0A2482A882
171 DATA A982B582A282C182BF82E18149837483408343838B836E83938368838B82AA96B38CF8
172 DATA 82BE82C182BF82E181490D0A2483818382838A82CC928682CC8366815B835E82AA89F3
173 DATA 82EA82C482E982C182BF82E181490D0A2483818382838A82AA8FAD82C882B782AC82E9
174 DATA 82C182BF82E181490D0A2483818382838A8375838D8362834E82AA96B38CF882BE82C1
175 DATA 82BF82E181490D0A24CA042D05DC06470E510EBACB0DEB03BAD50DB409CD21BADC0DB4
176 DATA 09CD21B8FF4CCD21746F6F2073686F72742462726F6B656E24206D656D6F7269657307
177 DATA 0D0A24BBD30E3BE372C88BE350B8FFFFA30001B0FFA20201B44ABBFFFFCD2173103C08
178 DATA 75A881FBEE0072A7B44ACD21729C8CD803C3A3020081FB0010730F83EB10D1E3D1E3D1
179 DATA E3D1E3891E06008CCB83C310B90500BEA90DAD8BF8011DE2F958BBCB008ED3BCC800EA
180 DATA C1030000920981FCA70E723150BE3F0CBFA50EB95300FDF3A481EE1A00E96602B8E9E6
181 DATA A30001B00CA20201BB0D00AC8AE0AC8BC8050080722BF3A4EB2CE800005A81C20E00B4
182 DATA 09CD21B8FF4CCD21746F6F2073686F7274206D656D6F72696573070D0A248BC8ACF3AA
183 DATA 4B75C2FCBB000158FFE3
184 DATA END
201 DATA B440CD18B8004CCD21
202 DATA END
301 DATA B441CD18B8004CCD21
302 DATA END