Atari 8-bit Source code

0REM
10GRAPHICS0:POKE752,1:SETCOLOR2,0,0:?"FUNCTIONKEYDRIVER":?"BYSTEPHENPROKOPCHUK":POKE752,0
15IFPEEK(520)+PEEK(521)*256=1586THEN?"FUNCTIONALREADYIMPLEMENTED":END
20FORI=1536TO1679:READA:C=C+A:POKEI,A:NEXTI
25IFC<>17026THEN?"ERRORINDATA":END
30?:?"THISPROGRAMWILLDEFINECTRL4-0":?"ANDSHIFT+CTRL4-0ASPHRASESWHICH"
35?"YOUMAYENTER.THESEPHRASESCANBE"
40?"CALLEDATANYTIMEBYSIMPLYPUSHING":?"THEAPPROPRIATEKEY."
50DIMA$(16),B$(16)
60FORI=1TO14
70?:?"FUNCTIONKEY#";I;"-CTRL";:IFI<8THEN?CHR$(48+I*(I<>7)+3*(I<>7))
75IFI>7THEN?"+SHIFT";CHR$(48+(I-7)*(I-7<>7)+3*(I-7<>7))
80READA$:?"DEFAULTSETTINGIS[";A$;"]"
90?"YOURPHRASE";:INPUTB$
100IFLEN(B$)>7THEN?"PHRASEISTOOLONG.":GOTO90
110IFB$=""THENB$=A$
120FORJ=1TOLEN(B$):POKE1680+(I-1)*8+J-1,ASC(B$(J)):NEXTJ
130POKE1680+(I-1)*8+J-1,0:NEXTI
140?:?"PROCESSISCOMPLETE."
170X=USR(1536):END
1536DATA104,173,8,2,141,82,6,173
1544DATA9,2,141,83,6,169,50,141
1552DATA8,2,169,6,141,9,2,173
1560DATA33,3,133,207,173,34,3,133
1568DATA208,160,6,177,207,141,123,6
1576DATA200,177,207,141,124,6,238,123
1584DATA6,96,165,66,208,27,160,0
1592DATA185,137,6,205,9,210,240,25
1600DATA9,64,205,9,210,240,13,200
1608DATA192,7,208,236,169,0,141,241
1616DATA2,76,190,255,152,24,105,7
1624DATA168,173,241,2,208,243,152,10
1632DATA10,10,24,105,144,133,203,169
1640DATA6,133,204,160,0,177,203,56
1648DATA233,32,133,93,177,203,240,10
1656DATA132,206,32,164,246,164,206,200
1664DATA16,242,169,1,141,241,2,104
1672DATA64,152,157,155,179,181,176,178
2000DATALOAD",SAVE",LIST,RUN,POKE,PEEK(,DATA,PLOT,DR.,LOC.,POS.,COLOR,SE.,GR.,	

• Download link 1
• Download link 2