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