1 REM: THIS PROGRAM READS A 6530 ROM FROM DEVICE 9 AND WRITES IT TO DEVICE 8 10 DIMA$(3,255) 20 DATA162,0,189,0,252,157,0,7,202,208,247,169,1,108,2,252 30 OPEN1,8,15:INPUT#1,A,B$,C,D:PRINTA;B$C;D 40 FORI=0TO15:READA:PRINT#1,"M-W"CHR$(I)CHR$(18)CHR$(1)CHR$(A);:NEXT 50 FORK=0TO3:PRINTK:PRINT#1,"M-W"CHR$(4)CHR$(18)CHR$(1)CHR$(252+K); 60 PRINT#1,"M-W"CHR$(4)CHR$(16)CHR$(1)CHR$(208); 70 FORI=0TO255:PRINT#1,"M-R"CHR$(I)CHR$(19);:GET#1,A$(K,I):NEXT:NEXT:CLOSE1 75 OPEN1,9,9,"RESULTS,S,W" 80 FORK=0TO3:FORI=0TO255:IFA$(K,I)=""THENA$(K,I)=CHR$(0) 90 PRINT#1,A$(K,I);:NEXT:NEXT:CLOSE1