Base64 encode data: Difference between revisions

Line 492:
 
=={{header|Commodore BASIC}}==
Assumes the source file is a PRG on disk drive device 8, writes encoded file asboth to a SEQ tofile on the same disk and to the screen (where it looks good in 80-column mode on a PET or C128, a little less so on a C64 or VIC). This is all done in PETSCII; transfer out of Commodore-land will require translation of the Base64-encoded file into ASCII.
 
<lang basic>100 rem convert a binary file to base64
100 print chr$(247);chr$(14);
110 dim a$(63): rem alphabet
120 dim i(2): rem input bytes
1,479

edits