100 REM CP-LOAD BY A.M.
110 REM
120 GOSUB340:PRINTCHR$(14)
130 PRINTCHR$(147)SPC(11)"[195][208]-[204][207][193][196]/[214]1.1":PRINT
240 FI$="":INPUTFI$:IFFI$="X"THENOPEN8,8,15,"I0":CLOSE8:GOTO240
250 I=1:IFFI$=""THEN130
260 IF FI$="END"THENSYS64738
270 IFI<=LEN(FI$)THENIFMID$(FI$,I,1)<>" "THENI=I+1:GOTO270
280 FI$=LEFT$(FI$,I-1):GOSUB300:GOTO240
290 GOSUB410:SYS50387:RETURN
300 IFFI$=FA$THEN290
310 SYS57812"/"+FI$+".EXE",8,1:GOSUB500
320 IFST<>64THENRETURN
330 FA$=FI$:POKE51698,0:POKE50489,PEEK(781):POKE50490,PEEK(782):GOTO290
340 DATA4096,CPV1.1MC,"SYSCON64"
350 READPR:A=PR-1:GOSUB400
360 IFAH=PEEK(56)ANDAL=PEEK(55)THENRETURN
370 POKE55,AL:POKE56,AH:CLR
380 READPR:READF$:GOSUB490:READF$:GOSUB490
390 POKE65028,255:POKE65029,191:RUN
400 AH=INT(A/256):AL=A-256*AH:RETURN
410 A=256*(PEEK(50490)+PEEK(4097))+PEEK(50489)+PEEK(4096):GOSUB400
420 POKE65026,AL:POKE65027,AH:RETURN
490 SYS57812F$,8,1
500 POKE780,0:SYS65493:RETURN