#11 Article 2657 Posted at 1989/03/03 20:14:32 by Batcha (MAP541) [PRG.NL3]
Subject: FM-77AV/20/40/EX/SX NLOADER3.BAS
1000 ' 1010 ' *********************************** 1020 ' 1030 ' Nozomu Loader 3 1040 ' 1050 ' Arranger By B.Batcha(C)1988 1060 ' MAP541:Batcha 1070 ' 1988 / 4 / 6 Wed 1080 ' 1989 / 3 / 1 Thu 1090 ' 1100 ' Machine Prg.Add. &H5300-&H5565 1110 ' 1120 ' *********************************** 1130 ' 1140 CLEAR ,&H52FF 1150 DIM FIL$(99),TBC(10,8) 1160 FOR I=0 TO 10 1170 FOR J=0 TO 8 1180 READ TBC(I,J) 1190 NEXT J,I 1200 KEY 9,"SCREEN@0:W.80"+CHR$(13) 1210 IF PEEK(&H5300)<>&H34 THEN LOADM "NED77M" 1220 ' 1230 ' File Selecter Routain 1240 ' 1250 SCREEN@ 0: WIDTH 80,25 1260 CLS: COLOR 7 1270 PRINT " Nozomu Loader 3 FM-77AV Analog Version 1.2 File Selector" 1280 PRINT 1290 COLOR 5:PRINT "Drive No.?";CHR$(29); 1300 E$=INPUT$(1) 1310 IF E$=CHR$(13) THEN 1510 1320 IF E$<>"1" AND E$<>"0" THEN 1300 1330 PRINT E$:D$=E$ 1340 DRV=VAL(D$) 1350 PRINT:COLOR 6 1360 N=0:M=0 1370 A$=DSKI$(DRV,1,4+M\8) 1380 FOR I=0 TO 7 1390 F$=MID$(A$,I*32+1,8) 1400 G=ASC(LEFT$(F$,1)) 1410 IF G=0 THEN 1480 1420 IF G=255 THEN I=7:GOTO 1490 1430 FL=ASC(MID$(A$,I*32+13,1)) 1440 IF FL<255 THEN 1480 1450 FIL$(N)=F$ 1460 PRINTUSING "##) ";N;:PRINT F$, 1470 N=N+1 1480 M=M+1 1490 NEXT I 1500 IF G<255 THEN 1370 1510 PRINT:PRINT:COLOR 3 1520 PRINT"Select.[ n ]or[ n n n .... ]or[ n-n ]or[ * ]" 1530 INPUT "Load CG File No.",A$ 1540 IF A$="" THEN 1220 1550 IF INSTR(A$,"-")>0 THEN 1620 1560 IF A$="*" THEN F1=0 : F2=N-1 : GOTO 1630 1570 IF INSTR(A$," ")=0 THEN F=VAL(A$):GOTO 1650 1580 IF INSTR(A$," ")>0 THEN F=VAL(A$):GOSUB 1610:GOTO 1220 1590 F=VAL(LEFT$(A$,INSTR(A$," "))):A$=MID$(A$,INSTR(A$," ")+1) 1600 GOSUB 1610:GOTO 1580 1610 IF F>=N THEN RETURN ELSE 1970 1620 F1=VAL(LEFT$(A$,INSTR(A$,"-")-1)):F2=VAL(MID$(A$,INSTR(A$,"-")+1)) 1630 FOR I2=F1 TO F2:F=I2:IF F<N THEN GOSUB 1970 1640 NEXT I2:GOTO 1220 1650 IF F>=N THEN 1530 1660 ' 1670 ' CG Display Main 1680 ' 1690 COLOR 7:PRINT:PRINT "File:";FIL$(F) 1700 COLOR 4:PRINT:PRINT "Normal Display...1 or [CR] Parameter Change...2 >"; 1710 A$=INPUT$(1):COLOR 7 1720 IF A$=CHR$(13) OR A$="1" THEN 1930 1730 IF A$<>"2" THEN 1710 1740 COLOR 2:PRINT A$ 1750 INPUT "Matrix Mode. (0/1):",A$ 1760 IF A$<>"0" AND A$<>"1" THEN 1780 ELSE M=VAL(A$) 1770 POKE &H549B,M 1780 INPUT "Offset Add.X -320 :",A$ 1790 IF A$="" THEN 1810 ELSE X=VAL(A$) 1800 POKE &H5499,X\256:POKE &H549A,X MOD256 1810 INPUT "Offset Add.Y -200 :",A$ 1820 IF A$="" THEN 1840 ELSE Y=VAL(A$) 1830 POKE &H5497,0 :POKE &H5498,Y 1840 PRINT "Display Set MODE :0 [PSET]" 1850 POKE &H5483,0 1860 INPUT "BlightLevel 0<2<10:",A$ 1870 IF A$="" THEN 1910 1880 C=VAL(A$):IF C<0 OR C>10 THEN 1910 1890 FOR I=0 TO 8:POKE &H549C+I,TBC(C,I) 1900 NEXT I 1910 COLOR 7:PRINT:PRINT "Ready ? Ok[CR]"; 1920 IF INPUT$(1)<>CHR$(13) THEN 1740 1930 GOSUB 1970 : GOTO 1220 1940 ' 1950 ' Execute Machine Program 1960 ' 1970 SCREEN@1: CLS :' ｱﾄﾞﾊﾞｲｽ 1980 OPEN "I",1,D$+":"+FIL$(F) :' ﾎﾝﾗｲﾉ CG ｻｲｾｲﾌﾞ ﾊ 1990 EXEC &H5300 :' ｺｺ ﾀﾞｹｱﾚﾊﾞ ｼﾞｭｳﾌﾞﾝﾃﾞ 2000 CLOSE :' ｱﾙﾉﾃﾞ､ ｺｺﾀﾞｹｦ ﾇｷﾀﾞｼ 2010 A$=INPUT$(1):RETURN :' ﾃﾞﾓ ﾅﾄﾞﾆ ｵｳﾖｳ ﾃﾞｷﾏｽ｡ 2020 ' 2030 ' Blightness Table Data 2040 DATA 00,01,02,03,04,05,06,07,08 2050 DATA 00,02,03,05,07,09,11,13,15 2060 DATA 00,02,04,06,08,10,12,14,15 2070 DATA 00,03,05,07,09,11,13,14,15 2080 DATA 00,04,06,08,10,12,13,14,15 2090 DATA 00,05,07,09,11,12,13,14,15 2100 DATA 00,06,08,10,11,12,13,14,15 2110 DATA 00,07,09,10,11,12,13,14,15 2120 DATA 00,08,09,10,11,12,13,14,15 2130 DATA 07,08,09,10,11,12,13,14,15 2140 DATA 15,14,12,10,08,06,04,02,00:' XOR Medel ﾃﾞｽ｡ 2150 ' 2160 ' ﾌﾞﾗｲﾄﾈｽ ｶﾞ ﾁｮｳｾｲ ﾃﾞｷﾏｽ｡ 2170 ' ﾋｮｳｼﾞｭﾝ ﾃｰﾌﾞﾙ ﾃﾞｰﾀﾊ 2060ｷﾞｮｳﾉ｡ 2180 ' 2190 '--------------------------------------------------- 2200 ' 2210 ' ﾚﾝｼﾞﾂﾉ ﾊﾞｰｼﾞｮﾝ ｱｯﾌﾟﾉﾀﾒ ﾄﾞｷｭﾒﾝﾄ ﾌｧｲﾙ ﾌﾞﾌﾞﾝ ﾃﾞ 2220 ' ﾂｲｶ ﾎｿｸ ﾅﾄﾞﾉ ｾﾂﾒｲｦ ｵﾘｺﾑ ｶﾀﾁﾆ ｾｽﾞ､ｺﾉﾖｳ ﾅ ﾁｭｳｼｬｸ 2230 ' ｼﾞｺｳﾄｲｳ ｶﾀﾁ ｦ ﾄﾗｾﾃ ｲﾀﾀﾞｷﾏｼﾀ｡ 2240 ' 2250 ' ｶｸﾁｮｳ ｼﾞｺｳﾄｼﾃ､ｽﾍﾞﾃﾉ ﾄｺﾛﾃﾞ ﾃﾞﾌｫﾙﾄ ﾄｲｳ ｶﾞｲﾈﾝｶﾞ 2260 ' ﾄﾘｲﾚ ﾗﾚﾃ ﾂｶｲ ﾔｽｸ ﾅｯﾃｲﾏｽ｡ ﾄｸﾆ ﾊﾟﾗﾒｰﾀｰ ｾｯﾃｲﾌﾞﾌﾞﾝ 2270 ' ﾃﾞﾊ､ ﾍﾝｺｳ ｼﾅｸﾃ ﾖｲ ﾓﾉﾊ ﾘﾀｰﾝ ｷｰ ﾃﾞ ｽｷｯﾌﾟ ﾃﾞｷﾙﾖｳ 2280 ' ﾆ ﾅﾘﾏｼﾀ｡ 2290 ' ﾂｲｶｼﾞｺｳﾄ ｼﾃﾊ､ﾌﾞﾗｲﾄﾈｽ ﾃｰﾌﾞﾙ ｦ ﾂｲｶ ｼﾏｼﾀ｡ ﾓﾄﾓﾄ 2300 ' ｷｶｲｺﾞﾌﾞ ﾃﾞﾊ ﾀｲｵｳ ｼﾃｲﾀﾉ ﾃﾞｽｶﾞ､ver1.0 ﾃﾞﾊ ｻﾎﾟｰﾄ 2310 ' ﾌﾟﾛｸﾞﾗﾑ ﾆ ｸﾐｺﾏﾚﾃﾊ ｲﾅｶｯﾀﾉﾃﾞ ﾃﾞﾌｫﾙﾄ ﾁ ﾉﾐﾃﾞｼﾀ ｶﾞ､ 2320 ' 1.1 ﾆﾅﾘ ｿﾚｦ ﾃｰﾌﾞﾙ ﾃﾞｰﾀ ｦ ﾘﾖｳｼ ﾍﾝｺｳ ﾃﾞｷﾙﾖｳﾆ ﾅﾘ 2330 ' ﾏｼﾀ｡ 2040ｷﾞｮｳ ｲｺｳ ﾉ ﾃﾞｰﾀ ｦ ﾕｰｻﾞｰｶﾞ ﾍﾝｺｳ ｽﾙｺﾄﾆ 2340 ' ﾖｯﾃ ｲﾛｲﾛﾅ ｼｭｺｳ ｶﾞ ﾀﾉｼﾒﾙ ﾖｳﾆ ｸﾌｳ ｻﾚﾃ ｲﾏｽ｡ 2350 ' ﾚｲ ﾄｼﾃ､ 10 ﾊﾞﾝﾒ 2140 ｷﾞｮｳﾉ ﾊﾟﾀｰﾝ ｶﾞ ｿｳﾃﾞｽ｡ 2360 ' ｼｷﾁｮｳ ﾊﾝﾃﾝ ﾉ ｼｭﾎｳﾃﾞ､ ﾀﾝﾆ ｶｲﾁｮｳ ﾃｰﾌﾞﾙ ｦ ｻｶｻﾏﾆ 2370 ' ｼﾀﾀﾞｹﾃﾞｽ｡ ｶﾝﾀﾝﾃﾞｼｮ｡ 2380 ' ﾄﾞﾗｲﾌﾞ ｾﾚｸﾄ ﾉ ﾄｺﾛﾃﾞ ﾘﾀｰﾝ ｦ ｵｽﾄ ﾁｮｸｾﾂ ﾌｧｲﾙ No. 2390 ' ｦ ｼﾃｲﾃﾞｷﾙﾖｳ ﾆ ﾅﾘﾏｽ｡ ｿｺﾃﾞﾓ ﾘﾀｰﾝ ｦ ｵｽｺﾄﾆ ﾖｯﾃ､ 2400 ' ｾﾞﾝｶｲ ｼﾖｳｼﾀ CG ｦ ﾌﾀﾀﾋﾞ ｻｲｾｲ ｽﾙｺﾄｶﾞ ｶﾉｳﾃﾞｽ｡ 2410 ' 2420 ' ｾｰﾊﾞｰ ｶﾞ ﾃﾞｷﾏｼﾀﾗ､ ver2.0 ﾄｼﾃ､ﾘﾘｰｽ ｽﾙｺﾄﾆ ｼﾃｵｷ 2430 ' ﾏｽﾈ｡ ｼﾖｳ ｦ ﾖｺｸ ｼﾃｵｷﾏｽﾄ､ 2440 ' 320*200 , 160*100 ﾉ 2ｼｭﾙｲﾉ ｸﾞﾗﾌｨｯｸ ﾉ ｱｯｼｭｸ ｶﾞ 2450 ' ﾃﾞｷﾙ ﾖｳﾆ ｽﾙﾖﾃｲ｡ ｻﾗﾆ ｼｷﾁｮｳ ﾍﾝｶﾝ ｦ ｻﾎﾟｰﾄ ｼﾃ､729 2460 ' ｼｮｸ ｶﾗ 64ｼｮｸ､8ｼｮｸ､ﾓﾉｸﾛ 9ｶｲﾁｮｳ ﾅﾄﾞﾉ ﾄｸｼｭ ｺｳｶ ﾓ 2470 ' ﾓﾘｺﾑ ﾖﾃｲﾃﾞｽ｡ ｺﾉﾖｳﾅ ｼｮﾘｶﾞ ﾃﾞｷﾙ ﾘﾕｳﾄｼﾃ､ BIOS ﾉ 2480 ' ｻﾌﾞﾙｰﾁﾝ ｦ ﾓｼﾞｭｰﾙ ｶ ｼﾃｲﾙ ﾒﾝｶﾞ ｱﾘﾏｽ｡ ｺｳｿﾞｳｶ ﾌﾟﾛｸﾞ 2490 ' ﾗﾐﾝｸﾞ ﾉ ｼｭﾎｳ ﾃﾞｽﾉﾃﾞ､ﾌﾟﾛｸﾞﾗﾑ ｾｲｻｸｼﾃｲﾙ ｶﾀ ｻﾝｺｳﾆ 2500 ' ﾏﾃﾞ ｼﾃｲﾃ ｸﾀﾞｻｲ｡ ﾜﾀｼﾓ ﾌﾟﾛｸﾞﾗﾑﾂﾞｸﾘﾊ ﾏﾀﾞ ﾊｼﾘ ﾅﾉﾃﾞ 2510 ' ﾀｲｼﾀｺﾄﾊ ｲｴﾏｾﾝｶﾞ｡ 2520 ' 2530 ' ﾂｲｶｷﾉｳ ﾄｼﾃ ｾﾚｸﾄ ﾆ ｼﾞﾕｳﾄﾞ ｦ ﾓﾀｾﾏｼﾀ｡ ﾀﾄｴﾊﾞ 1-5 ﾄ 2540 ' ﾀｲﾌﾟｽﾚﾊﾞ 1ｶﾗ5ﾉ ﾌｧｲﾙﾉ ｻｲｾｲ ｦ ｼﾏｽｼ､* ﾃﾞﾊ ｽﾍﾞﾃ ｦ 2550 ' ﾀｲｼｮｳﾄ ｼﾏｽ｡ ｽﾍﾟｰｽ ｦ ｱｹﾅｶﾞﾗ ｾﾚｸﾄ ｽﾙﾄ ﾗﾝﾀﾞﾑﾆﾓ ｶﾉｳﾃﾞｽ｡ 2560 ' 2570 ' MAP541:Batcha(C)1988 2580 ' 1989 2590 '--------------------------------------------------