無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/22 (Sun) 23:47:12

プログラミング実習
N88Basic（86）編　電脳組９８Basic 使用

座標を６４桁ｘ６４行のテキストに１から１６まで入力する。

ゲームソフトの１６色１～１６までの数字の色のパレットを入力するソフトです。これは、自作ゲームの開発支援ソフトとしてかいはつしました。福岡大Mr.Dai Fukuoka,June.22,2025

10 REM *****************************************
20 REM * Programed by Dai Fukuoka 2011.01.7 *
30 REM * copyright 2011.01.7-1.30 *
40 REM * DotPresetEditor2011β *
50 REM *****************************************7430-7680 8330
51 *START
60 WIDTH 80,25:CONSOLE 0,25,0,1:SCREEN 3,0,0,1:COLOR 0,7,0,7,2:CLS 2
70 YY$=LEFT$(DATE$,2):MM$=RIGHT$(DATE$,5):MM$=LEFT$(MM$,2):DD$=RIGHT$(DATE$,2)
80 MOUSE(2)ON:MOUSE(3)ON
90 REM ON ERROR GOTO *ERRCD
100 LET FLAGS$="LINE":LET LMP=7:LET RMP=0:CX=1:CY=1
110 LET FLX=0:LET FLY=0:LET FLS=2::D=0:C=0:CP=7:LET LAY=0
120 LET RST=0:IVC=99:DIM IVX(99):DIM IVY(99):LET LAY=0:LET BG=0:LET BC=0
130 DIM UDX(99):DIM UDY(99):DIM UDF$(99):DIM UNDO(64,64,99)
140 DIM LAYER(65,65,7):DIM DITH(64,64,4):DIM W(64,64):DIM T(64,64):
150 DIM UDXL(99):DIM UDYL(99):DIM MOVABLEMAP(8,8,5)
160 DIM Y(64,64):DIM LAYER$(65,65,7):LET LAYER$="":DIM DATAFLOOR$(64,7)
170 DIM MASK(64,64):DIM IVPENTRM(99):REM DIM IVPENX(4096,99):DIM IVPENY(4096,99)
180 DIM IVXL(64,99):DIM IVYL(64,99):DIM IVFLAGS$(99)
190 DIM RAMSAVE(64,64,7):DIM IVENTMOTION(256,8,64):DIM IMF$(256,64)
200 DIM DARKSOLID(64,64):DIM HEVYPALE(64,64):DIM HEVYHARF(64,64):DIM HARF(64,64):
210 DIM LIGHT(64,64):DIM LIGHTPALE(64,64):DIM LIGHTSOLID(64,64):DIM CP(128,128,8)
220 DIM DM$(8,8):DIM DM(64,64,8):DIM DM2(64,64,8):DIM CHECKBOX(64,64):DIM MLCLOUMN(80,25,2):DIM MLC(80):DIM MLF(25):DIM MLCP(80):DIM MLFP(25)
230 IF MOVABLEMAP(SELECTBLOCX,SELECTBLOCY,1)=8 THEN GOSUB *BLUPMASK
240 IF MOVABLEMAP(SELECTBLOCX,SELECTBLOCY,2)=4 THEN GOSUB *BLLFMASK
250 IF MOVABLEMAP(SECECTBLOCX,SELECTBLOCY,3)=6 THEN GOSUB *BLRIMASK
260 IF POINT(639,399)=POINT(639,479) THEN SHOWVIEW=1 ELSE SHOWVIEW=-1
270 *NEARDISTANCE LET X=0:LET Y=0
280 IF SHOWVIEW=-1 THEN FOR I=0 TO 79:MLC(I)=X :X=X+ 8 :NEXT
290 IF SHOWVIEW=-1 THEN FOR I=0 TO 24:MLF(I) = Y:Y=Y+16 :NEXT
300 IF SHOWVIEW= 1 THEN FOR I=0 TO 24:MLF(I) = Y:Y=Y+19.2#:NEXT
310 *LONGDISTANCE LET X=0:LET Y=0
320 IF SHOWVIEW=-1 THEN FOR I=0 TO 79:X=X+ 8 :MLCP(I) =X-1:NEXT
330 IF SHOWVIEW=-1 THEN FOR I=0 TO 24:Y=Y+16 :MLFP(I) =Y-1:NEXT
340 IF SHOWVIEW= 1 THEN FOR I=0 TO 24:Y=Y+19.2#:MLFP(I) =Y-1:NEXT
350 ::
360 DIM BLPASS(8,8):DIM BLSTART(8,8)
370 LET DFL=1
380 REM GOSUB *DITHERMAPPING:GOSUB *DITHERFILTERLING:GOSUB *PREDISPLAYPASS
390 *RUNNINGPROGRAM
400 REM GOSUB *DITHERFILTERLING
410 LINE(0,0)-(640,480),15,BF:LINE(20,20)-(468,468),0,BF
420 FOR I=20 TO 468 STEP 7:LINE (I,20)-(I,468),12:NEXT I
430 FOR T=20 TO 468 STEP 7:LINE (20,T)-(468,T),12:NEXT T
440 LINE (488,18)-(616,468),7,BF:COLOR 0:LOCATE 61,2:PRINT"COLOR PALLETE"
450 I=0:FOR C=61 TO 76:LINE (MLC(C),MLF(2))-(MLCP(C),MLFP(2)),I,BF:I=I+1:NEXT C:GOSUB *REFRESHTXT:GOTO *SETTING
460 *REFRESHTXT
470 COLOR 0:LOCATE 61,2:PRINT"COLOR PALLETE"
480 LOCATE 61,5:PRINT"COLOR LEVEL 0":LOCATE 61,6:PRINT"000 RGB"
490 LOCATE 61,7:PRINT"0123456789ABCDEF"
500 LOCATE 61,8:PRINT"DITHER 0-7< 01 >":LOCATE 61,10:PRINT"TOOL BOX"
510 LOCATE 61,11:PRINT"LINE / CARV":LOCATE 61,12:PRINT"PAINT / DOT"
520 LOCATE 61,13:PRINT"LAYER 012345 M/C":LOCATE 61,14:PRINT"PEN C / B　3 5":LOCATE 61,15:PRINT"SPOIT / GLID"
530 LOCATE 61,16:PRINT"UNDO 00 / RESET"
540 LOCATE 61,18:PRINT"FILE COMMAND":LOCATE 61,19:PRINT"RAM SAVE LOAD":LOCATE 61,20:PRINT"DISK SAVE LOAD"
550 LOCATE 61,21:PRINT":MYPIC"+YY$+MM$+DD$+".ASC":LOCATE 61,22:PRINT"STATUS"
560 LOCATE 61,23:PRINT"MATRIX X:64 Y:64":LOCATE 61,24:PRINT"/ LINE"
570 RETURN:::::
580 *SETTING
590 FOR X=0 TO 1:FOR I=1 TO 64:FOR T=1 TO 64:LET LAYER(I,T,X)=0:NEXT T:NEXT I:NEXT X
600 P=1:LBX=4:LBY=13:GOSUB *CP
610 P=2:LBX=11:LBY=13:GOSUB *CP
620 P=3:LBX=7:LBY=7:GOSUB *CP
630 P=5:LBX=0:LBY=5:GOSUB *CP
640 P=4:LBX=5:LBY=5:GOSUB *CP
650 P=0:LBX=0:LBY=2:GOSUB *CP
660 P=6:LBX=7:LBY=2:GOSUB *CP
670 GOTO *ASKIP
680 *LOBX
690 I=61:WHILE I<76:I=I+1:IF I<>LBX THEN WEND ELSE *LOBXA
700 *LOBXA:LINE(MLC(LBX),MLF(LBY))-(MLCP(LBX),MLFP(LBY)),P,B:RETURN
710 *CP:I=61:WHILE I<76:I=I+1:IF NOT I=LBX THEN ELSE GOSUB *CPB:GOTO *LOBF
711 WEND
720 *CPB:LINE(MLC(LBX+61),MLF(LBY))-(MLCP(LBX+61),MLFP(LBY)),P,B:RETURN
730 *LOBF I=61:WHILE I<76:I=I+1:IF NOT I=LBX THEN ELSE GOSUB *LOBFA:RETURN
731 WEND
740 *LOBFA
750 *ASKIP CX=1:CY=1:X=1:Y=1:LB=0:RB=0
760 LET A=0
770 *GOMOUSE CXB=CX:CYB=CY:XB=X:YB=Y
780 *CLICKMOUSE
790 X=MOUSE(0):Y=MOUSE(1)
800 IF CX<>MOUSE(4,1) OR CY<>MOUSE(5,1) THEN IF CX<>0 AND CY<>0 THEN CX=MOUSE(4,1):CY=MOUSE(5,1)
810 RCX=MOUSE(4,2):RCY=MOUSE(5,2):IF RCX<>O OR RCY<>0 THEN RB=1
820 GOTO *MOUSEIF:
830 *GTM GOTO *GOMOUSE
840 *MOUSEIF IF CXB<>CX OR CYB<>CY OR XB<>X OR YB<>Y THEN *MENUS ELSE *GTM
850 GOTO *MENUS
860 END
870 *MENUS IF CX<469 OR X<469 THEN *AREASC ELSE IF CX>469 OR X>469 THEN *TOOLS
880 END
890 *AREASC
900 GOTO *FIELDCNT
910 COLOR 7
920 *FLAGC
930 IF FLAGS$="DOT" THEN *FDOT ELSE IF FLAGS$="LINE" THEN *FLINE ELSE IF FLAGS$="CARV" THEN *FCARV
940 IF FLAGS$="PAINT" THEN *FPAINT ELSE IF FLAGS$="PEN" THEN *FPEN ELSE *AREASC
950 END
960 *FIELDCNT: COLOR 7:XX=1:YY=1
970 IF RST<>0 THEN *SKRSFC ELSE RST=1
980 LET MCXX=0:MCYY=0:MCXB=0:MCYB=0:MCX=0:MCY=0:MCXR=0:MCYR=0:MSX=0:MSY=0:FMX=0:FMY=0:
990 LET MCNX=0:MCNY=0:MCLX=0:MCLY=0:MCLBX=0:MCLBY=0:
1000 LET CLY=0:CLX=0:MSX=0:MSY=0:MCCL=0:MCCR=0:MDAD=0:MDADR=0:XXL=0:YYL=0:
1010 *SKRSFC
1020 MSXB=MSX:MSYB=MSY:MCXB=MCX:MCYB=MCY:MCXRB=MCXR:MCYRB=MCYR
1030 IF IVE=1 AND IVC=1 THEN IVC=99
1040 IF MCX=0 OR MCY=0 THEN MCX=MSX:MCY=MSY
1050 MSX=MOUSE(0):MSY=MOUSE(1):MCCL=MOUSE(3,1):MCCR=MOUSE(3,2):MDAD=MOUSE(2,1):MDADR=MOUSE(2,2)
1060 IF MSX=0 OR MSY=0 THEN MSX=MOUSE(0):MSY=MOUSE(1)
1070 *COUNTERA
1080 IF IVC>1 AND UDX(IVC)=UDX(IVC-1) AND UDY(IVC)=UDY(IVC-1) AND NOT UDX(IVC)=0 AND FLAGS$="LINE" THEN *DOUBLEPROCESS
1090 IF IVC>1 AND UDX(IVC)=UDX(IVC-1) AND UDY(IVC)=UDY(IVC-1) AND NOT UDX(IVC)=0 AND FLAGS$="CARV" THEN *DOUBLEPROCESS
1100 IF IVC>1 AND IVX(IVC)+4>IVX(IVC-1) AND IVX(IVC)-4<IVX(IVC-1) AND IVY(IVC)+4>IVY(IVC-1) AND IVY(IVC)-4<IVY(IVC-1) AND NOT IVX(IVC)=0 AND FLAGS$="LINE" THEN *DOUBLEPROCESS
1110 IF IVC>1 AND IVX(IVC)+4>IVX(IVC-1) AND IVX(IVC)-4<IVX(IVC-1) AND IVY(IVC)+4>IVY(IVC-1) AND IVY(IVC)-4<IVY(IVC-1) AND NOT IVX(IVC)=0 AND FLAGS$="CARV" THEN *DOUBLEPROCESS
1120 LOCATE 0,0:PRINT " "
1130 *DSKIP
1140 CLX=0:CLY=0:RB=0:T=0:WHILE T<1
1150 IF MCCL<>MOUSE(3,1) THEN CPASS=1:MCCL=MOUSE(3,1)
1160 IF MCCR<>MOUSE(3,2) THEN RB=1:CPASS=2:MCCR=MOUSE(3,2)
1170 IF CPASS=1 THEN CPASS=0:T=1:CLX=MOUSE(4,1):CLY=MOUSE(5,1)
1180 IF CPASS=2 THEN CPASS=0:T=1:MCYR=MOUSE(5,2):MCXR=MOUSE(4,2)
1190 WEND::MSX=MOUSE(0):MSY=MOUSE(1):LOCATE 20,10:PRINT"CLICK"
1200 IF CLX<20 OR CLY<20 OR CLY>468 THEN *COUNTERA
1210 IF RB=1 THEN IF MCXR<20 OR MCYR<20 OR MCXR>468 OR MCYR>468 THEN *COUNTERA
1220 IVC=IVC+1:IF IVC=100 THEN IVC=1
1230 IF CLX>468 THEN IVX(IVC)=CLX:IVY(IVC)=CLY:GOTO *TOOLS
1240 IF CLX=0 OR CLY=0 THEN IF RB=0 THEN *COUNTERA
1250 IF CLX=MCX AND CLY=MCY AND FLAGS$="LINE" THEN IF DOUBLE=0 THEN *DOUBLEPROCESS
1260 IF CLX=MCX AND CLY=MCY AND FLAGS$="CARV" THEN IF DOUBLE=0 THEN *DOUBLEPROCESS
1270 IF CLX+5>MCX AND CLX-5<MCX AND CLY+5>MCY AND CLY-5<MCY AND FLAGS$="LINE" THEN IF DOUBLE=0 THEN *DOUBLEPROCESS
1280 IF CLX+5>MCX AND CLX-5<MCX AND CLY+5>MCY AND CLY-5<MCY AND FLAGS$="CARV" THEN IF DOUBLE=0 THEN *DOUBLEPROCESS
1290 IF MCX<>CLX OR MCY<>CLY AND CLX<>0 AND CLY<>0 THEN MCX=CLX:MCY=CLY:LOCATE 20,10:PRINT"CLICKB"
1300 IF MSX=0 OR MSY=0 THEN MSX=MOUSE(0):MSY=MOUSE(1)
1310 IF MCX=0 OR MCY=0 THEN MCX=MOUSE(4,1):MCY=MOUSE(5,1)
1320 MCX=CLX:MCY=CLY
1330 *LBBLC
1340 IF IVC=100 THEN IVC=1
1350 DOUBLE=0
1360 IF MCX>468 AND MCX<20 OR MCY>468 OR MCY<20 THEN *AREASC
1370 IF MCX=MCXM AND MCY=MCYM THEN *RBBLC
1380 MCXX=MCX:IVX(IVC)=MCX:MCYY=MCY:IVY(IVC)=MCY
1390 REM IF IVX(IVC-1)=MCX OR IVY(IVC-1)=MCY THEN DOUBLE=1
1400 FOR I=1 TO 64:FOR T=1 TO 64:
1410 IF T*7+20<MSX AND T*7+27>MSX THEN FMX=T
1420 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN FMY=I:
1430 NEXT I:LB=0
1440 FOR I=1 TO 64:FOR T=1 TO 64:
1450 IF T*7+20<MCX AND T*7+27>MCX THEN UDX(IVC)=T
1460 NEXT T:IF I*7+20<MCY AND I*7+27>MCY THEN UDY(IVC)=I
1470 NEXT I:LB=0:
1480 LOCATE 20,20:PRINT DOUBLE
1490 *ZEROSKIP
1500 IF IVX(IVC)=0 THEN IVX(IVC)=MSX
1510 IF IVY(IVC)=0 THEN IVY(IVC)=MSY
1520 IF UDX(IVC)=0 AND IVX(IVC)<>0 THEN *MEPROCESS
1530 IF UDY(IVC)=0 AND IVY(IVC)<>0 THEN *MEPROCESS
1540 GOTO *RBBLC
1550 *MEPROCESS
1560 MCXX=MSX:IVX(IVC)=MSX:MCYY=MSY:IVY(IVC)=MSY
1570 FOR I=1 TO 64:FOR T=1 TO 64:
1580 IF T*7+20<MSX AND T*7+27>MSX THEN UDX(IVC)=T:
1590 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN UDY(IVC)=I:
1600 NEXT I:LB=0
1610 IF UDX(IVC)=0 AND UDY(IVC)=0 THEN MSX=MOUSE(0):MSY=MOUSE(1):GOTO *MEPROCESS
1620 IF UDX(IVC)=0 THEN MSX=MOUSE(0):GOTO *MEPROCESS
1630 IF UDY(IVC)=0 THEN MSY=MOUSE(1):GOTO *MEPROCESS
1640 *RBBLC REM
1650 IF MCXR=MCXRM AND MCYR=MCYRM THEN *EMC
1660 FOR I=1 TO 64:T=1:WHILE T<65
1670 IF T*7+20<MCXR AND T*7+27>MCXR AND MCX<>0 THEN FRMX=T:
1680 IF I*7+20<MCYR AND I*7+27>MCYR AND MCX<>0 THEN FRMY=I:
1690 IF T*7+20<MCXR AND T*7+27>MCXR AND MCX<>0 THEN MCXR=T*7+20:MCXRM=T
1700 IF I*7+20<MCYR AND I*7+27>MCYR AND MCX<>0 THEN MCYR=I*7+20:MCYRM=I
1710 T=T+1:WEND:NEXT I:LOCATE 0,3:PRINT "RB" RB=0:GOTO *EMC
1720 *EMC
1730 IF MCX>468 AND MCX<20 OR MCY>468 OR MCY<20 THEN *AREASC
1740 IF IVC>1 AND UDX(IVC)<>UDX(IVC-1) THEN XXL=UDX(IVC)-UDX(IVC-1)
1750 IF IVC>1 AND UDY(IVC)<>UDY(IVC-1) THEN YYL=UDY(IVC)-UDY(IVC-1)
1760 IF IVC=100 THEN IVC=1
1770 IF IVC=1 AND UDX(1)<>UDX(99) THEN XXL=UDX(1)-UDX(99)
1780 IF IVC=1 AND UDY(1)<>UDX(99) THEN YYL=UDY(1)-UDY(99)
1790 IF IVC>1 AND XXL=UDX(IVC) THEN XXL=UDX(IVC)-UDX(IVC-1)
1800 IF IVC>1 AND YYL=UDY(IVC) THEN YYL=UDY(IVC)-UDY(IVC-1)
1810 IF IVN<>IVC THEN LOCATE 1,4:PRINT IVX(IVC);T;XXL;UDX(IVC);,IVC;"X "
1820 IF IVN<>IVC THEN LOCATE 1,5:PRINT IVY(IVC);I;YYL;UDY(IVC);"Y "
1830 UDXL(IVC)=XXL:UDYL(IVC)=YYL
1840 IXX=IVX(IVC):IYY=IVY(IVC):IVN=IVC
1850 IF SWICH=0 THEN SWICH=1:GOTO *AREASC
1860 IF DC=1 THEN *AREASC
1870 GOTO *FLAGC
1880 END
1890 *DOUBLEPROCESS
1900 LOCATE 0,0:PRINT "DOUBLE"
1910 IF FLAGS$="LINE" OR FLAGS$="CARV" THEN ELSE MCX=CLX:MCY=CLY:GOTO *LBBLC
1920 MCCL=MOUSE(3,1)
1930 DOUBLE=1:MCX=CLX:MCY=CLY:LOCATE 0,22:PRINT"dp"
1940 IF CLX>468 THEN IF IVC>1 THEN IVC=IVC-1:GOTO *TOOLS ELSE IF IVC=99 THEN IVC=1:GOTO *TOOLS
1950 T=0:WHILE T<1
1960 IF MCCL<>MOUSE(3,1) THEN CPASS=1:MCCL=MOUSE(3,1)
1970 IF MCCR<>MOUSE(3,2) THEN RB=1:CPASS=2:MCCR=MOUSE(3,2)
1980 IF CPASS=1 THEN CPASS=0:T=1:MDCX=MOUSE(4,1):MDCY=MOUSE(5,1)
1990 IF CPASS=2 THEN CPASS=0:T=1:MCYR=MOUSE(5,2):MCXR=MOUSE(4,2)
2000 WEND::MSX=MOUSE(0):MSY=MOUSE(1):LOCATE 10,10:PRINT"mdc1"
2010 IF MDCX>468 THEN IF IVC>1 THEN IVC=IVC-1:GOTO *TOOLS ELSE IF IVC=99 THEN IVC=1:GOTO *TOOLS
2020 IF MDCX<20 OR MDCY<20 OR MDCX>468 OR MDCY>468 THEN *COUNTERA
2030 IF RB=1 THEN IF MCXR<20 OR MCYR<20 OR MCXR>468 OR MCYR>468 THEN *COUNTERA
2040 MSX=MOUSE(0):MSY=MOUSE(1)
2050 IVC=IVC+1:IF IVC=100 THEN IVC=1
2060 IVX(IVC)=MDCX:IVY(IVC)=MDCY
2070 IF MDCX=0 AND MDCY=0 THEN *DOUBLEPROCESS
2080 IF IVX(IVC)<>MDCX AND IVY(IVC)<>MDCY THEN *DOUBLEPROCESS
2090 FOR I=1 TO 64:FOR T=1 TO 64:
2100 IF T*7+20<MDCX AND T*7+27>MDCX THEN UDX(IVC)=T
2110 NEXT T:IF I*7+20<MDCY AND I*7+27>MDCY THEN UDY(IVC)=I
2120 NEXT I:LB=0:
2130 MCX=MDCX:MCY=MDCY
2140 IF UDX(IVC)=0 OR UDY(IVC)=0 THEN GOSUB *SUBPROCESSDC
2150 *DPROCESSB
2160 MCCL=MOUSE(3,1)
2170 T=0:WHILE T<1
2180 IF MCCL<>MOUSE(3,1) THEN CPASS=1:MCCL=MOUSE(3,1)
2190 IF MCCR<>MOUSE(3,2) THEN RB=1:CPASS=2:MCCR=MOUSE(3,2)
2200 IF CPASS=1 THEN CPASS=0:T=1:MDCX=MOUSE(4,1):MDCY=MOUSE(5,1)
2210 IF CPASS=2 THEN CPASS=0:T=1:MCYR=MOUSE(5,2):MCXR=MOUSE(4,2)
2220 WEND::MSX=MOUSE(0):MSY=MOUSE(1):LOCATE 10,10:PRINT"mdc2"
2230 IF CLX>468 THEN *TOOLS
2240 IF MDCX<20 OR MDCY<20 OR MDCX>468 OR MDCY>468 THEN *COUNTERA
2250 IVC=IVC+1:IF IVC=100 THEN IVC=1
2260 IF RB=1 THEN IF MCXR<20 OR MCYR<20 OR MCXR>468 OR MCYR>468 THEN *COUNTERA
2270 IVX(IVC)=MDCX:IVY(IVC)=MDCY
2280 IF MDCX=0 AND MDCY=0 THEN *DPROCESSB
2290 IF IVX(IVC)<>MDCX AND IVY(IVC)<>MDCY THEN *DPROCESSB
2300 FOR I=1 TO 64:FOR T=1 TO 64:
2310 IF T*7+20<MDCX AND T*7+27>MDCX THEN UDX(IVC)=T
2320 NEXT T:IF I*7+20<MDCY AND I*7+27>MDCY THEN UDY(IVC)=I
2330 NEXT I:LB=0:
2340 MCX=MDCX:MCY=MDCY
2350 MSX=MOUSE(0):MSY=MOUSE(1)
2360 IF UDX(IVC)=0 OR UDY(IVC)=0 THEN GOSUB *SUBPROCESSDC
2370 IF IVN<>IVC THEN LOCATE 1,4:PRINT IVX(IVC);T;XXL;UDX(IVC);,IVC;"X "
2380 IF IVN<>IVC THEN LOCATE 1,5:PRINT IVY(IVC);I;YYL;UDY(IVC);"Y "
2390 *DPROCESSC
2400 MCCL=MOUSE(3,1)
2410 T=0:WHILE T<1
2420 IF MCCL<>MOUSE(3,1) THEN CPASS=1:MCCL=MOUSE(3,1)
2430 IF MCCR<>MOUSE(3,2) THEN RB=1:CPASS=2:MCCR=MOUSE(3,2)
2440 IF CPASS=1 THEN CPASS=0:T=1:MCX=MOUSE(4,1):MCY=MOUSE(5,1)
2450 IF CPASS=2 THEN CPASS=0:T=1:MCYR=MOUSE(5,2):MCXR=MOUSE(4,2)
2460 WEND::MSX=MOUSE(0):MSY=MOUSE(1):LOCATE 10,10:PRINT"mdc3"
2470 IF CLX>468 THEN *TOOLS
2480 IF MCX<20 OR MCY<20 OR MCX>468 OR MCY>468 THEN *COUNTERA
2490 IF RB=1 THEN IF MCXR<20 OR MCYR<20 OR MCXR>468 OR MCYR>468 THEN *COUNTERA
2500 MSX=MOUSE(0):MSY=MOUSE(1)
2510 IVC=IVC+1:IF IVC=100 THEN IVC=1
2520 IF MCX=0 OR MCY=0 THEN *DPROCESSC
2530 IVX(IVC)=MCX:IVY(IVC)=MCY
2540 FOR I=1 TO 64:FOR T=1 TO 64:
2550 IF (T*7)+20<MCX AND (T*7)+27>MCX THEN UDX(IVC)=T
2560 NEXT T:IF (I*7)+20<MCY AND (I*7)+27>MCY THEN UDY(IVC)=I
2570 NEXT I:LB=0:
2580 IF UDX(IVC)=0 OR UDY(IVC)=0 THEN GOSUB *SUBPROCESSDC
2590 *EMDC
2600 IF IVC>1 AND UDX(IVC)<>UDX(IVC-1) THEN XXL=UDX(IVC)-UDX(IVC-1)
2610 IF IVC>1 AND UDY(IVC)<>UDY(IVC-1) THEN YYL=UDY(IVC)-UDY(IVC-1)
2620 IF IVC=100 THEN IVC=1:RFOF=1
2630 IF IVC=1 AND UDX(1)<>UDX(99) THEN XXL=UDX(1)-UDX(99)
2640 IF IVC=1 AND UDY(1)<>UDX(99) THEN YYL=UDY(1)-UDY(99)
2650 IF IVC>1 AND XXL=UDX(IVC) THEN XXL=UDX(IVC)-UDX(IVC-1)
2660 IF IVC>1 AND YYL=UDY(IVC) THEN YYL=UDY(IVC)-UDY(IVC-1)
2670 IF IVN<>IVC THEN LOCATE 1,8:PRINT IVX(IVC);T;XXL;UDX(IVC);,IVC;"X "
2680 IF IVN<>IVC THEN LOCATE 1,9:PRINT IVY(IVC);I;YYL;UDY(IVC);"Y "
2690 UDXL(IVC)=XXL:UDYL(IVC)=YYL
2700 PRINT"AAAAAAAAAAAAAAA":DOUBLE=0:IF RFOF=1 AND IVC=1 THEN *REFRESHOF ELSE GOTO *FLAGC
2710 END
2720 *SUBPROCESSDC
2730 FOR I=1 TO 64:FOR T=1 TO 64:
2740 IF T*7+20<MSX AND T*7+27>MSX THEN UDX(IVC)=T:
2750 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN UDY(IVC)=I:
2760 NEXT I:LB=0
2770 IF UDX(IVC)=0 AND UDY(IVC)=0 THEN MSX=MOUSE(0):MSY=MOUSE(1):GOTO *SUBPROCESSDC
2780 IF UDX(IVC)=0 THEN MSX=MOUSE(0):GOTO *SUBPROCESSDC
2790 IF UDY(IVC)=0 THEN MSY=MOUSE(1):GOTO *SUBPROCESSDC
2800 RETURN
2810 *REFRESHOF
2820 IF RFOF=1 THEN RFOF=0
2830 FOR I=2 TO 99:MIV=MIV+1:IF MIV=256 THEN MIV=0:MIVCNT=MIVCNT+1:IF MIVCNT=64 THEN MIVCNT=0:MIV=0
2840 IVENTMOTION(MIV,1,CNTMIV)=UDX(I):UDX(I)=0:IVENTMOTION(MIV,2,CNTMIV)=UDY(I):UDY(I)=0:
2850 IVENTMOTION(MIV,3,CNTMIV)=UDXL(I):UDXL(I)=0:IVENTMOTION(MIV,4,CNTMIV)=UDYL(I):UDYL(I)=0:
2860 IVENTMOTION(MIV,5,CNTMIV)=IVX(I):IVX(I)=0:IVENTMOTION(MIV,6,CNTMIV)=IVY(I):IVY(I)=0:
2870 IMF$(MIV,CNTMIV)=IVFLAGS$(I):NEXT
2880 GOTO *FLAGC
2890 END
2900 *DITHERMAPPING
2910 REM darksolid / Hevypale / Hevyharf / harf / light / lightpale / lightsolid
2920 DATA "11111111","11111111","11111111","01010101","00000000","00000000","00000000","10000001"
2930 DATA "11111111","10111011","10101010","10101010","10101010","00100010","00000000","01000010"
2940 DATA "11111111","11111111","11111111","01010101","00000000","00000000","00000000","00100100"
2950 DATA "11111111","11101110","10101010","10101010","10101010","10001000","00000000","00011000"
2960 DATA "11111111","11111111","11111111","01010101","00000000","00000000","00000000","00011000"
2970 DATA "11111111","10111011","10101010","10101010","10101010","00100010","00000000","00100100"
2980 DATA "11111111","11111111","11111111","01010101","00000000","00000000","00000000","01000010"
2990 DATA "11111111","11101110","10101010","10101010","10101010","10001000","00000000","10000001"
3000 FOR T=1 TO 8:FOR I=1 TO 8:READ DM$(T,I):NEXT I:NEXT T
3010 FOR R=1 TO 8:FOR T=1 TO 8:RN=0:FOR I=1 TO 8:RN=RN+1:DMS=VAL(RIGHT$(LEFT$(DM$(T,R),RN),1))
3020 DMS$=LEFT$(DM$(T,R),9-I):DMS$=RIGHT$(DMS$,1):DMS=VAL(DMS$)
3030 DM(I,T,R)=DMS:NEXT I:NEXT T:NEXT R
3040 TT=0:FOR T=1 TO 64:II=0:TT=TT+1:FOR I=1 TO 8:II=II+1:REM PRINT DM(II,TT,1);"+++";:
3050 IF TT>8 THEN TT=1
3060 DLG=DM(II,TT,1)
3070 DARKSOLID(I,T)=DLG:DARKSOLID(8+I,T)=DLG:DARKSOLID(16+II,T)=DLG
3080 DARKSOLID(24+II,T)=DLG:DARKSOLID(32+II,T)=DLG:DARKSOLID(40+II,T)=DLG
3090 DARKSOLID(48+II,T)=DLG:DARKSOLID(56+II,T)=DLG
3100 DLG=DM(II,TT,2)
3110 HEVYPALE(I,T)=DLG:HEVYPALE(8+II,T)=DLG:HEVYPALE(16+II,T)=DLG
3120 HEVYPALE(24+II,T)=DLG:HEVYPALE(32+II,T)=DLG:HEVYPALE(40+II,T)=DLG
3130 HEVYPALE(48+II,T)=DLG:HEVYPALE(56+II,T)=DLG
3140 DLG=DM(II,TT,3)
3150 HEVYHARF(I,T)=DLG:HEVYHARF(8+II,T)=DLG:HEVYHARF(16+II,T)=DLG
3160 HEVYHARF(24+II,T)=DLG:HEVYHARF(32+II,T)=DLG:HEVYHARF(40+II,T)=DLG
3170 HEVYHARF(48+II,T)=DLG:HEVYHARF(56+II,T)=DLG
3180 DLG=DM(II,TT,4)
3190 HARF(I,T)=DLG:HARF(8+II,T)=DLG:HARF(16+II,T)=DLG
3200 HARF(24+II,T)=DLG:HARF(32+II,T)=DLG:HARF(40+II,T)=DLG
3210 HARF(48+I,T)=DLG:HARF(56+II,T)=DLG
3220 DLG=DM(II,TT,5)
3230 LIGHT(I,T)=DLG:LIGHT(8+II,T)=DLG:LIGHT(16+II,T)=DLG
3240 LIGHT(24+II,T)=DLG:LIGHT(32+II,T)=DLG:LIGHT(40+II,T)=DLG
3250 LIGHT(48+II,T)=DLG:LIGHT(56+II,T)=DLG
3260 DLG=DM(II,TT,6)
3270 LIGHTPALE(I,T)=DLG:LIGHTPALE(8+II,T)=DLG:LIGHTPALE(16+II,T)=DLG
3280 LIGHTPALE(24+II,T)=DLG:LIGHTPALE(32+II,T)=DLG:LIGHTPALE(40+II,T)=DLG
3290 LIGHTPALE(48+II,T)=DLG:LIGHTPALE(56+II,T)=DLG
3300 DLG=DM(II,TT,7)
3310 LIGHTSOLID(I,T)=DLG:LIGHTSOLID(8+II,T)=DLG:LIGHTSOLID(16+II,T)=DLG
3320 LIGHTSOLID(24+II,T)=DLG:LIGHTSOLID(32+II,T)=DLG:LIGHTSOLID(40+II,T)=DLG
3330 LIGHTSOLID(48+II,T)=DLG:LIGHTSOLID(56+II,T)=DLG
3340 DLG=DM(II,TT,8)
3350 CHECKBOX(I,T)=DLG:CHECKBOX(8+II,T)=DLG:CHECKBOX(16+II,T)=DLG
3360 CHECKBOX(24+II,T)=DLG:CHECKBOX(32+II,T)=DLG:CHECKBOX(40+II,T)=DLG
3370 CHECKBOX(48+II,T)=DLG:CHECKBOX(56+II,T)=DLG
3380 NEXT I:NEXT T
3390 :::::::::::::::::::::: REM DM2 PROCESS
3400 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,1)=DARKSOLID(I,T):NEXT I:NEXT T
3410 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,2)=HEVYPALE(I,T):NEXT I:NEXT T
3420 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,3)=HEVYHARF(I,T):NEXT I:NEXT T
3430 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,4)=HARF(I,T):NEXT I:NEXT T
3440 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,5)=LIGHT(I,T):NEXT I:NEXT T
3450 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,6)=LIGHTPALE(I,T):NEXT I:NEXT T
3460 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,7)=LIGHTSOLID(I,T):NEXT I:NEXT T
3470 FOR T=1 TO 64:FOR I=1 TO 64:DM2(I,T,8)=CHECKBOX(I,T):NEXT I:NEXT T
3480 RETURN
3490 *PREDISPLAYPASS
3500 GOTO *ROOTGO
3510 FOR R=1 TO 8:FOR T=1 TO 64:FOR I=1 TO 64:PRINT DM2(I,T,R);:NEXT:NEXT:PRINT:BEEP:BEEP:BEEP:NEXT
3520 FOR R=1 TO 8:FOR T=1 TO 64:FOR I=1 TO 64:PRINT CP(I,T,R);:NEXT:NEXT:PRINT:BEEP:BEEP:BEEP:NEXT:END
3530 *ROOTGO
3540 GOTO *RUNNINGPROGRAM
3550 ::
3560 *DITHERFILTERLING
3570 FOR T=1 TO 64:FOR I=1 TO 64:
3580 IF DARKSOLID(I,T)<>0 THEN CP(I,T,1)=CP
3590 IF DARKSOLID(I,T) =0 THEN CP(I,T,1)=BC
3600 NEXT I:NEXT T
3610 FOR T=1 TO 64:FOR I=1 TO 64:
3620 IF HEVYPALE(I,T)<>0 THEN CP(I,T,2)=CP
3630 IF HEVYPALE(I,T) =0 THEN CP(I,T,2)=BC
3640 NEXT I:NEXT T:
3650 FOR T=1 TO 64:FOR I=1 TO 64:
3660 IF HEVYHARF(I,T)<>0 THEN CP(I,T,3)=CP
3670 IF HEVYHARF(I,T) =0 THEN CP(I,T,3)=BC
3680 NEXT I:NEXT T:
3690 FOR T=1 TO 64:FOR I=1 TO 64:
3700 IF HARF(I,T)<>0 THEN CP(I,T,4)=CP
3710 IF HARF(I,T) =0 THEN CP(I,T,4)=BC
3720 NEXT I:NEXT T
3730 FOR T=1 TO 64:FOR I=1 TO 64:
3740 IF LIGHT(I,T)<>0 THEN CP(I,T,5)=CP
3750 IF LIGHT(I,T) =0 THEN CP(I,T,5)=BC
3760 NEXT I:NEXT T
3770 FOR T=1 TO 64:FOR I=1 TO 64:
3780 IF LIGHTPALE(I,T)<>0 THEN CP(I,T,6)=CP
3790 IF LIGHTPALE(I,T) =0 THEN CP(I,T,6)=BC
3800 NEXT I:NEXT T
3810 FOR T=1 TO 64:FOR I=1 TO 64:
3820 IF LIGHTSOLID(I,T)<>0 THEN CP(I,T,7)=CP
3830 IF LIGHTSOLID(I,T) =0 THEN CP(I,T,7)=BC
3840 NEXT I:NEXT T
3850 FOR T=1 TO 64:FOR I=1 TO 64:
3860 IF CHECKBOX(I,T)<>0 THEN CP(I,T,8)=CP
3870 IF CHECKBOX(I,T) =0 THEN CP(I,T,8)=BC
3880 NEXT I:NEXT T
3890 RETURN
3900 *SEQUENTIAL
3910 YY$=LEFT$(DATE$,2):MM$=RIGHT$(DATE$,5):MM$=LEFT$(MM$,2):DD$=RIGHT$(DATE$,2)
3920 REM ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
3930 OPEN "MYPIC"+YY$+MM$+DD$+".ASC" FOR OUTPUT AS #1
3940 FOR DLAY=0 TO 7:
3950 FOR T=1 TO 64:FOR I=1 TO 64
3960 LAYER$(I,T,DLAY)=HEX$(LAYER(I,T,DLAY)):REM PRINT LAYER$(I,T,Dlay);LAYER(I,T,lay);
3970 NEXT:PRINT:NEXT::
3980 FOR T=1 TO 64:FOR I=1 TO 64:LAYER$=LAYER$+LAYER$(I,T,DLAY):NEXT:DATAFLOOR$(T,DLAY)=LAYER$:LAYER$="":NEXT
3990 REM FOR I=1 TO 64:PRINT DATAFLOOR$(I,DLAY):NEXT
4000 NEXT
4010 FOR DLAY=0 TO 5:T=65:FOR I=1 TO 64:T=T-1:
4020 WRITE #1,DATAFLOOR$(I,DLAY),HEX$(T)+CHR$(44):NEXT:NEXT:CLOSE #1
4030 OPEN "LOGPIC.ASC" FOR OUTPUT AS #2
4040 FOR DLAY=0 TO 5:T=65:FOR I=1 TO 64:T=T-1:
4050 WRITE #2,DATAFLOOR$(I,DLAY),HEX$(T)+CHR$(44):NEXT:NEXT:WRITE #2,YY$+MM$+DD$+" DAYS END OF FILE"," ":CLOSE #2
4060 LOCATE 61,21:PRINT":MYPIC"+YY$+MM$+DD$+".ASC":LOCATE 61,22:PRINT"STATUS"
4070 LOCATE 61,23:PRINT"MATRIX X:64 Y:64":LOCATE 61,24:PRINT"/ LINE"
4080 COLOR@(0,0)-(79,24),0 :::
4090 CLS:GOSUB *REFRESHTXT:GOTO *FIELDCNT
4100 REM ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
4110 *SEQUENTIALLOAD
4120 YY$=LEFT$(DATE$,2):MM$=RIGHT$(DATE$,5):MM$=LEFT$(MM$,2):DD$=RIGHT$(DATE$,2)
4130 OPEN "MYPIC"+YY$+MM$+DD$+".ASC" FOR INPUT AS #3
4140 FOR T=1 TO 64:INPUT #3,DATAFLOOR$(T,0),CR$:NEXT
4150 FOR T=1 TO 64:FOR I=1 TO 64:LAYER(I,T,0)=VAL("&h"+RIGHT$(LEFT$(DATAFLOOR$(T,DLAY),I),1)):NEXT:NEXT
4160 CLOSE #3:
4170 REM FOR T=1 TO 64:FOR I=1 TO 64:PRINT LAYER(I,T,0);:NEXT:PRINT:NEXT:
4180 CLS:GOSUB *REFRESHTXT:GOTO *FIELDCNT
4190 ::
4200 ::
4210 *FDOT LOCATE 0,8:PRINT MSX;MSY,FMX;FMY,CP(I,T,DFL)
4220 J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1)
4230 IF MOUSE(2,1)=0 THEN J=1
4240 *DOTHIT
4250 FOR I=1 TO 64:FOR T=1 TO 64:
4260 IF (T*7)+20<MSX AND (T*7)+27>MSX THEN DOTX=T:
4270 NEXT T:IF (I*7)+20<MSY AND (I*7)+27>MSY THEN DOTY=I:
4280 NEXT I:LB=0
4290 FOR I=1 TO 64:FOR T=1 TO 64:
4300 IF (T*7)+20<MSX AND (T*7)+27>MSX THEN DOTXB=T:
4310 NEXT T:IF (I*7)+20<MSY AND (I*7)+27>MSY THEN DOTYB=I:
4320 NEXT I:LB=0
4330 IF DOTX<>DOTXB OR DOTY<>DOTYB THEN *DOTHIT
4340 IF DOTX>0 AND DOTY>0 AND DOTX<65 AND DOTY<65 THEN LINE(DOTX*7+20,DOTY*7+20)-(DOTX*7+27,DOTY*7+27),CP(DOTX,DOTY,DFL),BF:LAYER(DOTX,DOTY,LAY)=CP(DOTX,DOTY,DFL)
4350 WEND:
4360 GOTO *FIELDCNT
4370 END
4380 *FLINE CLK=0
4390 IF SWICH=0 THEN SWICH=1:GOTO *AREASC
4400 IF DC=1 THEN *AREASC
4410 REM IF DOUBLE=1 THEN DOUBLE=0:GOTO *AREASC
4420 IF UDX(IVC-1)=0 OR UDY(IVC-1)=0 THEN SWICH=1:GOTO *AREASC
4430 IF UDX(IVC)=UDX(IVC-1) AND UDY(IVC)=UDY(IVC-1) THEN *AREASC
4440 IF MCX=MOUSE(4,1) THEN ELSE *FIELDCNT
4450 IF XXL=1 OR UDX(IVC)=UDX(IVC-1) THEN *LINEHANDUD
4460 IF YYL=1 OR UDY(IVC)=UDY(IVC-1) THEN *LINEHANDRL
4470 IF XXL<0 AND YYL>0 THEN *LINEHANDRD
4480 IF XXL>0 AND YYL>0 THEN *LINEHANDLD
4490 IF XXL<0 AND YYL<0 THEN *LINEHANDRU
4500 IF XXL>0 AND YYL<0 THEN *LINEHANDLU
4510 *LINEHANDUD
4520 IF UDY(IVC)>UDY(IVC-1) THEN LHYY=UDY(IVC-1):LHYYL=YYL
4530 IF UDY(IVC)<UDY(IVC-1) THEN LHYY=UDY(IVC) :LHYYL=-YYL
4540 FOR I=LHYY TO LHYY+LHYYL STEP 1:
4550 LAYER(UDX(IVC),I,LAY)=CP(UDX(IVC),I,DFL):LINE(UDX(IVC)*7+20,I*7+20)-(UDX(IVC)*7+27,I*7+27),CP(UDX(IVC),I,DFL),BF
4560 NEXT:PRINT "ud";YYL;LHYY,"
4570 GOTO *AREASC
4580 *LINEHANDRL
4590 IF UDX(IVC)>UDX(IVC-1) THEN LHXX=UDX(IVC-1):LHXXL=XXL
4600 IF UDX(IVC)<UDX(IVC-1) THEN LHXX=UDX(IVC):LHXXL=-XXL
4610 FOR T=LHXX TO LHXX+LHXXL STEP 1:
4620 LAYER(T,UDY(IVC),5)=CP(T,UDY(IVC),DFL):LINE(T*7+20,UDY(IVC)*7+20)-(T*7+27,UDY(IVC)*7+27),CP(T,UDY(IVC),DFL),BF
4630 NEXT:PRINT "RL";XXL;LHXX,"
4640 GOTO *AREASC
4650 *LINEHANDRD
4660 XYL=XXL/YYL:STP=0:ISTP=0:BKSTP=0:
4670 FOR I=UDY(IVC-1) TO UDY(IVC) STEP 1:BKSTP=ISTP:STP=STP+XYL:ISTP=INT(STP)
4680 FOR T=UDX(IVC-1)+ISTP TO UDX(IVC-1)+BKSTP STEP 1:
4690 IF T>=UDX(IVC) AND T=<UDX(IVC-1) THEN LAYER(T,I,LAY)=CP(T,I,DFL):LINE(T*7+20,I*7+20)-(T*7+27,I*7+27),CP(T,I,DFL),BF
4700 NEXT:
4710 NEXT:PRINT "aa";XYL;STP;ISTP;BKSTP;YYL;T;I;" "
4720 GOTO *AREASC
4730 *LINEHANDLD
4740 XYL=XXL/YYL:STP=0:ISTP=0:BKSTP=0:
4750 FOR I=UDY(IVC-1) TO UDY(IVC) STEP 1:BKSTP=ISTP:STP=STP+XYL:ISTP=INT(STP)
4760 FOR T=UDX(IVC-1)+BKSTP TO UDX(IVC-1)+ISTP STEP 1:
4770 IF T>=UDX(IVC-1) AND T=<UDX(IVC) THEN LAYER(T,I,LAY)=CP(T,I,DFL):LINE(T*7+20,I*7+20)-(T*7+27,I*7+27),CP(T,I,DFL),BF
4780 NEXT:
4790 NEXT:PRINT "bb";XYL;STP;ISTP;BKSTP;T;I;"
4800 GOTO *AREASC
4810 *LINEHANDRU
4820 XYL=-XXL/-YYL:STP=0:ISTP=0:BKSTP=0:LOCATE 0,10:PRINT XYL;XXL;YYL," "
4830 FOR I=UDY(IVC) TO UDY(IVC-1) STEP 1:BKSTP=ISTP:STP=STP+XYL:ISTP=INT(STP)
4840 FOR T=UDX(IVC)+BKSTP TO UDX(IVC)+ISTP STEP 1:
4850 IF T>=UDX(IVC) AND T=<UDX(IVC-1) THEN LAYER(T,I,LAY)=CP(T,I,DFL):LINE(T*7+20,I*7+20)-(T*7+27,I*7+27),CP(T,I,DFL),BF
4860 NEXT:
4870 NEXT:PRINT "bb";XYL;STP;ISTP;BKSTP;T;I;"
4880 GOTO *AREASC
4890 *LINEHANDLU
4900 XYL=XXL/-YYL:STP=0:ISTP=0:BKSTP=0:
4910 FOR I=UDY(IVC) TO UDY(IVC-1) STEP 1:BKSTP=ISTP:STP=STP-XYL:ISTP=INT(STP):
4920 FOR T=UDX(IVC)+ISTP TO UDX(IVC)+BKSTP STEP 1:
4930 IF T>=UDX(IVC-1) AND T=<UDX(IVC) THEN LAYER(T,I,LAY)=CP(T,I,DFL):LINE(T*7+20,I*7+20)-(T*7+27,I*7+27),CP(T,I,DFL),BF
4940 NEXT:
4950 NEXT:PRINT "bb";XYL;STP;ISTP;BKSTP;T;I;"
4960 GOTO *AREASC
4970 *LINEUNDO
4980 REM FOR I=1 TO 64:FOR T=1 TO 64:
4990 END
5000 END
5010 END
5020 END
5030 END
5040 END
5050 END
5060 *TOOLS
5070 IF IVX(IVC)<488 THEN *FIELDCNT
5080 IF IVY(IVC)>39 AND IVY(IVC)<57 THEN *COLORPALLETE
5090 IF IVY(IVC)>58 AND IVY(IVC)<114 THEN *COLORCHANGE
5100 IF IVY(IVC)>115 AND IVY(IVC)<171 THEN *COLORLEVEL
5110 IF IVY(IVC)>172 AND IVY(IVC)<190 THEN *DITHER
5120 IF IVY(IVC)>191 AND IVY(IVC)<209 THEN *LINECARV
5130 IF IVY(IVC)>210 AND IVY(IVC)<228 THEN *PAINTPSET
5140 IF IVY(IVC)>229 AND IVY(IVC)<247 THEN *LAYERCHANGE
5150 IF IVY(IVC)>248 AND IVY(IVC)<285 THEN *PENCHANGE
5160 IF IVY(IVC)>286 AND IVY(IVC)<304 THEN *SPOITGLID
5170 IF IVY(IVC)>305 AND IVY(IVC)<323 THEN *UNDORESET
5180 IF IVY(IVC)>362 AND IVY(IVC)<380 THEN IF IVX(IVC)<MLC(77) AND IVX(IVC)>MLC(71) THEN *SEQUENTIALLOAD ELSE IF IVX(IVC)<MLC(71) THEN *SEQUENTIAL
5190 IF IVY(IVC)>362 AND IVY(IVC)<380 THEN IF IVX(IVC)<MLC(77) AND IVX(IVC)>MLC(71) THEN *SEQUENTIALLOAD ELSE IF IVX(IVC)<MLC(71) THEN *SEQUENTIAL
5200 IF IVY(IVC)>381 AND IVY(IVC)<399 THEN *FILENAME
5210 IVC=IVC-1
5220 GOTO *FIELDCNT
5230 END
5240 *COLORPALLETE
5250 FLAGCP=0
5260 FOR C=0 TO 15
5270 IF IVX(IVC)>MLC(C+61) AND IVX(IVC)<MLC(C+61) THEN FLAGCP=1:CP=C
5280 NEXT
5290 GOSUB *DITHERFILTERLING
5300 IF FLAGCP=1 THEN IF MOSE(2,2)<>0 THEN BC=CP:FLAGCP=0
5310 IF BCP=CP THEN *FIELDCNT
5320 I=0:FOR C=61 TO 76:LINE (MLC(C),MLF(2))-(MLCP(C),MLFP(2)),I,BF:I=I+1:NEXT C
5330 I=0:FOR C=61 TO 79
5340 IF CP=I THEN LINE (C,37)-(C+8,56),7,B
5350 I=I+1:NEXT
5360 GOTO *FIELDCNT
5370 END
5380 *LINECARV
5390 IF IVX(IVC)>488 AND IVX(IVC)<520 THEN FLAGS$="LINE"
5400 IF IVX(IVC)>552 AND IVX(IVC)<584 THEN FLAGS$="CARV"
5410 IF IVC>1 THEN IVC=IVC-1 ELSE IF IVC=1 THEN IVC=99
5420 COLOR 0:LOCATE 61,23:PRINT"/ ";FLAGS$;" ":LOCATE 73,23:PRINT" "
5430 GOTO *FIELDCNT
5440 END
5450 *PAINTPSET
5460 IF IVX(IVC)>488 AND IVX(IVC)<528 THEN FLAGS$="PAINT"
5470 IF IVX(IVC)>552 AND IVX(IVC)<576 THEN FLAGS$="DOT"
5480 IF IVC>1 THEN IVC=IVC-1 ELSE IF IVC=1 THEN IVC=99
5490 COLOR 0:LOCATE 61,23:PRINT"/ ";FLAGS$;" ":LOCATE 73,23:PRINT" "
5500 GOTO *FIELDCNT
5510 END
5520 *PENCHANGE
5530 IF IVX(IVC)>520 AND IVX(IVC)<528 THEN FLAGS$="PEN":PENTYPE$="circle"
5540 IF IVX(IVC)>552 AND IVX(IVC)<560 THEN FLAGS$="PEN":PENTYPE$="box "
5550 IF IVX(IVC)>576 AND IVX(IVC)<584 THEN FLAGS$="PEN":PENS=3
5560 IF IVX(IVC)>592 AND IVX(IVC)<600 THEN FLAGS$="PEN":PENS=5
5570 IF IVC>1 THEN IVC=IVC-1 ELSE IF IVC=1 THEN IVC=99
5580 COLOR 0:LOCATE 61,23:PRINT"/ ";FLAGS$;PENS;PENTYPE$;
5590 GOTO *FIELDCNT
5600 END
5610 END
5620 END
5630 END
5640 END
5650 *FPEN
5660 IF MSX>468 THEN *TOOLS
5670 IF MSX<20 OR MSX<20 OR MSX>468 OR MSX>468 THEN *COUNTERA
5680 J=0:NULL=MOUSE(2,1):IF NULL=0 THEN *AREASC
5690 IF PENTYPE$="circle" AND PENS=5 THEN *CPENFIVE
5700 IF PENTYPE$="circle" AND PENS=3 THEN *CPENTHREE
5710 IF PENTYPE$="box " AND PENS=5 THEN *BPENL
5720 IF PENTYPE$="box " AND PENS=3 THEN *BPENS
5730 IF PENTYPE$="" OR PENS=0 THEN PENS=5:PENTYPE$="circle":GOTO *FPEN
5740 GOTO *AREASC
5750 END
5760 *CPENFIVE LOCATE 0,8:PRINT MSX;MSY,FMX;FMY
5770 GOSUB *DITHERFILTERLING:FOR T=1 TO 64:LOCATE 0,20:PRINT CP(T,1,LAY);CP(T,2,LAY);CP(T,3,LAY);CP(T,4,LAY);CP(T,5,LAY);CP(T,6,LAY);
5780 PRINT CP(T,7,LAY);CP(T,8,LAY);CP(T,9,LAY);CP(T,10,LAY);CP(T,11,LAY);CP(T,12,LAY);CP(T,13,LAY);
5790 PRINT CP(T,14,LAY);CP(T,15,LAY);CP(T,16,LAY);CP(T,17,LAY);CP(T,18,LAY);CP(T,19,LAY);CP(T,20,LAY);
5800 PRINT CP(T,21,LAY);CP(T,22,LAY);CP(T,23,LAY);CP(T,24,LAY);CP(T,25,LAY);CP(T,26,LAY);CP(T,27,LAY);
5810 PRINT CP(T,28,LAY);CP(T,29,LAY);CP(T,30,LAY);CP(T,31,LAY);CP(T,32,LAY);CP(T,33,LAY);CP(T,34,LAY);
5820 PRINT CP(T,35,LAY);CP(T,36,LAY);CP(T,37,LAY);CP(T,38,LAY);CP(T,39,LAY);CP(T,40,LAY);CP(T,41,LAY);
5830 PRINT CP(T,42,LAY);CP(T,42,LAY);CP(T,43,LAY);CP(T,44,LAY);CP(T,45,LAY);CP(T,46,LAY);CP(T,47,LAY);
5840 PRINT CP(T,48,LAY);CP(T,49,LAY);CP(T,50,LAY);CP(T,51,LAY);CP(T,52,LAY);CP(T,53,LAY);CP(T,54,LAY);
5850 PRINT CP(T,55,LAY);CP(T,56,LAY);CP(T,57,LAY);CP(T,58,LAY);CP(T,59,LAY);CP(T,60,LAY);CP(T,61,LAY);CP(T,62,LAY);CP(T,63,LAY);CP(T,64,LAY);
5860 NEXT
5870 J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1):DFL=1
5880 IF MOUSE(2,1)=0 THEN J=1
5890 FOR I=1 TO 64:FOR T=1 TO 64:
5900 IF T*7+20<MSX AND T*7+27>MSX THEN PENX=T:
5910 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN PENY=I:
5920 NEXT I:LB=0
5930 IF PENX>0 AND PENY>0 AND PENX<65 AND PENY<65 THEN LINE(PENX*7+20,PENY*7+20)-(PENX*7+27,PENY*7+27),CP(PENX,PENY,DFL),BF:LAYER(PENX,PENY,LAY)=CP(PENX,PENY,DFL)
5940 IF PENX>1 AND PENY>2 THEN LINE(PENX*7-7+20,PENY*7-14+20)-(PENX*7-7+27,PENY*7-14+27),CP(PENX-1,PENY-2,DFL),BF:LAYER(PENX-1,PENY-2,LAY)=CP(PENX-1,PENY-2,DFL)
5950 IF PENX>2 AND PENY>1 THEN LINE(PENX*7-14+20,PENY*7-7+20)-(PENX*7-14+27,PENY*7-7+27),CP(PENX-2,PENY-1,DFL),BF:LAYER(PENX-2,PENY-1,LAY)=CP(PENX-2,PENY-1,DFL)
5960 IF PENX>2 AND PENY>0 THEN LINE(PENX*7-14+20,PENY*7+0+20)-(PENX*7-14+27,PENY*7+0+27),CP(PENX-2,PENY ,DFL),BF:LAYER(PENX-2,PENY ,LAY)=CP(PENX-2,PENX ,DFL)
5970 IF PENX>2 AND PENY<64 THEN LINE(PENX*7-14+20,PENY*7+7+20)-(PENX*7-14+27,PENY*7+7+27),CP(PENX-2,PENY+1,DFL),BF:LAYER(PENX-2,PENY+1,LAY)=CP(PENX-2,PENY+1,DFL)
5980 IF PENX>1 AND PENY<63 THEN LINE(PENX*7-7+20,PENY*7+14+20)-(PENX*7-7+27,PENY*7+14+27),CP(PENX-1,PENY+2,DFL),BF:LAYER(PENX-1,PENY+2,LAY)=CP(PENX-1,PENY+2,DFL)
5990 IF PENX>1 AND PENY>1 THEN LINE(PENX*7-7+20,PENY*7-7+20)-(PENX*7-7+27,PENY*7-7+27),CP(PENX-1,PENY-1,DFL),BF:LAYER(PENX-1,PENY-1,LAY)=CP(PENX-1,PENY-1,DFL)
6000 IF PENX>1 AND PENY>0 THEN LINE(PENX*7-7+20,PENY*7+0+20)-(PENX*7-7+27,PENY*7+0+27),CP(PENX-1,PENY ,DFL),BF:LAYER(PENX-1,PENY ,LAY)=CP(PENX-1,PENX ,DFL)
6010 IF PENX>1 AND PENY<64 THEN LINE(PENX*7-7+20,PENY*7+7+20)-(PENX*7-7+27,PENY*7+7+27),CP(PENX-1,PENY+1,DFL),BF:LAYER(PENX-1,PENY+1,LAY)=CP(PENX-1,PENY+1,DFL)
6020 IF PENX>0 AND PENY>2 THEN LINE(PENX*7-0+20,PENY*7-14+20)-(PENX*7-0+27,PENY*7-14+27),CP(PENX ,PENY-2,DFL),BF:LAYER(PENX ,PENY-2,LAY)=CP(PENX ,PENY-2,DFL)
6030 IF PENX>0 AND PENY>1 THEN LINE(PENX*7-0+20,PENY*7-7+20)-(PENX*7-0+27,PENY*7-7+27),CP(PENX ,PENY-1,DFL),BF:LAYER(PENX ,PENY-1,LAY)=CP(PENX ,PENY-1,DFL)
6040 IF PENX>0 AND PENY<64 THEN LINE(PENX*7-0+20,PENY*7+7+20)-(PENX*7-0+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL),BF:LAYER(PENX ,PENY+1,LAY)=CP(PENX ,PENY+1,DFL)
6050 IF PENX>0 AND PENY<63 THEN LINE(PENX*7-0+20,PENY*7+14+20)-(PENX*7-0+27,PENY*7+14+27),CP(PENX ,PENY+2,DFL),BF:LAYER(PENX ,PENY+2,LAY)=CP(PENX ,PENY+2,DFL)
6060 IF PENX<64 AND PENY>2 THEN LINE(PENX*7+7+20,PENY*7-14+20)-(PENX*7+7+27,PENY*7-14+27),CP(PENX+1,PENY-2,DFL),BF:LAYER(PENX+1,PENY-2,LAY)=CP(PENX+1,PENY-2,DFL)
6070 IF PENX<63 AND PENY>1 THEN LINE(PENX*7+14+20,PENY*7-7+20)-(PENX*7+14+27,PENY*7-7+27),CP(PENX+2,PENY-1,DFL),BF:LAYER(PENX+2,PENY-1,LAY)=CP(PENX+2,PENY-1,DFL)
6080 IF PENX<63 AND PENY>0 THEN LINE(PENX*7+14+20,PENY*7+0+20)-(PENX*7+14+27,PENY*7+0+27),CP(PENX+2,PENY ,DFL),BF:LAYER(PENX+2,PENY ,LAY)=CP(PENX+2,PENY ,DFL)
6090 IF PENX<63 AND PENY<64 THEN LINE(PENX*7+14+20,PENY*7+7+20)-(PENX*7+14+27,PENY*7+7+27),CP(PENX+2,PENY+1,DFL),BF:LAYER(PENX+2,PENY+1,LAY)=CP(PENX+2,PENY+1,DFL)
6100 IF PENX<64 AND PENY<63 THEN LINE(PENX*7+7+20,PENY*7+14+20)-(PENX*7+7+27,PENY*7+14+27),CP(PENX+1,PENY+2,DFL),BF:LAYER(PENX+1,PENY+2,LAY)=CP(PENX+1,PENY+2,DFL)
6110 IF PENX<64 AND PENY>1 THEN LINE(PENX*7+7+20,PENY*7-7+20)-(PENX*7+7+27,PENY*7-7+27),CP(PENX+1,PENY-1,DFL),BF:LAYER(PENX+1,PENY-1,LAY)=CP(PENX+1,PENY-1,DFL)
6120 IF PENX<64 AND PENY>0 THEN LINE(PENX*7+7+20,PENY*7+0+20)-(PENX*7+7+27,PENY*7+0+27),CP(PENX+1,PENY ,DFL),BF:LAYER(PENX+1,PENY ,LAY)=CP(PENX+1,PENY ,DFL)
6130 IF PENX<64 AND PENY<64 THEN LINE(PENX*7+7+20,PENY*7+7+20)-(PENX*7+7+27,PENY*7+7+27),CP(PENX+1,PENY+1,DFL),BF:LAYER(PENX+1,PENY+1,LAY)=CP(PENX+1,PENY+1,DFL)
6140 REM LOCATE 0,22:PRINT LAY;" ";CP(PENX,PENY,LAY);CP(PENX-1,PENY-2,LAY);CP(PENX-2,PENY+1,LAY);CP(PENX-2,PENY ,LAY);CP(PENX-2,PENY+1,LAY);CP(PENX-2,PENY+1,LAY);CP(PENX-1,PENY-1,LAY);
6150 REM LOCATE 0,23:PRINT CP(PENX-1,PENY ,LAY);CP(PENX-1,PENY+1,LAY);CP(PENX ,PENY-2,LAY);CP(PENX ,PENY-1,LAY);CP(PENX ,PENY+1,LAY);CP(PENX ,PENY+2,LAY);CP(PENX+1,PENY-2,LAY);
6160 REM LOCATE 0,24:PRINT CP(PENX+2,PENY-1,LAY);CP(PENX+2,PENY ,LAY);CP(PENX+2,PENY+1,LAY);CP(PENX+1,PENY+2,LAY);CP(PENX+1,PENY ,LAY);CP(PENX+1,PENY+1,LAY);
6170 WEND
6180 GOTO *AREASC
6190 END
6200 *CPENTHREE
6210 LOCATE 0,8:PRINT MSX;MSY,FMX;FMY,CP(I,T,LAY)
6220 J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1)
6230 IF MOUSE(2,1)=0 THEN J=1
6240 FOR I=1 TO 64:FOR T=1 TO 64:
6250 IF T*7+20<MSX AND T*7+27>MSX THEN PENX=T:
6260 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN PENY=I:
6270 NEXT I:LB=0
6280 IF PENX>0 AND PENY>0 AND PENX<65 AND PENY<65 THEN LINE(PENX*7+20,PENY*7+20)-(PENX*7+27,PENY*7+27),CP(PENX,PENY,DFL),BF:LAYER(PENX,PENY,LAY)=CP(PENX,PENY,DFL)
6290 IF PENX>1 AND PENY>0 THEN LINE(PENX*7-7+20,PENY*7+0+20)-(PENX*7-7+27,PENY*7+0+27),CP(PENX-1,PENY ,DFL ),BF :LAYER(PENX-1,PENY ,LAY)=CP(PENX-1,PENY,DFL)
6300 IF PENX<64 AND PENY>0 THEN LINE(PENX*7+7+20,PENY*7+0+20)-(PENX*7+7+27,PENY*7+0+27),CP(PENX+1,PENY ,DFL ),BF :LAYER(PENX+1,PENY ,LAY)=CP(PENX+1,PENY,DFL)
6310 IF PENX>0 AND PENY<64 THEN LINE(PENX*7-0+20,PENY*7+7+20)-(PENX*7-0+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL ),BF :LAYER(PENX ,PENY+1,LAY)=CP(PENX,PENY+1,DFL)
6320 IF PENX>0 AND PENY>1 THEN LINE(PENX*7-0+20,PENY*7-7+20)-(PENX*7-0+27,PENY*7-7+27),CP(PENX ,PENY-1,DFL ),BF :LAYER(PENX ,PENY-1,LAY)=CP(PENX,PENY-1,DFL)
6330 WEND
6340 GOTO *AREASC
6350 END
6360 *BPENL LOCATE 0,8:PRINT MSX;MSY,FMX;FMY,CP(I,T,DFL)
6370 J=0:J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1)
6380 IF MOUSE(2,1)=0 THEN J=1
6390 FOR I=1 TO 64:FOR T=1 TO 64:
6400 IF T*7+20<MSX AND T*7+27>MSX THEN PENX=T:
6410 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN PENY=I:
6420 NEXT I:LB=0
6430 IF PENX>0 AND PENY>0 AND PENX<65 AND PENY<65 THEN LINE(PENX*7+20,PENY*7+20)-(PENX*7+27,PENY*7+27),CP(PENX,PENY,DFL),BF:LAYER(PENX,PENY,LAY)=CP(PENX,PENY,DFL)
6440 IF PENX>1 AND PENY>2 THEN LINE(PENX*7-7 +20,PENY*7-14+20)-(PENX*7 -7+27,PENY*7-14+27),CP(PENX+1,PENY-2,DFL),BF:LAYER(PENX+1,PENY-2,LAY)=CP(PENX+1,PENY-2,DFL)
6450 IF PENX>2 AND PENY>1 THEN LINE(PENX*7-14+20,PENY*7-7+20)-(PENX*7-14+27,PENY*7-7+27),CP(PENX-2,PENY-1,DFL),BF:LAYER(PENX-2,PENY-1,LAY)=CP(PENX-2,PENY-1,DFL)
6460 IF PENX>2 AND PENY>0 THEN LINE(PENX*7-14+20,PENY*7+0+20)-(PENX*7-14+27,PENY*7+0+27),CP(PENX-2,PENY ,DFL),BF:LAYER(PENX-2,PENY ,LAY)=CP(PENX-2,PENY ,DFL)
6470 IF PENX>2 AND PENY<64 THEN LINE(PENX*7-14+20,PENY*7+7+20)-(PENX*7-14+27,PENY*7+7+27),CP(PENX-2,PENY+1,DFL),BF:LAYER(PENX-2,PENY+1,LAY)=CP(PENX-2,PENY+1,DFL)
6480 IF PENX>1 AND PENY<63 THEN LINE(PENX*7-7+20,PENY*7+14+20)-(PENX*7-7+27,PENY*7+14+27),CP(PENX-1,PENY+2,DFL),BF:LAYER(PENX-1,PENY+2,LAY)=CP(PENX-1,PENY+2,DFL)
6490 IF PENX>1 AND PENY>1 THEN LINE(PENX*7-7+20,PENY*7-7+20)-(PENX*7-7+27,PENY*7-7+27),CP(PENX-1,PENY-1,DFL),BF:LAYER(PENX-1,PENY-1,LAY)=CP(PENX-1,PENY-1,DFL)
6500 IF PENX>1 AND PENY>0 THEN LINE(PENX*7-7+20,PENY*7+0+20)-(PENX*7-7+27,PENY*7+0+27),CP(PENX-1,PENY ,DFL),BF:LAYER(PENX-1,PENY ,LAY)=CP(PENX-1,PENY ,DFL)
6510 IF PENX>1 AND PENY<64 THEN LINE(PENX*7-7+20,PENY*7+7+20)-(PENX*7-7+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL),BF:LAYER(PENX ,PENY+1,LAY)=CP(PENX ,PENY-2,DFL)
6520 IF PENX>0 AND PENY>2 THEN LINE(PENX*7-0+20,PENY*7-14+20)-(PENX*7-0+27,PENY*7-14+27),CP(PENX ,PENY-2,DFL),BF:LAYER(PENX ,PENY-2,LAY)=CP(PENX ,PENY-1,DFL)
6530 IF PENX>0 AND PENY>1 THEN LINE(PENX*7-0+20,PENY*7-7+20)-(PENX*7-0+27,PENY*7-7+27),CP(PENX ,PENY-1,DFL),BF:LAYER(PENX ,PENY-1,LAY)=CP(PENX ,PENY-1,DFL)
6540 IF PENX>0 AND PENY<64 THEN LINE(PENX*7-0+20,PENY*7+7+20)-(PENX*7-0+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL),BF:LAYER(PENX ,PENY+1,LAY)=CP(PENX ,PENY+1,DFL)
6550 IF PENX>0 AND PENY<63 THEN LINE(PENX*7-0+20,PENY*7+14+20)-(PENX*7-0+27,PENY*7+14+27),CP(PENX ,PENY+2,DFL),BF:LAYER(PENX ,PENY+2,LAY)=CP(PENX ,PENY+2,DFL)
6560 IF PENX<64 AND PENY>2 THEN LINE(PENX*7+7+20,PENY*7-14+20)-(PENX*7+7+27,PENY*7-14+27),CP(PENX+1,PENY-2,DFL),BF:LAYER(PENX+1,PENY-2,LAY)=CP(PENX+1,PENY-2,DFL)
6570 IF PENX<63 AND PENY>1 THEN LINE(PENX*7+14+20,PENY*7-7+20)-(PENX*7+14+27,PENY*7-7+27),CP(PENX+2,PENY-1,DFL),BF:LAYER(PENX+2,PENY-1,LAY)=CP(PENX+2,PENY-1,DFL)
6580 IF PENX<63 AND PENY>0 THEN LINE(PENX*7+14+20,PENY*7+0+20)-(PENX*7+14+27,PENY*7+0+27),CP(PENX+2,PENY ,DFL),BF:LAYER(PENX+2,PENY ,LAY)=CP(PENX+2,PENY ,DFL)
6590 IF PENX<63 AND PENY<64 THEN LINE(PENX*7+14+20,PENY*7+7+20)-(PENX*7+14+27,PENY*7+7+27),CP(PENX+2,PENY+1,DFL),BF:LAYER(PENX+2,PENY+1,LAY)=CP(PENX+2,PENY+1,DFL)
6600 IF PENX<64 AND PENY<63 THEN LINE(PENX*7+7+20,PENY*7+14+20)-(PENX*7+7+27,PENY*7+14+27),CP(PENX+1,PENY+2,DFL),BF:LAYER(PENX+1,PENY+2,LAY)=CP(PENX+1,PENY+2,DFL)
6610 IF PENX<64 AND PENY>1 THEN LINE(PENX*7+7+20,PENY*7-7+20)-(PENX*7+7+27,PENY*7-7+27),CP(PENX+1,PENY-1,DFL),BF:LAYER(PENX+1,PENY-1,LAY)=CP(PENX+1,PENY-1,DFL)
6620 IF PENX<64 AND PENY>0 THEN LINE(PENX*7+7+20,PENY*7+0+20)-(PENX*7+7+27,PENY*7+0+27),CP(PENX+1,PENY ,DFL),BF:LAYER(PENX+1,PENY ,LAY)=CP(PENX+1,PENY ,DFL)
6630 IF PENX<64 AND PENY<64 THEN LINE(PENX*7+7+20,PENY*7+7+20)-(PENX*7+7+27,PENY*7+7+27),CP(PENX+1,PENY+1,DFL),BF:LAYER(PENX+1,PENY+1,LAY)=CP(PENX+1,PENY+1,DFL)
6640 IF PENX>2 AND PENY<63 THEN LINE(PENX*7-14+20,PENY*7+14+20)-(PENX*7-14+27,PENY*7+14+27),CP(PENX-2,PENY+2,DFL),BF:LAYER(PENX-2,PENY+2,LAY)=CP(PENX-2,PENY+2,DFL)
6650 IF PENX<63 AND PENY<63 THEN LINE(PENX*7+14+20,PENY*7+14+20)-(PENX*7+14+27,PENY*7+14+27),CP(PENX+2,PENY+2,DFL),BF:LAYER(PENX+2,PENY+2,LAY)=CP(PENX+2,PENY+2,DFL)
6660 IF PENX<63 AND PENY>2 THEN LINE(PENX*7+14+20,PENY*7-14+20)-(PENX*7+14+27,PENY*7-14+27),CP(PENX+2,PENY-2,DFL),BF:LAYER(PENX+2,PENY-2,LAY)=CP(PENX+2,PENY-2,DFL)
6670 IF PENX>2 AND PENY>2 THEN LINE(PENX*7-14+20,PENY*7-14+20)-(PENX*7-14+27,PENY*7-14+27),CP(PENX-2,PENY-2,DFL),BF:LAYER(PENX-2,PENY-2,LAY)=CP(PENX-2,PENY-2,DFL)
6680 WEND
6690 GOTO *AREASC
6700 END
6710 *BPENS
6720 LOCATE 0,8:PRINT MSX;MSY,FMX;FMY,CP(I,T,FL)
6730 J=0:WHILE J<1:MSX=MOUSE(0):MSY=MOUSE(1)
6740 IF MOUSE(2,1)=0 THEN J=1
6750 FOR I=1 TO 64:FOR T=1 TO 64:
6760 IF T*7+20<MSX AND T*7+27>MSX THEN PENX=T:
6770 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN PENY=I:
6780 NEXT I:LB=0
6790 IF PENX>0 AND PENY>0 AND PENX<65 AND PENY<65 THEN LINE(PENX*7+20,PENY*7+20)-(PENX*7+27,PENY*7+27),CP(PENX,PENY,DFL),BF:LAYER(PENX,PENY,DFL)=CP(PENX,PENY,DFL)
6800 IF PENX>1 AND PENY>0 THEN LINE(PENX*7+7+20,PENY*7+0+20)-(PENX*7+7+27,PENY*7+0+27),CP(PENX+1,PENY ,DFL),BF :LAYER(PENX+1,PENY ,LAY)=CP(PENX-1,PENY ,DFL )
6810 IF PENX<64 AND PENY>0 THEN LINE(PENX*7-7+20,PENY*7+0+20)-(PENX*7-7+27,PENY*7+0+27),CP(PENX-1,PENY ,DFL),BF :LAYER(PENX-1,PENY ,LAY)=CP(PENX-1,PENY ,DFL )
6820 IF PENX>0 AND PENY<64 THEN LINE(PENX*7-0+20,PENY*7-7+20)-(PENX*7-0+27,PENY*7-7+27),CP(PENX ,PENY-1,DFL),BF :LAYER(PENX ,PENY-1,LAY)=CP(PENX ,PENY-1,DFL )
6830 IF PENX>0 AND PENY>1 THEN LINE(PENX*7-0+20,PENY*7+7+20)-(PENX*7-0+27,PENY*7+7+27),CP(PENX ,PENY+1,DFL),BF :LAYER(PENX ,PENY+1,LAY)=CP(PENX ,PENY+1,DFL )
6840 IF PENX>1 AND PENY>1 THEN LINE(PENX*7-7+20,PENY*7-7+20)-(PENX*7-7+27,PENY*7-7+27),CP(PENX-1,PENY-1,DFL),BF :LAYER(PENX-1,PENY-1,LAY)=CP(PENX-1,PENY-1,DFL )
6850 IF PENX<64 AND PENY>1 THEN LINE(PENX*7+7+20,PENY*7-7+20)-(PENX*7+7+27,PENY*7-7+27),CP(PENX+1,PENY-1,DFL),BF :LAYER(PENX-1,PENY+1,LAY)=CP(PENX-1,PENY+1,DFL )
6860 IF PENX>1 AND PENY<64 THEN LINE(PENX*7-7+20,PENY*7+7+20)-(PENX*7-7+27,PENY*7+7+27),CP(PENX-1,PENY+1,DFL),BF :LAYER(PENX-1,PENY+1,LAY)=CP(PENX-1,PENY+1,DFL )
6870 IF PENX<64 AND PENY<64 THEN LINE(PENX*7+7+20,PENY*7+7+20)-(PENX*7+7+27,PENY*7+7+27),CP(PENX+1,PRNY+1,DFL),BF :LAYER(PENX+1,PENY+1,LAY)=CP(PENX+1,PENY+1,DFL )
6880 WEND
6890 GOTO *AREASC
6900 END
6910 END
6920 END
6930 *FPAINT
6940 *PIXMASKSC
6950 MASKCNT=0:MASKCLE=2:MSX=MOUSE(0):MSY=MOUSE(1):IY=0:TX=0
6960 FOR I=1 TO 64:IY=INT(I/8):FOR T=1 TO 64:TX=INT(T/8)
6970 IF T*7+20<MSX AND T*7+27>MSX THEN MASKX=T:BLOCX=TX:
6980 NEXT T:IF I*7+20<MSY AND I*7+27>MSY THEN MASKY=I:BLOCY=IY:
6990 NEXT I:LB=0
7000 IF MASKX=0 OR MASKY=0 THEN *PIXMASKSC
7010 POINTX=MASKX-(BLOCX*8):POINTY=MASKY-(BLOCY*8)
7020 IF MASKX/2=INT(MASKX/2) THEN KIGUX$="GUSU" ELSE KIGUX$="KISU"
7030 IF MASKY/2=INT(MASKY/2) THEN KIGUY$="GUSU" ELSE KIGUY$="KISU"
7040 STEPX=BLOCX*8:STEPY=BLOCY*8:SX=BLOCX*4:SY=BLOCY*4:MP=LAYER(MASKX,MASKY,LAY)
7050 LOCATE 0,1:PRINT POINTX;POINTY;MASKX;MASKY;BLOCX;BLOCY;TX;IY
7060 PRINT "X:";KIGUX$;"/Y:";KIGUY$;STEPX;STEPY;
7070 IF KIGUX$="KISU" THEN *LUMASK
7080 IF KIGUX$="GUSU" THEN *RUMASK
7090 IF KIGUY$="KISU" THEN *LDMASK
7100 IF KIGUY$="GUSU" THEN *RDMASK
7110 END
7120 *LUMASK PTX=POINTX:PTY=POINTY
7130 MASK(MASKX,MASKY)=1
7140 IF PTX>0 AND PTX<3 AND PTY=1 THEN PT=1 ELSE IF PTX=1 AND PTY=2 THEN PT=1
7150 IF PTY<5 AND PTY>2 AND PTX=1 THEN PT=2 ELSE IF PTY<4 AND PTY>1 AND PTX=2 THEN PT=2
7160 IF PTY<3 AND PTY>0 AND PTX=3 THEN PT=2 ELSE IF PTY=1 AND PTX=4 THEN PT=2
7170 IF PTX=1 AND PTY>4 AND PTY<7 THEN PT=3 ELSE IF PTX=2 AND PTY>3 AND PTY<6 THEN PT=3
7180 IF PTX=3 AND PTY>2 AND PTY<5 THEN PT=3 ELSE IF PTX=4 AND PTY>1 AND PTY<4 THEN PT=3
7190 IF PTX=5 AND PTY>0 AND PTY<3 THEN PT=3 ELSE IF PTX=6 AND PTY=1 THEN PT=3
7200 IF PTX=1 AND PTY>6 AND PTY<9 THEN PT=4 ELSE IF PTX=2 AND PTY>5 AND PTY<8 THEN PT=4
7210 IF PTX=3 AND PTY>4 AND PTY<7 THEN PT=4 ELSE IF PTX=4 AND PTY>3 AND PTY<6 THEN PT=4
7220 IF PTX=4 AND PTY>2 AND PTY<5 THEN PT=4 ELSE IF PTX=5 AND PTY>1 AND PTY<4 THEN PT=4
7230 IF PTX=6 AND PTY>0 AND PTY<3 THEN PT=4 ELSE IF PTX=7 AND PTY>0 AND PTY<2 THEN PT=4
7240 IF PTX>1 AND PTX<3 AND PTY=8 THEN PT=5 ELSE IF PTY=7 AND PTX>2 AND PTX<5 THEN PT=5
7250 IF PTY=6 AND PTX>3 AND PTX<6 THEN PT=5 ELSE IF PTY=5 AND PTX>4 AND PTX<7 THEN PT=5
7260 IF PTY=4 AND PTX>5 AND PTX<8 THEN PT=5 ELSE IF PTX=8 AND PTY>4 AND PTY<9 THEN PT=5
7270 IF PTY=8 AND PTX>3 AND PTX<6 THEN PT=6 ELSE IF PTY=7 AND PTX>4 AND PTX<7 THEN PT=6
7280 IF PTY=6 AND PTX>5 AND PTX<8 THEN PT=6 ELSE IF PTY=5 AND PTX>6 AND PTX<9 THEN PT=6
7290 IF PTY=5 AND PTX=8 THEN PT=6 ELSE IF PTY=8 AND PTX>6 AND PTX<9 THEN PT=7
7300 IF PTY=7 AND PTX=8 THEN PT=7
7310 IF PT=1 THEN GOSUB *LUMA ELSE IF PT=2 THEN *LUMB ELSE IF PT=3 THEN *LUMC
7320 IF PT=4 THEN *LUMD ELSE IF PT=5 THEN *LUME ELSE IF PT=6 THEN *LUMF
7330 IF PT=7 THEN *LUMG
7340 END
7350 *LUMA MS=0
7360 IF POINTX=1 AND POINTY=1 THEN MASK(1,1)=1:MS=1
7370 IF MS=1 THEN IF LAYER(1,2,LAY)=MP THEN MASK(1,2)=1
7380 IF MS=1 THEN IF LAYER(2,1,LAY)=MP THEN MASK(2,1)=1
7390 IF POINTX=2 AND POINTY=1 THEN MASK(2,1)=1:MS=2
7400 IF MS=2 THEN IF LAYER(1,1,LAY)=MP THEN MASK(1,1)=1:PMS=2
7410 IF MS=2 AND PMS=2 THEN IF LAYER(1,2,LAY)=MP THEN MASK(1,2)=1
7420 IF POINTX=1 AND POINTY=2 THEN MASK(1,2)=1:MS=3
7430 IF MS=3 THEN IF LAYER(1,1,LAY)=MP THEN MASK(1,1)=1:PMS=3
7440 IF MS=3 AND PMS=3 THEN IF LAYER(2,1,LAY)=MP THEN MASK(2,1)=1
7450 PTSD=2:GOTO *SCDLUMA
7460 *SCDLUMA
7470 IF PT=1 AND PTSD=2 THEN *MASKLOOP
7480 END
7490 END
7500 END
7510 END
7520 END
7530 END
7540 *MASKLOOP
7550 REM TSY=2:ISX=2:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK:TSY=4:ISX=4:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK
7560 REM TSY=6:ISX=6:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK:TSY=8:ISX=8:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK
7570 REM TSY=9:ISX=8:TP=-1:IP=1:IS=2:GOSUB *BLOCINMASK:TSY=9:ISX=8:TP=-1:IP=1:IS=4:GOSUB *BLOCINMASK
7580 REM TSY=9:ISX=8:TP=-1:IP=1:IS=6:GOSUB *BLOCINMASK:
7590 ::
7600 REM TSY=2:ISX=2:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK:TSY=4:ISX=4:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK
7610 REM TSY=6:ISX=6:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK:TSY=8:ISX=8:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK
7620 REM TSY=9:ISX=8:TP=-1:IP=1:IS=2:GOSUB *BLOCINMASK:TSY=9:ISX=8:TP=-1:IP=1:IS=4:GOSUB *BLOCINMASK
7630 REM TSY=9:ISX=8:TP=-1:IP=1:IS=6:GOSUB *BLOCINMASK:
7640 ::
7650 REM TSY=2:ISX=2:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK:TSY=4:ISX=4:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK
7660 REM TSY=6:ISX=6:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK:TSY=8:ISX=8:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK
7670 REM TSY=9:ISX=8:TP=-1:IP=1:IS=2:GOSUB *BLOCINMASK:TSY=9:ISX=8:TP=-1:IP=1:IS=4:GOSUB *BLOCINMASK
7680 REM TSY=9:ISX=8:TP=-1:IP=1:IS=6:GOSUB *BLOCINMASK:
7690 ::
7700 REM TSY=2:ISX=2:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK:TSY=4:ISX=4:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK
7710 REM TSY=6:ISX=6:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK:TSY=8:ISX=8:TP=-1:IP=1:IS=1:GOSUB *BLOCINMASK
7720 REM TSY=9:ISX=8:TP=-1:IP=1:IS=2:GOSUB *BLOCINMASK:TSY=9:ISX=8:TP=-1:IP=1:IS=4:GOSUB *BLOCINMASK
7730 REM TSY=9:ISX=8:TP=-1:IP=1:IS=6:GOSUB *BLOCINMASK:
7740 ::
7750 END
7760 END
7770 END
7780 *BLOCINMASK
7790 ' CNTB=CNT:TT=TSY+SY+BPY:T=TSY:I=IS:FOR II=IS+SX+BPX TO ISX+SX+BPX STEP IP
7800 IF T>2 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II ,TT-2)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
7810 IF T>1 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(II ,TT-1)=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
7820 IF I>1 AND T<9 AND I>1 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II-1,TT-1)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
7830 IF I>0 AND T<9 AND I>1 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(II-1,TT )=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
7840 IF T>1 AND T<9 AND I>1 AND I<8 AND LAYER(II,TT-1,LAY)=MP AND MASK(IPENX+1,TT-1)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
7850 IF T>0 AND T<9 AND I>0 AND I<8 AND LAYER(II,TT ,LAY)=MP AND MASK(II+1,TT )=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
7860 IF T>1 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II ,TT )=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
7870 IF T>0 AND T<8 AND I>0 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(IT ,TT+1)=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
7880 T=T+TP:I=I+IP:NEXT
7890 IF CNT<>CNTB THEN *BLOCINMASK
7900 T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(I+SX,T+SY)=1 AND BLOCY<8 THEN BLPASS(BLOCX,BLOCY+1)=1:PASS=1:BLSTART(BLOCX,BLOCY+1)=I
7910 WEND
7920 T=1:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(I+SX,T+SY)=1 AND BLOCY>1 THEN BLPASS(BLOCX,BLOCY-1)=1:PASS=1:BLSTART(BLOCX,BLOCY-1)=I
7930 WEND
7940 T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(T+SX,I+SY)=1 AND BLOCX<8 THEN BLPASS(BLOCX+1,BLOCY)=1:PASS=1:BLSTART(BLOCX+1,BLOCY)=I
7950 WEND
7960 T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(T+SX,I+SY)=1 AND BLOCX>1 THEN BLPASS(BLOCX-1,BLOCY)=1:PASS=1:BLSTART(BLOCX-1,BLOCY)=I
7970 WEND
7980 RETURN
7990 ::
8000 *BLOCINMASKMR
8010 ' CNTB=CNT:TT=TSY+SY+BPY:T=TSY:I=IS:FOR II=-(IS+SX+BPX) TO -(ISX+SX+BPX) STEP -IP
8020 IF T>2 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II ,TT-2)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8030 IF T>1 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(II ,TT-1)=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8040 IF I>1 AND T<9 AND I>1 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II-1,TT-1)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8050 IF I>0 AND T<9 AND I>1 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(II-1,TT )=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8060 IF T>1 AND T<9 AND I>1 AND I<8 AND LAYER(II,TT-1,LAY)=MP AND MASK(II+1,TT-1)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8070 IF T>0 AND T<9 AND I>0 AND I<8 AND LAYER(II,TT ,LAY)=MP AND MASK(II+1,TT )=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8080 IF T>1 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II ,TT )=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8090 IF T>0 AND T<8 AND I>0 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(IT ,TT+1)=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8100 T=T+TP:I=I-IP:NEXT
8110 IF CNT<>CNTB THEN *BLOCINMASK
8120 REM T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(I+SX,T+SY)=1 AND BLOCY<8 THEN BLPASS(BLOCX,BLOCY+1)=1:PASS=1:BLSTART(BLOCX,BLOCY+1)=I
8130 REM WEND
8140 REM T=1:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(I+SX,T+SY)=1 AND BLOCY>1 THEN BLPASS(BLOCX,BLOCY-1)=1:PASS=1:BLSTART(BLOCX,BLOCY-1)=I
8150 REM WEND
8160 REM T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(T+SX,I+SY)=1 AND BLOCX<8 THEN BLPASS(BLOCX+1,BLOCY)=1:PASS=1:BLSTART(BLOCX+1,BLOCY)=I
8170 REM WEND
8180 REM T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(T+SX,I+SY)=1 AND BLOCX>1 THEN BLPASS(BLOCX-1,BLOCY)=1:PASS=1:BLSTART(BLOCX-1,BLOCY)=I
8190 REM WEND
8200 RETURN
8210 ::
8220 *BLOCINMASKDS
8230 ' CNTB=CNT:TT=-(TSY+SY+BPY):T=-(TSY):I=IS:FOR II=IS+SX+BPX TO ISX+SX+BPX STEP IP
8240 IF T>2 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II ,TT-2)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8250 IF T>1 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(II ,TT-1)=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8260 IF I>1 AND T<9 AND I>1 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II-1,TT-1)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8270 IF I>0 AND T<9 AND I>1 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(II-1,TT )=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8280 IF T>1 AND T<9 AND I>1 AND I<8 AND LAYER(II,TT-1,LAY)=MP AND MASK(II+1,TT-1)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8290 IF T>0 AND T<9 AND I>0 AND I<8 AND LAYER(II,TT ,LAY)=MP AND MASK(II+1,TT )=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8300 IF T>1 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II ,TT )=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8310 IF T>0 AND T<8 AND I>0 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(IT ,TT+1)=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8320 T=T-TP:I=I+IP:NEXT
8330 IF CNT<>CNTB THEN *BLOCINMASK
8340 T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(I+SX,T+SY)=1 AND BLOCY<8 THEN BLPASS(BLOCX,BLOCY+1)=1:PASS=1:BLSTART(BLOCX,BLOCY+1)=I
8350 WEND
8360 T=1:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(I+SX,T+SY)=1 AND BLOCY>1 THEN BLPASS(BLOCX,BLOCY-1)=1:PASS=1:BLSTART(BLOCX,BLOCY-1)=I
8370 WEND
8380 T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(T+SX,I+SY)=1 AND BLOCX<8 THEN BLPASS(BLOCX+1,BLOCY)=1:PASS=1:BLSTART(BLOCX+1,BLOCY)=I
8390 WEND
8400 T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(T+SX,I+SY)=1 AND BLOCX>1 THEN BLPASS(BLOCX-1,BLOCY)=1:PASS=1:BLSTART(BLOCX-1,BLOCY)=I
8410 WEND
8420 RETURN
8430 ::
8440 *BLOCINMASKDSMR
8450 REM CNTB=CNT:TT=-(TSY+SY+BPY):T=-(TSY):I=IS:FOR II=-(IS+SX+BPX) TO -(ISX+SX+BPX) STEP -IP
8460 IF T>2 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II ,TT-2)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8470 IF T>1 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(II ,TT-1)=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8480 IF I>1 AND T<9 AND I>1 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II-1,TT-1)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8490 IF I>0 AND T<9 AND I>1 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(II-1,TT )=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8500 IF T>1 AND T<9 AND I>1 AND I<8 AND LAYER(II,TT-1,LAY)=MP AND MASK(II+1,TT-1)=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8510 IF T>0 AND T<9 AND I>0 AND I<8 AND LAYER(II,TT ,LAY)=MP AND MASK(II+1,TT )=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8520 IF T>1 AND T<9 AND I>0 AND I<9 AND LAYER(II,TT-1,LAY)=MP AND MASK(II ,TT )=1 THEN IF MASK(II,TT-1)=0 THEN MASK(II,TT-1)=1:CNT=CNT+1
8530 IF T>0 AND T<8 AND I>0 AND I<9 AND LAYER(II,TT ,LAY)=MP AND MASK(IT ,TT+1)=1 THEN IF MASK(II,TT )=0 THEN MASK(II,TT)=1 :CNT=CNT+1
8540 T=T-TP:I=I-IP:NEXT
8550 IF CNT<>CNTB THEN *BLOCINMASK
8560 T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(I+SX,T+SY)=1 AND BLOCY<8 THEN BLPASS(BLOCX,BLOCY+1)=1:PASS=1:BLSTART(BLOCX,BLOCY+1)=I
8570 WEND
8580 T=1:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(I+SX,T+SY)=1 AND BLOCY>1 THEN BLPASS(BLOCX,BLOCY-1)=1:PASS=1:BLSTART(BLOCX,BLOCY-1)=I
8590 WEND
8600 T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(T+SX,I+SY)=1 AND BLOCX<8 THEN BLPASS(BLOCX+1,BLOCY)=1:PASS=1:BLSTART(BLOCX+1,BLOCY)=I
8610 WEND
8620 T=8:I=0:PASS=0:WHILE PASS<1:I=I+1:IF MASK(T+SX,I+SY)=1 AND BLOCX>1 THEN BLPASS(BLOCX-1,BLOCY)=1:PASS=1:BLSTART(BLOCX-1,BLOCY)=I
8630 WEND
8640 RETURN
8650 ::
8660 *BLOCBORDER
8670 IF MOVABLEMAP(SELECTBLOCX,SELECTBLOCY,1)=8 THEN GOSUB *BLUPMASK
8680 IF MOVABLEMAP(SELECTBLOCX,SELECTBLOCY,2)=4 THEN GOSUB *BLLFMASK
8690 IF MOVABLEMAP(SECECTBLOCX,SELECTBLOCY,3)=6 THEN GOSUB *BLRIMASK

