#11 Article 1034 Posted at 1988/02/04 14:54:26 by ﾉﾘP (MAP629) [PRG.NL3]
Subject: NLOADER3 S1ﾖｳ V1.0
100 '*****************************
110 '* NLOADER3 S1 Version 1.0 *
120 '* By MAP629 ﾉﾘP- *
130 '*****************************
140 IF PEEK(&HD000)<>&H10 THEN 250 ' LOADN"NL3.BIN
150 DEVICE"1:
160 CLS
170 FILES
180 INPUT F$
190 OPEN "I",1,F$
200 DEFMAP=1:SCREEN 1,0,1:CLS:A=&H8000
210 LINE(0,0)-(638,199),PSET,7,BF,&H1111
220 EXEC&HD000
230 CLOSE
240 END
250 '
260 '--------------------------
270 READ A$,B$,C$:SA=VAL("&H"+A$):EA=VAL("&H"+B$):PRINT"Address &H"A$" TO &H"B$" Start &H"C$
280 FORI=SA TOEA STEP32:READD$:IFD$="*"THEND$=STRING$(66,"0")
290 S=0:FORJ=0TO31:D=VAL("&H"+MID$(D$,J+J+1,2)):S=S+D:POKEI+J,D:NEXT:IFRIGHT$("0"+HEX$(S),2)<>RIGHT$(D$,2)THENBEEP:PRINT"CHECK SUM ERROR":STOP
300 PRINTHEX$(I)":"D$:NEXT
310 PRINT",&H"A$",&H"B$",&H"C$
320 RUN
330 '----- DATA -----
340 DATA D000,D18F,D000
350 '[D000]
360 DATA10FFD196CED1A0C640340417014C3402170147C6803DEBE0890034061F018651F4
370 DATA170151A7C4C6513DAEE44353C30001308B860917013EA7C840A6C4C6513D34065B
380 DATAA6C840C6093DE3E14353C30001E3E1E7C9008033416AE426B23504108ED2607FEE
390 DATAD19886C8B7D1991700F01F89C5402709C0401700E58B0220028601E7A07AD19959
400 DATA27054A26F620E03406CCB0B1FDFE00CCB2B3FDFE02F6D1984F1F01CED18D108EBA
410 DATAD2608664340234108ED1A0E6A864A6A034068D6DFDD19AECE48D66FDD19CECE163
420 DATA8D5FFDD19E3510CC0002FDFE20FCD19AA784E7890800CC0004FDFE20FCD19CA78B
430 DATA84E7890800CC0001FDFE20FCD19EA784E7890800308910008C400025043089C029
440 DATA506AE426A13502108ED260C6C8F7D1997CD198B6D19881502705350616FF633544
450 DATA86A686E685A6C6E6C58D043088403934025869E45869E45869E45869E44456449E
460 DATA564456445669E469E469E469E468E44968E44968E44968E0493934748601103FC5
470 DATA41113574270510FED19639812025EB80202BFC3934066FE26FE21F1010A36125CA
480 DATA06A3616CE420F535023262358400808286A6B6BEFEFF0000000000000000000092
490 '---END---
500 '
600 '
700 '-----
710 ' FILE ﾊ ｴﾃﾞｨﾀｰ ﾅﾄﾞｦ ﾂｶｯﾃ GRAPHICS DATA ﾉ ﾌﾞﾌﾞﾝ ﾉﾐ ｦ ASCII FILE ﾆ
720 'ｼﾃｸﾀﾞｻｲ｡ Control code ($0D,$0A etc.) ﾊ ﾊｲｯﾃｲﾃﾓ ｶﾏｲﾏｾﾝ｡
730 'ﾄﾘｱｴｽﾞ ｴ ｦ ﾐﾙﾀﾞｹﾉﾓﾉﾃﾞｽﾉﾃﾞ ｿﾉｳﾁ ｱﾌﾟﾘｹｰｼｮﾝ ｦ ﾂｸｯﾃｲｷﾏｽ｡
740 'ｿﾚﾆｼﾃﾓ S1 ﾉ FILE INPUT ﾊ ｵｿｲ｡ ﾒﾓﾘ ﾆ ｵﾄｼﾃ ﾃﾝｶｲｽﾚﾊﾞ 4ﾋﾞｮｳﾅﾉﾆ FILEｶﾗﾀﾞﾄ
750 '30ﾋﾞｮｳﾓ ｶｶｯﾃｼﾏｲﾏｽ｡ ﾅﾝﾄｶﾅﾝﾅｲﾓﾝﾃﾞｹﾞｼｮｶﾈ?? ﾉﾘP-