120 GOSUB340:PRINTCHR$(14)CHR$(147)
280 GOSUB310:SYS64738
281 A$="* INFO.TXT":FORI=1TOLEN(A$):POKE511+I,ASC(MID$(A$,I,1)):NEXT:POKE511+I,0
282 POKE631,136:POKE632,68:POKE633,76:POKE198,3
290 GOSUB410:SYS50387:RETURN
310 F$="/ED.EXE":GOSUB490
320 IFST<>64THENEND
330 POKE51698,0:POKE50489,PEEK(781):POKE50490,PEEK(782):GOTO281
340 DATA4096,CPV1.1MC,"SYSCON64"
350 READPR:A=PR-1:GOSUB400
360 IFPEEK(55)=AL AND PEEK(56)=AHTHENRETURN
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