home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
bin
/
c64ker1660.sda
/
64BOOT
(
.txt
)
next >
Wrap
Commodore BASIC
|
2020-01-01
|
282b
|
9 lines
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