英語、日本語 - 福岡大 Mr.Dai Fukuoka URL

2025/06/22 (Sun) 22:48:20

"以前に住んでいた","earlier live in","アーリア―",,,,
"早く家に帰る","home earlier",,,,,
"以前の組織","organization in earlier",,,,,
"先ほどの体の状態","body status earlier",,,,,
"以前の状態の体力","stamina in status earlier",,,,,
"これまでの職歴","work career of earlier",,,,,
"組織の設立","established of organization","アスターブリッシュド",,,,
"会社設立","established of company",,,,,
"確立されたものへの投資","investment in established",,,,,
"理解したことが伝わった","conveyed of understand","ケンベート",,,,
"方法を伝えた","conveyed of method",,,,,
"父に伝える","convey my father",,,,,
"差し引かれた数字","deducted number","デダクテブド",,,,
"差し引かれたお金","deducted money",,,,,
"控除された売上","deducted sale",,,,,
"控除された項目","deducted of item",,,,,

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/07 (Sat) 00:33:53

おすすめ
TVアニメ「mono」第9話 次回予告｜6月7日(土)24 00〜各局にて放送中！
mono語り』#09｜TVアニメ「mono」 公式WEBラジオ.

特番 『ふたりでいく「ざつ旅」ＳＰ TVアニメ「ざつ旅-That's Journey-」

