100 REM -------------------- 110 REM copyright Module by DaiFukuoka 2016-6-20 120 REM (c)“d”]‘g 130 REM -------------------- 140 CONSOLE 0,24,0,1:SCREEN 3,0,0,1:WIDTH 80,25:COLOR 0,7,0,7,2:CLS 3 150 DIM CSV$(9999,11) 160 LINE (0,0)-(639,18),4,BF:LINE(0,36)-(639,54),4,BF 170 LINE(0,110)-(639,130),5,BF:LINE(0,187)-(639,204),5,BF 180 LINE(0,263)-(639,282),6,BF 190 LOCATE 0,0:PRINT "Load File Name : ";:INPUT "",LFN$:IF LFN$="" THEN *START 200 OPEN LFN$ FOR INPUT AS #2: 210 FOR I=1 TO 9999:INPUT #2,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(1,4),CSV$(1,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11):NEXT:CLOSE #2 220 LOCATE 0,0:PRINT SPC(78); 230 *START 240 IF CSV$(PAGE,ARTICLE)="" THEN CSV$(PAGE,ARTICLE)=" " 250 IF CSV$(PAGE,1)="" THEN CSV$(PAGE,1)=" " 260 IF FLAG=0 THEN PAGE=1:LOCATE 0,0:PRINT "Tittle / Page :";:INPUT "",PAGE:LOCATE 0,1:PRINT CSV$(PAGE,1):LOCATE 0,2:PRINT "Article Preview :";:INPUT "",ARTICLE:LOCATE 0,3:PRINT CSV$(PAGE,ARTICLE) 270 IF FLAG=-1 THEN FLAG=0:LOCATE 0,0:PRINT "Tittle / Page :";PAGE;SPC(200);:LOCATE 0,1:PRINT CSV$(PAGE,1):LOCATE 0,2:PRINT "Article Preview :";ARTICLE;SPC(200);:LOCATE 0,3:PRINT CSV$(PAGE,ARTICLE) 280 LOCATE 0,6:PRINT "Edit Artice";ARTICLE;" Page";SPC(200);PAGE;:LOCATE 0,7:INPUT "",WROTE$ 290 IF WROTE$="" OR WROTE$=" " THEN ELSE CSV$(PAGE,ARTICLE)=WROTE$ 300 *LOOP1 310 LOCATE 0,10:PRINT "Select Article and Pages"; 320 LOCATE 0,11:PRINT "0: NoMove , 1:Add+ , 2: Dec-";:INPUT "",REQUEST 330 IF REQUEST=0 THEN *ACCEPT 340 LOCATE 0,12:PRINT "0:[1]/1:[10]/2:[100]/3:[1000]";:INPUT "",MANY 350 *ACCEPT 360 LOCATE 0,13:PRINT "Okay? 0:Yes / 1:No ";:INPUT "",ACCEPT:IF ACCEPT=1 THEN *LOOP1 370 IF MANY=0 THEN COUNT=1 380 IF MANY=1 THEN COUNT=10 390 IF MANY=2 THEN COUNT=100 400 IF MANY=3 THEN COUNT=1000 410 IF COUNT+PAGE>9999 THEN *LOOP1 420 IF COUNT+PAGE<1 THEN *LOOP1 430 IF REQUEST=0 THEN PAGE=PAGE 440 IF REQUEST=1 THEN PAGE=PAGE+COUNT:FLAG=-1 450 IF REQUEST=2 THEN PAGE=PAGE-COUNT:FLAG=-1 460 LOCATE 0,14:PRINT "For Number of Article : (1-11) : ";:INPUT "",ARTICLE 470 IF ARTICLE<1 OR ARTICLE>11 THEN ARTICLE=1 480 LOCATE 0,15:PRINT "0:Saving Sequence 1:No Think : ";:INPUT "",FILESAVE 490 IF FILESAVE=1 THEN *START ELSE IF FILESAVE=0 GOTO *SFN 500 *SFN 510 LOCATE 0,16:PRINT "Save File Name : ";:INPUT "",SFN$ 520 CLS:IF SFN$="" THEN *LOOP1 530 OPEN SFN$ AS 1:CLOSE 1:OPEN SFN$ FOR OUTPUT AS #1 540 FOR I=1 TO 9999:WRITE #1,CSV$(I,1),CSV$(I,2),CSV$(I,3),CSV$(1,4),CSV$(1,5),CSV$(I,6),CSV$(I,7),CSV$(I,8),CSV$(I,9),CSV$(I,10),CSV$(I,11):NEXT:CLOSE #1 550 GOTO *START 560 *IFEND GOTO *START:END IF:END