Some basic programs for the Commodore 64.
the program writes the kernel to the file kernal.bin
on the floppy disk.
4 PRINT "scratch kernal.bin" 5 OPEN 2,8,15,"s:kernal.bin" 6 CLOSE 2 9 PRINT "write kernal.bin" 10 OPEN 2,8,4,"kernal.bin,usr,w" 20 FOR i = 57344 TO 65535 30 PRINT#2,CHR$(PEEK(i)); 40 a=i-57344: IF (a AND 255) = 255 THEN PRINT i 50 NEXT i 60 CLOSE 2