アニメ「負けヒロインが多すぎる！」聖地巡礼企画『負けヒロインに会いに来た！』#2【精文館書店本店】.

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/20 (Fri) 04:56:37

敵対者に関する告知。

激しい闘争と、激しい対立で、憑依で対抗してきたため、データー保持が保証できない。M.S.は、傲慢の悪魔グリフィン、憤怒の悪魔オーガ、嫉妬の悪魔マーメイド、怠惰の悪魔フェニックス、強欲の悪魔ゴブリン、暴食の悪魔ケルベロス、色欲の悪魔サトュロスのクリーチャーを召喚できる。ほとんどの果物と、野菜のアルケミーを取得、１章から１０章まで、スライム部隊が充実、他の連合のほとんど保有しないピープル１６まで取得、エビルゴーストを召喚可能。シンダール、ノルドール、旧版アースエルフソーサーラー、ウインドエルフソーサーラー、ファイヤーエルフソーサーラー、ウオーターエルフソーサーラー等エルフが、召喚可能。ラピスラズリ、ダイアモンド、シングルルビーコランダム、アクアマリンの石をアルケミーで宣言可能、攻撃魔法と、回復魔法は保有していない。セックスプラントとセックスストーンと、セックスメールと、セックスレディを保有。ゼロのタロットがある。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/20 (Fri) 03:00:37

