#11 Article 2658 Posted at 1989/03/03 20:15:36 by Batcha (MAP541) [PRG.NL3]
Subject: FM-77AV/20/40/EX/SX NLOADER3.MAC
100 '
110 ' Machine File Maker For "NED77M"
120 '
130 ' Version UP 1989/3/2
140 ' By B.Batcha MAP541
150 '
160 CLEAR ,&H52FF
170 PRINT : PRINT : PRINT "NLOADER3 For FM-77AV machine sub maker" : PRINT
180 AD=&H5300
190 READ A$:IF A$="***" THEN 240
200 FOR I=1 TO LEN(A$) STEP 2
210 M=VAL("&H"+MID$(A$,I,2))
220 POKE AD,M:AD=AD+1:NEXT I
230 GOTO 190
240 PRINT "USE BASIC VERSION SELECT"
250 PRINT:PRINT" 1:V3.3 L1X":PRINT" 2:V3.3 L2X":PRINT" 3:V3.4 L1X":PRINT" 4:V3.3 L3X or V3.4 L2X"
260 PRINT:INPUT "Number : ",A
270 POKE &H5454,VAL("&H"+MID$("DFDEDEDD",A*2-1,2))
280 POKE &H5455,VAL("&H"+MID$("0972DF21",A*2-1,2))
290 SAVEM "NED77M",&H5300,AD-1,&H5300
300 PRINT : PRINT "MAKING COMPLETE!"
997 '
998 ' Machin Program Datas
999 '
1000 DATA 3476CE54A68640340217015248340217014C350444568E549D83005125043001
1010 DATA 20F7C300513406E684E7418E549D35068300092504300120F7C300093406E684
1020 DATA E74235068E549D3AE684E7C433436AE426B735028E0000BF548EBF54901700FE
1030 DATA 81402409B754944FB75496200C843FB754941700E94CB7549617000BFC548E10
1040 DATA 8300A025D835F6FC5490F35495108300642510830064FD5495CC0063FD54928D
1050 DATA 0820E4FD54928D0139FC548EF3549AFD5485FD5489FC5490F35498FD5487FC54
1060 DATA 92F35498FD548BB65494C6033D8E54A6308BA684B75481A601B75482A602B754
1070 DATA 838D1FFC5492C30001FD549010830064260FCC0000FD5490FC548EC30001FD54
1080 DATA 8E397D549C2721FC54855849FD5485C30001FD5489FC54875849FD5487FC548B
1090 DATA 5849C30001FD548BB6FD052BFB8680B7FD05B6FD052AFB8E5480CEFC82EC81ED
1100 DATA C11183FC902BF67FFD05397F5497C601F700BFBDDF092405C601F75497398DEB
1110 DATA 7D54972617812025108020815F250C818025068021819F250220E339350635F6
1120 DATA 150A0F0C00009F0057009F00630200A00000006303000C000000000000000204
1130 DATA 06080A0C0E0F,***