AMSTRAD cpc 6128 User Instruction page 435

2240 CLS:undraw=0:PRINT cmnd$(ro);:LOCATE 1,3:PRINT"<SP
ACE> ";:IF ro=3 OR ro=4 THEN PRINT"To exit"
2250 RETURN
2260 CLS:flag=-1
2270 FOR i=1 TO LEN(cmnds$(menu»
2280 ps=i+ABS(menu=2)*LEN(cmnds$(1»
2290 PEN 1:PRINT"<"MID$(cmnds$(menu),i,1)">"MID$(comman
d$(ps),2,4)" ";
2300 NEXT
2310 PRINT"<CLR> <DEL> <SPACE>";
2320 RETURN
2330
I
S
2340 GOSUB 2460:IF fi Lename$="" THEN 2370
2350 GOSUB 2550
2360 SAVE fi Lename$,b,&C000,&4000
2370 GOSUB 2260
2380 RETURN
2390
I
R
2400 GOSUB 2460: IF f i Lename$="" THEN 2440
2410 GOSUB 2730
2420 LOAD fi Lename$,&C000
2430 GOSUB 2570
2440 GOSUB 2260
2450 RETURN
2460 CLS:LOCATE 10,3:PRINT"<RETURN> to Abort!";
2470 LOCATE 1,1:PRINT"Enter FiLename :";
2480 INPUT "",f; Lename$:IF f; Lename$="" THEN RETURN
2490 n=INSTR(f;Lename$,"."):IF n=0 THEN 2520
2500 IF n=1 THEN 2460
2510 f; Lename$=LEFT$(f; Lename$,n-1>
2520 fi Lename$=LEFT$(fi Lename$,8)+".scn"
2530 CLS
2540 RETURN
2550 FOR ;=0 TO 4:POKE &C000+i,pn(;):NEXT
2560 RETURN
2570 FOR ;=0 TO 4:pn(;)=PEEK(&C000+;) MOD 27:NEXT
2580 cn=0:FOR ;=0 TO 2:IF pn(i)=pn(;+1) THEN cn=cn+1
2590 NEXT:IF cn=3 THEN 2630
2600 FOR ;=0 TO 3:INK ;,pn(;):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
I
1, 2, 3, & 4
Continued on the next page
Chapter 9 Page 62 At your leisure ....