連絡
A.N.と、N,I,と、H.S,に与えられているクリーチャーは、タワーと、グリフィンと、プリーストである。

コンプリアンスは、アルケミーとなり、
樫の木（シングルオークツリー）、桜（シングルチェリーブロッサム）、梅（シングルプラム）、八重桜（シングルエイトレイヤーチェリーブロッサム）、水仙（ナーセシアス）、木槿（シングルハイビスカス）ダイアモンド、シングルルビーコランダム、シングルトーパス、水晶（シングルクリスタル）、紫水晶（シングルパープルクリスタル）、大理石（シングルレッドマーブル、シングルブラックマーブル）、シングルピンクローズ
金属　他
Pt（プラチナ）,AU（金）、AG（銀）、TI（チタン）、PD（パラジュウム）、CU（銅）、FE（鉄）、NI（ニッケル）、LI（リチュウム）、CA（カルシウム）、C（炭素）

これに加え、N.I,はチューリップの３色

全て各章の宣誓、ペンタックル、ソーサリー、ネクロマンス、シャーマン、サーモン、ウエスタン＋チーフ、ダイアグラム＋オーダー、トゥエルブブランチ＋ゾディアック、パルミスト＋フォーチュン、コンパス＋ザフォーデーブスで宣言する。各章は、決定にアセプトでマスターキーできる。ミニメイト、と、イージーメイトが使用可能。

