200 "C" CLEAR : CLS : INPUT "Von ";V,"Bis ";W,"Bank(0-7) ";R,"Anz.";X:Y=256: IF X>10 LET X=10
  201 IF R<0 OR R>7 OR R<> INT R THEN 200
  202 FOR Z=1 TO X: INPUT "Code ";A(Z): NEXT Z
  203 POKE 64608,V- INT (V/Y)*Y, INT (V/Y),W- INT (W/Y)*Y, INT (W/Y),R,X
  204 FOR Z=1 TO X: POKE 64613+Z,A(Z): NEXT Z
  205 CALL 62500: CLS :U=256* PEEK &F9D1+ PEEK &F9D0: IF U<>0 PRINT U:V=U+X: GOTO 203
  206 PRINT "nicht gefunden": END 
  207 "B" RESTORE 208: FOR I=0 TO 106: READ A: POKE 62500+I,A: NEXT I: END 
  208 DATA 0,30,128,35,30,16,252,96,140,0,5,24,144,16,52,0,83,80,89,67,128,219,16
  209 DATA 252,102,144,25,128,89,52,130,19,12,1,1,10,130,53,143,80,199,40,26,32,49
  210 DATA 128,89,52,0,9,139,29,139,29,16,252,96,82,91,128,219,33,48,87,47,26,44
  211 DATA 27,91,132,19,12,10,4,140,19,4,10,130,19,12,10,142,199,41,58,80,218,199
  212 DATA 41,63,35,140,30,0,1,16,249,208,140,25,35,16,52,0,82,55