#11 Article 115 Posted at 1987/05/07 23:35:43 by SHINOBU (MAP055) [PRG.CHA]
Subject: ﾁｬｲ･ﾛｰﾀﾞｰ FM + ﾏｼﾝｺﾞ
1000 'GLOADER by ﾁｬｲ Ver.1.0 1010 'GLOADER-FM by SHINOBU Ver.1.0 1020 '640*200*1 for FM-7 1030 PRINT "FILE NAME = ";:LINE INPUT FL$ 1040 CLS:COLOR=(1,7) 1050 OPEN "I",#1,FL$ 1060 FOR I=0 TO 6:POKE &H6083+I,0:NEXT 1070 EXEC&H6000 1080 A$=INPUT$(1,1) 1090 IF ASC(A$)<&H30 THEN 1080 1100 POKE &H6083,ASC(A$)-&H30 1110 FOR I=0 TO 5 1120 A$=INPUT$(1,1) 1130 IF ASC(A$)<&H20 THEN 1120 1140 POKE &H6084+I,ASC(A$)-&H20 1150 NEXT 1160 EXEC&H6002 1170 IF EOF(1)=0 THEN 1080 1180 CLOSE 1190 GOTO 1190