home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / bin / c64ker1660.sda / 64BOOT (.txt) next >
Commodore BASIC  |  2020-01-01  |  282b  |  9 lines
  1. 1 POKE650,128
  2. 10 IFT=0THENOPEN15,8,15,"UI":INPUT#15,A$,A$:IFRIGHT$(A$,4)<>"1541"THEN70
  3. 20 IFT=0THENT=1:LOAD"KWIK.ML",8,1
  4. 30 IF T=1 THEN SYS(12*16+13)*256
  5. 35 IF T=1 THEN T=2:LOAD"KERMITUPGRADE.ML",8,1
  6. 70 PRINT"[147]NEWLOAD"CHR$(34)"KERMIT"CHR$(34)",8,1";
  7. 80 PRINT"SYS64789:SYS49152:RUN";
  8. 90 POKE198,3:POKE632,13:POKE631,13:POKE633,13
  9.