#11 Article 1217 Posted at 1988/03/16 01:38:59 by ＪＩＯＮＧ (MAP604) [TEX.PRG]
Subject: ｲｼﾞｮｳ ﾉ TEX.CG ｦ CRT(VRAM)ﾍ (PC88)
1000 '********************************************** 1010 '* * 1020 '* @@@@@@.NUD etc (TEXT.PIC) ﾚｲｱｳﾄ ﾋｮｳｼﾞ PRG * 1030 '* * 1040 '* CopyRight By JIONG Project Dｺ * 1050 '* * 1060 '* Make By 1988/Mar/14 * 1070 '* * 1080 '* (ﾁｮｻｸｹﾝﾊ､ﾎｳｷｼﾏｽ--ｶｲｿﾞｳ ｼﾃ ﾂｶｯﾃﾈ!) * 1090 '* (ﾀﾞｹﾄﾞ ｺﾝﾅ ﾌｳﾆ ｽﾙﾄ ｲｲﾖ! ﾄｲｳﾉﾊ UP ｼﾃ ｸﾀﾞｻｲ)* 1100 '* * 1110 '********************************************** 1120 CLS 3 1121 INPUT "DATA-DISK-ON-No:";DR 1122 CLS 1130 FILES DR 1140 INPUT "DATA :";A$ 1150 CLS 1160 OPEN HEX$(DR)+":"+A$ FOR INPUT AS #1 1170 Y=190 1180 LINE INPUT#1,Q$ 1190 FOR A=1 TO LEN(Q$) 1200 M$=MID$(Q$,A,1) 1210 IF ASC(M$)>32 AND ASC(M$)<40 THEN C=1 1220 IF ASC(M$)>40 AND ASC(M$)<48 THEN C=2 1230 IF ASC(M$)>48 AND ASC(M$)<56 THEN C=3 1240 IF ASC(M$)>56 AND ASC(M$)<64 THEN C=4 1250 IF ASC(M$)>64 AND ASC(M$)<72 THEN C=5 1260 IF ASC(M$)>72 AND ASC(M$)<80 THEN C=5 1270 IF ASC(M$)>80 AND ASC(M$)<93 THEN C=7 1280 PSET(X,Y),C 1290 C=0 1300 Y=Y-2 1310 NEXT 1320 X=X+4:Y=190 1330 IF EOF(1)=-1 THEN END 1340 GOTO 1180 1350 BEEP 1360 END ｶｲｿﾞｳ ｼﾃ ﾐﾃ ｸﾀﾞｻｲﾈ MAP604/JIONG