10 PROGRAM "Dump.bas" 15 ! DUMP64 (c) 1988 C.C.Guys 20 ALLOCATE 88 100 CODE DUMP=HEX$("7D") 110 FOR R=1TO11 120 READ H$ 130 CODE D=HEX$(H$) 140 NEXT 150 FOR R=1TO7 160 READ ADDR 170 CALL WPOKE(DUMP+ADDR,DUMP+WPEEK(DUMP+ADDR)) 180 NEXT 490 ! Demo 500 TEXT 510 INPUT PROMPT"Kezdocim (decimalis):":ADDR 520 CALL USR(DUMP,ADDR) 530 END 1000 DATA "E6,F8,6F,0E,08,06,08" 1005 DATA "E5,CD,30,00,7E,CD,35,00" 1010 DATA "23,10,F9,E1,06,08,7E,FE" 1015 DATA "7F,30,04,FE,20,30,02,3E" 1020 DATA "2E,CD,4D,00,23,10,EF,3E" 1025 DATA "0D,CD,4D,00,0D,20,D7,C9" 1030 DATA "7C,CD,3C,00,7D,CD,3C,00" 1035 DATA "3E,20,18,11,F5,0F,0F,0F" 1040 DATA "0F,CD,45,00,F1,E6,0F,C6" 1045 DATA "90,27,CE,40,27,C5,47,3E" 1050 DATA "00,F7,07,C1,C9" 2000 DATA 10,14,34,42,50,54,66 5000 DEF WPEEK(A) 5005 ! Szavas PEEK fuggveny 5010 LET WPEEK=PEEK(A)+256*PEEK(A+1) 5020 END DEF 5050 DEF WPOKE(A,D) 5055 ! Szavas POKE eljaras 5060 POKE A+1,INT(D/256):POKE A,D-256*PEEK(A+1) 5070 END DEF