パソコンを用いた林野火災の拡大予測に関する研究［PDF 4.2MB］
Contents
1.2. 1 1
3. 1 TM Vol 3 0 1 1985 2 3 2 1986 3
4. 3 4
5. 0
6. 3 1 3 3
7. 1 2 3 4 1
8. 59
9. 1 2 3 1
10. 0 1 1 1 AM ATxVSAM
11. 1 2 1 1 PC 9801VX 1 3 2 51X51 2601
12. 1 5
13. 1 2 1 1 3 1 2
14. 4 3 730 4
15. o 4 5 1 10 0
16. 2 1 F A Albini U AU 0 555 v3fLzxln 20 1 081 0 39L TORTU U L f 3 U 4 2
17. 56mmX56mm 2 3 3 BASIC PAINT 4 3
18. 1 58 1 3 4 5 58 4 27 1 5 5 3 6 8 m Z s 100m 8 m s 15m s
19. 1 1 1 P 1 2 3
20. 82 fr Jm I A B C D F G H E CJ K L M 3 FRE RINYA81 EXE RINYA8C EXE A 1 30XS30
21. 3 7 9 55 2 4 8 1 10 2 1 4 7 case 1 3 12 a 4 case 1
22. 5 U BRA UL E FH FS SRR FF iE ES TARR HR JU CRT 1 1 2 3 4 BH E F 18083 2 2 3 2 gt z 88 4 1 REKE FP BF aA 28503645888 3 4
23. 3 1 3 4
24. 2 1 2 2 3 Tea 1800
25. 3 1 2 63 2 1 3 63 2 3 1 2 5 2 3 4 1
26. 32 3 2 ha KURBET 63 1831811 14 ER63 28 1818 WNW 8 BREEAT 63 4 28 4813 20 63 23 68 7 10 E4634 245810 06 63 22 5819 00 WW63 4A 4810 50 62 48 5813 50 Ritti 63 4415814 55 63 4 15B19 20 63411411812 33 63 12430413 62 2427812 64626 44218 9 3 62 amp 4421820 62 4824814 3 674 SA 8813 3 62 SR 9811 1425823 614 4A 6813 2 ER61 44 6820 616 4 6118 Ek61 8428815 63 11313815 69646 13 7814 652 2428818 62 4823816 30 626 44238 9 20 62 44250 9 38 626 54 9817 00 62 5411812 614 1428815 616 44 7819 616 44 9810 6616 4A 7818 616 94 4817 KARET ma oju gt K G AM TH 2 60 24 2818 604 28 5810 SSw 2 0 KARR BA60 11 13H14 KR60811814816 4 0 tititi 6060612821114 601 2824814 2 8 68595 2A 7815 594 3411810 0 EEE 59
27. TED 2 3 1 i erdS O 1 3 KEDHE 2 2 1 2 2 225 464 4 we 2 3 o c s c s s s sos os os sss 2 4 o so sos so s s s s 2 O E e O SOD o o r a 3 3 1 3 2 lt 3 3 4 4 6 4 46 4
28. 5 3 4 51x51 2 2 2 3 2
29. 3 a b a 10m s b 10m ss 8 m 0 5 m OLE LEKERE Ed 4 1 8 b 10m s 3 m s
30. A A B 2 3 a 2 3 b SP TP 2 3 a b 2 4 8 b c c P P 2 4 c 450m 4 2 c
31. 2 3 2 3 11 1 1 M 3 3
32. 50 70 50X50 100X100 63 4 1 82 5 5 Wx Wy RBZ 2 4 37 5 21 57 X Wx Ex 4 37 XSy 21 57 1 3 BB8Ktan Ey Ex FERT Ve 66 10 1 44 5 0 51 30 0 0 1 EL 5 5 107 22 0 0 m s 0 Vb 0 FERR 0 8 107 21 719 9942 104571447 1 v 57 2 57 1 25 5 2 1 v VCosTt Vb tsin 60 Vs 54 lt 2 4 2 lt 451 PEL RKB 5 9 RES RAEE OAC RAKERA tan 0 3 UOEBET3 ERKE UTI YY 10EBR24 9Y 20Ey Nit PERE HEEKHRTOTHIYANCHRER 64 4 2 LRR H 47
33. 5ms 30 80 30 N S N SZK S K 1 ha 150 130ha 13 K 30 4 4 1 6 4 9
34. 4 6 1 L S Bradshaw J E Deeming R E Burgan and J D Cohen The 1978 National Fire Danger Rating System Technical Documentation Intermountain Forest and Range Experimental Station General Technical
35. 500 700 3 3 3 1 2
36. 3 SPOT2 N L 18 SUBROUTINE SPOT2 ECHECK TINES FM1 ISPTN wINDY S12E IFMLST ITIME PNTNO INTEGER 50 50 50 50 1 5 50 50 1 2500 WINDY 10 2 NSPOT 10 SPFM1 4500 SPFM1W PNTNO REAL PFM1 4500 PPFM2 4500 AREA 10 SPTLL 4500 RSPOTT 4500 3 14 COMMON DATA 50 50 2 1 50 50 2 50 50 50 50 COMMON DATA2 wCHECK NTIM 0 TIMEE FLOAT ITIME TIMT TIMEE 120 J1iP INT T1IMT NTIMsNTIM 1 w w w F KAREKUSA 30 SINRIN 150 5 90 w e000e00 0 AREA 0 0 NSPOT 0 0 AREA JIIP SIZE 100 2 FLOAT IFMLST NSPOT JIIP INT AREA JIIP
37. 4 3 1 V m 20cm U m V AXUXcos 9 2 B x S B tan 9 A 2 00tan 0 2 16tan 1 24 B 1 12tan 0 1 44 0 25 S
38. 2 2 2 2 1 1S 300M2 P C 9801V 1 1 2 3 4 5 1
39. 50X50 50x530 2
40. 3 V 0 26 30 n n xl100 100 10 15 2 5 1 30 3 4 5
41. 1 7 case 2 12 b case 2 K 11 case 3 4 12 c case A B C D case 4 4 12 d case
42. 2 2 B 51x51 50x50 1 8 8 2 0 90 180 270 45 8 2 4 2 2
43. 700 1800 830m 1200m 750m 30 9
44. 205022 22 250m 2
45. 3 12 3036 175 12 50 13 03 13 17 13 10 EFAS 1 100m 30m
46. 63 2 13 32 63 2 6 7 10 612 50 FH RE 8 3 41 1 2ms 7 3 2 A 50 2 A 40km
47. 3 5 3 6 3 7 2 5 9 55 1 m 30 26 10 21 2500 50m 50 10 23 420m 2 10 33 36
48. 4 3 18 30m h 1000m h 1 HAREE 10 15
49. 1 2 2 3 2
50. F D FNAME DAT A FD B F D COPY FNAME3 DAT B FNAME DAT FNAME3 DAT UVW3 RES B UVW RES LVW3 RES COPY_UVWSPOT3 RES B UVWSPOT RES UVWSPOT3 RES COPY_SPEC3 DAT B SPEC DAT SPEC3 DAT 5 RINYA81 RINYA8C UVW RES UVWSPOT RES 6 RINYA81
51. PC9801W 24 RINYA81 EXE 10 RINYA8C EXE 8 RINYA81 E E RINYA8C EXE 3 x y x Y 4 RINYA81 EXE RINYA8 C EXE B FD
52. a b c d 2 4 cC P 500m 3400m 3 1 2 4 P 450m 502 4 b 2 c d 2 4 a
53. 63 23 P 457 1988 2 MEM MORK HAMA KET 1989 3 V I P 200 ver3 0PC 9801 71 1986 1 No 69 1990 12 I IS 300 2 PC 9801VX 2 1 J Y ND J 8 J 0 I I 1 FH Q Z SUT Enta 02 2 3 lt 0 0 44
54. 1 2 3 3 1 2 3 0 5 0 5 1 0 2 0 4 0 1 2 3 V V V Vo 2 81 S aq 7 1 2 3 g 8 1 2 1 l 1 V 2 V 2 2 4 4 1 2
55. CRT 4 50x50 2 5 1 MORK
56. 3 4 O 10 12 20 40 12m s 10 0 336 0 447 0 30440 384 0 208 0 570 0 150 2 699 2 699 3 8
57. 22 MK pk 2 3 ARMED Rs 1 m s 7 Na 1 re 2 2 7 A gt 9 Ve TI F79 3 9 t ET t 18 24 2 Fe 2 r ea u r i lt W 6 1 9 12 pe T c 451 J 9 47 3 6 a Ta Sa 1 1 N aa E S FETT k 2 4 lt Ena pia t Ww E A Sv 5 7 4 4 hh FF ee MA 6 E V mr 1 10 m s K amp W2p RHKEORODQODTBE 41 0 3 74 3 6 FU 6 9 7 9 12 P 12 15 SER 74 100m 200m 7 300m ty 400m 3440 500m J1 600m 0 700m 74 800m 2
58. 2 13 18 11 33 250m 11 43 11 50 26 2m s 12 00 12 00 12 10 12 00 12 56 13 03 1
59. 13 51 15 00 15 30 15 10 15 00 16 00 19 00 2 720 1 3 5 57 59 KERE 3 4
60. TITTARE TA A L CA TRNA SS NN 2 2 NOLIN ESE NIRS SS K aposta AX OX DA ZS Em ss LO 7 SA X LOY SSE CN F 04 zj 72 NS de 7 A gt SR 2 S ODDIE SS NN 3 s W NU W 13 5 3 6 47 ahl nr 675 B B 13 7 48 MP P YF A Sy RF FE Eh XS EE 3 8 49 0G 3 9 8 l 4 MENY TE E air 1 s T LF s E ls Po T T PE ili iil ll i ma ii 3 10 Tr N T f TH 3 9 4
61. S 0 2 0 1
62. 63 2 5 9 55 63 2 5 19 00 201 i Rk 12C 37 10 7ms 7 63 1 21 11 15 2 5 13 37 23 2 5 1020mb 1000mb 10 10m s 22m s 11 30 26 2m s 3 1
63. RINYA8C SPEC DAT SPEC DAT 7 MMENU N88 F D A FD B FD COPY CIKE13 DAT B CHIKEI DAT CHIKEI3 DAT B AsVIP200 BS887g2 722 5 2 e 79145224 RIDE DATA 7 20 29 180 20 LEDAS AYA EE 74 79453 601262122 14176 4 2022 188 2772 ES 2 2972 11 LO84344 4594 459999 ECES 751764695733 11 2972 3 74126 707020 0 2 297 7 20 t 2972 74270 RT t 2952 07050 TAPRE 340 5 80 0 290 Ai VIP200
64. 3 3 1 23000 2 1 30 30 5
65. 1 4 CDi 2 CD2 HIS5 CDi CD2 i RETN RETURN XLEFTCC Es0 IF 1 50 THEN PP 399 ELSE PP J 8 IF 1 50 THEN QQ 520 ELSE 00 121 841 99 FOR 0 99 TO 121 STEP 1 IF POINT U PP 0 OR POINT U PP 7 TOLC IF POINT U PP lt gt XX RO GOTO MIKKELC TOLC E E 1 NEXT U MIKKELC HENIRO POINT U PP CXL E GOSUB JYOGE PXL DAiIRO RETURN XRIGTCC 0 IF 1 50 THEN PP 399 ELSE 1 8 IF 1 50 THEN 00 520 ELSE QQ i21 8 XRIRO POINT QQ PP MTIRO XRIRO FOR U QQ TO 520 STEP IF POINT U PP 0 OR POINT U PP 7 GOTO TORC IF POINT U PP gt lt XRIRO GOTO MIKKERC TORC E E 1 NEXT 0 HENIROsPOINT U PP CXR E GOSUB JYOGE PXR DALIRO RETURN YUPCC E 0 IF 1250 THEN 00 520 ELSE QQ 121 1 3 IF J 50 THEN PP 399 ELSE PP J 8 YUIRO POINT QQ PP MTIRO YUIRO FOR U PP TO 0 STEP 1 IF POINT QQ U 0 OR POINT QQ U 7 TOUC IF POINT QQ U YUIRO GOTO NIKKEUC TOUC RETURN YDwNCC E E 1 NEXT U MIKKEUC HENIRO POINT QQ U CYU E GOSUB JYOGE PYU DAIIRO 0 IF 1 50 THEN 00 520 ELSE QQz gt 121 1 8 IF 1 50 THEN PPs399 ELSE PP Jw8 YDIRO POINT QQ MTIRO YDIRO FOR U PP TO 399 STEP IF POINT QQ U 0 OR POINT QQ U 7 GOTO TODC IF POINT QQ U gt lt YDIRO GOTO MIKKEDC TODC EE 1 NEXT U MIKKEDC HEN IRO POINT GQ U CYD E GOSUB JYOGE PYD DAIIRO 4440 RETURN 110
66. 3 9 2 25 2 70 1 80 2 25 1 35 1 80 FY 0 90 1 35 0 45 0 90 0 0 45 3 10 3 5 3 6
67. s 1 2 3 4 HE HE 88 El 1 2 3 4 5 6 1 VIPR2 Z7 A 2 31 2 4 ROOMAT 2 WINDY2 3 HMENU 4 SKELETON 5 6 CT 3 emas RA FT FER FHL 8 BAS PAS FOR VIP 3 HYOUKOH BAS JYUSYE BAS PC 9801 WINDY2 FOR CN
68. 560m 4 5 59 10 53 62 10 57 10 10 5 1 1 700m 11 21 13 30 15 15 15 45 10
69. BL V 1 3 400 600m hr 3000 5000 m hr 3
70. 2 774064 0 1 File Control Process 1 VAX11 PC9801 2 9801 VAX11 TEXT 1 BINARY 2 1 VAX11 PC9801 2 PC 9801 VAX11 1o 0 287 COPY UVVSPOT EXE C COPY Uvv RES UVWSPOT RESE 577 RD p J32 4105 AiWI2 EXE ts TO 224 22 5 H ET SL EL 0 108202 164 35 ES7 MEMS 8m s nd 82035 254 US CS 80 5 YES 1 NO 2 m 7 111 4 MS 8m s in mw eme EIB 86 5 87 1018gr h lee CIKEI DAT 9 87 ProgramTerminated COPY UVVSPOT RES gt ECER080F8BRSERIN2P 1 RINYA81 EXB ZERAUT 4 4 FES A HS DOS MIFES RINY481 B HNENUTES kE A gt B E3 9 7 870510 8 1 079340 32 2 XEKUivATF r el Y T 300 0901852 090011 RANKER 25013 71 60904882 60944482 0X 7 RAOYEEL 18090817 1809021 AX0
71. 225009 05 005 247 2 8 7 75 A gt 34707173 amp amp 872734 7873 01 3 amp amp 0580 ias F77 B RINYA8C J KIARA PROLINK B RINYA8C F77LIB S 77786 KSITIIRART RU LE 103 B C D E F G H J K L M ff gt 27 Z U F AERE BARR ARE HERE H FR 1 B SBDF REKKEKKEMKEKTBBER KE59SE RES HERE HPER BERR AAE B 4 CLS 3 CLEAR 1000 5 DEF SEG SEGPTR 2 10 DIM ALSUKY 399 20 DIM ALSUMX 399 23 SYOKINYU 25 INPUT A amp m HGT 26 INPUT m ALSUMY O 27 INPUT 27 U Z gt p m B 30 PRINT 37 SYOKISAI 40 INPUT eee
72. 10 11 1 51 2 51 3 51 51 51 1 50 2 50 3 50 81 50 M D 2 1 B D 51 1 2601 10m 0 52m 2 89m 50m 1 01m 7 90m 10m 3530m 2 3 DAT 0 RAO 250415 2
73. gt AN lt gt 224 2 gt IRA IRD RS 25724 2 0 Ey 95577572 RR 4 Z 552222224 ZY X lt Gl 1 gt Y 4 12 b cace 2 01 120 cace 3 X lt GL 1 gt Y 04 124 cace 4 5
74. 11 jz cs savebx bX cs saveds ds cs ds mouse 1 msl ax 0h 33h mouse ax 01h 33h d1 0ffh 06 21 81 40 mslpl al 8 msipl sub 81 70 mov 1 16 bit rep mov color al ers_ll xor 41 41 mov ax 03h cyset int 33h cyset mov xpos cx cyset b_pln mov ypos dx cmp 41 7 mov ax 02h je left_c int 33h mov dh d1 mov bx offset savebx jmp short ers_le les si dword bx Iefl_c mov dl dh 1ds bx es dword si setcol b_pln mov al cs color setcol _ mov ah 0 setcol mov bx ax ror bx 1 1ds bx es dvord 5194 sub cl l mov AX CS YPOS jnz 11 mov bx ax add si 2 lds bx es dword 8 sub ch 1 mov ax cs xpos 32 11 mov bx jmp ers_12 412 sub 41 1 jz ers_qt jmp ers_13 erass pusha 4 lt X11st ds cyset macro x popa Jocal 11 12 mov es x even test es tsi bx b_pln dv 0a800h Jz 11 r_pln dv 0b000h ste E_pln dv 0b800h jmp short 12 savebx dv 11 saveds 2 12 41 1 mouse dv 0
75. 15m s 2 km 200m 1 7 1 3 4 8 100ha 1 50ha 5
76. 2 3 B8 tan k ERhbSERJ0BRIKAL PEULE Ve AXWXcos 6 B S A 2 00tan 2 16tan 1l 24 BL S WUR8ERREER B 7 12tan 9 1 44tan 0 25 W R m s Vs 0 6XS Vb 0 4 XS V 1 v y cos 6 Ve sin 4715 1 25 lt 1 2 1 V cos Vb sin 07152 5 lt 1 2 2 lt 5S 1 SRRp3 R2S 5 m s 2 ha K K ZK 30 150 RKREFERXESDOEKE 4 RARES KRAORGR 5 38 2 67 TF 68 4 7 63 2 5 eo HR E FB co e gt w G c O o gt Aa A 4 8 1 2 3 4 1 2 3 4 25 37 25 37 1 1 4
77. 3 4 3 5 e 4 4 1 4444 4 4 1 2 0 S S s se sos sos sz a sos s s os e es 4 3 4 4 2 4 44 4 4 5 lt se sesi so se so s sos s s esos osos os osos 4 26 SEQ OBL 6 EE EE 0 1 1 1 CH B C 0 F G H CI RINYA81 EXE J RINYA8C EXE L 1 1 1
78. 9 7 SKY 717 2 sersan XG X 7 422955 OE PA 90 00 in 22552 i 0 KX 209 AO SGS 900 52 252 5555 RS 552 3 4 ILLS OS Fir e 4 1 22
79. 0 1 5 181 byte ptr 51 11 0 tl dx di ofiset fname 1 8 681 2 es ax al es si cs di a si di si dvord bx 41 51 si dword bx ax es s1 cs ypos ax si dword bx 16 ax es si ax 0 bwl AX 1 cs bw ax cs ds x ah 3dh dx offsel fname 1 0 21h nXt1 short error fhdl ax remn 0 ax offset buff dpos ax ax ypos ax bx 162 bx bx xpos bx ax bx dx 0 cx dx 1 0 42h bx fhdl 21h 1 400 116 nxt2 1 3 1 2 error nxt3 qult getdt 4 getdt mov mov call mov mov mov mov mov mov Inc ine 1oop dec cmp Je mov call loop jmp mov mov Int Jmp mov mov int popa iret proc push cmp jne mov mov mov mov 1nt mov mov mov mov mov xor ine inc dec dec pop ret endp 41 0 40 getdt es b_pln es di dx _ es di dx esg E_pln 41 4 di di 1 3 51 si 0 nxt3 41 getdt 1p2 nxt2 dx offset emsg ah 09h 21h short quit ah bx fhd 21h near cx remn 0 nxt4 31 bx fhd 512 dx offset buff 21h remn 8x ax offset buff dpos ax bx dpos dx bx by dpos dpos remn remn CALL MOUSES YX KX mouses msl mslpl pusha mov mov push POP cmp je mov 1nt Inc mov jnt mov mov int 32
80. 22 2 2 ANAN AAE AI N 4 29 NSS AA 3 1 8 M 71 m 20 3 1 h M 50 m 22 3 1 G M 70 m 23 043 1 0 72 m 29 3 1 M 70 m 33 w NNW 2 V lt 9 9 y 2 I CN KN NSP 25 CONS N NN NO 6 3 1 1 M 60 m 39 Rik 2 4 16 00 ZD 2 5 16 00 10 7 2 6 3 2 63 2 4 13 20 63 2 6 7 10 3 3 3 3 3 9t 7 RR SVE 277725 OT OTL W CSS SRN A R A 55262 ASIN gt
81. 4445 4450 4460 4470 4480 4490 4500 4510 4520 4530 4600 4610 4620 4650 4660 4670 4680 4690 4700 4710 4720 4730 4800 4810 4820 4900 4910 4920 4930 4940 4950 4960 ISYUI IF PYUsPYD THEN ENKOI IF PYU gt PYD THEN HI6 HGTwCYD CD1 IF PYUCPYD THEN HI6 HGT CYU CD1 TAKASA BASEH HIG6 GOTO ISYUEN ENKOI IF HASEH gt PYU THEN TAKASA BASEH HREY IF BASEH PYU THEN TAKASA BASEH HREY HGT 1SYUEN RETURN JSYUI IF PXR PXL THEN GOTO ENKO IF PXL PXR THEN H17 HGTwCXR CD2 1F PXLCPXR THEN HI7 HGT CXL CD2 TAKASA BASEH H57 GOTO JSYUEN ENKOJ IF BASEH gt PXR THEN TAKASA BASEH HRE IF BASEH PXR THEN TAKASA JSYUEN RETURN AIDAPNT 1 1F PXL gt PYU THEN TAKASA F PYU gt PXL THEN RETURN 111 by 0 286 Code Segment assume org subl jmp sub2 jmp sub3 jmp maps pusha Oh near ptr maps near ptr mouses near ptr erass CALL 5 5 5 les mov les mov mov cmp jne mov 9 mov mov mov mov mov inc inc loop main XXO W Xx i les mov mov les mov mov les mov je mov bwl mov push pop si dword ptr fbx 8 ax es 81 si dword bx 12 ch 0 1 5 81 byte
82. 51 1 0 ti ax dx di offset fname si es st 2 es ax al es si 5 412 41 si di 1p1 si dword ptr bx 4 61 5 si dword bx ax es si si dword ptr bx 16 ax es si ax 0 bwl 1 cs bw ax cs ds mov mov mov int ijnc jmp nxt1 mov mov mov mov mov dec mov imul mov dec add adc mov mov mov mov mov int mov ah 3dh dx offset fname 1 0 21h nxt1 Short error fhdl ax remn 0 ax offset buff dpos ax ax ypos ax bx 162 bx bx xpos bx ax bx dx 0 cx dx dx ax al 0 ah 42h bxvfhdl 21h si 400 112 ntj 1p3 1 2 nxt3 qult getdt nxt4 getdt mov mov 11 mov mov mov mov mov mov inc inc loop dec je mov call loop jmp mov mov int jmp mov mov Int popa iret proc push cmp jne mov mov mov mov int mov mov mov mov mov xor inc inc dec dec ret endp 41 0 40 getdt es b_pin es di dx es r_pln 41 4 es g_pin es di dx di di 1p3 si 0 nxt3 cx 41 getdt 1 2 nxt2 dx offset emsg ah 09h 21h short quit ah 3eh bx ihdi 21h near cx remn 0 nxt4 ah 3fh bx fhdi cx 512 dx offset buff 21h remn ax ax offset buff dpos ax bx dpos dx bx dx bw dpos dpos remn renn cx CALL MOUSES XX Yx KX mouses m
83. fhd dv t xpos dv setcol macro x dv loca 11 remn dv shr 41 1 dpos dv jc 11 by dv 7 mov es x color db es si bx fname db 32 dup 0 11 ensg db Flle open error 1 Odh Oah s enda buff db 612 dup code ends 12 macro x M end local 11 12 mov es x mov shr 81 1 11 not ax and es si ax jmp short 12 11 512 12 60909 96 896046 0909490 9004099 0044640 11 alist push da Push es push cs pop ds xor 81 51 ipln_offset mov bx 80h mov 41 400 sy 13 40 x dh dh init ers_12 j 117 H INTEGER MESHI 2 MESH2 2 POINT 51 31 REAL REAL X0 8 Y1 8 Y2 8 Y 8 8 WIND1 50 50 WIND2 50 50 CHARACTER IFNAME 10 REM 3 COMMA 1 DIR 16 6 K F X MESH YA YB YB YA X MESHe YA CALL CALL BACKCO 0 GRAPH O 0 0 0 RAD 3 1415926 180 DIR II Ri DIR 2 W W B DIR 3 i 74 DIRC4 fN jfi W DIR S W DIR 6 DIR 7 jt F DIR 8 DIR 9 DIR 10 DIR 1I DIR 12 DIR 13 DIR I4 018 15 DIR 16 iH Fi
84. gt 0 THEN HI 2 2 IF 1 0 AND 2 0 THEN GOSUB HISYU A IF BASEH MAXH THEN IF BASEH KAXH THEN TAKASA DAINYU SUMR 1 J FIX TAKASA 5 PRINT SUN SUM R J BASEH HRETT HGT 108 1420 1430 1435 1440 1445 1999 2000 2003 2005 2008 2037 2050 2051 2052 2053 2058 2060 2070 2080 2090 2093 2054 2097 2098 2100 2107 2108 2110 2115 2118 2120 2123 2125 2126 2155 2157 2165 2170 2175 2180 2300 2800 2810 2820 2830 2840 2850 2860 2870 2880 3200 3210 3220 3230 3240 3250 3260 3270 3280 3300 3310 3320 3330 3340 1350 1360 3370 3545 2550 2854 3855 3856 3865 3875 3885 3895 NEXT 1 NEXT J CLS i GOTO s DATASAKUSEI DATASAKUSEI AS 1 NAS REN 1i 100 51 PRINT 1 USING 11 PRINT 1 USING 94 5 PRINT 21 USING 5 PRINT 21 051 3 PRINT 1 lIz1i 1 FOR L 50 TO 0 STEP 1 FOR 0 TO 3 1121191 KS Kw10 KLK KS 5 9 PRINT 31 USING 311 PRINT 1 USING 5 FOR KK KS 1F KK KLK THEN PRINT 1 USING g8 SUMR KK L IF THEN PRINT 1 USING gg SUMR KK L NEXT KK PRINT 31 NEXT K 1 11 1 PRINT 1 USING 85 PRINT 1 USING FOR 40 50 IF 40 THEN PRINT 1 USING z SUMR KK L
85. 4 3 TOP 5 CONT3D 6 ASCII 3 CAD 60 3 H 8 9 10 359 60 3 3 1 HM ALK RAK
86. 1 1 1 HERF IDRAR DO 344 1 1 50 DO 344 1 1 41 10 READ 4 1900 5 1 1 1 1 1 9 344 CONTINUE 1900 10 1 4 1 999446 28 9 9 9 9200 60 000 099999 49 9 9999 99 909060090 0 1 SHOBO DAT 3 3 354 iw 1 50 DO 354 1 1 41 10 READ 8 1910 5 1 1 1 1 9 354 CONTINUE 1910 FORMAT 10 A1 F4 1 1 ENSYOU MODEL CALL 50 2 LAST 1 512 5 99 9 9 8 9 99890998 999 9 99 9 9 99 0 6 99 9 9 9 909 999 ICOUNT 1 DO 80 1X 1 IXLAST DO 80 IY 1 IYLAST IF TIMESCIX IY LT ITIME AND TIMESCIX IY GE ITIME 120 THEN IF 5 1 1 9 0 GO TO 80 FMI ICOUNT 1X 100 1Y ICOUNT COUNT 1 END IF
87. 4 4 11 K B K K K 2 _ 25 37 1 4 4 11 A k HE A B CHE A B C D 88 A B CHE A B C D H 2 2 01 1 0 2 0 15 5 0 1 32 0 50 100 150 200 4 2 i 4 3 a 10m s Ta_ I t 1 et tT ATE E SA COT E ENE TTA 4 3 b 10m s 1 0 ee E EESO ONAA ha Nk UNDO 4 OCG XN Z 7 OO Q 6607 1 CC GDM WOO 1 4 10m 5 EE GE 40 50 a 9 60 94 1 OO OO OOO 04 400 10m s 400 1200 1600 2000 K E RF m 44 5
88. U lt 8 8 lt 0 lt 15 M S U gt 15 M S R E m 4 6 20 40 f B A 4 7 200 200 M Ona 4 8 w f e R o RETURN RA RE 7 9 50 50 RETURN ye W Eh e 2 o u STOP 44 9 lt 44 10 4 11 wam 2 202 ES NS a lt 7 X lt 51 1 gt Y 1 12 a cace 1 ZS 555 ZE 4 ZO ENIS AO 4 ZN amp X lt jp WS i 4 ON ai 77 7 CN gt S 2 5 RILA RR 27276 SS
89. 6 705077 HIMES 11 211 7 170 1 27 72 188 6202 21 272 2332 67973 KEKEL 71370 RE 792 1 1 6992 5 7 20 702 2 6 2 997 74176 8 02207 7 8891 AE 7207 VIP THPEE 42 N38BASIC FAROKBEAR AiHYOUKOU BAS 8 VIP200 1 OK LOAD HYOUKOU BAS js rT aoa igudfh9tEs1 SPa kofar 1 2 3 1 1 3 2 1 7 8 9 KIKEI DAT 7 5 567 3 RTEELB ACHIKET DATEAS TEESB HFNANE DATKAZ C JYUsYU B4S o N888ASIC 0 0 5 BELETA YES NO 0 1 t 0 5 9 1 0 8 0 K 0 t 1 REL YES 1 NO 0 MBRE 151 94851121 aty 0 0 143137144435 ERE 281 6 115213214449 03 0 5 0 7 0 9 K 1 0 YES 1 90 158 15 9 WCBF3176JYUSYU DATt Was h D 2038 1129 A MS DO
90. IF lt 240 THEN PRINT 1 USING z SUMR KK L NEXT KK PRINT 1 NEXT L END JYOGE IF MTIRO gt 1 AND HENIRO THEN DAIIROsBASEH HGT IF MTIRO 2 AND HENIRO 3 THEN DAIIRO BASEH HGT IF MTIRO 3 AND HENIRO 1 THEN DAIIROsBASEH HGT IF MTIRO 2 AND HENIRO 1 THEN DAIIRO BASEH HGT IF MTIROs3 AND HENIRO 2 THEN DAIIRO BASEH HGT IF MTIRO 1 AND HENIRO 3 THEN DAI IRO BASEH HGT IF MTIROsHENIRO THEN DAIIRO BASEH RETURN ROHX FOR P TO 0 STEP 1 IF 1 50 THEN IRX POINT P 399 ELSE RX POENT P J 8 F IRX lt gt 0 AND IRX lt gt 7 GOTO NEXT P HAKKENX MIRO 1RX RETURN IROHY FOR Q K TO 0 STEP 1 IRY POINT 121 Q IF IRY lt 0 AND IRY lt gt 7 HAKKENY NEXT Q HAKKENY UIRO IRY RETURN HISYU 0 IF PXL PXR AND PYU PYD THEN GOSUB AEDAPNT IF IHANTEI 1 THEN IF PXL gt PXR THEN HI4 HGT CXR CD2 IF PXR gt PXL THEN HI4 HGTwCXL CD3 IF PYUSPYD THEN HI5 HGT CYD CDI IF PYD gt PYU THEN HI5 HGT CYU CD1 109 3900 3902 3908 3910 3920 3930 3935 3940 3945 3950 3960 3970 3980 3990 4000 4010 4020 4025 4030 4033 4036 4040 4045 4050 4060 4070 4075 4080 4090 4100 4110 4120 4130 4140 4150 4155 4160 4163 4166 4170 4175 4180 4190 4200 4305 4210 4220 4250 4240 4250 4260 4270 4280 4285 4290 4293 4296 4300 4305 4310 4330 4330 4340 4350 4350 4270 4380 4390 4400 4410 4420 4425 4430 4433 4436
91. 05 c VQE2 51 30 WIND MX MY 2 COS WDI 22 00 2 2 16 1 1 24 2 7 12 2 2 1 44 1 0 26 VQE VQE1 VQE2 SPEC MX MY YQE 1 2 VQE 60 VQE1 WIND MX MY 2 VQE2 IF VQE LE O GO TO 10 DO 50 11 1 15 04 11 25 22 5 11 1 11 25 22 5 11 IF EQDI GT ELOw AND EQDI LE EHICH THEN EQD 22 5 II GO TO 60 ENDIF 50 CONTINUE EQDI 0 ENSYOU SANTEI 3 1 60 100 X MX 2 MXY2 100 IY MY 2 MY 2 IF IX EQ NX AND 1Y EQ NY GO TO 100 C IF KEISYA IX IY 1 EQ 1 GO TO 100 IF IX LT 1 AND IY LT 1 GOTO 100 124 IF IX GT 50 AND IY GT 50 GOTO 100 IF ECHECK IX 1Y EQ 0 THEN 1ECNT ECNT 1 FM2 IECNT 1X 100 1Y 1 BB1 IX MX IBB2 MY 1Y CALL CCLOCK IBB1 1BB2 DEG HEN EQD1 DEG 3 HENKAKU NO SYUHSEI 1 IF HEN LT 180 THEN HEN HEN 360 ELSE IF HEN GT 180 THEN HEN HEN 360 ENDIF HEN ABS HEN RAD 9 09 90 09090 960009 999 9994
92. 259 5 6 ms V Va 0 4 5 0 6 5 V V V 3 4 3 2 58
93. 287 194 17 15 279 190 178 59 154 213 188 75 158 191 204 174 170 225 29 179 194 220 161 65 161 191 174 0 51 176 171 200 50 186 167 178 48 165 192 178 42 171 197 200 0 41 170 189 196 157 172 196 167 167 183 182 2 2 1 25000 HAREE 1 22 3 3 1
94. 30 1SPNO IELAST WRITE IFMLST IFMLST AREA AREA JIIP WRITE NSPOT NSPOT JIIP KiIIPsINT TIMT RwIND1 FLOAT WINDY JIIP 1 1 22 5 PAI 180 IF WINDY JIIP 2 LT 5 GOTO 9999 1SPNO IELAST MSPOT 0 DO 10 1 1 50 DO 10 1 1 50 IF TIMES J EQ 9999 GO TO 10 5 5 1 12 120 IF ECHECK I J EQ 1 AND ITIMES GE JIIP 1 AND ITIMES LT JIIP THEN IF ECHECK 1 J EQ 1 AND ITINES GE 1 ITIMES LT JIIP AND WCHECK I J EQ 1 THEN DO 20 11 1 50 DO 20 11 1 50 POT 90 4 111 511 1 JJJ jJjJ J IF JJJ NE 0 THEN RIJ ABS FLOAT 1 1 FLOAT JJJ RSPOT ABS ATANX RIJ IF II1I GE 0 AND JJJ LT 0 GOTO 120 IF IIT GE 0 AND JJJ GT 0 THEN RSPOT RSPOT PAI ELSE IF 111 1 0 JJJ GT 0 THEN RSPOT RSPOT PAI ELSE RSPOT RSPOT PAI 2 ENDIF ELSE IF III GE 0 THEN IF IEE EQ O GOTO 20 5 1 2 ELSE RSPOT 3 2 END IF CONTINUE RRSPOT ABS RwIND1 RSPOT IF RRSPOT GT 30 PA1I 180 AND RRSPOT LT 330 PAi 180 20 IF ECHECK IT JJ EQ 0 THEN SPOTL ABS SQHRT FLOAT 1 1 1 2 JJ 2 SPOTLE SPOTL SIZE 126 IF SPOTL GT 4000 S1ZE GOTO 20 IF wINDY JIIP 2 LE 8 THEN PSPOT 1 EXP 0 00228 SPOTLE 3 ELSE IF WINDY JIIP 2 LE 15 THEN IF SPOTLE CT 1600 0R SPO
95. 7 Is it 1 0 80 Eriks 1 42001511 5 3 s 0 _ 15 eps jis nsw 1 skeleton 2 uni tile 3 kz 1 3 color tile3 2 0 t7 1 739 6 gt u 0 nr 3 Is it ok2 lt 1 YES 0 0 gt 8 COo O 23 1 1 2 b v 3 CHELD 0 menu 100 L sia PET FORCE 1 color 2 b u 3 CHILD 0 menu 647076 f A SKELETON B 7 f 3 43 9 71 8 0 gt AE 0 MS DOSEF CB GSAVE YUGA1 6 4884655 gt SKELETON 22779186041 vs te 39406 2 72 em A gt GSAVE YOGAVA YUGAWA FRN P 1 11 Lrr PKK 3 8 03 7 YUGAWA DRHERE hana 15266 e 7740 092722 44 78StE2U O 1 3117 K amp kE 7740 089052 101 3 73 73 87 1 54 1 7 UGAYA RHDSKELETONKGE 102 M
96. REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM 2 1 1 0 0 0 0 0 0 0 0 0 0 0 0 161 117 7 lt 86 51 lt lt lt lt lt 34 51 137 69 _ oo 27 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM
97. 1 5 11 list push push push pop xor mov mov mov 13 12 45 5 cs ds Si si pln_offset bx 80h 81 400 40 dh dh init col 11 left_c 41 4 b_pln r_pln saveds mouse fhdl xpos ypos remn dpos bv color fname ensg buff code 113 mov xor cyset cyset cyset je mov jmp mov setcol setcol setcoj ror sub jnz add sub jz Jmp sub jmp iret dw dw dw dw dw dw dw dw dw dv dw db db db db ends end cl 16 di di r_pln b_pln 41 7 ieft_c dh dl short dl dh bx 1 1 11 51 2 ch 1 ers_fl 12 841 1 4 13 1 45 0a800h Ob800h 9 S 0 o lt O 32 dup 0 File open error 512 dup bit rep 1 C 4 5 10 20 22 23 40 50 51 52 53 54 55 56 CLS 3 CLEAR 1000 DEF SEG SEGPTR 2 DIM ALSUMY 399 DIM ALSUMX 399 DIM SUMR 50 50 DIN KOLOR 6 TEISE 0 KOLOR 0 0 KOLOR 1 1 KOL
98. 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 313 314 315 316 317 318 319 320 321 322 323 324 325 REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM 284 20 164 384 315 157 156 272 194 353 382 136 381 408 58 139 365 399 0 53 124 335 383 195 50 244 296 219 45 233 337 238 47 238 384 264 36 251 443 310 19 33 231 463 341 33 49 216 445 349 45 52 185 413 341 27 34 162 381 339 16 27 157 352 355 11 24 143 338 343 6 21 137 318 335 206 67 285 307 228 54 275 339 253 59 279 394 280 13 48 294 443 305 28 45 260 467 315 47 50 228 456 296 72 35 203 424 290 49 18 184 387 311 40 18 169 363 310 430 280 21 55 280 4
99. 4 1 2 39 4 2 13
100. 80 CONTINUE 122 FMICICOUNT 0 IELAST 1COUNT SPOT2 N L CALL 5 2 5 IELAST ILAST WiNDY SIZE IFNLST ITINE PNTNO 100 CONTINUE EEEE E E AH 103 JQ 1 30 DO 103 19 1 50 POINT IQ JQ 0 103 CONTINUE WRITE ss WRITE 1100 1100 FORMAT 1H HK EDE 10 4 4X Y F EU 11111 110 CONTINUE IXBC IIII EQ O AND IYB IIII EQ 0 GO TO 120 WRITE 1101 HIII IXBCHI11 1YB IIII 1101 FORMAT 1H 10X 14 6X 14 6X 14 liliIslili 1 GO TO 110 120 WRITE 1102 1102 FORMAT 1H R J 2 10X BR 4X 4X MX 130 IWIND1 wINDYCI11
101. 84208 9 58 4427810 gt 58 4427812 0 EFKAN 58 427812 28 EW58 4427813 30 584 4828817 30 29 WS58 4427815 EkS8 amp 4 28811 00 ense or esre sanoo Nsz GASSE 2413111 50 HASSE 28158 8 00 250 10 0 32 55 5A12823 55 100 SE 4 3 544 24798 9 06 54 38308 7 01 SE 2 0 KISS 3 53 4 9912 13 BRS9 2411815 59 3414818 10 66596 84238 9 60586 4428815 68586 4429815 30 ga58 48298 8 00 53 4810817 55 212 sw 5 5 36 EkS3 amp 64 1116 00 64536 68 3812 56 994 vsy 0 9 37 gaS3 8827813 30 53 84318 2 30 110 E 1 6 aaee CE E e anoa 175 0 4 EER mW5If 5816814 25 294 ME ga46 24 9811 50 ER46 22108 9 30 186 16 41 RM 46 4427811 10 46 4828811 10 340 ESE 5 8 cost ww 7 0 4 3 3 KAKE AKAD 0088 0 9 RARE Stk 13 R 48251 11 3 1 6 8 8 1010 11212 1414 1616 18 18 6 f h 0 010 0 134 0 336 0 302 0 181 0 029 0 008 7 10 3 3 6 6 9 9 12 12 m f E 0 079 0 198 0 2
102. E OPEN FILE UYW RES STATUS 0LD WRITE 1 READ 1000 ERR 1 IFNAME 1000 FORMAT A10 OPEN 2 FILE IFNAME STATUS QLD READ 2 1100 REM CONMA REM 1 COMMA 2 MESH2 1 MESH2 2 1100 2 1 4 3 4 41 149 DO 10 1 1 51 DO 10 1Xs1 41 10 IF IX EQ 41 THEN READ 2 1200 COMMA POINTCI 1Y 1X 1X 10 ELSE READ 2 1300 REM COMMA CONNA POINT 1 IY Iz IX 1X 9 ENDIF 1200 FORMAT A3 Al A3 11 A1 14 1200 2 1 2 10 41 1499 10 CONTINUE 100 READ 1 1400 END 200 IWIND2 IWINDI COMMA ITINE 1400 FORNMAT 3 A1 12 DO 20 Y 30 1 1 DO 20 1 1 41 10 READ 1 1500 COMMA WINDI1 1 1Y 1 IX IX 9 20 CONTINUE 1500 FORMAT IO A1 F5 2 DO 30 1 50 1 1 DO 30 1 1 41 10 READ L L500 2 1 1 1 1 1 99 30 CONTINUE 1600 LOCAL FA 1 C CALL TEXTOF C 26 IWINDP zIWIND1 3 1 CALL KANJI 10 379 7 IA IT 2 4 6 0 CALL NUMCRT 120 379 ITIME O ITINE 1 0 CALL KANJI 140 379 7 0 ij 3 0 CALL CHARAC 20 359 0 2 2 0 CALL KANJI 20 359 IWINDP DIR IWIND 3 0 CALL 271 70 259 7 0 47 2 0 CALL KANJ1 20 339 7 A ig 2 0 CALL CHARAC 60 339 0 2 1 0 CALL NUM
103. REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM 353 255 21 175 369 146 220 316 171 23 218 319 213 29 214 323 244 34 197 326 165 195 102 219 45 28 124 225 54 36 138 224 67 38 154 231 80 31 173 245 97 29 190 230 115 167 260 262 267 228 86 295 290 197 101 204 108 71 98 177 128 98 100 190 148 126 111 191 164 145 110 201 178 176 113 205 207 195 130 223 223 212 124 227 248 227 130 244 271 247 128 276 286 153 106 184 215 118 220 106 51 108 222 128 87 136 225 152 116 147 226 167 147 159 222 193 181 154 242 216 188 159 257 243 195 160 259 265 202 161 264 291 218 154 281 318 22 186 93 48 156 122 66 126 139 54 9 140 170 64 146 217 83 0 141 234 97 34 119 249 112 63 155 263 134 83 175 264 154 113 0 187 254 173 137 193 261 212 143 189 304 229 136 186 296 249 160 186 296 276 174 14 173 336 303 15 44 65 80 111 108 108 134 162 251 252 253 254
104. lt 99 966 EHSYOUSOKUDO TYAKKAJIKOKU KEISAN 100 20 65 SIDE 10 2 1200wwIND MX MY 2 100 BACK 10 2 2140ewIND MX MY 2 100 RIMIT 90 RAD YQSIDE VQE SI DE VQSIDE 60 0 6 VQBACK 60 0 4 IF HEN LE RIMIT THEN IF VQSIDE LT 1 THEN COS 2 VQE 2 5 ELSE Vz COS 2 VQE 2 rSIN HEN 2 VYQSIDE 2 5 ENDIF ELSE IF VQSIDE LT 1 THEN Vs0 ELSE IF 1 THEN V SIN HEN 2 VQSIDE 2 5 ELSE V COS 2 VQBACK 2 SIN HEN 2 VQSIDE 2 5 ENDIF ENDIF V V SPEC MX MY SHOBO IX IY IF V EQ 0 GO TO 100 T SQRT REAL IX MX 2 IY MY 2 SIZE V 60 T1 TIMES MX MY INT T IF TI LT TIMES IX IY THEN TIMES IX IY T1 ENDIF ENDIF CONTINUE GO TO 10 ENDIF IECNT IECNT 1 FM2 1ECNT 0 ICOUNT 0 IECNT 0 1 COUNT 1COUNT 1 FM2 ICOUNT NE 0 THEN 1X FM2 ICOUNT 100 IY FM2 ICOUNT 1X 100 IF TIMES IX IY LT LAST THEN DO 65 IFM1C 1 1ECNT IF 0 1 100 1 GO TO 20 CONT 1NUE 1ECNT ECNT 1 ECHECK IX 1Y 1 FM2 I COUNT ENDIF GO TO 20 ENDIF IFMLST IFMLST I ECNT IECNT IECNT 1 125 FMI IECNT 0 GO TO 5 9999 CONTINUE RETURN END
105. 05 0214 0 304 RAAL 0 1010 2020 30 30 40 40 BARE 0208 0 075 0 134 0 199 0 384 N NE E S SW w NW I 0 035 0 069 0101 0 094 0 208 0 163 0 115 0 059 0 156 0 200 0 002 0 038 0 570 LEH AR ari AR 0 287 0 060 0391 LRH Avi 0 076 0 226 HERME 3 5 2 2 60 0 0132 0 0255 Y lt 1 1 gt X 3 1 M 125 m 1 3 1 tb M 68 m 2 3 1 M 100 m 3 Y lt 1 1 gt X 3 1 d M 100 m 4 3 1 M 20 m 5 3 1 f M 38 m 7 2 lt ON SS RE N 51107 2 EN VN NN ON AS Sy 2 f AQ 2 YY
106. 1 1 IWIND2 WINDY I111 2 IF IWIND1 EQ 0 AND IWIND2 EQ 0 GO 140 11QQ 1111 1 120 WRITE 1103 IIQQ DIR IWIND1 l1WIND2 1103 FORMAT 1H 10X 14 6X A3 7X 14 111151111 1 GO TO 130 140 wRITE PRNO 1 50 IPAGEsINT IXLAST PMAX 1 1PMOD MOD IXLAST DO 300 IP 1 IPAGE IF IP EQ IPAGE IF IPMAX EQ 0 GO 400 210 IY 1 IYLAST 200 1X 50 P 1 1 S0 IP 1 IPMAX IF 5 1 1 9999 THEN IF TIMES IX IY EQ 0 THEN POINT IX IY 2 ELSE STIME TIMES X 1Y 1 IF STIME LT LAST THEN ICOLOR MOD INT STIME 120 5 3 POINT 1X Y ICOLOR ENDIF ENDIF ENDIF 200 CONTINUE IF PRNO EQ 50 PRNO 0 PRNO PRNO 1 210 CONTINUE 300 CONTINUE 400 GO TO 1 9999 IQIQ 0 DO 403 IY 50 1 1 DO 403 1 1 41 10 10161018591 wRITE 2 1333 1010 REM POINT I IY I IX IX 9 1333 5 11 9 11 403 CONTINUE 123 CLOSE 2 CLOSE 3 DO 503 1 1 2491 10 503 WRITE 7 1503 11 1 1 9 1503 10 41 14 CLOSE 7 END TIT 1 1ALTDT 111 YAMAKAJ ENSYOU MODEL SUBROUTINE 99 SUBROUTINE SUBI 2 5 ECHECK LAST 1 ELA
107. 5214 kk BRERA ARAN HAK ERKE 5 8 FH ERE D Ax 65 4 3 f 1 ENR RAE RELEGO aad en 23 7437 Ki 450 650 7 75 1231 150 250 7 427 1 23 4 550 750 6 7 7373 FFB 268 4 AF 7 FUN 5 750 250 JEM 710 344 INIT 3527 t 351 5 EH 6 ALEE he KERX m s S AREK deg GNEC Cn REFE 1 FURU w gt cn HERE gt lt gt e gt cm cn oo gt 9 2 O Aa x 1 4 6 1 5 5 Wx biy ERDA 2 4 37 XSx 21 57 XWx Ex 4 37 XSy 21 57 My EyA 1 2
108. 62 266 59 252 460 255 70 55 225 424 249 67 42 191 381 282 46 40 183 343 304 26 49 178 310 293 5 38 169 284 286 35 163 258 277 28 151 237 263 35 134 221 236 29 118 220 277 98 339 283 287 80 370 319 282 11 78 361 370 267 20 62 320 424 244 25 66 287 456 225 44 62 260 466 222 72 242 226 128 244 263 0 116 306 294 255 14 98 349 315 249 24 372 347 236 37 87 328 403 205 33 78 304 437 188 62 76 278 464 196 79 70 247 425 214 63 72 231 387 233 52 68 237 365 248 43 69 222 344 248 34 54 215 324 204 53 195 308 217 62 166 285 203 74 148 258 204 0 52 138 236 233 14 136 315 339 227 35 111 345 354 225 319 187 19 80 200 288 189 178 255 171 69 171 221 148 69 165 202 197 171 168 159 137 136 154 167 170 173 137 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 543 344 345 346 347 348 349 350 351 352 353 354 355 356 REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM REM 203 42 139 226 214 38 162 228
109. 72 YES 1 NO 0 9UEST 41 IF GUEST lt gt 1 AND QUEST lt gt 0 GOTO SYOKISAI 43 CLS 3 44 IF QUEST 1 GOTO SYOKINYU 60 142 MAPS 0O MOUSES 3 ERSS 6 SPZ SEGPTR S BDBWX 1 KXs0 143 CONSOLE 0 1 144 SCREEN 3 0 0 1 145 BLOAD n8 bin 146 X 1 147 Yx 1 148 FLs B VIP TMP 7150 CALL MAPS BWX FLS SPX XZ YX 157 s IRONURI 160 CALL 0 05 5 170 IF Kx gt 7 GOTO EEE 180 PAINT X Y K 7 190 wIRONURI 200 EEE 210 CALL ERSS 220 PRINT PRINT 221 PRINT PRINT PRINT 222 PRINT JZ PRINT PRINT 223 PRINT PRINT EPRINT 224 PRINT PRINT EPRINT 295 PRINT H PRINT EPRINT 226 PRINT PRINT EPRINT 227 PRINT 295 DIM SUM 50 30 305 M 0 306 FOR K 0 TO 398 308 SIROzPOINT 121 K 1 UIRO POINT 121 K 309 IF UIRO 0 OR UIRO 7 THEN GOSUB IROHY 320 SIRO UIRO THEN ALSUMY M 1 ALSUMY M 330 IF SIRO AND UIRO 1 THEN ALSUMY M 1 ALSUMY M HGT 331 F SIRO 2 AND UIRO 3 THEN ALSUMY M 1 ALSUMY M HGT 332 IF SIRO 3 AND UIRO 2 THEN ALSUMY M 1 ALSUMY M HGT 333 F SIRO 3 AND U1RO 1 THEN ALSUMY M ALSUMY M HGT 334 IF SIRO 1 AND UIROs3 THEN ALSUMY M 1 ALSUMY M HGT 335 IF SIRO 7 OR SIRO O THEN ALSUMY M ALSUMY M 337 IF SIROs1 AND UIRO 2 THEN ALSUMY M L ALSUMY M HGT 339 M M 1 340 NEXT K 341 FOR K 0 TO 49 342 SUM O K ALSUNY 8 K 343 NEXT K 344 SUM 0 50 ALSUMY 399 350 360 FOR 3 0
110. 855295 O Y J F O 400 F PD 8 amp 7 ILD 400 31 0 0 0 50 X 400 F 2 RID may t 400807 3 5510 0 2 50 J P b i 1 gt Z U 77 2 3 15 a 1 Z O 6 o O Oo P C b 2 c 3 2 4 lt 1 _ S SSS ES Y S SN NN X ss wl AN 2 5 a AL R 10m 2 5 c 59m 2 5 b 100 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 183 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 REM REM REM REM REM REM REM REM REM REM
111. CRT 60 339 IWIND1 0 1WINDP 1 0 CALL CHARAC 80 339 7 m s 3 1 0 CALL 11 40 230 40 290 7 CALL LINE 40 290 30 260 7 118 CALL LINE 30 260 50 260 7 RWIND2 1WIND2 1 22 5 1COS NINT 32 COS RwIND3 90 RAD ISIN NINT 32wSENC RwWIND2 90 RAD 40 1 05 1 190 51 CALL 40 190 1 1COS NINT 24 COS RWIND2 75 RAD 1SINsNINT 24wSIN RWIND2 75 RAD IAXE 40 COS 1AYE 190 1SIN CALL LINE IXE EYE 1 LAYE 1COS NINT 24 COS EwIND2 103 RAD 1SIN NINT 24 SIN RwIND32 1035 RAD iAXE 40 COS 1AYE 190 SIN CALL LINE IXE 1YE IAXE LAYE TIME 1 104 1 8 116 1 160 IXC 138 DO 40 1 1 7 IYA iY 6 1 1 6 CALL BOXFLL IXA IYA IXB IYB LD RUN1 I 1 3 2 213 CALL IYA 0 7 0 0 CALL 150 1 1 7 1 0 09 IF NUMI EQ 9 1 130 CALL NUMCRT IXC 306 IYA NUM2 0 7 0 0 1Y 1Y 12 40 CONTINUE veeveovev TOUKOUSENN 2 1 DO 50 11 8 0 12 lt 5 841 50 CONTINUE DO 60 1 1 49 DO 60 1 1 19 RXYsPOINT EX Y RXIYsPOINT 1X 1 1Y RXYis PO NT IX 1Yx1 RXIYI POINT IX 1 1Y 1 XY RXY RX1Y RXY1 RX1Y1 4 DO 70 1 1 8 Y1 1 F XO 1I MESH RXY RX1Y Y2 1 F XO MESH RXYL RX1Y1 DO 70 1 1 8 Y 1 JYy F XO0 J MESH Y1 i Y2 1 70 CONTINUE DO 80 LOOP 1 1 PSET NINT XY 100 LOOP 100 100 ICPS
112. ET sMOD NINT PSET 100 7 1 IF PSET LT 1E 10 GO TO 60 00 90 1 1 8 DXYABS Y2 Y1 1 8 1 9 1PSET 0 DO 95 1 1 8 IF ASS Yt1 J PSET DXY LE 1E 10 THEN DXY ADBS Y 1 J PSET IPSET 10 J ENDIF 95 CONTINUE IF IPSET NE 0 THEN IPSETXsIP5ET 15 IPSETY IPSET 1PSETX i0 IPSETX IPSETX EX 8 lt 200 IPSETY PSETY EY S B CALL GRAPH IPSETN IPSETY 1 1CPSET ENDIF 9 CONTINUE 8G CONTINUE 69 CONTINUE 119 DO 110 1 2 50 2 DO 110 1 2 50 2 1XBsIXw8 200 1 1 8 8 IC 2 NINT WIND1 1X 1Y 3 1 ICOS NINT IC COS WIND2 IX IY 90 RAD ISIN NINT IC SIN WIND2 IX 1Y 90 RAD IXE IXB 1COS LIYE IYB ISIN CALL LINE IXB 1 XE IYE IC 2 1COSsNINT IC O 67 COS wWIND2 IX IY 75 RAD 1SINR NINT IC 0 67wSIN wWIND2 1X IY 75 vRAD IAXE ICOS 1AYE IYB ISIN CALL LINE IXE IYE AXE LAYE C 2 1COSsNINT IC 0 67 COS WIND2 1X Y 105 RAD ISINsNINT IC 0 67 SIN WIND2 IX IY 105 yRAD 1AXE IXB COS IAYE IYB ISIN CALL LINECIXE 1 IAXE IAYE EC 2 110 CONTINUE 120 CALL TEXTON DO 120 1 16 wRITE WRITE w wRITE s WRITE 2 READ 9 1700 IF K EQ 1 CALL COPYGP 0 Ka WRITE 0 0 07 1 O X 2 READ w 1700 K IF K EQ 1 THEN CALL GRAPH 0 0 0 0 WRITE CHAR 26 co TO 100 WRITE ELSE WRITE
113. GOSUB XRIGTCC GOSUB YUPCC GOSUB YDWNCC MIRO 1 MIRO 2 MIRO 2 MIRO 3 MIRO 3 MIRO 1 TIRO 7 Lw8 X 399 2 NIRO POINT 1 399 IF MIRO O OR MIRO 7 THEN GOSUB IROHX IF 1 IRO MIRO THEN ALSUMX M 1 ALSUMX H THEN THEN THEN THEN THEN THEN THEN ALSUNX M 1 ALSUMX M HGT ALSUNX M 1 ALSUMX M HGT ALSUNX M 1 ALSUMX N HGT ALSUNX M 1 ALSUMX M HGT ALSUNMX M 1 ALSUMX M KGT ALSUMX 1 50 ALSUMX N 1 ALSUMX M PRINT I I PRINT J J PRINT BASEH BASEH PRINT PXL PXL PRINT PXR PXR PRINT PYU PYU PRINT PYD PYD PRINT CL CXL PRINT CH CXR PRINT CU CYU PRINT CD CYD HI1 0 HI2 0 CDI CYU CYD CD2 CXR CXL S 1 IF PXLsPXR THEN SsS 1 IF PXLsPYU THEN S S 1 IF PXL PYD THEN S Srl IF 5 4 THEN MAXH PXL ELSE MAXH BASEH HGT BRE HGT 1 5 HRE BRE 1 ABS CXR CXL CD2 HREY HRE ABS CYD CYU CD1 HRETT HRE HRE IF 5 4 GOTO IF PXL PXR AND IF PXL PXR AND IF PYU PYD AND IF PYU PYD AND IF 11 0 THEN IF Hi2 0 THEN IF HI15 lt 0 AND IF HI2 gt lt 0 AND IF 1 lt 20 AND DAINYUD DAINYUDA wDAENYU KAKOMI Y 2 KAKOMI PYU gt PYD THEN HI1 HGT CYD CD1 PYU lt PYD THEN HiI1 HGT CYU CD1 PXR gt PXL THEN HI2 HGTyCXL CD2 PXR PXL THEN H12 HGT CXR CD2 TAKASA BASEH HI2 TAKASAsBASEH HE1 ARS PY PYD HGT THEN TAKASA BASEH HI1 2 ABS PXL PXR HGT THEN TAKASAsBASEH H12 2 HI2
114. ILE UVW RES STATUS OLD OPEN 4 FILE SPEC DAT STATUS OLD OPEN 7 FILE VIEW DAT STATUS NEW OPEN 8 FILE SHOBO DAT STATUS OLD f gt Z INBRAAK bv 3 m DO 334 K 1 2 DO 334 iw 1 50 DO 334 1 1 41 10 1 1200 5 1 1 1 1 9 334 CONTINUE 1300 FORMAT 10 A1 4 CLOSE 1 DO 20 11 2 FMI IT FM2 II 20 CONTINUE 99909906 9 89 9 2440 009 9 9 99 6 5 9 8 4469 w SYUKKATENN NO NYUURYOKU 1 0 1 0 PNTNO 1 25 WRITE PNTNO WRITE EKARA o o WRITE WRITE X W AJ JLTTF lt e c 26 READ 28 ERRs26 IXB PNTNO 121 WRITE Y 27 READ 28 ERR 27 1YB PNTNO 28 FORMAT 14 IF IXB PNTNO EQ 0 AND 1YB PNTNO ES 0 GO TO 30 FM1 PNTNO IXB PNTNO 100 1YB PNTNO TiMES IXB PNTNO YB PNTNO 0 ECHECK IXB PNTNO 1IYB P
115. NT JQQ KQQ 4 THEN SUMR JQ KQ KOLOR 4 IF POINT JQQ KQQ 5 THEN SUMR JQ KQ KOLOR 5 114 CLS 3 330 331 332 1205 1999 2000 2010 2020 2030 2050 2060 2070 2080 2090 2032 2095 2100 2110 2120 2135 2140 2150 JF POINT JQQ KQQ 6 THEN SUMR JQ KQ KOLOR 6 IF POINT JQQ KQQ 7 THEN SUMR JQ KQ 0 IF POINT JQQ KQQ 0 THEN SUMR JQ KQ KOLOR 0 339 NEXT KQ 340 NEXT JQ CLS 1 DATASAKUSE BiJYUSYU DAT AS 1 1 AE51 100 PRINT 51 5 D 11511 1 FOR 1 0 TO 49 FOR 0 TO 4 KS K 10 5 9 FOR 5 PRINT 1 USING 388 SUMR KK L NEXT KK PRINT 1 NEXT K NEXT L END 115 2 by D Kozeki 286 subl sub2 sub3 maps segmenl assume org jmp jmp jmp pusha cs code ds code near maps near ptr mouses near ptr erass CALL MAPS VIPS SPx Xx Yx 1 2 ain les mov les mov mov jne mov mov mov mov mov mov Inc Ine loop mai Xx les mov mov Yx bvl nxtl les mov mov les mov cmp je mov mov push pop mov mov mov int Jne jmp mov mov mov mov mov dec mov imul mov dec add adc mov mov mov mov mov int mov si dword bx 8 81 si dword bx 12
116. NTNO 1 PNTNO 1 GO TO 25 30 IELAST PNTNO IFMLST IELAST WRITE 9995 j amp Yt gt W 55 0 S 25 G T P 31 READ 32 ERR 31 LAST 32 FORMAT I5 100 ITIME 120 LAST 120 ILAST ITIME HI11 INT ITIME 120 P 3 1400 COMMA WI NDY I111 1W 1w 1 2 1400 FORMAT 2 A1 12 DO 435 1 1 50 DO 435 1 1 41 10 READ 3 2100 10 2 1 9 2100 FORMAT 10 AL F5 2 435 CONTINUE 335 1 1 50 DO 335 1 1 41 10 READ 3 2000 1 1 4 12 1 1 1 9 2000 FORNAT 10 A1 F4 0 335 CONTINUE 9 0 9 9 9 9 09996909 046 99 2 9 99 950 9 99 9 90600 9400 AM AF t C DO 336 1 50 DO 336 1 1 41 10 2 2001 WCHECK 1B I1W IB 1 1 9 2001 10 41 1199 336 CONTINUE WRITE 33
117. OR 2 3 KOLOR 3 5 KOLOR 4 7 KOLOR 5 9 KOLOR 6 10 SYOKIIRO PRINT amp KOLOR 0 PRINT F KOLOR L PRINT KOLOR 2 PRINT KOLOR 3 PRINT amp KOLOR 4 PRINT KOLOR 5 PRINT f amp KOLOR 6 PRINT INPUT 9 YES 1 NO 0 TEISE IF TEISE 0 MAINNN PRINT INPUT A 8 KOLOR 0 INPUT W KOLON 1 INPUT KOLOR 2 INPUT N KOLOR 3 INPUT KOLOR 4 INPUT KOLOR 5 INPUT KOLOR 6 wSYOKIIRO MAINNN MAPS 0 MOUSES 3 ERSS 6 SPz SEGPTR 3 1 0 CONSOLE 0 1 SCREEN 3 0 0 1 BLOAD 8 Xx 1 1 FLs B VIP TMP CALL MAPS BWX FLS SPxX Xx Yx IRONURI CALL MOUSES Xx YX KX IF Kz 7 PAINT XX YX KX 7 GOTO IRONURI CALL ERSS PRINT PRINT PRINT EPRINT IPRINT PRINT PRINT EPRINT PRINT G PRINT EPRENT PRINT H PRINT PRINT PRINT JP PRINT PRINT PRINT R PRINT PRINT PRINT LINE 120 0 120 399 7 LINE 521 0 521 399 7 DIM SUN 30 50 M 0 FOR 79 0 TO 50 FOR KQ 0 TO 50 IF 10 50 THEN 109 520 ELSE 99 121 8 39 IF KQ 50 THEN 99 399 ELSE KQQ 8 KQ IF POINT JQQ KQQ 1 THEN SUMR JQ KQ KOLOR 1 IF POINT JQQ KQQ 2 THEN SUMR JQ KQ KOLOR 2 IF POINT JQQ KQQ 3 THEN SUMR JQ KG KOLOR 3 IF POI
118. OT NSPOT JIIP DO 50 Is1 NSPOT JIIP NSPOT JIIP 1 IPX SPFM1 1 100 IPY SPFM1 I IPX 100 ECHECK TIPX IPY 1 TIMES IPX IPY ITIME PNTNO PNTNO 1 FMI PNTNO SPFMI I 50 CONTINUE IELAST PNTNO DO 60 1 1 50 DO 60 J 1 50 IF ECHECK 1 J EQ 2 ECHECK I J 0 60 CONTINUE IFNLST IFMLST NSPOT JIIP NSPOT J1I1P 1 9999 RETURN END 3 1 127 ssksuersese SUBROUITINE 360 SUBROUTINE CCLOCK X Y DEG INTEGER X Y REAL DEG IF X EQ 0 THEN IF Y GE 0 THEN DEGs0 ELSE DEGs 180 ENDIF ELSE GRD ATAN ABS REAL Y ABS REAL X DiG GRD 180 3 1415926 IF 0 THEN IF 0 THEN DEG 90 DIG ELSE DEG 90 DIG ENDIF ELSE IF Y GE 0 THEN DEG 270 DIG ELSE DEG 270 DIG ENDIF ENDIF ENDIF RETURN END 128 2 25 2 3 3 14 1 181 0122 11 83310
119. Report Int 169 1983 2 R C Rothermel How to Predict the Spread and Intensity of Forest and Range Fires Intermountain Forest and Range Experimental Station General Tecnical Report INT 143 1983 3 4 5 6 8 9 F A Albini Estimating Wildfire Behavior and Effects Intermountain Forest and Range Experimental Station General Tecnical Report INT 30 1976 359 60 3 60 3 H No 69 1990 F A Albini and R G Baughman Eslimating Windspeeds for Predicting Wildland Fire Behaviuor USDA Forest Service Int 221 1979 17 1986 MA 59
120. S NIFES BiMMENU 4 191594 1989192 3 44144471740973 2 uni tile 3 A gt Bi 4 419723 187 1 5 4017 937148 5 12 al 30 ga 30 35 0101506 820701578 3 color tile4 2 0 9 3 9 1 1 973 2 77 2 973 9 9 9 3 2 77 F J 77 5 7 1 YES 0 NO gt 1 3 777 2 93 0 12 424 444 X 1 51 KRC 9 X 4 Y 1 51 e1 0 Is it ok lt ixYES 0 NO gt 1 5 Is it ok lt 1 YES 0 80 1 skeleton amp 47 amp 6 3 Is it ok lt 1 YES 0 NO gt 2 b w 3 CHILD 0 35131115313 E MAPS 1 923441 2 73422 3 774211 3 4 4 573712 0 277 377 A7 101 0 ARE7 TAR lt 1 YES 2 NO gt 4974529 928 Ts it lt 11 5 2 80 gt Is it oT 1 2 oT gt wm E 0 man Is it ok 61 5 2 N0 gt type of profiles 1 2 s
121. ST 512 1 5 INTEGER 1 2500 2 2500 5 50 50 50 50 LAST ELAST 1 REAL HEN A 2 2 B 2 DEG SIZE COMMON DATA KEISYA 50 50 2 wIND 50 50 2 SPEC 50 50 SHOBO 50 50 RAD 3 1415926 180 S IF FM1 1 EQ O GO TO 9999 ICOUNT 0 IECNTs0 10 ICOUNT ICOUNT 1 IF FNH1 ICOUNT NE 0 THEN NX FMi ICOUNT 100 NY FM1 ICOUNT MX 100 IF KEISYA MX MY 1 EQ 1 607010 TDEG RAD KEISYA MX MY 1 WDEG RAD WIND MX MY 1 A 1 1 KEISYA MX MY 2 SIN TDEG A 2 1 KEISYA MX MY 2 COS TDEG A 1 2 WIND MX MHY 2 SIN WDEG A 2 2 WIND MX MY 2 COS WDEG ENSYOU HOUKOU NO KEISAN 13 B 1 4 37 A 1 1 21 57 A 1 2 B 2 4 37 A 2 1 21 57 A 2 2 1 1 1BB2 B 2 CALL CCLOCK IBB1 1BB2 EQD1 9 9 6 98 4 SYUENSYOUSOKUDO NO KEISAN w wweww w 0 TDI RAD EQDI TDEG wDIcRAD EQDI wDEG TKEI RAD KEISYA MX MY 2 C 1 66 10 1 44 2
122. TLE LT 500 GOTO 20 0 5 5 600 0 5 ELSE PSPOT1 0 2 END IF P OF SPOT PSPOT2 EXP RRSPOT 2 PSPQOT PSPOT1 PSPOT2 11 IYPNT JJ IF wCHECK IXPNT 1IYPNT EQ 1 GOTO 20 1F XPNT LT 1 OR IYPNT LT 1 GOTO 20 IF IXPNT GT 50 0R IYPNT GT E0 GOTO 20 100 1 9 649 6 9 9 9996 4966 SPFM2 1 SPOT 4 06 49 9 HSPOT OF KOHO 2 P OF 2 MSPOT 1 1 2 ECHECK IXPNT 1 YPNT 2 SPTLL MSPOT SPOTLE RSPOTT MSPOT RSPOT END IF 20 CONTINUE END IF 10 CONTINUE DO 30 1 1 MSPOT RRAN RANDOM 0 PFM1 I PPFM2 RRAN 30 CONTINUE 1 5 1 DO 40 1 1 1 9999 41 1 1 5 IF PFM J LE CM GOTO 41 CMsPFM1 J K J 41 CONTINUE IF K EQ I GOTO 40 1 PFM1 1I CM SPFMIW SPFMI SPFMI K SPFMI I SPFMI I SPFMIW SPTLLw SPTLL K SPTLL K SPTLL 1 SPTLL I SPTLLw 40 CONTINUE WRITE No of SP
123. TO 50 370 ALSUMX O0 SUM O J 375 MsO 377 IF 3250 wLAST 380 FOR Isi21 519 390 IIRO POINT I 1 4 8 MIROsPOINT I J 8 395 IF 0 OR MIRO 7 THEN GOSUD IROHX 400 IF TIHO KIRO THEN ALSUMX M 1 ALSUMX M 410 IF 1IROs2 AND MIRO 1 THEN ALSUMX M 1 ALSEMX M HGT 420 IIROs1 AND MIRO 2 THEN ALSUMX M 1 ALSUMX M HGT 421 1F IIROs3 AND MIRO 2 THEN ALSUMX M 1 ALSUMX M HGT 429 IF IIRO 2 AND MIRO 3 THEN ALSUMX M 1 ALSUNMX M HGT 423 IF IIRO 1 AND MIRO 3 THEN ALSUMX M 1 ALSUMX M HGT 424 IF IIRO 3 AND MIRO 1 THEN ALSUMX M ALSUMX M HGT 426 IF IIRO 0 OR IIRO 7 THEN ALSUMX M 1 ALSUMX M 428 1 431 NEXT 1 433 GOTO 107 434 5 425 436 437 441 442 443 444 445 446 447 449 450 451 453 454 465 466 467 469 480 499 807 999 1000 1010 1020 1030 1040 1050 1060 1070 1071 1072 1073 1085 1088 1090 1100 1110 1120 1135 1140 1143 1146 1160 1175 1180 1190 1197 1199 1207 1209 1217 1219 1227 1229 1230 1340 1245 1240 1250 1255 1256 1271 1284 1285 1290 1292 135 1363 133 1392 1400 1405 1410 FOR 1 121 519 11RO POINT I 1 399 IF IIRO 2 AND IF IIRO AND IF IIRO 3 AND IF IIRO 2 AND ERO 1 AND RO 3 AND RO 0 OR 1 FOR L 0 TO 49 SUK L J ALSUMX NEXT SUM 50 J ALSUN NEXT J ZENHOSEI FOR 2 0 TO 399 ZENHOSE DIM SUMR 50 50 FOR 1 0 50 FOR 0 TO 50 BASEH SUM J GOSUB wXLEFTCC
124. V BAS UVVSPOT FOR wT2 BAS PC 9801 MMENU B4S PC 9801 SKELETON PAS 7 PC 9801 RINYA8C FOR RINYA81 FOR CT PAS gt PC 9801 Pc 9801 PT EO CEAN lt lt lt lt lt 5 lt lt C P U PC 9801VX 1 1 1 2 7 308 2 4RARAKLDY CHIKEI DAT 15 6 am FNAME DAT 26 RK KES UVW RES 15 114 BAI REAR UVW1 RES 15 114 UVMSPOT RES 20 136 80 80 10000 SOMITU DAT 18 JYUKOU DAT 15 5 50 50 2500 1 AIOI DAT B By F 1 2 2 2 1 NA FNS RAN NO gt
125. X 8 7 HARI BATERRETOT ILARELERICEE 2 Ue avank lt o 4 377105219 7D C J RINYA8C EXE wis rere FDL CE 7354FLCNVt FNAME DAT 47 355 amp 414004 21028 7073 UVY RES WINDY FOR E UVwSPOT RES 7073 JYUSYU BASLER SPEC DAT 0 7 3 1 NMEN 07020 0 AB 3 812540 2 XERLVATFE AT 1019737 TA BASKER 1 AKIRLAR 9 7 me e BF347577 kt ENSYOU RES K 70 20 85 005 5 B MMENU s Trem s gt 7 7 1 5 2 77 2 447341457 3 4 19 7 27 5 07 937148 5 12 0 171 1 407 39727467453 2 44 3234 15922 3 44394474240377 13 y4tA3 5 407 373774 savet 0 191 rs wasn 1 933417 2140 7748 2 5141 4524 10n82372 3 71914741 7714 4 4212149 4 2719322 0 49 4 91 24 3 4
126. b lt d a b c d 2 2 B B 2 5 2 5 8 50m 10m 50m 2 5 b 10m 2 5 cC 10m 2 X Y 2 R EMI 3
127. pline 3 polygon 4 poligone splink 5 change setting lt 1 color 2 b v 3 child gt SAVE DANNMENN FRM 4 568 F H 1 PC 9801 5RTCRO VAXE 8 2 707540 tE 4 1 0 5 9801021 ET K MICRO VAX1 B NICRO VAX2 LARTI 1 2 24444 3 47 IEE Welcome to Micro Vam YAAIASITA WS 4 r 1 2 174 0 7 File Control Process 1 11 9301 2 9801 YAX11 0 VAX Fi1e Name CHIKEI DAT TEXT 1 BINARY 2 1 43 73 222002 51038722 127 AF3 707 7 722 CHIKEI DAT0t 2225 1429 2 File Control Process 1 VAX PC9801 2 PC 9801 VAX 0 81 2 771888 0 87 ETE CHIKEI DATSESAT vantas DEL WINDY2 0BJ AF 7970 7 9 22VAX 1 COPY CHIKEI DAT EDIT WINDY2 FOR 4 VINDY2 FOR97n75 4 0 50 00 50 DY 50 DDY 50 50044759100 EF Control Zt t er eon VIND DIRECTION LT WINd DIRECTION VIND DIRECTION VIND DIRECTION 1 3
128. sl mslpl pusha mov mov push pop je mov Int inc mov jnt mov mov int jz cmp je cs savebx bx cs saveds ds cs ds mouse 1 ax Oh 33h mouse ax 01h 33h di Offh ah O06h 21h 81 0 mslpl al 8 sub mov mov int mov mov mov int mov les lds mov mov mov 1ds mov mov 145 mov mov popa iret erass pusha 81 70 color al ax 03h 33h xpos cx ypos dx 02 33h bx offset savebx si dword ptr bx bx es dword si al cs color 0 bx bx es dword si 4 bx bx es dword 61 8 bx 4 xlist cyset macro loca mov test jz stc endm fo setcol macro local shr jc mov xor 11 endm setcol2 macro local mov mov shr jc not and jmp 11 or 12 endm x 11 12 5 es si bx 11 short 12 41 1 rt 41 1 11 es si bx x 11 12 aX bx 81 1 11 ax es si ax short 12 es si ax lt 909 5 9 0096 5000004 9 0 6
129. w WRITE TY 35 7 4 v 2 Fj WQ gt WRITEC WRITE x 2 READ 1700 K FORMAT A IF K EQ 1 THEN CALL GRAPH 0 0 0 0 WRITE 26 ENDIF CLOSE 1 CLOSE 3 STOP END 120 J CsSTORAGE 2 INTEGER FM1 2500 FM2 2500 TIMES 50 50 ECHECK 50 50 PNTNO 50 50 5 1 50 50 10 2 1 8 20 1 20 CHARACTER DIR 16 3 COMMA 1 COMMON DATA 5 50 50 2 1 0 50 50 2 5 50 50 SHOBO 50 50 COMMON DATA2 WCHECK DATA 1 2 5000 0 DATA IXB YB 40 0 DATA wINDY 20 0 DIR 1 S DIR 2 SSW DIR 3 SW DIR 4 wSw DIR 5 W DIR 6 WNWw DIR 7 NW DIR 8 NNW DIR 9 NY DIR 10 NNE DIR 11 NE DIR 12 ENE DIR 13 E DIR 14 ESE DIR 15 SE DIR 16 SSE IXLAST 50 IYLAST 50 WRITE wee WRITE 799 WRITE 991 READ w 992 ERR 991 SIZE 992 FORMAT F4 0 IF SIZE EQ O GO TO 9999 DO 5 1X 1 IXLAST S 1 1 1 5 TIMES IX IY 9999 ECHECK IX IY 0 CONTINUE OPEN 2 FILE ENSYOU RES STATUS OLD OPEN 7 FILE VIEW DAT STATUS OLD CLOSE 2 STATUS DELETE CLOSE 7 STATUS DELETE OPEN 1 FILE FNAME DAT STATUSz OPEN 2 FILE ENSYOU RES STATUS NEW C OPEN 3 FILE UVwSPOT RES STATUS OLD OPEN 3 F
Download Pdf Manuals
Related Search