#11 Article 154 Posted at 1987/06/09 16:45:30 by Tomo (MAP292) [PRG.NL2]
Subject: NLOADER2 For FM-7ｼﾘｰｽﾞ
10 'ﾄﾘｱｴｽﾞ､ ｱｯｼｭｸ ｾｰﾊﾞ ﾄ ﾛｰﾀﾞ ﾉ ｾﾂﾒｲ ﾉ ﾀﾒﾆ ｶｲﾀ ｶﾝｲ Editorﾓﾄﾞｷ 20 ' 30 ' Progtammed by NOZOMU / Loaderﾊ "NLOADER2" ﾄ ﾖﾝﾃﾞ ｸﾀﾞｻｲ｡ 40 ' 50 'ﾄﾘｱｴｽﾞ､ ﾛｰﾀﾞｰ ﾀﾞｹ ｲｼｮｸ ｼﾏｼﾀ｡ ｾｰﾊﾞｰ･ｴﾃﾞｨﾀｰﾆﾂｲﾃﾓ ｲｼｮｸｽﾙ ﾂﾓﾘﾃﾞｽ｡ 60 'ｿﾉｳﾁ Hi-SPEEDﾊﾞﾝﾓ ﾂｸﾘﾀｲﾄ ｵﾓｲﾏｽ｡ 70 DEFINT A-Z 80 DIM D%(7),D1%(2),D2%(2) 90 D(0)=&H0 :D(1)=&H80:D(2)=&H2080:D(3)=&H20A0 100 D(4)=&H50A0:D(5)=&H50E0:D(6)=&HB0E0-65536!:D(7)=-1 110 DEF FNR(RREAD0# )=RREAD0#+((RREAD0# >159)*32) 120 DEF FNX(PPOINTER)=PPOINTER \ 96 130 DEF FNY(PPOINTER)=PPOINTER MOD 96 140 CLS 150 LINE INPUT "FILE NAME=";F$ 160 INPUT "TYPE=(0:ｶﾗ- 1:ｼﾛｸﾛ)";A 170 IF A=0 THEN GRAY=0 ELSE IF A=1 THEN GRAY=1 180 CLS 190 ' 200 ' Load module 210 ' 220 ' 230 OPEN "I",#1,F$ 240 PPOINTER=0 250 WHILE PPOINTER<15360 260 DUMMY=ASC(INPUT$(1,1)):IF DUMMY<32 THEN 260 270 COLOUR=FNR(DUMMY)-32 280 IF COLOUR<64 THEN COUNTER=1:COLOUR=COLOUR:GOTO 300 290 COLOUR=COLOUR-64:COUNTER=FNR(ASC(INPUT$(1,1)))+2-32 300 COLOUR1=COLOUR \ 8 : COLOUR2=COLOUR MOD 8 310 D1(0)=D(COLOUR1):D2(0)=D(COLOUR2) 320 FOR I=1 TO COUNTER 330 XX=FNX(PPOINTER):YY=FNY(PPOINTER) 340 IF GRAY=1 THEN PUT@(XX*4,YY*2)-(XX*4+3,YY*2+1),D1%,PSET : PUT@(XX*4,YY*2+2)-(XX*4+3,YY*2+3),D2%,PSET 350 IF GRAY=0 THEN LINE(XX*4,YY*2)-(XX*4+3,YY*2+1),PSET,COLOUR1,BF : LINE(XX*4,YY*2+2)-(XX*4+3,YY*2+3),PSET,COLOUR2,BF 360 PPOINTER=PPOINTER+2 370 NEXT 380 WEND 390 CLOSE #1 400 GOTO 400 @