#11 Article 3020 Posted at 1989/05/19 06:48:00 by ﾚｯﾄﾞﾊﾞﾛﾝ (MAP492) [PRG.NL3]
Subject: Ｂ－１６用ＮＬ３ローダー
おまたせの（誰も待って無いという気もするが・・・）
Ｂ－１６用ＮＬ３ローダーです
ＩＳＡＭ君をタコ部屋に入れて作り上げました
これを使うのは私と秋葉台さんだけという気が・・・
ま、いいよね
ぢゃ、いきます
10 '
20 ' Nozomu Loader 3 version 1.3 1988/3/27 1989/5/2
30 '
40 ' arranger By B.Batcha
50 '
60 ' 1989/5/19
70 '
80 ' HITACHI B-16 arrange By ISAM.H
90 '
100 DEFINT A-S,X-Y:DEFSNG V:GOSUB 440
110 COLOR 4: PRINT "File Name Select"
120 COLOR 7: LINE INPUT"file name :";F$
130 IF F$="" THEN FILES "*.nl3": GOTO 120
140 OPEN "I",1,F$
150 COLOR 7:INPUT "Graphics matrix(min2-max4)";H
160 IF H<2 OR H>4 THEN 150
170 PW%(0)=H:PW%(1)=H
180 CLS :TIME$="00:00:00"
190 FOR I=0 TO 63
200 GOSUB 520
210 A=DA
220 GOSUB 520
230 B=DA
240 CO=B*128+A: R=CO\81: G=(CO\9)MOD 9: B=CO MOD 9
250 FOR J=0 TO 15 STEP 4:PC%(J)=P%(B,J\4):PC%(J+1)=P%(G,J\4):PC%(J+2)=P%(R,J\4):PC%(J+3)=0:NEXT
260 FOR J=0 TO 7:V=PC%(J*2+1)*256:V=V+(V>32767)*65536!:C%(I,J)=V+PC%(J*2):NEXT
270 NEXT I
280 '
290 X=0 : Y=0 : CO=0
300 GOSUB 520
310 IF DA<64 THEN CO=DA : L=0 : GOTO 340
320 CO=DA AND 63
330 GOSUB 520 : L=DA+1
340 YA=L+Y : YB=YA-100 : IF YA>99 THEN YA=99
350 GOSUB 550
360 IF YB>=0 THEN Y=0 : X=X+1 : L=YB : IF X<160 THEN 340
370 Y=YA+1 : IF Y>99 THEN Y=0 : X=X+1
380 IF X>=160 THEN 410
390 GOTO 300
400 '
410 CLOSE
420 A$=INPUT$(1) :LOCATE 1,14 : PRINT "COMPLETE:";TIME$
430 END
440 ' INITIALIZE
450 DIM C%(64,8),GRB%(3),PW%(10),P%(9,4),PC%(16),T%(255)
460 P%(0,0)=0:P%(0,1)=0:P%(0,2)=0:P%(0,3)=0
470 FOR I=1 TO 8:READ P%(I,0),P%(I,1),P%(I,2),P%(I,3):NEXT
480 C=0:FOR I=0 TO 255
490 IF I<32 OR(I>126 AND I<160)OR I>223 THEN T%(I)=-1 ELSE T%(I)=C:C=C+1
500 NEXT
510 RETURN
520 ' *DATACONV
530 DA=T%(ASC(INPUT$(1,#1))):IF DA>=0 THEN RETURN ELSE 530
540 '
550 ' *DRAWLINE
560 FOR I=0 TO 7:PW%(I+2)=C%(CO,I):NEXT
570 FOR I=Y TO YA:PUT(X*H,I*H),PW%,PSET:NEXT I
580 RETURN
590 '
600 DATA &h00,&h22,&h00,&h88 ,&h11,&h44,&h11,&haa
610 DATA &h11,&haa,&h44,&haa ,&h55,&haa,&h55,&haa
620 DATA &h55,&hbb,&h55,&hee ,&h77,&hdd,&h77,&hdd
630 DATA &hff,&hbb,&hff,&hee ,&hff,&hff,&hff,&hff
640 '
650 ' original copyright NOZOMU in maple town net
660 '
ＢＡＳＩＣだから恐ろしく遅いよぉ
レッドバロン