10 PMODE0:PCLEAR1
20 CLS:PRINT"SELECT OPTION:"
30 PRINT"1) ROUTINE IS IN MEMORY"
40 PRINT"2) PROGRAM IS ON DISK":PRINT
50 INPUT"  1 OR 2";S:IFS<1 OR S>2 THENRUN
60 PRINT:IFS=1THEN110
70 CLS:INPUT"SOURCE DRIVE NUMBER =";D0:DRIVE D0
80 PRINT:PRINT"     FILE <MUST> BE '/BIN'":PRINT
90 PRINT"DO NOT USE /EXT.DR":INPUT"WHAT IS THE FILE NAME ";FILE$
100 LOADM FILE$
110 INPUT"WHAT IS THE START ADDRESS IN HEX$ ";START$:START=VAL("&H"+START$)
120 INPUT"WHAT IS THE END   ADDRESS IN HEX$ ";EN$:EN=VAL("&H"+EN$)
130 INPUT"WHAT IS THE EXECUTION ADDRESS IN HEX$ ";EX$
140 INPUT"PRINT TO SCREEN OR DISK <0 OR 1> ";BUF
150 IFBU=1 THEN PRINT:INPUT"DESTINATION DRIVE =";D1:DRIVE D1
160 LI=10
170 IF BU=0 THEN190
180 OPEN"O",#BU,FILE$+"/MLC"
190 PRINT#BU,LI;"REM ";FILE$:LI=LI+10
200 PRINT#BU,LI;"LI=80":LI=LI+10
210 PRINT#BU,LI;"FOR M=&H";START$;" TO &H";EN$;" STEP10:SUM=0":LI=LI+10
220 PRINT#BU,LI;"FOR I=0TO9:READA$:VA=VAL(";CHR$(34);"&H";CHR$(34);"+A$):SUM=SUM+VA:POKE M+I,VA:NEXT:READ CHK:IFSUM<>CHK THEN PRINT";CHR$(34);"ERROR IN LINE";CHR$(34);"LI:END"
230 LI=LI+10:PRINT#BU,LI;"LI=LI+10:NEXT"
240 LI=LI+10
250 PRINT#BU,LI;"SAVEM ";CHR$(34);FILE$;CHR$(34);",&H";START$;",&H";EN$",&H";EX$:LI=LI+10
260 PRINT#BU,LI;"END":LI=LI+10
270 FOR M=START TO EN STEP 10
280 PRINT#BU, LI;"DATA ";:LI=LI+10
290 SUM=0:FORI=0TO9
300 V=PEEK(M+I):SUM=SUM+V:PRINT #BU,USING"%%"; HEX$(V);:IF M+I =EN AND I<>9  THEN GOTO330 ELSE IF I<>9 THEN PRINT#BU,", ";:NEXT ELSE NEXT
310 PRINT#BU,","SUM:NEXT
320 CLOSE #BU:END
330 FORJ=I+1 TO9:PRINT#BU,", 00";:NEXTJ:PRINT#BU,","SUM:CLOSE #BU