#11 Article 1199 Posted at 1988/03/06 18:36:46 by ＧＨＯＳＴ (MAP669) [PRG.NL3]
Subject: ｳｴ ﾉ ﾌﾟﾛｸﾞﾗﾑ
10 'WIDTH80,25:KMODE0:KLIST0 'for X1 turbo USER
20 'WI.80 'for X1 USER
30 CLEAR &HC000:DEFINT A-Z:CLS 4:INIT
40 IF PEEK(&HC000)=195 AND PEEK(&HC001)=161 THEN 50 ELSE GOTO 210
50 ON ERROR GOTO 200
60 B=&HC300
70 INPUT "What is file name";NA$
80 OPEN"I",#1,NA$
90 PRINT"Reading data "
100 IF EOF(1) THEN 150
110 LINPUT#1,A$
120 A=LEN (a$)
130 MEM$(B,A)=A$:B=B+A
140 GOTO100
150 CLOSE#1:CLS4
160 B=B+1
170 POKE &HC006,256+B MOD 256,256+B\256
180 CALL &HC000:CALL &HC003
190 IF INKEY$=" "OR INKEY$=CHR$(13) THEN END ELSE 190
200 PRINT"File not found!":CLOSE#1:GOTO50
210 '
220 RESTORE 350 :B=0:D=0
230 FOR I=&HC000 TO &HC2CF STEP 16
240 FOR J=0 TO 15
250 READ A$:A=VAL("&H"+A$)
260 POKE I+J,A
270 B=B+A
280 NEXT
290 B$=RIGHT$("0"+HEX$(B),2)
300 READC$:IF B$<>C$ THEN BEEP:PRINT "DATA ERRER!":END
310 B=0:D=D+10
320 NEXT
330 GOTO60
340 '
350 DATA C3,A1,C2,C3,E0,C0,00,00,00,00,00,00,00,00,00,00,89
360 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
370 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
380 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
390 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
400 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
410 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
420 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
430 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
440 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
450 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
460 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
470 DATA 00,00,00,00,00,00,00,00,00,80,82,86,A6,B6,BE,FE,A0
480 DATA FF,00,00,00,00,00,00,00,00,00,00,40,00,40,00,64,E3
490 DATA FD,21,00,C3,01,08,C0,DD,2E,40,FD,56,00,FD,23,FD,65
500 DATA 5E,00,FD,23,7B,5A,57,CB,23,CB,3A,CB,1B,C5,01,51,9A
510 DATA 00,CD,47,C2,C1,E5,21,C8,C0,19,7E,02,03,E1,C5,0E,75
520 DATA 09,CD,39,C2,54,01,C8,C0,26,00,09,5E,6A,26,00,09,D4
530 DATA 56,C1,7B,02,03,7A,02,03,DD,2D,C2,EA,C0,21,00,64,11
540 DATA 22,DE,C0,21,00,40,22,DA,C0,22,DC,C0,FD,7E,00,FD,13
550 DATA 23,FE,40,DA,80,C1,D6,40,CD,21,C2,FD,7E,00,FD,23,DD
560 DATA 3C,3C,DD,67,3A,DE,C0,CB,3F,D2,6E,C1,CD,DD,C1,21,2B
570 DATA DF,C0,35,CC,9E,C1,DD,25,C2,54,C1,C3,3C,C1,CD,FF,64
580 DATA C1,21,DF,C0,35,CC,9E,C1,DD,25,C2,54,C1,C3,3C,C1,7A
590 DATA CD,21,C2,3A,DE,C0,CB,3F,D2,91,C1,CD,DD,C1,C3,94,78
600 DATA C1,CD,FF,C1,21,DF,C0,35,CC,9E,C1,C3,3C,C1,3E,64,D0
610 DATA 32,DF,C0,3A,DE,C0,6F,26,40,CB,3D,22,DA,C0,3C,32,B0
620 DATA DE,C0,FE,A0,CA,C1,C1,CB,3F,D0,26,40,6F,22,DA,C0,F3
630 DATA C9,E1,C9,57,CB,22,CB,22,CB,22,CB,22,E6,F0,5F,C9,7C
640 DATA 5F,CB,3B,CB,3B,CB,3B,CB,3B,E6,0F,57,C9,3A,D7,C0,5D
650 DATA CD,C3,C1,ED,53,D1,C0,3A,D8,C0,CD,C3,C1,ED,53,D3,58
660 DATA C0,3A,D9,C0,CD,C3,C1,ED,53,D5,C0,CD,5E,C2,C9,3A,A9
670 DATA D7,C0,CD,D0,C1,ED,53,D1,C0,3A,D8,C0,CD,D0,C1,ED,E3
680 DATA 53,D3,C0,3A,D9,C0,CD,D0,C1,ED,53,D5,C0,CD,5E,C2,D9
690 DATA C9,5F,CB,27,83,16,00,5F,21,08,C0,19,4E,23,46,23,EE
700 DATA ED,43,D8,C0,7E,32,D7,C0,C9,26,00,06,08,29,7C,91,42
710 DATA 38,02,2C,67,10,F7,C9,21,00,00,3E,10,CB,23,CB,12,D7
720 DATA ED,6A,ED,42,38,03,1C,18,01,09,3D,20,EF,C9,ED,4B,4C
730 DATA DA,C0,21,D1,C0,16,03,5E,23,ED,78,B3,ED,79,3E,08,AA
740 DATA 80,47,5E,23,ED,78,B3,ED,79,3E,38,80,47,15,C2,67,41
750 DATA C2,3A,DF,C0,E6,03,FE,01,CA,96,C2,2A,DA,C0,3E,10,B7
760 DATA 84,67,22,DA,C0,C9,2A,DA,C0,01,50,D0,09,22,DA,C0,1A
770 DATA C9,01,00,C3,11,00,C3,0A,03,2A,06,C0,B7,ED,42,C8,0C
780 DATA D6,20,FE,80,DA,BE,C2,D6,21,FE,A0,D2,A7,C2,12,13,C3
790 DATA C3,A7,C2,00,00,00,00,00,00,00,00,00,00,00,00,00,2C