魔法
神聖魔法　ダイアグラムロッド、ヒール、リフレッシュ、レイズデッドワンド、ブリザードロッド、ラージトランスファーマジック。古代語魔法　ミーティアストライクワンドが使用可能。

フリーダム（逮捕）、リード（自己レコードを複数回参照可能、フリーダムと合わせると他人レコードを陰幣を回避）、レコードログ（幻聴５枝全員に同時に聞き取り）、エンカウンターマジック（人に無権利召喚）、アディッション（レコードの追記）、マジカルジュエルカート（幻聴５枝を常に追跡状態にさせる）が使用可能、チャージは、ライト（書く）に変える。幻聴は、オーディトリーに変える。

特殊技能
エネミーとフレンドリーが、攻撃被害関係から自動で認証可能、アドバンスドオールの使用が可能、リードカウント（二層方式の高信頼返り値）を使用可能。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/20 (Fri) 02:20:11

共通魔法について　タロット

１章
配列１：聖徒、２：成人、３：少年、４：青少年、５：青年、６：児童、７：幼児、８：擁護
２章
配列１：機械仕掛け、２：モンスター、３：キングコング、４：モスラ、５：パイクマン、６：クルセイド、、７：ハンター、８：スクワイア
３章
配列１：ゴースト、２：シャドウ、３：チャイルド、４：オクトパス、５：ゴールドクロスブロンズ、６：ブロンズクロスブロンズ、７：レッドクロスブロンズ、８：クロスブロンズ
４章：
配列：１：まこと、２：ゆち、３：あきら、４：ほたる、５：魔女、６：ゆしょう、７：ゆた、８：豊潤
５章：
配列：１：まさる、２：烏、３：たえ、４：彩華、５：由佳、６：麻衣、７：理央、８：由衣、９：ともえ
となる。これは、章は５章、配列は８と９、番号は２０で共通である。数字を持たなくても指定できることがある。これは、旧来の共通タロットである、エイチピーというスタミナは２０あり、マナという魔力は、２０あり、日本時間３時３５分午前と午後に一日二回マナが全快する。儀式の最中は、マナ回復が数日間行われないことがある。これはイザベラクラスルームの魔法講座にわたくしが、記載しなかった元のタロット原版である。これは、ほとんどの無派閥にも共通して与えられている。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/20 (Fri) 01:53:05

