#11 Article 117 Posted at 1987/05/07 23:37:38 by SHINOBU (MAP055) [PRG.CHA]
Subject: ﾁｬｲ･ﾛｰﾀﾞｰ FM Part2
1000 'GLOADER by ﾁｬｲ Ver.1.0
1010 'M-SAVER by SHINOBU Ver.1.0
1020 '640*200*1 for FM-7
1030 PRINT "FILE NAME = ";:LINE INPUT FL$
1040 OPEN "I",#1,FL$
1050 ADR=&H2002
1060 ON ERROR GOTO 1200
1070 A$=INPUT$(1,1)
1080 IF ASC(A$)<&H30 THEN 1070
1090 POKE ADR,ASC(A$)-&H30 :ADR=ADR+1
1100 FOR I=0 TO 5
1110 A$=INPUT$(1,1)
1120 IF ASC(A$)<&H20 THEN 1110
1130 POKE ADR+I,ASC(A$)-&H20
1140 NEXT :ADR=ADR+6:ADR2=ADR
1150 IF EOF(1)=0 THEN 1070
1160 CLOSE
1170 POKE &H2000,ADR \ 256:POKE &H2001,ADR MOD 256
1180 PRINT "END ADR = ";RIGHT$("0000"+HEX$(ADR),4)
1190 END
1200 ADR=ADR2:RESUME 1160