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