共通魔法について　福岡大Mr.Dai Fukuoka

コンプリアンス（関数）は、無垢の霊から独立した新興勢力の派閥は、コンプリアンス（関数）に元素記号が指定できないなどの苦情が寄せられることがある。これらのものは、記憶も、魔法も、遺伝も持たない派閥、第六勢力の魔法派閥がいることがある。それらのひとは、１１８元素は、元素の数をコンプリアンス（関数）数字で指定する。この場合、元素テーブル（WikiPediaの著作権です）によって、建てればいい。ただし、日本語訳はWikiPediaの翻案であって、これを使用を禁ずる。これは、目当ての元素にカウントプラス（関数）を連結して、カウントプラスの数を、重ねることで、できる。つまり魔法書式は、Cという６の中性子の元素の場合、【サーモン（宣言：無派閥は省略）コンプリアンス（関数）カウントプラス、カウントプラス、カウントプラス、カウントプラス、カウントプラス、カウントプラス、ジャッジメント（決定、無派閥は意識によって省略）】＝遺伝：１Ｃ（６）となり、でできる。ただし、元素を連結して二つ以上の元素を連結できない。この場合、各元素に特定の名前を振っておき、１Ｃを炭素と命名すれば、１Ｓ（１３）を作ったものと、組み合わせることで、遺伝を１Ｃ１Ｓとできる。最初の主を選ばず霊が、孤立して自立を行った場合になり、番号の数字も持たず、魔法をもたないほど無い派閥がある。基本的に、１：ケイオス、２：ビクトリー、３：ゼウス、４：ハデス、５：イージス、６：無派閥という魔法使いとなった場合タロットという章を持っているのは、ケイオスが４章シャーマン、ビクトリーが、５章サーモン、ゼウスが、３章ネクロマンスをもつものであり、最近の近代において、宣誓の宣言の称号が、ケイオス派も、ゼウス派もサーモンと、ジャッジメントのみになっていることがある。１章と、２章は、５の派閥には含まれていない。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/17 (Tue) 11:14:31

ある人、Sakata Cake Shop M.S.が、それ自身を天使と主張しているが、天使とも、悪魔とも認めない。どちらも容認しない。M.S.以下パーティAは、エルフ（葬送のフリーレンにおけるフリエのような存在）は、耳のとがった、知性の優れた、肉体的素質の劣るエルフ族であるのは、誕生の主権の根拠が、パーティAは、これを、植物である野菜である『那須の遺伝』から創業したIDであって、天国の神、永遠の命と、恒久的な秩序を司る、天使とは許しを請うことは認めない。パーティAの犯そうとしていることは、地獄と、天国の両方に対する侵害。さらに、地獄のデーモン（キリスト教上における神に扱う、死と、霊性の悪魔の守護霊）である７つの大罪を認めないし、パーティAを、天使の象徴である純白の清楚の属であることも、許しを認めない。パーティAは、亜人として、悪と強欲に落ちたダークエルフを乗っ取ろうとしたエルフであって、天使などではない。これは、植物の創業から石や星の霊を得ることは邪悪なことであって、禁ずるが、本人は頑なな意思を通している。自由を全く認めないこともできず、４つの元素の司る石を与えたが、精霊使いであるエルフが、ダークエルフであるエルフソーサーラーになることは許されていない。さらに、パーティＡに対する反論は、秋桜（コスモス）は光の神を司る植物であり、これは、ファリス、オスカー、メリオダスの何れの光の神にしかなれず、天使自身が神格者であり、これを、天使をオスカーなどほかの神とすることも許されない。さらに天使は、二重人格論であり、献身と正義の人格と、清楚と、名誉の人格を併せ持つものであって、ビクトリーが、磨羯宮から、双子宮の建設を命じられたのは相当である。これについて、決して、正義について、公平な秤である天秤の象徴であり、犠牲対価を比べる天秤は、民間主権と、正義の象徴であり、天秤宮の所有権および、金星の所有権もビクトリーであって、正しい悪魔のゼウスが、蛇使い座及び、木星である。ゼウスはキリスト教における主たる宗教の教えである七つの大罪に即している。これは、パーティAに侵害および侵奪を厳しく禁ずる。さらに、天秤が、罪や、犯罪及び違法行為の幇助ないしその主犯やそのほかの罪でもない。天使の原権は、エルサレムの神で、キリスト教の最高神ルシファー１世から、バージンメアリーである聖母マリアが親権を拾得したことから、聖母マリアは、天使の象徴であるとされ、これを、すべてのローマカトリック教に対する主たる神とされてきた。法王とは、初代シーザーではなく、最初の皇位ではない。カエサルとは、イタリア皇帝の世襲の名称であり、スロベニアは、イタリアの敵対国であり、自走砲に使用を禁ずる。さらに、カエサルパピロスム、ローマ教皇優越主義を定めたのは、Egyptクレオパトラと、同盟を交わし、偉大なるアフリカの統一王アレクサンダー大王と、戦い暗殺されたあのシーザーが、初代教皇および初代法王である。それだけではない、天使とは、光の神ではなく正しくは秩序の神であって、これを光恒神オスカーと同一にできない。天使の花は、ランの花いわゆるオーキッドフラワーであって、コスモスが、天使の花なのではない。天使の母性は、石や、大地からの操業を前提として、神しか立ち入ることができない神聖な領域であり、人とすることはできないと、パーティAを非難する。さらに、天使が占星術を行ったとは、これを、天使は、タウロスとオックスである金牛宮の神ルシファーが、六星占術の権利者であり、主にカトリック教が星と性格の神であることを肯定している。さらに、ビクトリーの９コードも同様に占星術の仲間である。天使は節制を述べ、大天使とは、衣と剣をもって、天使とは、土鉾と衣をもって、熾天使以上でレザーアーマー皮の鎧以上、智天使で弓矢を使う。すべて天使は黒を司っても、白以外でもあってはならない。緑であることも禁ずる。さらに、ビクトリーもルシファーももともと、星と大地から始めたものであり、石の神でもある。誕生石は、天使に対する一つの主権と考えられ、さらに、キリストで清楚の誓い婚姻の時に６の数字（ヘキサグラム：魔法上の解釈はダイアグラム）を司った無垢と、純粋と、清楚を司る石を新郎が、新婦に与えるのは、キリスト教、Ｓｔ．バレンタインヌスが、執筆したキリスト教聖書婚姻についてである。これは、金牛の石は金剛石である事実とされ、第四位の天使ルシファーに、レオは第七位の天使である。射手宮は第１２位の天使。オリンポスが、地獄と主張しているパーティＡは大きく聖書見解として聖書違反であり、これを非難する。オリンポスは、極楽浄土に過ぎない天国の象徴であって、地に足がついた権利がケイオス創始の神とされているから、これを、アース親族を地獄というのであって、ゼウスが天国の象徴とするのは違憲である。ゼウスは煩悩全能と変わらない、全知全能の神、蛇の医療と、これを、キリスト教の古代神であり、７つの大罪の最初の神であり、キリスト教上におけるムスリムであったから廃止にされた。ゼウスの最初の生命は雛菊であるデイジーであり、所在は、紀元前９６億年頃の磨羯宮にさかのぼる。それが、最初の生命であったゼウスは、神格性がなく、オリンポスと、アース神の中立をとったことからパーティＡの立場を代弁する、亜人の仲間であり、悪魔と、死と、不幸の神を創業した、マスターネクロマンサーである。絶対行ってはならない。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/17 (Tue) 09:04:18

Robot Age | Space Age | Information Age | Industrial Age |My Job｜Profile｜Mr.Dai｜Victory｜深田円｜Kelini｜administration|Criticism| application|qualification|2025,February.27


Criticism: Mr.Dai Fukuoka,2025,February.27
First, the registered trademark that employs listed officers and external officers will later be paid as a securities company, and the registered trademark can be officially opened after the generation after St. Kelini, who was born in 2248 AD, and Mr. Shang Kong Gong Tse in 5668 AD. Since the registration of the trademark has started, Self-Employment have added social employment and can be employed by people other than Us. Furthermore, it must not be the first qualification in multiple world circles, such as a partial qualification or space engineer.
Regarding the qualification projects scheduled for administrative application in 2032, most of the qualifications other than Sumitomo Space Development Company, space engineers, and robot companies are existing industries and qualifications. From 2032AD, by paying Mr.Dai, the administrative application becomes valid from the birth of the party, mainly the benefits that can be made into qualifications and businesses that can be used immediately from birth.Businesses and qualifications that are reserved after Mr. Us, ancestral God Goddess Victory group lineage, all precede Mr. Dai's future parties and formally validate the administrative application. This immediately allows we start earlier than Mr. Dai and qualify for larger amounts for later bookings. The acquirer of the British Stock Exchange is St.Kelini, who has a representative director executor,within eight charge, a capital of 20 billion euros, a registered trademark and assets within the current generation, and St.Kelini is the first securities company person to start operations other than Kelini, and the first business was done by Mr.Kyousuke Fukuoka.As a result, Mr.Kyousuke Fukuoka, a member of the awake generation, was awarded the qualification as a first-time applicant, and the qualification fee was applied for in the order of 400,000 euros in Japanese yen. First, the registered trademark that employs listed officers and external officers will later be paid as a securities company, and the registered trademark can be officially opened after the generation after St. Kelini, who was born in 2248 AD, and Mr. Shang Kong Gong Tse in 5668 AD. Since the registration of the trademark has started, Self-Employment has added social employment and can be employed by people other than Us. Furthermore, it must not be the first qualification in multiple world circles, such as a partial qualification or space engineer. As of February 27, 2025, there are people who qualify for the title of space engineer, but the position has not yet been established.Furthermore, since this will be a new qualification application for architecture design supervisor, it will not become the first in the world to be established by the time Ms. Laratchude Yves Miltan will born, having first started in countries such as Russia and India in 21th century planning on start.As for the qualification to supervise architectural design, it should not be a not monopoly since it will established by 2778 AD. Furthermore, since Master Card New York took over the corporate business first, the registered trademarks of Master Card corporation were taken first, so you cannot buy Master Card corporation, but you can buy Master Card Company, Union, Group, and Office. At the very least, Office, Company, and Group should apply for registered trademarks, just as Mr.Dai's generation bought them.Master Card corporation was promoted by planed in Napoleon III, the first promoter of Master Card, as Mr.Dai in 1978.The plan was for Fukuoka to acquire the first stock as an employee contract fee after the monopoly was lifted, but since an American bank used the Napoleon registered trademark and became the world's first credit card corporation, Mr.Dai continued as the world's first card office, card union, and card company that Visa acquired in order to monetize business revenue, so Office, Union, and Company could monetize with Visa. Regarding groups, since it is just an investment parent company system, it is okay to use the card group system that is available everywhere.
In addition, by making an administrative application in advance in the year 2032, tax payments income will be long, and later qualifications, organizations, officers, and contracts will be postponed, and the jobs that will be confirmed later are those that are difficult to establish, so we. In addition, regarding existing qualifications and businesses, semiconductor companies, development language companies, mechanical engineering companies, electrical machinery companies, electronic circuit companies, etc., may obtain registered trademarks first, or may obtain registered trademarks after existing companies.
The electronic circuit is trademarked as Olivart Integrated Circuit, but in 2040 A.D., London Semi-conductor company, london Summber Sea circuit, Greece circuit Processor Company, Berlin Integrated circuit Processor,athens semi conductor in 2043 A.D. is filed as Olivart Integrated Circuit,. Even though Olivart's proper name, Circuit, is used for London and Berlin.Basically, the qualification says "Circuit Factory", and if we make it valid from the qualification, Mr.Dai will be the first electronic circuit factory worker and its designer as Mr.Liberaria since Mr.Liberaria Justice Freedom was born in 4408 AD. Mr.Dai has established the US.Intel corporation by Ms.Nanana, and the Circuit Factory business is ahead of its time, so Ms.Nanana of Meiji 7th Era. has not yet applied for the administrative application, but Mr.Dai will put we in the Circuit Factory, a position from 2032AD to 4408AD.In addition, Sofia, who was born in 1616 AD, will hold the semiconductor and precision machinery manufacturing industry qualifications, and the circuit qualification will become an independent qualification from 2032. We must conduct the company, business and qualifications before Mr.Dai . Mr.Dai himself will apply for employment and taxes according to the date of establishment. Payment will be made when this is conveyed to the family court. This is because the reserve tax amount must be deducted from other taxes, so it will be paid in November and December.In addition, I am became the first person born in 2608 AD to receive an independent qualification in automatic intelligence algorithm for the development of game software that Ms.Nanana conducted. We have to start from 2032. Most of the qualifications that require a written examination are already got existing, with the exception of space and robots. As for the robot, we will form a robot with three qualifications: the automatic intelligence qualification of Ms. Fugang duan, born in 5398 AD, and the two qualifications that Sophia had. In addition, the qualification for electronic mechanical engineer, which unifies semiconductor and machinery, is given by Tao Mongarten, who will born in 7758 AD.

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/17 (Tue) 05:28:09

General Meeting Monopoly｜Meeting History｜総会｜独占｜Anti-Trust|St.Orihime|Mr.Dai Fukuoka|Profile

Question:これは、新宿奉行所下町奉行にて、織姫は裁判をしたが、独占禁止法である事は事実は告げられたはずである。さらに、株主総会は、法人のみが独占に問われたのか、その総会制度には、事務所と、会社つまり、委員会や、司法議会は含まれないということであれば、鎌倉幕府は、会社組織と、事務所組織だけが総会ができる織姫および将来の当事者であるのか。１９７８年７月２６日産まれ福岡大が質問する。
Question: This was a case that Orihime took to court at the Shinjuku Magistrate's Office Shitamachi Magistrate's Office, but it should have been revealed that it was an antimonopoly law. Furthermore, was the general meeting of shareholders only a corporation that was accused of monopoly? If the general meeting system does not include offices and companies, that is, committees and judicial councils, does the Kamakura Shogunate mean that only corporate organizations and office organizations can hold general meetings, and are Orihime and future parties involved? Born July 26, 1978, Mr.Dai Fukuoka asks a question.
Answer：わたしは織姫、これは、事務所と会社は含まれていないが、本当は全て禁止しようとした。しかし、最後に、法人だけが捨ててくれた。わたしは、命が助かった。以上です。
Answer: I am Orihime. This does not include the office or the company, but I actually tried to ban everything. However, in the end, only the corporation threw me away. My life was saved. That's all.

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/17 (Tue) 01:56:11

