AMSTRAD CPC 6128 Manual Del Usario página 370

2320
RETURN
2330 ' G
2340 GOSUB 2460:IF
2350 GOSUB 2550
2360 SAVE nombrefichero$,&C000,&4000
2370 GOSUB 2260
2380 RETURN
2390
' L
2400 GOSUB 2460:IF
2410 2730
GOSUB
2420 LOAD nombrefichero$,&C000
2430 GOSUB 2570
2440 GOSUB 2260
2450 RETURN
2460 CLS:LOCATE 10,3:PRINT"<RETURN> para
2470 LOCATE 1,1:PRINT"Nombre del fichero?
2480 INPUT "",nombrefichero$:IF
2490 n=INSTR(nombrefichero$,"."):IF
2500 IF n=1 THEN 2460
2510 nombrefichero$=LEFT$(nombrefichero$,n-1)
2520 nombrefichero$=LEFT$(nombrefichero$,8)+".pan"
2530 CLS
2540 RETURN
2550 FOR i=0 TO 4:POKE &C000+i,pn(i):NEXT
2560 RETURN
2570 FOR i=0 TO 4:pn(i)=PEEK(&C000+i)
2580 cn=0:FOR i=0
2590 NEXT:IF cn=3
2600 FOR i=0 TO 3:INK i,pn(i):NEXT
2610 BORDER pn(4):pn=1:GRAPHICS PEN pn
2620 RETURN
2630 pn(0)=0:pn(1)=26:pn(2)=15:pn(3)=6:pn(4)=0
2640 GOTO 2600
2650 ' 1, 2, 3 y 4
2660
CLS:PRINT"Quiere
<I>intercambiar la
2670 gri$="GRI"+CHR$(13):GOSUB 2230:IF
2680 bnk2=(ord-13):bnk1=1
2690 IF i$="G" THEN CLS:GOSUB 2550:|SCREENCOPY,bnk2,bnk1
2700 IF i$="R" THEN GOSUB 2730:|SCREENCOPY,bnk1,bnk2:GOSUB
2710 IF i$="I" THEN CLS:GOSUB 2730:GOSUB 2550:|SCREENSWAP,bnk2,bnk1:GOSUB
2720 GOSUB 2260:RETURN
2730 FOR i=0 TO 3:INK i,0:NEXT:BORDER 0:RETURN
2740 CLS:GOSUB 2600:RESUME
2750 DATA "CR.T@\IANBXM","1234LGM"
2760 DATA 19,Circunferencia,Recuadro,".rellenar",Triangul
",ASCII,Normal,Borrar,"Xor","Menu
2770 DATA Circunferencia,Recuadro,Color del limite,Color para rellenar,Triangulo
1,Triangulo 2,Linea
Las dos órdenes |SCREENCOPY y |SCREENSWAP se cargan con el programa BANKMAN
(cara 1 del juego de discos del sistema). Estas órdenes copian e intercambian imágenes de
pantalla entre los diversos bloques de 16K de memoria y entre los dos bancos de 64K.
nombrefichero$=""
nombrefichero$=""
nombrefichero$=""
TO 2:IF pn(i)ripn(i+1)
THEN 2630
<G>uardar":PRINT TAB(8)"<R>ecuperar":PRINT
pantalla?";
2260
recta,**
Manual de Amstrad CPC 6128 (revisión 2008) - Página 369
THEN 2370
THEN 2440
abandonar!";
";
THEN RETURN
n=0 THEN 2520
MOD 27:NEXT
THEN cn=cn+1
i$=CHR$(13) THEN
","1,"2 11,113 11
TAB(6)"o
2260
2570
o,Alternar,\recta,"Inks
11A ","Leer n,"Grabar","Menu "
2570