[HTML] 01.02.28 混 L=9303 C=0080 GOTO *開始: F=1,78,1 ******************************************************************************** * * * MYTOOL -> HTML TABLE CONVERTER Ver 2.01 Programed by Gomi * * * * 1998.02.23 V1.00 Orignal * * 1998.03.07 V1.10 Bug Fix+width % * * 1998.03.15 V1.11 long file * * 2001.02.22 V2.00 MTW+CSS * * 2001.02.28 V2.01 Bugfix+Javascript * ******************************************************************************** *開始 X: Z0=-1:ACCP:このページをHTML化します はい…RET いゝえ…ESC :?: IF Z0<0 THEN:GOTO *終了:ENDIF: IF Z0>0 THEN:GOTO *開始:ENDIF: IF T0=0 THEN:列がありません Put Enter Key :?:GOTO *終了:ENDIF: DIA:Z11=Z35:Z12=Z38+1: IF Z40=0 THEN:計算行がありません Put Enter Key :?:GOTO *終了:ENDIF: SETX:2:Z12:ESC:DL:K:SH::LT<>|:::X: CF:::Z13=(T0+1)*9+Z38:Z15=T0*2+1: SET:1:1:2:80:16:0:ESC: V6="1":FOR Z20=3 TO Z15 STEP 2:V7=Z20:V6=V6+","+V7:NEXT Z20: RESTORE *文頭: CT::V1="
:T: | ::
W:SZ21:
RETURN:
*文頭
DATA :
DATA ,:
DATA :
DATA :
DATA :
DATA :
DATA , : *文末 DATA |