最近政権がおかしいと思いませんか。国会組織が、税金で、上場民間法人に、抗議金として、公費を投じて、決議権を行使して、乗っ取りをしておいては、国同士の取引で、トランプ大統領が、新日本製鉄を買収して、トランプ大統領の政権演説で述べられたマーシャル社を建てるとした声明が実際になり、US鉄鋼が、マーシャル鉄鋼に名前が変わって、日本政府が、日本国内で新日本製鉄所は、全国に愛知県の埋め立て所の一か所に唯一存在する製鉄所で、トランプ砲の、日本国に対する鉄鋼関税５０％（半額加算）を日本国内と、日本国内にアメリカ社とした、アメリカ領土として、関税を日本が払いやがれ。国会は、この有事に、石破総理が、トランプに日本の製鉄所を包括的にすべての製鉄産業を譲渡するとした声明についてトランプに民間組織を石破内閣である国が勝手に売却を違法に持ち掛け同意の要しない不当な要求請求（もちろんこれは立派な内閣の税金犯罪である）、これは、アメリカの市場独占である。これは、政府機関である、税金で国会組織が、株式決議権を購入することは法律で禁じられています。それが、看過できず、国会が、ＮＴＴを買収して民間会社が、あるじから、東京証券取引所から、三者に譲渡するために、上場として売却した組織が、なぜ、国がなぜ上場証券市場に取引する権限を有するというのか、そして、何がNTTなど民間組織が、国営電話などという言い分は不愉快極まりない。NHK日本放送協会は民設組織で国営であるにもかかわらず、一切の国は、NHKに株を保有していない合法である。これは、初めから国会は一切のNHKに対する買収活動をしていない。まったく、高田徳仁令和天皇陛下や、石破内閣、岸田内閣の考える愚かな考え方についていけない。鉄鋼が、日本から消えてなくなると、これは、日本国は、一切の船舶及び、車両を製造できなくなる見捨てる。これは、上場するのは、投資を受けて儲けるためでもなく、企業を統合するためでも、国に消えてなくなるためでも何もない。新日鉄は、USスチールが、買収することを抗議したのであって、新日鉄は、USスチールに売却する意思はない。そして、買収決議で統合され名称をマーシャルスチール（マーシャル鉄鋼）となった。これにより、アメリカ政府が、政府の税金で、日本の鉄鋼業に抗議を用いれ、これによって、アメリカ国会の保有であることを、経済的背景によってこれを、アメリカ国会に売り渡した。これで、新日鉄が、リストラがあれば、新日鉄は、全従業員を鉄鋼に失い、アメリカ人が、日本の新日鉄で働き、その製造法をトランプ大統領が、教育指導するなどして、製鉄法を教えているとでもいうのか。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/16 (Mon) 08:01:05

何処の幻聴も、頭の中に聞こえるだけで、外には、聞き取れないのがふつうである。Goddess Victoryの方には、幻聴という名称の、幻聴５枝登録できるものがあった。これを派生派閥Mr,Dai FukuokaからAuditoryという名称に変えた。従来、２：ビクトリー派の５人の魔法使いの神の派閥であれば、１：ケイオスにあるかは保証はできないが、サーモン、ジャッジメントの書式で魔法を現在使っている場合、【宣言（サーモン）幻聴（関数）カウントアンドカウント（関数）チャージ（関数）タロット１、タロット２、タロット３、タロット４、タロット５＋決定（ジャッジメント）】でできる。最近までにほかの４章までの宣言と、決定が同じ、サーモン（開始関数）や、ジャッジメント（決定の関数）で統合されていることがある。しかし、これが、スピーカーのように外にはっきりとした音声で聞こえるならば、それは幻聴ではなく幻声と疑うべきである。これが、人工ラジオ無線の悪意で、napoleon３世が、最後のピラミッドであるクフ王の墓で、一級無線士資格を持つnapoleon３世が、【奇跡的な機会的な、神秘的な、不思議な霊の声が聞こえた、これで、みんなに声が聞こえるどうしたことか、神がやったのか、霊がやったのか】といった内容の記述を、Franceと、Egypt史にnapoleon３世が言った記録が残っているが、これは、幻聴ではなく、人口無線つまりラジオ無線で発した声であり、幻声と疑うべきである。その疑いに足りる。そして、それは、無線犯罪行為に扱い、何人も行ってはならないし幇助（ほうじょ）もしてはならない。さらに、napoleonはあくまでも、人工無線犯罪を、霊的奇怪的現象だと幻聴だと思い込んで認めたため、幻声と、幻聴が現代医学で区別されないことがある。であるが、明確にするべきことは、聞こえることなのか、発せられたことなのかということであり、聞こえるなら幻聴、発せられるのであれば幻声とするべきである。これは、napoleon３世が当時の医学で、脳波検査を課せられていたことから、神経科などから、不正にジャック情報が犯罪者に流通した可能性がある。このようなことになった場合、真摯に聞き届け、すべて、返事を返すことも、一人で話すこともなく、詠唱もしないよう控えるべきで、擁護させるべき対処法である。以上精神の症状についてである。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/16 (Mon) 01:51:33

Basicプログラミングは、魔法のレコードで、一番バグが抜けたPRESET EDITOR2011について、これを、マルウエアの送信を受けていて、CD-Rに書き込めないよう確認して、そのファイルのみが、ディスクから消えていたので、MASKと、CARVを除くすべての完成機能4096色中16色設定、左右パレット選択機能を２０１２年頃、すべて魔法でレコードに入力しました。叩く触覚も、返信のあたいもなく、完了しました。２０１８年以降の二回目のレコードの届けは、分割して、色相変更と、左右パレット選択を２０１２年時点から除く機能を分割でレコードに記載。さらに、ディザリングを、０｜１ですべての１６色のパレットで可能にするディザリングは、６４ｘ６４にマッピングされ、ディザリングのモアレを排除したものの機能や、選択文字の色枠の表示、鉛筆の入力、直線機能をマウスで可能にしています。およそ、中学校３年頃、完成体を前版のドットエデッタは、３２ｘ３２で、カーブ付き、ディザリングの機能が新作よりありませんが、ほとんど同級の機能のほか、２０１１年から２０１２年の作品PRESET EDITOR2011のほうが高度なアスキー出力、完成絵図の出力、ＧＥＴをできますが、BMPという、Windowsペイントで出力可能になったほか、印刷が可能になりました。ほかに２０１８年から追加で制作していたプログラミングが、六星占術運気占い、９コード占いの暦の計算プログラミング、そして、パスワードリマインダーオフライン掲示板、自動資本増資ひな型計算入力、その他を、主に９８ベーシックからはどちらかというと、ビジネスに近いホームユース用、そして、中学校時期は、屑籠、ミラクルスリッパ、迷路、ボートレース、ゲームメニューの作成等複数創作しています。中学校時期は、NEC PC-9801VX2のN88Basic(86)を使用しています。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/16 (Mon) 01:20:43

２０１１年１月から計画作画を開始して、Mr.Daiが、西川印刷に進みすぎているとして、二階建て大ホールrestaurantを中止していた絵画のLafから作ったCGの絵画です。これは、テーブルに腰掛けるのを、合成する構成のひとつです。テーブルは半透明の予定でした。そして、今、西川印刷作家在籍は、Mr.Dai一人のみとなり、恒信印刷ではCG作家は、２名で有名だから制裁で減った。そして、西川印刷在籍同人誌サークルは、Mr,Daiのみで、恒信印刷で同級のペース作画、西川印刷には一人もいないので、大が、これを作品を他人に気を使って人に合わせて絵を進める必要がないと答えられました。

これは、スープをスプーンで飲む、ピンクスーツの女性です。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/15 (Sun) 23:33:55

おすすめ

【第2回メンバーカメラ企画】ふるっぱー3分TV (仮) FRUITS ZIPPER

【WEBラジオ】#ゆいしょ！～小倉 唯といっしょ！～#79✨感想盛りだくさん♡おたよりSP✨

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/14 (Sat) 15:00:56

月夜改修版　楓のコンピュータグラッフィクス絵画。
福岡大　６月１４日。楓（もみじ）。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/15 (Sun) 02:30:19

２０２５年６月１５日。聖オリバート・ジェネミーの誕生日。レコードの信頼性について。魔法の使い方。全ての人に共通。
未成年、無開始時点の魔法でも、Recordだけは、ちゃんと受け付けてはいる。霊が表示だけしないのは、正常である。必ず、実行の返信の値をいただけなければ記録できないのではなく。これらのレコード（record）の場合、わたくしMr.Dai Fukuokaが、魔法が行使できない時点でも、Mr,Dai Fukuokaが、humanradioの会話返信記録、および、ゲームプログラミングのsource Chord（ソースコード）のrecord入力は、阻止されておらず、霊は、表示しているだけに過ぎない。実行そのものは、魔法は本人自身が実行するが、攻撃、召喚は霊の同意を必要を要するが、戦闘系以外は霊に支配されない。わたくしは、中学校時期も、小学校時期も、記録できていたほか、成人後、入院後にもrecordは入力できる。さらに、中学校時期と、小学校時期は、霊が返信のあたい（値）を与えなくても記録は本人自身が行っているのであって霊は阻止しないし、詠唱妨害によって、抜けている語句の責任もとらない。ただ、故意の改ざんの申請があった場合、連合の霊が閲覧して、間違いを是正するまで保留を要求することがある。要するに、書き込み申請後、少なくとも３か月はあれば、確実に書き込まれていて、瑕疵、過失がある書き込みでも阻止はされない。これを修正するには、recordに振ったタイトルネーム全てANDと、ORを含みに後ろにANDで区切って、検索するワード、修正部分の文字にcharge（チャージ）関数書式は【（レコードタイトルANDと、ORを含む）AND（修正部分、検索文字一つに完全一致部分に限る）カウントアンドカウント（関数）チャージ（関数）（是正書き込み内容）】という書式でレコードを記録を一部書き換える。これをするには、コンピュータやワードプロセッサなどで、これを、魔法のレコードの書き込み内容と、タイトルの保持が必要である。また、わたくしは、ヒューマンラジオの自分の返信記録および、voice ACTや、artistの発音歌詞の記録（ドラマ俳優業の記録は禁止されている、映画俳優業の記録もできない）、さらに、中学校の自作ゲームの完成のソースコード全てを記録して届けている。また、新作の９８ベーシックを、ＮＥＣ ＰＣ－９８０１ＶＸ２のＮ８８Ｂａｓｉｃのほかに、Ｍｉｃｒｏｓｏｆ、Ｖｉｓｕａｌ Ｃ＋＋５．０のシェルラインサンプル（オブジェクト指向プログラミング）や、Ｖｉｓｕａｌ Ｃ.ＮＥＴ２００５のＭＤＩ、ＳＤＩの基本compiler（コンパイラ）サンプルや、Visual Ｃ++5.0のラインサンプルの移植の完成ソースコードのソフトウエア全ての情報を、届けている。２０１３年まで実行の返信の値を返されることなく記録に成功しています。このラインサンプルは、円形の描画、円形のクロス模様の描画、円形の塗りつぶし、ブラシの線の種類、鉛筆ツールのdash Dot Dotや、Dash、Dash Dot等の線、Nullブラシの描画等全てのPCD－>（クラスポインタ）の記述の仕方。尚、メモ帳の作り方は、Mrs.Nananaが、France　Parisにおいて、これを、PRINTIFの使い方、検索、書き換え、表示、書き込みが一つの関数で行える。で届けていて不要である。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/14 (Sat) 23:55:49

"山の下","Beneath mountain",,,,,
"谷の下","Beneath valley",,,,,
"橋の下","Beneath Bridge",,,,,
"卓上の下","Beneath Table",,,,,
"天井の下","Beneath ceiling",,,,,
"梯子の下","Beneath ladder",,,,,

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/13 (Fri) 07:11:25

フランス語を読むときのコツは①Txou-Rii-Fe-e-ruは、②Tou-Ri-Ffelとすることで、①はローマ字と英語②がフランス語の発音という特徴になる。
The trick to reading French is to read ①Txou-Rii-Fe-e-ru as ②Tou-Ri-Ffel, with ① being the Roman alphabet and ② being the French pronunciation.

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/11 (Wed) 23:18:21

Goddess Victoryはクリーチャー派閥最大勢力派閥で、タワー、グリフィン、ファイアドラゴン、ブラックドラゴン、フェアリードラゴン、デビルなどを召喚でき、スタングラムを行うことができた。この派閥のものは、盗用されたものも少なくない。現在Mr.Dai Fukuoka派生派閥によって、クリーチャーは少なくとも７５以上となる。

さらに、それらが召喚できればGoddess Victoryの派閥である。

また、召喚魔法のほかに、『メイト　カウントアンドカウント』にメイト　番号１と、番号２直接指定しなくてもいい。

殆どの者に、派閥共通で、少なくとも直接接近戦する能力がないのが普通で、『Target　関数魔法』にて、Target 【敵名】HP-カウント数字とする必要があった。主にMr.Dai Fukuokaのアッタックの意図は、Target Call 【敵名】HP-攻撃値＋Destroyという形で接近戦を形成している。Targetはほとんどの派閥に共通する。少なくとも掛け算と、割り算はなく、足し算と、引き算はある。さらに、古典的にRange　は１４００マナまで近接魔法は、１００クラスで１２回、５０クラスは８回、３５クラスで４回、それ以下が１回となる。このRangeは、日本時間３時３５分にマナとともにRangeの弾がすべて回復する。エイチピーがないと、マナが回復しない。ゼロの規模のクリーチャーの場合は、Rangeにマナを割くことができない。さらに、マナが対価０でも、魔法によって霊力を失う。

派閥共通でクリーチャーのコスト値に対して、レンジのスロットの数について、マジックは、主に５０クラスが２０００マナ、１００クラスが１２００程度が基準となる。主にそれ以下は、もっと少ない数値。

派閥共通でターゲットコール　敵名　エイチピー　マイナス　カウントアンドカウントとすると、一撃で、最大の値で撃破する。

主に魔法は、主にGoddess　Victoryの派閥は、主に魔法は、ヒール、リフレッシュ、リカバリ、トランスファーマジック、ダイアグラム、などの神聖魔法、バリアという特殊魔法、ファイアーボール、ファイアーリング、ライトニング、チェーンライトニング、フラットブラスト、フレイム、バリスタ、ストーンバリスタ、フレームバリスタ、ブレードボックスという攻撃魔法を標準で備えており、これらの魔法があれば、Goddess Victoryの派閥である。攻撃魔法、回復魔法、防御魔法は各派閥に多様化している。なお、ダイアグラムやブレードボックスや、フレイムについては、Demon Daiの時代に盗用され、廃れた設定値になっていて、まともに使えないことがある。ビクトリーは、チェーン関数を応用して、チェーンヒール、チェーンリフレッシュを行うこともできる。

また、Goddess Victoryの派閥は移動方式に、てれぽーと、フライ、ラインの三方式の移動方法を持っている。これは、クリーチャーに付加する形で行う。

また、Goddess　Victoryの派閥は、『ランチャー　魔法名　ターゲット　対象人物　ジャッジメント』とすることで、一つだけの魔法名を与えることができた、これは、Goddess Victory側にある、霊的封印が行える霊権限があったために使えない時期ができたりすることもあった。さらに、これを転送するには、３回の受信をジャッジメントを適切なタイミングで行わなければならず、高度でありできなかった。これを無難に行うには、旧昔のハイプライシスが、占い魔法が廃れて、ランチャーの代わりに置き換えた時代Demon Daiの時代から、『ハイプライシス　魔法名　ターゲット　人物名　ジャッジメント』で詠唱後決定後、何もしないで届けることができた。これは、いわゆる、スレインのコモンマジック（ロードス島戦記の聖書文献）を行ったエピソードと同じことをすることである。

Mr.Dai Fukuokaから新設された、コモン１～１２００までのものについては、割愛しない。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/11 (Wed) 12:34:10

Mr. Dai Fukuokaと、St.Francisと、St.RayRearと、Mrs.Elと、Mrs.Tieaを派生派閥として、現派閥をGoddessVictoryとして、Mr.Dai Fukuokaが、最後の派生マスター（派生掌握）として、現魔法の定義を、すべて、ゼウスの憑依をすべてを、日本語を英語にして、Victoryのファントム（幻影）を、日本語を英語にして、統合し追加たものを、Ghost Choose、ビクトリーのファントムを、Spirit of Retualという基本としたら、次の定義名になる。すべて古代語憑依の名称変更、すべて古代語幻影を名称変更すると全部で次の名称になる。これは、Google Mobilityで、魔法と同発音になる。

ビクトリーの権原は次の通り、これらを使用して古代語魔法の定義、精霊語魔法の定義を行った派閥を、ビクトリー派閥、St.Francis派生派閥である。
＝＝＝

次の原文は、日本語をMr.Dai Fukuokaからファントムに廃止して英語に統一、メテオストライク＝ミーティアストライクは、フレーミングオイルが、現ファントム（現幻影）となる。

Common762 & Split of Ritual : Target Call Advanced All & Enemy or Advanced All & Friendly or Name = AngelRabbit,GateWay,Dr.Cell,FireStorm,FlamingOil,Barrier,Megalopolis,Sherman People,Magical Jewel Cart,Soul Baster,Titan Parthenon,kumo-,Freezer,Yoga,FireFlame,EmptyPakager,Ballistic1,Ballistic2,Ballistic3,BladeBox,FireSword,HitTarot,Mukade,Tunder,Smeller,Rock,Record,Celemony,worship,Burn0,FireStamp,House,Thief ,FireBall0,FlameRing0,Nuclear0,FlatBrust0,CrushIce,Dust0,Shake0,sense,ShowMagic,Rock,finger0,Evil Necromance,Thief Magic,Wroth with Height Listening Magic,Abduction,Evil Split Magic,Speak Barricade,An Wake up,None Wake up,Tell Battle,Cures,Sorrow,Stain,Wing,Tree,Ame-,Swallowing,Memory Loster Spit,Anti-Remember
＝＝＝＝
次は、Ghost Chooseの内容、これは、全知全能の神ゼウスが、ネクロマンサー創設時作ったソースコードをもとにした魔法。そして、これを、魔法スレッドを立てた権利者のみステートメント（意思疎通）する。Mr.Dai Fukuokaは、Spirit of Ritualはステートメント可能であるが、Ghost Chooseに追加して付加したものにはステートメントしない。このステートメントは、コンパイラ前のソースコード原文が魔法設立権利者にある。

次のものが、ゼウスが蛇使い座を設立時にあったのもの英語に翻訳したもので、さらに、のちに木星の神ジュピター即位したときに、３章のネクロマンスと、悪魔制度の創設者となっている。

Ghost Chooseから、ビクトリーの権利を除いたもので次
Curse | Cares | Neck Burrer | Brain Shock | Ear Damage | Smiler | Evil Spirit Magic | Spirit Neck Damage | Spirit Tin Damage | shoulder Crush ｜

ゼウスは、これらから独立したファントムを持っていて、自立した霊性の儀式を持っているが、今まで完全掌握していない。さらに、ゼウスは無属性の幻影（ファントム）が多いともいわれている。

基本的に呪術は、ゼウスと、ハデスの派閥しかない。ハデスの派閥は、ビクトリーの派閥の魔法のほとんどを保有していない。呪術のみで、魔法が共通しない独自の派閥はハデスのみである。

ハデスはデスインテグレートや生贄が使える。ハデスの創業者は、イランの国の女死神ユミエラドルクネスである。御前試合で、アルフレッドに斬首されて死亡している。その名称を使った作品名の詠唱は禁止である。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/11 (Wed) 09:19:02

