1 POKE650,128
10 IFT=0THENOPEN15,8,15,"UI":INPUT#15,A$,A$:IFRIGHT$(A$,4)<>"1541"THEN70
20 IFT=0THENT=1:LOAD"KWIK.ML",8,1
30 IF T=1 THEN SYS(12*16+13)*256
35 IF T=1 THEN T=2:LOAD"KERMITUPGRADE.ML",8,1
70 PRINT"[147]NEWLOAD"CHR$(34)"KERMIT"CHR$(34)",8,1";
80 PRINT"SYS64789:SYS49152:RUN";
90 POKE198,3:POKE632,13:POKE631,13:POKE633,13