10 REM ROM catalog creation application designed 20181221 (20230120) by Eugeny Brychkov
20 REM Catalog 'Konami games'
30 DIMD(4):V=INP(&H5E):CALLNETGETDA(A,B):N=0:C=B:FORI=0TO3:IF(CAND1)=1THENN=N+1:D(I)=1ELSED(I)=0
40 C=C\2:NEXTI:IFN=1THEN120
50 PRINT"You have several GR8NET":PRINT"adapters in the system":PRINT:PRINT"ID";CHR$(9);"Slot":FORI=0TO3:IFD(I)=0THEN80
60 OUT&H5E,I*&H50+1:S=INP(&H5F):PRINTI;CHR$(9);HEX$(SAND3);:IF(SAND128)<>0THENPRINT".";HEX$((S\4)AND3);
70 IFI=ATHENPRINT" (default)"ELSEPRINT
80 NEXTI:OUT&H5E,V:PRINT
90 INPUT"Select ID: ";X:IFX<0ORX>3THEN90
100 IFD(X)=0THEN90
110 CALLNETSETDA(X)
120 CALLNETGETMMV(U):IFU<65THENPRINT"Insufficient GR8NET RAM: please":PRINT"boot into mapper mode 0 ot into":PRINT"mapper mode 8 with RAM disabled":END
130 P$="http://www.gr8bit.ru:80/software/firmware/GR8NET/romcat/konami-games/konami-games-db-"
140 CALLNETGETMEM(201,&H609C,A):IFA=255THENA=21
150 S=2^(A-16):DEFUSR=342
160 PRINT:PRINT"List of images in GR8NET":CALLFLLIST(1):A=24
170 PRINT:PRINT:PRINT"Image will require";A;"sectors"
180 INPUT"Select starting sector: ";N:IFN<4THENPRINT"Overwriting factory image":PRINT"is not allowed":GOTO180
190 IFN+A>STHENPRINT"ROM will not fit":GOTO180
200 PRINT"Press uppercase Y":PRINT"to start >";
210 X=USR(0):A$=INPUT$(1):PRINTA$:IFA$<>"Y"THENPRINT"Aborted":END
220 FORI=0TO2:GOSUB240:PRINT:PRINT"Loading part";I+1;"of 3":CALLNETBLOAD(A$):PRINT:CALLFLUPDATE(N+I*8,1):NEXT
230 PRINT:PRINT"Update finished":END
240 A$=STR$(I):A$=P$+RIGHT$(A$,LEN(A$)-1)+".bin":RETURN