Goddess Victoryの宗派の派閥魔法は、宣言名＋魔法関数＋決定について、此の行使は、『サーモン』＋『魔法関数』＋『ジャッジメント』という宣言名で魔法を使う、優先した決定の場合は、『サーモン』＋『魔法関数』＋『メイト：自己のタロットの番号１～２０を二つ』＋『ジャッジメント』で魔法が行使される。また、最近の手法は、Mr.Dai Fukuokaから基礎が改められたものの基礎の宣言法は次の通り、宣言名は、１章：ペンタックル、２章：ソーサリー、３章：ネクロマンス、４章：シャーマン、５章：サーモンとなり、決定名は、１章：タックル、２章：シャドウ、３章：ゴースト、４章：マジカル、５章：ジャッジメントとなる。最新のものは、タロットレベル１～６まで対応し、各、『要な対応カギ』をもっている。各対応は次の表を参照

～～～～
対応表１
～～～～
Tarot0=Category,Sector,Cluster
TarotLevel1=Chapter,Arragngement,Number
TarotLevel2=Property,Item,Piece
TarotLevel3=Class,Module,Unit
TarotLevel4=Group,Part,Subject
TarotLevel5=Public,Portect,Private
TarotLevel6=Colony,Attribute,Ccommunity
＝＝＝＝＝

対応表１は現代情報学を元にタロットのレベルごとに対応鍵を変えたもので、単独のレベルをグループがして魔法の源で全宗派共通名『マナ』を使用できる。このレベルの策定はMr.Dai Fukuokaが行った。さらに、全宗派共通性のあるスタミナは『エイチピー』である。通常のタロットは、マナが２０と、エイチピーが２０となり一枚の対価であるコストは、マナ２である。マナ２で発行できる。各タロットには、『ボイス』という設定値をもち、声の高さを判定している。このボイスというのは、『タロット　章、配列、番号』に【『ボイス』カウントアンドカウント　ループ　カウントアンドカウント】という魔法関数で共通として設定ができる。これは、一度声の鍵が特定の章配列番号にされると、再設定ができなくなる。最初の人物の所有者の声が吹き込まれ、次の生命は全て同じ霊の声を使う。


召喚魔法は、『宣言名』＋『クリーチャー名』＋『決定』で行うこともできる。召喚すると、召喚クリーチャーが敵の霊、クリーチャーを迎撃する。さらに、これによって、メイト番号１＋番号２で、番号は個人の情報の固有の番号を入力を自動化を図るため、Mr.Dai　Fukuokaが策定した次のもので番号を省略できる。ゼロのクリーチャーのマナ使用は『ミニメイト』、ゼロのタロットのマナ使用は『ゼロメイト』、タロットのマナ使用は『オートメイト』、クリーチャーのマナ使用は『イージーメイト』で番号入力をわからない人でも自動で番号に対応できる。この策定は、Mr.Dai Fukuokaが、２０１３年以降に少しずつ再建した魔法群である。

主に強大化した、ゼウスや、ケイオスや、ハデスの魔法攻撃や、クリーチャー召喚に対応するために作られている。さらに、派閥名の宗派は、１：ケイオス、２：ビクトリー、３：マーキュリーのアイナ、３：ゼウス、４：ハデス、５：イージスとなる。イージスとは始祖の霊であり、悪霊の名前であるが、後世に主たる神。さらに、ガイアは、マーキュリーのアイナの派閥、Mr.Dai Fukuokaの派閥は、ビクトリーとなる。

ビクトリーとは、Mr.Dai Fukukuokaが、最初の霊の女神の時代の名前である。これは、Mr.Dai はDemon DaiとしたAnchorであり、これを、天使の派閥系で、天使の創設者は『ウリエル』と『アズラエル』であり、最初の発起人である原作者は、ビクトリーである。さらに、セックスメールの創設者は、ケイオス、セックスレディーの創設者は、ビクトリー以外の二人の霊である。ビクトリーは、結局最後までモノポリー上における創設は、一つも覚悟を図ることができなかった。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/11 (Wed) 02:17:15

魔法上のレコードという関数は、自身に置かれた、過去の将来の自分に充てた霊の文通であり、これは、将来に向かって対応している。フリーダムを使うと、他人のレコードが参照でき、レコード使うと自分の前生の記憶が確認できるよう、霊から聞こえる。レコードは、記載事項は、筆者は、其の当時時代、本人のみ一回の世代、参照権を失う。それに賛同している、自分たちの血筋は、全員が、記憶が直ぐに転写され、レコードを参照しなくても、転送される。基本的に、レコードの調製の作り方は、古代語魔法で、『参照ファイル名』チャージ（関数）『記載内容、証言内容』という書式となる。これは、フリーダムをしながら、チャージすると、第三者を証文にとって、音声を記録できるが、第三者を記録してはならない。『参照ファイル名』チャージ『記載内容、証言内容』フリーダム『第三者の霊格者または、人物名』でできるが、禁止の一つの方法であり、基本的に自分しか記録されてはならない。参照ファイル名や、人物名はAND（関数）を使用する事ができ、検索が難しい場合は、OR（関数）を使うことができる。基本的にこの魔法は、ガイアの父親であるケイオスという混沌の神の時代からあり、殆どの方ができる魔法である。ガイアは、破壊と創造の神であり、地球環境の神とされる。ガイアは、ゼウスと、ハデスの母親である。これは事実を肯定しているのではなく、聖書上の解釈である。殆どの者は、チャージ関数は、書き込み属性をもち、タロット格や、クリーチャーを作ることも可能であるが、各宗派や各主たる神によって、使える魔法の名称が、同じ機能であっても異なったりする。基本的に古代語魔法は、元の名称である。そのうち、セックスプラント（関数）で花や木や、植物の称号を与え、精霊を行うことができる。『植物名』チャージ（関数）セックスプラント（関数）『植物の構成元素記号（ただし、方程式では後ろに就く数字が、魔法上では頭につけなければ作れない）』という魔法の宣言になるが、共通している。人を作るときは、『氏名』チャージ（関数）セックスメール（男性関数）（または）セックスレディ（女性関数）『化学元素記号（人の素質の基礎となる）バースデイ（誕生関数）『出生年　出生月　出生日』チャージ関数『タロットのチャプター（５まで）、アレジメント（９か８まで）、ナンバー（２０まで）または作成クリーチャー名』で古代語魔法で人の霊を作成し、誕生日が迎えると、霊が覚醒する。これは、全て古代語魔法であり、宗派、主たる神の権利に関係なく共通したコモンマジックの宣言方式の一つである。この古代語魔法、精霊語魔法の原文、原作は、聖フランシズ紀元前１１３２年産まれによって、まとめられたレポートであり、それを神話化したのが、そののちの聖レイリア西暦３１５年産まれである。レイリアは、ロードス島戦記という聖書を出版、フランシズは、五星三心占いの元である五属性相克論の原作者である。フランシズは、レイリアの魔法名の原文を、古代語魔法と、精霊語魔法の魔法名を提供した著作権原作者の氏名である。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/10 (Tue) 10:32:51

Question:１９７８年生まれの福岡大が質問する。水彩画、または水墨画について、プランナーが、画家であるイラストレーターとしてできるか、深橋なつみ、韓国のジュッサンシー、ジュッサンヤオー、日本人名として織田遥と、織田渉の三人の女性画家に聴く。これが、可能になれば、Franceのデリバートは、漫画家、ドイツのシルビアは、インクペイントまたは、水彩画家に成れると推定され、イギリスのケリーニは、CGクリエーターおよび、準画家に成れることになる。FranceParisのナナナという明治７年の前生における、福岡大の後見人として、商業と、設計業にされ、programmerは、エンジニアとした工業ではなく、ゲームプログラマーに等しい、クリエーターとしてのprogrammerに扱われ、わたくしは、絵画は、水彩画や、ブロンズ像、陶芸、ガラス工芸、アトリエ工芸を経験があることがわかっている。わたくしは、油絵と、水墨画と、漫画家だけでcareerを終えたと思っていない。ただ、水彩画の定評があって、コールマンや、アリシアが、油絵だけでなく、水彩画をして、これをプランナーである、農業と設計業の組み合わせではないから福岡大が、水彩画が相手に取り合ってもらえない。もちろん、漫画家、油絵画家のコールマン、アリシア、ナナナの三人は、工業である、製造と、設計である。そして、深橋なつみ、ジュッサンシー、ジュッサンヤオーの三名は、プランナーであったのではないか、守護霊に聴く。
Answer：わたしは、深橋なつみ。わたしは、ヨーロッパに言うプランナー、農業と設計でできる。以上です。

Answer：わたしはナナナ、programmerのことは許せない。ただし、あなたはprogrammerではなくゲームプログラマー以上です。

Answer：わたしは、コールマン。わたしは、たしかに、ブロンズ像、水彩画もした。しかし、レアという言葉は使うな。これはドイツの言葉です。以上です。


question：西暦１９７８年７月２６日産まれ福岡大が質問する。わたくしの当事者、前生のいずれもの世代について、東京都にあたる武蔵野である南上野に何度も定住している可能性が濃厚になっている。これが、福岡恭介が、東京都渋谷区神宮代々木と配偶者が結ばれ明治３５年に福岡彩という子をもったことからも、東京都の居住に縁故があったとするのが自然である。また、初代紀元前５５５年産まれ、深橋夏海が、京都府下京区の本籍及び居住の水墨画画家であり、水墨画はたびをしながら絵画を描く必要があった。京都そのものの都道府県の面積は小さいので、滋賀の天野橋立や、奈良は観光して絵を描いた可能性もあるが、京都府を京都住民の深橋夏海が、京都府を観光しようとしたことを怒りを買い東京都新宿区に追放されいることが濃厚になっている。これについて、大変に遠い山道を歩く必要があったので、一往復した可能性である。東京都で朝日直前に松の木林にもやという霧に囲まれていたことが推定され、秋桜（こすもす）畑で走った幼少期の思い出があると推定された。ただし、これは、京都から追い出され、東京都に居住したが、当時は暴力団という政治学は存在しなかったため、観光に怒って追い出しただけで少なくとも死の直前までには京都に戻っている可能性がある。京都にいる間、棚田を描いていて、滋賀で天橋立を描いているが、何方も描いていたため、処分されている可能性である。しかし、東京は、深橋なつみは、二回にわたって新宿に行ったのではないか。そして織姫についても、健保天皇擁立や、七夕金１０００両朝廷工作について、鎌倉幕府と手続するため、一宮から横浜、横浜から東京都小石住に移り、神戸にいった説が濃厚である。織姫は小石住に住んでいたことが推定されている。手続きは新宿で奉行所で行った。さらに、織田信秀も、もしかしたら、東京都を観光していたのではないかということであり、そこで幕府の存在を知り、天皇に謁見をする尾張の守の官位の公卿につき、当時竹千代という名前で推定されている徳川家康が、これを将軍になることを知ったのではないか。また、福岡彩は、東京都渋谷区の生まれで、学生期を名古屋市で送り、建築士二級資格合格するまで、これを、愛知金城学院大学で、建築士資格を取った後、東京に戻った後、神奈川県横浜の、港未来２１を観光したのではないか。また、これを他の日本世代も複数の当事者が、何らかの理由で東京都に住んだり、観光したりしている可能性があった。日本家には、深橋なつみ、山口大、八神之吉野守、紫式部、織姫、織田信秀、織田信綱、織田寛、福岡恭介、福岡彩、小林桐、深田ひとみ等が、福岡大の前生に確認されている。

Answer：わたしは、織姫しってはならない。わたしは、幕府と手続き、新宿、そして、小石住に住む。以上です。

Answer：わたしは、深橋なつみ、幼少期に、東京都渋谷区にいた。その時、あきざくら、義理の兄、花畑を疾走した。怒られた。そのあと、新宿に行き、奇跡的に京都に帰れた。そのあと、京都棚田、近江天橋立を描いている。以上です。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/08 (Sun) 14:30:39

女性の街と言われているイングランドのロンドンにおける、旧市街は、茶色を基調とした色調の強い上流の市街地が広がっています。次のタイトルを検索してみると、ロンドンタワープリッジ（ロンドン橋）の近くの本物のロンドンの市街地を見れます。映像は、開発区のロンドンの風景。超高層ビルや、グラスビルが立ち並んでいて、高密度化しています。基本的に、イングランドは、伝統文化を厳しく守り通している国で有名で、映像本篇には、ベージュがかった橋や、一部低いビルに茶色い、色調の低いビルを含んでいます。映像は、ヘリから、ロンドンの橋げたの橋の中央をグライダーで通り抜けます。


Flying Through London’s Tower Bridge (World First)

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/07 (Sat) 04:42:36

<iframe width="1324" height="745" src="https://www.youtube.com/embed/Gm7HKPZqB6w" title="MOV00000自分が映ってみました。,セルカ棒用カメラ,VLOG,フルハイビジョン対応,ノイズが大きく、歪曲もひどく、画質が悪いです。,Mr.Dai Fukuoka,動画サンプル,レビュー" frameborder="0" allow="accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" referrerpolicy="strict-origin-when-cross-origin" allowfullscreen></iframe>

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/06 (Fri) 04:57:31

VLOGのカメラは、このように、ゴリラポット状になっていて、自由に三脚の形を変形できて、自転車や、自動車に設置することも可能です。そして、カメラは、前後１８０度に回転できます。MicroSDカード６４GBを使い、挿入されます。マイクロエスディカードは、ユーエスビーに直接挿す読み取り機が付属するほか、服のポケットに掛けることができる、クリップがついています。画質は、１０８０ｐで、フルハイビジョンのモデルです。今現在は、４ＫのウルトラハイビジョンのＶＬＯＧが主流です。９時間連続撮影、古いファイルを自動で削除して、新しいファイルを作って、動画撮影するため、常に一回一回、撮りためたもの６４ＧＢ分を毎回パソコンにバックアップする必要があります。業種は、スマートフォン、タブレット、携帯写真、ＰＨＳ写真などの小型携帯端末写真に扱われ、１：トイカメラ、２：使い捨てカメラ３：コンパクトデジタルカメラと、家庭用ビデオカメラ４：camcorderと、一眼レフ５：フィルムカメラ６：デジタルカメラ７：小型携帯端末による、ビデオまたは写真の７：業種のキャリアに分かれます。これは、未経験分野は、申請のみとなり、その当世において、アクセス数は、監視活動におけるアクセスのみの集計となり、１：展示２：販売は、別です。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/05 (Thu) 23:48:30

福岡大の市場のコンシューマーユーザーは、テレビ市場と、機械（精密機械）市場です。テレビを試聴するものと、自動車をするものがいます。これに、テレビ市場は、コマの速さを評価するゲーム会社の評価感もなく、データ容量が大きい、画素が大きいということを低評価する電話会社でもありません。電話会社は準通信産業です。さらに、SDかめら、７２０横、４８０を上限にしたものは、テレビ市場であり、デジタルハイビジョン１２８０横、７２０横と、対等に扱われ、ユーチューブで旧作品を削除できないので同様のコンテツがあると、アクセス数が、SDに奪い取られて、デジタルハイビジョンがアクセス数が下がります。ですが、新規は、スライドショーの動画であり、常に０に近くなければなりません。新規は申請用なので、わずかな監視が見に来ます。スライドショーまでコンテツが追い詰められたので、やっただけで、カメラマンは、営業員や、販売員やレジを雇用する製造格の設計士の写真家です。プロ写真家は、商業と、設計業となります。後見していいはんがあると権力に背くことによって、これを、アクセス数が大幅に下がったりなくなったりします。また、同権力でも、一回も前生に経験がなければ、権力が同じでも一回は、相手にされません。わたくしは、セルカ行為は、ビデオカメラの方ができます。VLOGは次の世代から取得可能です。ただし、デリバートは工業です。営業員が、手放してはいけません。製造も、営業も契約格です。プランナーという農業と、設計業の組み合わせのものは、まったく契約ではなく、大人の顧客を引くのは無理です。シルビアは、子供向け新聞モデルから始まり、子供向け番組芸能人という形で、バラエティや、ドラマに出演すれば、テレビ俳優を勤まったことになります。モデルや俳優は、プランナーでできます。お笑い芸能人も、プランナーです。プロモーションは、プランナーに対して大人との契約で禁止です。シルビアはこれにあたります。プロモーションは、ビジュアル系芸能人のために２０２４年に新設された芸能職で、偶像ではないことがでできます。それだけでなく、個人宣伝を入れることが可能になりますが、権力格に準拠する番組が必要です。番組編集は、福岡彩が、経済お笑い番組セルカ行為や、小林桐は、キャンプバラエティ被写体といった形の俳優業参加など芸能キャリアがあります。前世代に経験があれば、収益や、集客が集まります。売るということと、見せるという業務は、別のキャリアの行いになります。いまは、フリマに価値のないものや、新規のものしか展示できません。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/05 (Thu) 23:27:52

VLOGとは、Video Logという意味です。これは、カメラに扱わないという意味でLOGとつきます。LOGは、home pageのBLOGといった感覚に近く、お手軽動画カメラです。セルカそのものは、セルフカメラです。福岡大は、セルフスタンド撮影は、セルカ行為に扱われ、アクセス数が集計できるよう効果がありますが、ＰＨＳや、ガラ系携帯からの初期時代から写真をやらなかったので、新規のキャリアになる小型携帯端末です。新規は、納税のために、アクセス数が、０に評価されます。そのため、新宿東京一口茶屋のたい焼きが、本格的なカメラである、コンデジ（コンパクトデジタルカメラ）で、たい焼きを食べるのがアクセスが上がっています。しかし、福岡大は、東尾張病院時代、藤が丘に何度も行っており、価値のあるコンテツをスマホで作ってしまいました。スマホ（スマートフォン）による、桜と、住友不動産取引の建物の写真が必要なので、キャリアランクを取得してしまいましたが、国家資格料１８００万円の採算がありませんから行政申請ができません。特別に、プロ写真家ら資格料を一部譲割することで解決するそうです。わたくしは、小型携帯端末の経験はゼロの前生だったので、セルカは、アクセス数が０から申請になるはずです。セルフスタンド写真行為の、三脚設置ビデオや、三脚設置デジカメ及び、手持ち自分向きカメラのいずれも、コンデジやビデオカメラや一眼レフや、民生機を満たしていればすべてアクセス数が評価されます。それだけでなく、フィルムと、デジタルは別です。デジタルは、８ミリビデオカメラが、写真機用途にも使ったので、デジタルカメラ、１００万円の中古民生機が写真機として一眼レフ級のデジタルカメラに扱われたほか、ビデオカメラも同機でcareerを福岡彩時代に取得しました。

無題 - 福岡大 Mr.Dai Fukuoka URL

2025/06/04 (Wed) 16:50:31

しぐまれんずのアポ７０から２００ミリの広角側の画質、今後、VLOG用デジタルハイビジョン用の１８０カメラ　セルフカメラ棒用のものが来るので、それの画面のスナップショット（がめんしゃしんをとること）で色収差いろしゅうさの差さを比べていただけます。フレアがかかって白っぽくなってしまいましたが、一眼レフのしきさいひょうげんのほうがビデオカメラよりいいと思います。ですが、一眼レフで動画はとらないほうがいいです。セルカは、小型携帯端末写真（PHS、携帯カメラ）きゃりあに扱われます。これは、こんぱくとでじたるかめらや、一眼レフ、また、そのデジタルと、フィルムのべつのキャリアにあつかいます。