Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_26.ADF » P/FKSM

P/FKSM

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_26.ADF
Filename: P/FKSM
Read OK: ✔
File size: 11AD bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM ************************
   20REM Function Key Strip Maker
   30REM by Richard Dimond
   40REM (c) May 1996
   50REM ************************
   60MODE4
   70DIM S$(5,9)
   80VDU19,0,4;0;:PROCcuroff
   90MOVE12,12:DRAW1267,12:DRAW1267,1011:DRAW12,1011:DRAW12,12
  100PROCtitle
  110REPEAT
  120PROCmenu
  130UNTIL0
  140END
  150DEFPROCdb(A$,X%,Y%)
  160VDU31,X%,Y%
  170A%=10:X%=&56:Y%=0
  180FORN%=1TO LENA$
  190?&56=ASC(MID$(A$,N%))
  200CALL&FFF1
  210VDU23,255,?&57,?&57,?&58,?&58,?&59,?&59,?&5A,?&5A,255,8,10
  220VDU23,255,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,255,11
  230NEXT
  240ENDPROC
  250DEFPROCtitle
  260T$="FUNCTION KEY STRIP MAKER"
  270PROCdb(T$,19-LEN T$/2,2)
  280PRINTTAB(19-LEN T$/2,4);STRING$(LEN T$,"~")
  290DEFPROCmenu
  300VDU28,8,30,35,8,12
  310PRINT"PLEASE SELECT -"
  320PRINT'"<1> Enter key details"
  330PRINT'"<2> Print key strip"
  340PRINT'"<3> Load key strip"
  350PRINT'"<4> Save key strip"
  360PRINT'"<5> Exit program"
  370PRINT'"<6> Clear memory"
  380PRINT'"<*> Star command"
  390*FX21,0
  400REPEAT:a%=INSTR("123456*",GET$):UNTILa%
  410IFa%=1THENPROCenter:GOTO300
  420IFa%=2THENPROCprint:GOTO300
  430IFa%=3THENPROCload:GOTO300
  440IFa%=4THENPROCsave:GOTO300
  450IFa%=5THENPROCend:GOTO300
  460IFa%=6THENPROCclear:GOTO300
  470IFa%=7THENPROCcommand:GOTO300
  480ENDPROC
  490DEFPROCcuron
  500VDU23,1,1;0;0;0;
  510ENDPROC
  520DEFPROCcuroff
  530VDU23,1,0;0;0;0;
  540ENDPROC
  550DEFPROCct(L%,K%)
  560CLS:PRINT"Enter key details"''"(max 14 chars)"'
  570PRINT"for Key ";K%;" Line ";L%+1
  580PROCcuron
  590INPUT'">"T$
  600IF LENT$>14 PRINT'"Too long":TIME=0:REPEATREPEATUNTILTIME=100:GOTO560
  610T$=STRING$((14-LEN(T$))/2," ")+T$
  620T$=T$+STRING$(14-LENT$," ")
  630S$(L%,K%)=T$
  640ENDPROC
  650DEFPROCgrid
  660MOVE592,624:DRAW592,336:MOVE1072,624:DRAW1072,336
  670FORy%=336TO624STEP96
  680MOVE592,y%:DRAW1072,y%
  690NEXT:ENDPROC
  700DEFPROCenter:K%=0:REPEAT
  710VDU23,1,0;0;0;0;
  720CLS:PRINTTAB(8);"Key f";K%
  730PRINT'"PLEASE SELECT -"
  740PRINT''"1. CONTROL ";S$(0,K%)
  750PRINT"2.         ";S$(1,K%)
  760PRINT'"3. SHIFT   ";S$(2,K%)
  770PRINT"4.         ";S$(3,K%)
  780PRINT'"5.         ";S$(4,K%)
  790PRINT"6.         ";S$(5,K%)
  800PRINT''"N. Next key"
  810PRINT''"M. Return to menu"
  820PROCgrid
  830*FX21
  840REPEAT:a%=INSTR("123456NnMm",GET$):UNTILa%
  850IFa%>8 ENDPROC
  860IFa%>6 K%=K%+1:IFK%>9 K%=0:GOTO720 ELSEIFa%>6 GOTO720
  890L%=a%-1:PROCct(L%,K%)
  900UNTILa%>7
  910ENDPROC
  920DEFPROCcon
  930VDU1,27,1,15
  940ENDPROC
  950DEFPROCcoff
  960VDU1,18
  970ENDPROC
  980DEFPROCyn
  990REPEAT:a%=INSTR("YyNn",GET$):UNTILa%
 1000ENDPROC
 1010DEFPROCprint
 1020CLS:PRINT"Do you want to print"''" this strip? (Y/N)"
 1030PROCyn
 1040IFa%>2 ENDPROC
 1050CLS:VDU2,1,27,1,6,1,27,1,73,1,1,1,27,1,116,1,1
 1060VDU1,27,1,77
 1070VDU1,27,1,48
 1080PRINT
 1090PROCcoff:PRINTCHR$218;STRING$(4,CHR$196);CHR$194;:PROCcon:PRINT;STRING$(14,CHR$196);CHR$194;STRING$(14,CHR$196);CHR$194;STRING$(14,CHR$196);CHR$194;STRING$(14,CHR$196);CHR$194;STRING$(14,CHR$196);CHR$194;STRING$(14,CHR$196);CHR$194;
 1100PRINT;STRING$(14,CHR$196);CHR$194;STRING$(14,CHR$196);CHR$194;STRING$(14,CHR$196);CHR$194;STRING$(14,CHR$196);CHR$191;
 1110PROCcoff:PRINT;CHR$179;SPC4;CHR$179;:PROCcon:PRINT;S$(0,0);CHR$179;S$(0,1);CHR$179;S$(0,2);CHR$179;S$(0,3);CHR$179;S$(0,4);CHR$179;S$(0,5);CHR$179;S$(0,6);CHR$179;S$(0,7);CHR$179;S$(0,8);CHR$179;S$(0,9);CHR$179;
 1120PROCcoff:PRINT;CHR$179;"CTL>";CHR$179;:PROCcon:PRINT;S$(1,0);CHR$179;S$(1,1);CHR$179;S$(1,2);CHR$179;S$(1,3);CHR$179;S$(1,4);CHR$179;S$(1,5);CHR$179;S$(1,6);CHR$179;S$(1,7);CHR$179;S$(1,8);CHR$179;S$(1,9);CHR$179;
 1130PROCcoff:PRINTCHR$195;STRING$(4,CHR$196);CHR$197;:PROCcon:PRINT;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;
 1140PRINT;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$180;
 1150PROCcoff:PRINT;CHR$179;SPC4;CHR$179;:PROCcon:PRINT;S$(2,0);CHR$179;S$(2,1);CHR$179;S$(2,2);CHR$179;S$(2,3);CHR$179;S$(2,4);CHR$179;S$(2,5);CHR$179;S$(2,6);CHR$179;S$(2,7);CHR$179;S$(2,8);CHR$179;S$(2,9);CHR$179;
 1160PROCcoff:PRINT;CHR$179;"SHT>";CHR$179;:PROCcon:PRINT;S$(3,0);CHR$179;S$(3,1);CHR$179;S$(3,2);CHR$179;S$(3,3);CHR$179;S$(3,4);CHR$179;S$(3,5);CHR$179;S$(3,6);CHR$179;S$(3,7);CHR$179;S$(3,8);CHR$179;S$(3,9);CHR$179;
 1170PROCcoff:PRINTCHR$195;STRING$(4,CHR$196);CHR$197;:PROCcon:PRINT;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;
 1180PRINT;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$197;STRING$(14,CHR$196);CHR$180;
 1190PROCcoff:PRINT;CHR$179;SPC4;CHR$179;:PROCcon:PRINT;S$(4,0);CHR$179;S$(4,1);CHR$179;S$(4,2);CHR$179;S$(4,3);CHR$179;S$(4,4);CHR$179;S$(4,5);CHR$179;S$(4,6);CHR$179;S$(4,7);CHR$179;S$(4,8);CHR$179;S$(4,9);CHR$179;
 1200PROCcoff:PRINT;CHR$179;SPC4;CHR$179;:PROCcon:PRINT;S$(5,0);CHR$179;S$(5,1);CHR$179;S$(5,2);CHR$179;S$(5,3);CHR$179;S$(5,4);CHR$179;S$(5,5);CHR$179;S$(5,6);CHR$179;S$(5,7);CHR$179;S$(5,8);CHR$179;S$(5,9);CHR$179;
 1210PROCcoff:PRINTCHR$192;STRING$(4,CHR$196);CHR$193;:PROCcon:PRINT;STRING$(14,CHR$196);CHR$193;STRING$(14,CHR$196);CHR$193;STRING$(14,CHR$196);CHR$193;STRING$(14,CHR$196);CHR$193;STRING$(14,CHR$196);CHR$193;STRING$(14,CHR$196);CHR$193;  
 1220PRINT;STRING$(14,CHR$196);CHR$193;STRING$(14,CHR$196);CHR$193;STRING$(14,CHR$196);CHR$193;STRING$(14,CHR$196);CHR$217;
 1230VDU3:ENDPROC
 1240DEFPROCload
 1250CLS:PRINT"Load file? (Y/N)"
 1260PROCyn
 1270IFa%>2 ENDPROC
 1280CLS:INPUT"Enter filename "f$
 1290A%=OPENUPf$
 1300FORK%=0TO9
 1310FORL%=0TO5
 1320INPUT#A%,S$(L%,K%)
 1330NEXT:NEXT
 1340CLOSE#A%
 1350ENDPROC
 1360DEFPROCsave
 1370CLS:PRINT"Save file? (Y/N)"
 1380PROCyn
 1390IFa%>2 ENDPROC
 1400CLS:INPUT"Enter filename "f$
 1410A%=OPENOUTf$
 1420FORK%=0TO9
 1430FORL%=0TO5
 1440PRINT#A%,S$(L%,K%)
 1450NEXT:NEXT
 1460CLOSE#A%
 1470ENDPROC
 1480DEFPROCend
 1490CLS:PRINT"Do you want to Quit? (Y/N)"
 1500PROCyn
 1510IFa%>2 ENDPROC ELSEEND
 1520DEFPROCclear
 1530CLS:PRINT"Do you want to clear memory? (Y/N)"
 1540REPEAT:a%=INSTR("YyNn",GET$):UNTILa%
 1550IFa%>2 ENDPROC
 1560FORK%=0TO9
 1570FORL%=0TO5
 1580S$(L%,K%)=STRING$(14,CHR$0)
 1590NEXT:NEXT
 1600ENDPROC
 1610DEFPROCcommand
 1620CLS:PRINT"Star command? (Y/N)"
 1630PROCyn
 1640IFa%>2 ENDPROC
 1650PRINT'"Enter command"
 1660INPUT'"*"f$
 1670PRINT'"Press SHIFT to scroll"
 1680VDU14
 1690OSCLIf$
 1700PRINT'"Press a key for menu"
 1710REPEATUNTILGET
 1720ENDPROC


� ************************
� Function Key Strip Maker
� by Richard Dimond
(� (c) May 1996
2� ************************
<�4
F
� S$(5,9)
P�19,0,4;0;:�curoff
Z.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
d
�title
n�
x	�menu
��0
��
���db(A$,X%,Y%)
�
�31,X%,Y%
�A%=10:X%=&56:Y%=0
��N%=1� �A$
�?&56=�(�A$,N%))
�
�&FFF1
�<�23,255,?&57,?&57,?&58,?&58,?&59,?&59,?&5A,?&5A,255,8,10
�:�23,255,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,255,11
��
��
���title
!T$="FUNCTION KEY STRIP MAKER"
�db(T$,19-� T$/2,2)
�19-� T$/2,4);ĩ T$,"~")
"
��menu
,�28,8,30,35,8,12
6�"PLEASE SELECT -"
@�'"<1> Enter key details"
J�'"<2> Print key strip"
T�'"<3> Load key strip"
^�'"<4> Save key strip"
h�'"<5> Exit program"
r�'"<6> Clear memory"
|�'"<*> Star command"
�*FX21,0
��:a%=�"123456*",�):�a%
��a%=1��enter:�TlA
��a%=2��print:�TlA
��a%=3��load:�TlA
��a%=4��save:�TlA
��a%=5��end:�TlA
��a%=6��clear:�TlA
��a%=7��command:�TlA
��
���curon
��23,1,1;0;0;0;
��
��curoff
�23,1,0;0;0;0;
�
&��ct(L%,K%)
0-�:�"Enter key details"''"(max 14 chars)"'
: �"for Key ";K%;" Line ";L%+1
D
�curon
N�'">"T$
X,� �T$>14 �'"Too long":�=0:����=100:�TpB
bT$=�(14-�(T$))/2," ")+T$
lT$=T$+�14-�T$," ")
vS$(L%,K%)=T$
��
�
��grid
�)�592,624:�592,336:�1072,624:�1072,336
��y%=336�624�96
��592,y%:�1072,y%
��:�
���enter:K%=0:�
��23,1,0;0;0;0;
��:�8);"Key f";K%
��'"PLEASE SELECT -"
��''"1. CONTROL ";S$(0,K%)
��"2.         ";S$(1,K%)
��'"3. SHIFT   ";S$(2,K%)
�"4.         ";S$(3,K%)
�'"5.         ";S$(4,K%)
�"6.         ";S$(5,K%)
 �''"N. Next key"
*�''"M. Return to menu"
4	�grid
>	*FX21
H�:a%=�"123456NnMm",�):�a%
R�a%>8 �
\/�a%>6 K%=K%+1:�K%>9 K%=0:�dPB ��a%>6 �dPB
zL%=a%-1:�ct(L%,K%)
�	�a%>7
��
�	��con
��1,27,1,15
��
�
��coff
�	�1,18
��
���yn
��:a%=�"YyNn",�):�a%
��
���print
�3�:�"Do you want to print"''" this strip? (Y/N)"
�yn
�a%>2 �
.�:�2,1,27,1,6,1,27,1,73,1,1,1,27,1,116,1,1
$�1,27,1,77
.�1,27,1,48
8�
B��coff:�218;�4,�196);�194;:�con:�;�14,�196);�194;�14,�196);�194;�14,�196);�194;�14,�196);�194;�14,�196);�194;�14,�196);�194;
LB�;�14,�196);�194;�14,�196);�194;�14,�196);�194;�14,�196);�191;
V��coff:�;�179;�4;�179;:�con:�;S$(0,0);�179;S$(0,1);�179;S$(0,2);�179;S$(0,3);�179;S$(0,4);�179;S$(0,5);�179;S$(0,6);�179;S$(0,7);�179;S$(0,8);�179;S$(0,9);�179;
`��coff:�;�179;"CTL>";�179;:�con:�;S$(1,0);�179;S$(1,1);�179;S$(1,2);�179;S$(1,3);�179;S$(1,4);�179;S$(1,5);�179;S$(1,6);�179;S$(1,7);�179;S$(1,8);�179;S$(1,9);�179;
j��coff:�195;�4,�196);�197;:�con:�;�14,�196);�197;�14,�196);�197;�14,�196);�197;�14,�196);�197;�14,�196);�197;�14,�196);�197;
tB�;�14,�196);�197;�14,�196);�197;�14,�196);�197;�14,�196);�180;
~��coff:�;�179;�4;�179;:�con:�;S$(2,0);�179;S$(2,1);�179;S$(2,2);�179;S$(2,3);�179;S$(2,4);�179;S$(2,5);�179;S$(2,6);�179;S$(2,7);�179;S$(2,8);�179;S$(2,9);�179;
���coff:�;�179;"SHT>";�179;:�con:�;S$(3,0);�179;S$(3,1);�179;S$(3,2);�179;S$(3,3);�179;S$(3,4);�179;S$(3,5);�179;S$(3,6);�179;S$(3,7);�179;S$(3,8);�179;S$(3,9);�179;
���coff:�195;�4,�196);�197;:�con:�;�14,�196);�197;�14,�196);�197;�14,�196);�197;�14,�196);�197;�14,�196);�197;�14,�196);�197;
�B�;�14,�196);�197;�14,�196);�197;�14,�196);�197;�14,�196);�180;
���coff:�;�179;�4;�179;:�con:�;S$(4,0);�179;S$(4,1);�179;S$(4,2);�179;S$(4,3);�179;S$(4,4);�179;S$(4,5);�179;S$(4,6);�179;S$(4,7);�179;S$(4,8);�179;S$(4,9);�179;
���coff:�;�179;�4;�179;:�con:�;S$(5,0);�179;S$(5,1);�179;S$(5,2);�179;S$(5,3);�179;S$(5,4);�179;S$(5,5);�179;S$(5,6);�179;S$(5,7);�179;S$(5,8);�179;S$(5,9);�179;
���coff:�192;�4,�196);�193;:�con:�;�14,�196);�193;�14,�196);�193;�14,�196);�193;�14,�196);�193;�14,�196);�193;�14,�196);�193;  
�B�;�14,�196);�193;�14,�196);�193;�14,�196);�193;�14,�196);�217;
��3:�
�
��load
��:�"Load file? (Y/N)"
��yn
��a%>2 �
�:�"Enter filename "f$


A%=�f$
�K%=0�9
�L%=0�5
(�#A%,S$(L%,K%)
2�:�
<�#A%
F�
P
��save
Z�:�"Save file? (Y/N)"
d�yn
n�a%>2 �
x�:�"Enter filename "f$
�
A%=�f$
��K%=0�9
��L%=0�5
��#A%,S$(L%,K%)
��:�
��#A%
��
�	��end
�#�:�"Do you want to Quit? (Y/N)"
��yn
��a%>2 � ��
���clear
�+�:�"Do you want to clear memory? (Y/N)"
�:a%=�"YyNn",�):�a%
�a%>2 �
�K%=0�9
"�L%=0�5
,S$(L%,K%)=�14,�0)
6�:�
@�
J
��command
T�:�"Star command? (Y/N)"
^�yn
h�a%>2 �
r�'"Enter command"
|�'"*"f$
��'"Press SHIFT to scroll"
��14
��f$
��'"Press a key for menu"
����
��
�
00000000  0d 00 0a 1e f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..... **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
00000020  14 1e f4 20 46 75 6e 63  74 69 6f 6e 20 4b 65 79  |... Function Key|
00000030  20 53 74 72 69 70 20 4d  61 6b 65 72 0d 00 1e 17  | Strip Maker....|
00000040  f4 20 62 79 20 52 69 63  68 61 72 64 20 44 69 6d  |. by Richard Dim|
00000050  6f 6e 64 0d 00 28 12 f4  20 28 63 29 20 4d 61 79  |ond..(.. (c) May|
00000060  20 31 39 39 36 0d 00 32  1e f4 20 2a 2a 2a 2a 2a  | 1996..2.. *****|
00000070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000080  2a 2a 2a 0d 00 3c 06 eb  34 0d 00 46 0d de 20 53  |***..<..4..F.. S|
00000090  24 28 35 2c 39 29 0d 00  50 16 ef 31 39 2c 30 2c  |$(5,9)..P..19,0,|
000000a0  34 3b 30 3b 3a f2 63 75  72 6f 66 66 0d 00 5a 2e  |4;0;:.curoff..Z.|
000000b0  ec 31 32 2c 31 32 3a df  31 32 36 37 2c 31 32 3a  |.12,12:.1267,12:|
000000c0  df 31 32 36 37 2c 31 30  31 31 3a df 31 32 2c 31  |.1267,1011:.12,1|
000000d0  30 31 31 3a df 31 32 2c  31 32 0d 00 64 0a f2 74  |011:.12,12..d..t|
000000e0  69 74 6c 65 0d 00 6e 05  f5 0d 00 78 09 f2 6d 65  |itle..n....x..me|
000000f0  6e 75 0d 00 82 06 fd 30  0d 00 8c 05 e0 0d 00 96  |nu.....0........|
00000100  12 dd f2 64 62 28 41 24  2c 58 25 2c 59 25 29 0d  |...db(A$,X%,Y%).|
00000110  00 a0 0d ef 33 31 2c 58  25 2c 59 25 0d 00 aa 15  |....31,X%,Y%....|
00000120  41 25 3d 31 30 3a 58 25  3d 26 35 36 3a 59 25 3d  |A%=10:X%=&56:Y%=|
00000130  30 0d 00 b4 0e e3 4e 25  3d 31 b8 20 a9 41 24 0d  |0.....N%=1. .A$.|
00000140  00 be 13 3f 26 35 36 3d  97 28 c1 41 24 2c 4e 25  |...?&56=.(.A$,N%|
00000150  29 29 0d 00 c8 0a d6 26  46 46 46 31 0d 00 d2 3c  |)).....&FFF1...<|
00000160  ef 32 33 2c 32 35 35 2c  3f 26 35 37 2c 3f 26 35  |.23,255,?&57,?&5|
00000170  37 2c 3f 26 35 38 2c 3f  26 35 38 2c 3f 26 35 39  |7,?&58,?&58,?&59|
00000180  2c 3f 26 35 39 2c 3f 26  35 41 2c 3f 26 35 41 2c  |,?&59,?&5A,?&5A,|
00000190  32 35 35 2c 38 2c 31 30  0d 00 dc 3a ef 32 33 2c  |255,8,10...:.23,|
000001a0  32 35 35 2c 3f 26 35 42  2c 3f 26 35 42 2c 3f 26  |255,?&5B,?&5B,?&|
000001b0  35 43 2c 3f 26 35 43 2c  3f 26 35 44 2c 3f 26 35  |5C,?&5C,?&5D,?&5|
000001c0  44 2c 3f 26 35 45 2c 3f  26 35 45 2c 32 35 35 2c  |D,?&5E,?&5E,255,|
000001d0  31 31 0d 00 e6 05 ed 0d  00 f0 05 e1 0d 00 fa 0b  |11..............|
000001e0  dd f2 74 69 74 6c 65 0d  01 04 21 54 24 3d 22 46  |..title...!T$="F|
000001f0  55 4e 43 54 49 4f 4e 20  4b 45 59 20 53 54 52 49  |UNCTION KEY STRI|
00000200  50 20 4d 41 4b 45 52 22  0d 01 0e 17 f2 64 62 28  |P MAKER".....db(|
00000210  54 24 2c 31 39 2d a9 20  54 24 2f 32 2c 32 29 0d  |T$,19-. T$/2,2).|
00000220  01 18 1d f1 8a 31 39 2d  a9 20 54 24 2f 32 2c 34  |.....19-. T$/2,4|
00000230  29 3b c4 a9 20 54 24 2c  22 7e 22 29 0d 01 22 0a  |);.. T$,"~")..".|
00000240  dd f2 6d 65 6e 75 0d 01  2c 14 ef 32 38 2c 38 2c  |..menu..,..28,8,|
00000250  33 30 2c 33 35 2c 38 2c  31 32 0d 01 36 16 f1 22  |30,35,8,12..6.."|
00000260  50 4c 45 41 53 45 20 53  45 4c 45 43 54 20 2d 22  |PLEASE SELECT -"|
00000270  0d 01 40 1d f1 27 22 3c  31 3e 20 45 6e 74 65 72  |..@..'"<1> Enter|
00000280  20 6b 65 79 20 64 65 74  61 69 6c 73 22 0d 01 4a  | key details"..J|
00000290  1b f1 27 22 3c 32 3e 20  50 72 69 6e 74 20 6b 65  |..'"<2> Print ke|
000002a0  79 20 73 74 72 69 70 22  0d 01 54 1a f1 27 22 3c  |y strip"..T..'"<|
000002b0  33 3e 20 4c 6f 61 64 20  6b 65 79 20 73 74 72 69  |3> Load key stri|
000002c0  70 22 0d 01 5e 1a f1 27  22 3c 34 3e 20 53 61 76  |p"..^..'"<4> Sav|
000002d0  65 20 6b 65 79 20 73 74  72 69 70 22 0d 01 68 18  |e key strip"..h.|
000002e0  f1 27 22 3c 35 3e 20 45  78 69 74 20 70 72 6f 67  |.'"<5> Exit prog|
000002f0  72 61 6d 22 0d 01 72 18  f1 27 22 3c 36 3e 20 43  |ram"..r..'"<6> C|
00000300  6c 65 61 72 20 6d 65 6d  6f 72 79 22 0d 01 7c 18  |lear memory"..|.|
00000310  f1 27 22 3c 2a 3e 20 53  74 61 72 20 63 6f 6d 6d  |.'"<*> Star comm|
00000320  61 6e 64 22 0d 01 86 0b  2a 46 58 32 31 2c 30 0d  |and"....*FX21,0.|
00000330  01 90 1a f5 3a 61 25 3d  a7 22 31 32 33 34 35 36  |....:a%=."123456|
00000340  2a 22 2c be 29 3a fd 61  25 0d 01 9a 16 e7 61 25  |*",.):.a%.....a%|
00000350  3d 31 8c f2 65 6e 74 65  72 3a e5 8d 54 6c 41 0d  |=1..enter:..TlA.|
00000360  01 a4 16 e7 61 25 3d 32  8c f2 70 72 69 6e 74 3a  |....a%=2..print:|
00000370  e5 8d 54 6c 41 0d 01 ae  15 e7 61 25 3d 33 8c f2  |..TlA.....a%=3..|
00000380  6c 6f 61 64 3a e5 8d 54  6c 41 0d 01 b8 15 e7 61  |load:..TlA.....a|
00000390  25 3d 34 8c f2 73 61 76  65 3a e5 8d 54 6c 41 0d  |%=4..save:..TlA.|
000003a0  01 c2 14 e7 61 25 3d 35  8c f2 65 6e 64 3a e5 8d  |....a%=5..end:..|
000003b0  54 6c 41 0d 01 cc 16 e7  61 25 3d 36 8c f2 63 6c  |TlA.....a%=6..cl|
000003c0  65 61 72 3a e5 8d 54 6c  41 0d 01 d6 18 e7 61 25  |ear:..TlA.....a%|
000003d0  3d 37 8c f2 63 6f 6d 6d  61 6e 64 3a e5 8d 54 6c  |=7..command:..Tl|
000003e0  41 0d 01 e0 05 e1 0d 01  ea 0b dd f2 63 75 72 6f  |A...........curo|
000003f0  6e 0d 01 f4 12 ef 32 33  2c 31 2c 31 3b 30 3b 30  |n.....23,1,1;0;0|
00000400  3b 30 3b 0d 01 fe 05 e1  0d 02 08 0c dd f2 63 75  |;0;...........cu|
00000410  72 6f 66 66 0d 02 12 12  ef 32 33 2c 31 2c 30 3b  |roff.....23,1,0;|
00000420  30 3b 30 3b 30 3b 0d 02  1c 05 e1 0d 02 26 0f dd  |0;0;0;.......&..|
00000430  f2 63 74 28 4c 25 2c 4b  25 29 0d 02 30 2d db 3a  |.ct(L%,K%)..0-.:|
00000440  f1 22 45 6e 74 65 72 20  6b 65 79 20 64 65 74 61  |."Enter key deta|
00000450  69 6c 73 22 27 27 22 28  6d 61 78 20 31 34 20 63  |ils"''"(max 14 c|
00000460  68 61 72 73 29 22 27 0d  02 3a 20 f1 22 66 6f 72  |hars)"'..: ."for|
00000470  20 4b 65 79 20 22 3b 4b  25 3b 22 20 4c 69 6e 65  | Key ";K%;" Line|
00000480  20 22 3b 4c 25 2b 31 0d  02 44 0a f2 63 75 72 6f  | ";L%+1..D..curo|
00000490  6e 0d 02 4e 0b e8 27 22  3e 22 54 24 0d 02 58 2c  |n..N..'">"T$..X,|
000004a0  e7 20 a9 54 24 3e 31 34  20 f1 27 22 54 6f 6f 20  |. .T$>14 .'"Too |
000004b0  6c 6f 6e 67 22 3a d1 3d  30 3a f5 f5 fd 91 3d 31  |long":.=0:....=1|
000004c0  30 30 3a e5 8d 54 70 42  0d 02 62 1c 54 24 3d c4  |00:..TpB..b.T$=.|
000004d0  28 31 34 2d a9 28 54 24  29 29 2f 32 2c 22 20 22  |(14-.(T$))/2," "|
000004e0  29 2b 54 24 0d 02 6c 16  54 24 3d 54 24 2b c4 31  |)+T$..l.T$=T$+.1|
000004f0  34 2d a9 54 24 2c 22 20  22 29 0d 02 76 10 53 24  |4-.T$," ")..v.S$|
00000500  28 4c 25 2c 4b 25 29 3d  54 24 0d 02 80 05 e1 0d  |(L%,K%)=T$......|
00000510  02 8a 0a dd f2 67 72 69  64 0d 02 94 29 ec 35 39  |.....grid...).59|
00000520  32 2c 36 32 34 3a df 35  39 32 2c 33 33 36 3a ec  |2,624:.592,336:.|
00000530  31 30 37 32 2c 36 32 34  3a df 31 30 37 32 2c 33  |1072,624:.1072,3|
00000540  33 36 0d 02 9e 12 e3 79  25 3d 33 33 36 b8 36 32  |36.....y%=336.62|
00000550  34 88 39 36 0d 02 a8 14  ec 35 39 32 2c 79 25 3a  |4.96.....592,y%:|
00000560  df 31 30 37 32 2c 79 25  0d 02 b2 07 ed 3a e1 0d  |.1072,y%.....:..|
00000570  02 bc 12 dd f2 65 6e 74  65 72 3a 4b 25 3d 30 3a  |.....enter:K%=0:|
00000580  f5 0d 02 c6 12 ef 32 33  2c 31 2c 30 3b 30 3b 30  |......23,1,0;0;0|
00000590  3b 30 3b 0d 02 d0 15 db  3a f1 8a 38 29 3b 22 4b  |;0;.....:..8);"K|
000005a0  65 79 20 66 22 3b 4b 25  0d 02 da 17 f1 27 22 50  |ey f";K%.....'"P|
000005b0  4c 45 41 53 45 20 53 45  4c 45 43 54 20 2d 22 0d  |LEASE SELECT -".|
000005c0  02 e4 1d f1 27 27 22 31  2e 20 43 4f 4e 54 52 4f  |....''"1. CONTRO|
000005d0  4c 20 22 3b 53 24 28 30  2c 4b 25 29 0d 02 ee 1b  |L ";S$(0,K%)....|
000005e0  f1 22 32 2e 20 20 20 20  20 20 20 20 20 22 3b 53  |."2.         ";S|
000005f0  24 28 31 2c 4b 25 29 0d  02 f8 1c f1 27 22 33 2e  |$(1,K%).....'"3.|
00000600  20 53 48 49 46 54 20 20  20 22 3b 53 24 28 32 2c  | SHIFT   ";S$(2,|
00000610  4b 25 29 0d 03 02 1b f1  22 34 2e 20 20 20 20 20  |K%)....."4.     |
00000620  20 20 20 20 22 3b 53 24  28 33 2c 4b 25 29 0d 03  |    ";S$(3,K%)..|
00000630  0c 1c f1 27 22 35 2e 20  20 20 20 20 20 20 20 20  |...'"5.         |
00000640  22 3b 53 24 28 34 2c 4b  25 29 0d 03 16 1b f1 22  |";S$(4,K%)....."|
00000650  36 2e 20 20 20 20 20 20  20 20 20 22 3b 53 24 28  |6.         ";S$(|
00000660  35 2c 4b 25 29 0d 03 20  14 f1 27 27 22 4e 2e 20  |5,K%).. ..''"N. |
00000670  4e 65 78 74 20 6b 65 79  22 0d 03 2a 1a f1 27 27  |Next key"..*..''|
00000680  22 4d 2e 20 52 65 74 75  72 6e 20 74 6f 20 6d 65  |"M. Return to me|
00000690  6e 75 22 0d 03 34 09 f2  67 72 69 64 0d 03 3e 09  |nu"..4..grid..>.|
000006a0  2a 46 58 32 31 0d 03 48  1d f5 3a 61 25 3d a7 22  |*FX21..H..:a%=."|
000006b0  31 32 33 34 35 36 4e 6e  4d 6d 22 2c be 29 3a fd  |123456NnMm",.):.|
000006c0  61 25 0d 03 52 0b e7 61  25 3e 38 20 e1 0d 03 5c  |a%..R..a%>8 ...\|
000006d0  2f e7 61 25 3e 36 20 4b  25 3d 4b 25 2b 31 3a e7  |/.a%>6 K%=K%+1:.|
000006e0  4b 25 3e 39 20 4b 25 3d  30 3a e5 8d 64 50 42 20  |K%>9 K%=0:..dPB |
000006f0  8b e7 61 25 3e 36 20 e5  8d 64 50 42 0d 03 7a 16  |..a%>6 ..dPB..z.|
00000700  4c 25 3d 61 25 2d 31 3a  f2 63 74 28 4c 25 2c 4b  |L%=a%-1:.ct(L%,K|
00000710  25 29 0d 03 84 09 fd 61  25 3e 37 0d 03 8e 05 e1  |%).....a%>7.....|
00000720  0d 03 98 09 dd f2 63 6f  6e 0d 03 a2 0e ef 31 2c  |......con.....1,|
00000730  32 37 2c 31 2c 31 35 0d  03 ac 05 e1 0d 03 b6 0a  |27,1,15.........|
00000740  dd f2 63 6f 66 66 0d 03  c0 09 ef 31 2c 31 38 0d  |..coff.....1,18.|
00000750  03 ca 05 e1 0d 03 d4 08  dd f2 79 6e 0d 03 de 17  |..........yn....|
00000760  f5 3a 61 25 3d a7 22 59  79 4e 6e 22 2c be 29 3a  |.:a%=."YyNn",.):|
00000770  fd 61 25 0d 03 e8 05 e1  0d 03 f2 0b dd f2 70 72  |.a%...........pr|
00000780  69 6e 74 0d 03 fc 33 db  3a f1 22 44 6f 20 79 6f  |int...3.:."Do yo|
00000790  75 20 77 61 6e 74 20 74  6f 20 70 72 69 6e 74 22  |u want to print"|
000007a0  27 27 22 20 74 68 69 73  20 73 74 72 69 70 3f 20  |''" this strip? |
000007b0  28 59 2f 4e 29 22 0d 04  06 07 f2 79 6e 0d 04 10  |(Y/N)".....yn...|
000007c0  0b e7 61 25 3e 32 20 e1  0d 04 1a 2e db 3a ef 32  |..a%>2 ......:.2|
000007d0  2c 31 2c 32 37 2c 31 2c  36 2c 31 2c 32 37 2c 31  |,1,27,1,6,1,27,1|
000007e0  2c 37 33 2c 31 2c 31 2c  31 2c 32 37 2c 31 2c 31  |,73,1,1,1,27,1,1|
000007f0  31 36 2c 31 2c 31 0d 04  24 0e ef 31 2c 32 37 2c  |16,1,1..$..1,27,|
00000800  31 2c 37 37 0d 04 2e 0e  ef 31 2c 32 37 2c 31 2c  |1,77.....1,27,1,|
00000810  34 38 0d 04 38 05 f1 0d  04 42 80 f2 63 6f 66 66  |48..8....B..coff|
00000820  3a f1 bd 32 31 38 3b c4  34 2c bd 31 39 36 29 3b  |:..218;.4,.196);|
00000830  bd 31 39 34 3b 3a f2 63  6f 6e 3a f1 3b c4 31 34  |.194;:.con:.;.14|
00000840  2c bd 31 39 36 29 3b bd  31 39 34 3b c4 31 34 2c  |,.196);.194;.14,|
00000850  bd 31 39 36 29 3b bd 31  39 34 3b c4 31 34 2c bd  |.196);.194;.14,.|
00000860  31 39 36 29 3b bd 31 39  34 3b c4 31 34 2c bd 31  |196);.194;.14,.1|
00000870  39 36 29 3b bd 31 39 34  3b c4 31 34 2c bd 31 39  |96);.194;.14,.19|
00000880  36 29 3b bd 31 39 34 3b  c4 31 34 2c bd 31 39 36  |6);.194;.14,.196|
00000890  29 3b bd 31 39 34 3b 0d  04 4c 42 f1 3b c4 31 34  |);.194;..LB.;.14|
000008a0  2c bd 31 39 36 29 3b bd  31 39 34 3b c4 31 34 2c  |,.196);.194;.14,|
000008b0  bd 31 39 36 29 3b bd 31  39 34 3b c4 31 34 2c bd  |.196);.194;.14,.|
000008c0  31 39 36 29 3b bd 31 39  34 3b c4 31 34 2c bd 31  |196);.194;.14,.1|
000008d0  39 36 29 3b bd 31 39 31  3b 0d 04 56 a3 f2 63 6f  |96);.191;..V..co|
000008e0  66 66 3a f1 3b bd 31 37  39 3b 89 34 3b bd 31 37  |ff:.;.179;.4;.17|
000008f0  39 3b 3a f2 63 6f 6e 3a  f1 3b 53 24 28 30 2c 30  |9;:.con:.;S$(0,0|
00000900  29 3b bd 31 37 39 3b 53  24 28 30 2c 31 29 3b bd  |);.179;S$(0,1);.|
00000910  31 37 39 3b 53 24 28 30  2c 32 29 3b bd 31 37 39  |179;S$(0,2);.179|
00000920  3b 53 24 28 30 2c 33 29  3b bd 31 37 39 3b 53 24  |;S$(0,3);.179;S$|
00000930  28 30 2c 34 29 3b bd 31  37 39 3b 53 24 28 30 2c  |(0,4);.179;S$(0,|
00000940  35 29 3b bd 31 37 39 3b  53 24 28 30 2c 36 29 3b  |5);.179;S$(0,6);|
00000950  bd 31 37 39 3b 53 24 28  30 2c 37 29 3b bd 31 37  |.179;S$(0,7);.17|
00000960  39 3b 53 24 28 30 2c 38  29 3b bd 31 37 39 3b 53  |9;S$(0,8);.179;S|
00000970  24 28 30 2c 39 29 3b bd  31 37 39 3b 0d 04 60 a7  |$(0,9);.179;..`.|
00000980  f2 63 6f 66 66 3a f1 3b  bd 31 37 39 3b 22 43 54  |.coff:.;.179;"CT|
00000990  4c 3e 22 3b bd 31 37 39  3b 3a f2 63 6f 6e 3a f1  |L>";.179;:.con:.|
000009a0  3b 53 24 28 31 2c 30 29  3b bd 31 37 39 3b 53 24  |;S$(1,0);.179;S$|
000009b0  28 31 2c 31 29 3b bd 31  37 39 3b 53 24 28 31 2c  |(1,1);.179;S$(1,|
000009c0  32 29 3b bd 31 37 39 3b  53 24 28 31 2c 33 29 3b  |2);.179;S$(1,3);|
000009d0  bd 31 37 39 3b 53 24 28  31 2c 34 29 3b bd 31 37  |.179;S$(1,4);.17|
000009e0  39 3b 53 24 28 31 2c 35  29 3b bd 31 37 39 3b 53  |9;S$(1,5);.179;S|
000009f0  24 28 31 2c 36 29 3b bd  31 37 39 3b 53 24 28 31  |$(1,6);.179;S$(1|
00000a00  2c 37 29 3b bd 31 37 39  3b 53 24 28 31 2c 38 29  |,7);.179;S$(1,8)|
00000a10  3b bd 31 37 39 3b 53 24  28 31 2c 39 29 3b bd 31  |;.179;S$(1,9);.1|
00000a20  37 39 3b 0d 04 6a 80 f2  63 6f 66 66 3a f1 bd 31  |79;..j..coff:..1|
00000a30  39 35 3b c4 34 2c bd 31  39 36 29 3b bd 31 39 37  |95;.4,.196);.197|
00000a40  3b 3a f2 63 6f 6e 3a f1  3b c4 31 34 2c bd 31 39  |;:.con:.;.14,.19|
00000a50  36 29 3b bd 31 39 37 3b  c4 31 34 2c bd 31 39 36  |6);.197;.14,.196|
00000a60  29 3b bd 31 39 37 3b c4  31 34 2c bd 31 39 36 29  |);.197;.14,.196)|
00000a70  3b bd 31 39 37 3b c4 31  34 2c bd 31 39 36 29 3b  |;.197;.14,.196);|
00000a80  bd 31 39 37 3b c4 31 34  2c bd 31 39 36 29 3b bd  |.197;.14,.196);.|
00000a90  31 39 37 3b c4 31 34 2c  bd 31 39 36 29 3b bd 31  |197;.14,.196);.1|
00000aa0  39 37 3b 0d 04 74 42 f1  3b c4 31 34 2c bd 31 39  |97;..tB.;.14,.19|
00000ab0  36 29 3b bd 31 39 37 3b  c4 31 34 2c bd 31 39 36  |6);.197;.14,.196|
00000ac0  29 3b bd 31 39 37 3b c4  31 34 2c bd 31 39 36 29  |);.197;.14,.196)|
00000ad0  3b bd 31 39 37 3b c4 31  34 2c bd 31 39 36 29 3b  |;.197;.14,.196);|
00000ae0  bd 31 38 30 3b 0d 04 7e  a3 f2 63 6f 66 66 3a f1  |.180;..~..coff:.|
00000af0  3b bd 31 37 39 3b 89 34  3b bd 31 37 39 3b 3a f2  |;.179;.4;.179;:.|
00000b00  63 6f 6e 3a f1 3b 53 24  28 32 2c 30 29 3b bd 31  |con:.;S$(2,0);.1|
00000b10  37 39 3b 53 24 28 32 2c  31 29 3b bd 31 37 39 3b  |79;S$(2,1);.179;|
00000b20  53 24 28 32 2c 32 29 3b  bd 31 37 39 3b 53 24 28  |S$(2,2);.179;S$(|
00000b30  32 2c 33 29 3b bd 31 37  39 3b 53 24 28 32 2c 34  |2,3);.179;S$(2,4|
00000b40  29 3b bd 31 37 39 3b 53  24 28 32 2c 35 29 3b bd  |);.179;S$(2,5);.|
00000b50  31 37 39 3b 53 24 28 32  2c 36 29 3b bd 31 37 39  |179;S$(2,6);.179|
00000b60  3b 53 24 28 32 2c 37 29  3b bd 31 37 39 3b 53 24  |;S$(2,7);.179;S$|
00000b70  28 32 2c 38 29 3b bd 31  37 39 3b 53 24 28 32 2c  |(2,8);.179;S$(2,|
00000b80  39 29 3b bd 31 37 39 3b  0d 04 88 a7 f2 63 6f 66  |9);.179;.....cof|
00000b90  66 3a f1 3b bd 31 37 39  3b 22 53 48 54 3e 22 3b  |f:.;.179;"SHT>";|
00000ba0  bd 31 37 39 3b 3a f2 63  6f 6e 3a f1 3b 53 24 28  |.179;:.con:.;S$(|
00000bb0  33 2c 30 29 3b bd 31 37  39 3b 53 24 28 33 2c 31  |3,0);.179;S$(3,1|
00000bc0  29 3b bd 31 37 39 3b 53  24 28 33 2c 32 29 3b bd  |);.179;S$(3,2);.|
00000bd0  31 37 39 3b 53 24 28 33  2c 33 29 3b bd 31 37 39  |179;S$(3,3);.179|
00000be0  3b 53 24 28 33 2c 34 29  3b bd 31 37 39 3b 53 24  |;S$(3,4);.179;S$|
00000bf0  28 33 2c 35 29 3b bd 31  37 39 3b 53 24 28 33 2c  |(3,5);.179;S$(3,|
00000c00  36 29 3b bd 31 37 39 3b  53 24 28 33 2c 37 29 3b  |6);.179;S$(3,7);|
00000c10  bd 31 37 39 3b 53 24 28  33 2c 38 29 3b bd 31 37  |.179;S$(3,8);.17|
00000c20  39 3b 53 24 28 33 2c 39  29 3b bd 31 37 39 3b 0d  |9;S$(3,9);.179;.|
00000c30  04 92 80 f2 63 6f 66 66  3a f1 bd 31 39 35 3b c4  |....coff:..195;.|
00000c40  34 2c bd 31 39 36 29 3b  bd 31 39 37 3b 3a f2 63  |4,.196);.197;:.c|
00000c50  6f 6e 3a f1 3b c4 31 34  2c bd 31 39 36 29 3b bd  |on:.;.14,.196);.|
00000c60  31 39 37 3b c4 31 34 2c  bd 31 39 36 29 3b bd 31  |197;.14,.196);.1|
00000c70  39 37 3b c4 31 34 2c bd  31 39 36 29 3b bd 31 39  |97;.14,.196);.19|
00000c80  37 3b c4 31 34 2c bd 31  39 36 29 3b bd 31 39 37  |7;.14,.196);.197|
00000c90  3b c4 31 34 2c bd 31 39  36 29 3b bd 31 39 37 3b  |;.14,.196);.197;|
00000ca0  c4 31 34 2c bd 31 39 36  29 3b bd 31 39 37 3b 0d  |.14,.196);.197;.|
00000cb0  04 9c 42 f1 3b c4 31 34  2c bd 31 39 36 29 3b bd  |..B.;.14,.196);.|
00000cc0  31 39 37 3b c4 31 34 2c  bd 31 39 36 29 3b bd 31  |197;.14,.196);.1|
00000cd0  39 37 3b c4 31 34 2c bd  31 39 36 29 3b bd 31 39  |97;.14,.196);.19|
00000ce0  37 3b c4 31 34 2c bd 31  39 36 29 3b bd 31 38 30  |7;.14,.196);.180|
00000cf0  3b 0d 04 a6 a3 f2 63 6f  66 66 3a f1 3b bd 31 37  |;.....coff:.;.17|
00000d00  39 3b 89 34 3b bd 31 37  39 3b 3a f2 63 6f 6e 3a  |9;.4;.179;:.con:|
00000d10  f1 3b 53 24 28 34 2c 30  29 3b bd 31 37 39 3b 53  |.;S$(4,0);.179;S|
00000d20  24 28 34 2c 31 29 3b bd  31 37 39 3b 53 24 28 34  |$(4,1);.179;S$(4|
00000d30  2c 32 29 3b bd 31 37 39  3b 53 24 28 34 2c 33 29  |,2);.179;S$(4,3)|
00000d40  3b bd 31 37 39 3b 53 24  28 34 2c 34 29 3b bd 31  |;.179;S$(4,4);.1|
00000d50  37 39 3b 53 24 28 34 2c  35 29 3b bd 31 37 39 3b  |79;S$(4,5);.179;|
00000d60  53 24 28 34 2c 36 29 3b  bd 31 37 39 3b 53 24 28  |S$(4,6);.179;S$(|
00000d70  34 2c 37 29 3b bd 31 37  39 3b 53 24 28 34 2c 38  |4,7);.179;S$(4,8|
00000d80  29 3b bd 31 37 39 3b 53  24 28 34 2c 39 29 3b bd  |);.179;S$(4,9);.|
00000d90  31 37 39 3b 0d 04 b0 a3  f2 63 6f 66 66 3a f1 3b  |179;.....coff:.;|
00000da0  bd 31 37 39 3b 89 34 3b  bd 31 37 39 3b 3a f2 63  |.179;.4;.179;:.c|
00000db0  6f 6e 3a f1 3b 53 24 28  35 2c 30 29 3b bd 31 37  |on:.;S$(5,0);.17|
00000dc0  39 3b 53 24 28 35 2c 31  29 3b bd 31 37 39 3b 53  |9;S$(5,1);.179;S|
00000dd0  24 28 35 2c 32 29 3b bd  31 37 39 3b 53 24 28 35  |$(5,2);.179;S$(5|
00000de0  2c 33 29 3b bd 31 37 39  3b 53 24 28 35 2c 34 29  |,3);.179;S$(5,4)|
00000df0  3b bd 31 37 39 3b 53 24  28 35 2c 35 29 3b bd 31  |;.179;S$(5,5);.1|
00000e00  37 39 3b 53 24 28 35 2c  36 29 3b bd 31 37 39 3b  |79;S$(5,6);.179;|
00000e10  53 24 28 35 2c 37 29 3b  bd 31 37 39 3b 53 24 28  |S$(5,7);.179;S$(|
00000e20  35 2c 38 29 3b bd 31 37  39 3b 53 24 28 35 2c 39  |5,8);.179;S$(5,9|
00000e30  29 3b bd 31 37 39 3b 0d  04 ba 82 f2 63 6f 66 66  |);.179;.....coff|
00000e40  3a f1 bd 31 39 32 3b c4  34 2c bd 31 39 36 29 3b  |:..192;.4,.196);|
00000e50  bd 31 39 33 3b 3a f2 63  6f 6e 3a f1 3b c4 31 34  |.193;:.con:.;.14|
00000e60  2c bd 31 39 36 29 3b bd  31 39 33 3b c4 31 34 2c  |,.196);.193;.14,|
00000e70  bd 31 39 36 29 3b bd 31  39 33 3b c4 31 34 2c bd  |.196);.193;.14,.|
00000e80  31 39 36 29 3b bd 31 39  33 3b c4 31 34 2c bd 31  |196);.193;.14,.1|
00000e90  39 36 29 3b bd 31 39 33  3b c4 31 34 2c bd 31 39  |96);.193;.14,.19|
00000ea0  36 29 3b bd 31 39 33 3b  c4 31 34 2c bd 31 39 36  |6);.193;.14,.196|
00000eb0  29 3b bd 31 39 33 3b 20  20 0d 04 c4 42 f1 3b c4  |);.193;  ...B.;.|
00000ec0  31 34 2c bd 31 39 36 29  3b bd 31 39 33 3b c4 31  |14,.196);.193;.1|
00000ed0  34 2c bd 31 39 36 29 3b  bd 31 39 33 3b c4 31 34  |4,.196);.193;.14|
00000ee0  2c bd 31 39 36 29 3b bd  31 39 33 3b c4 31 34 2c  |,.196);.193;.14,|
00000ef0  bd 31 39 36 29 3b bd 32  31 37 3b 0d 04 ce 08 ef  |.196);.217;.....|
00000f00  33 3a e1 0d 04 d8 0a dd  f2 6c 6f 61 64 0d 04 e2  |3:.......load...|
00000f10  19 db 3a f1 22 4c 6f 61  64 20 66 69 6c 65 3f 20  |..:."Load file? |
00000f20  28 59 2f 4e 29 22 0d 04  ec 07 f2 79 6e 0d 04 f6  |(Y/N)".....yn...|
00000f30  0b e7 61 25 3e 32 20 e1  0d 05 00 1a db 3a e8 22  |..a%>2 ......:."|
00000f40  45 6e 74 65 72 20 66 69  6c 65 6e 61 6d 65 20 22  |Enter filename "|
00000f50  66 24 0d 05 0a 0a 41 25  3d ad 66 24 0d 05 14 0b  |f$....A%=.f$....|
00000f60  e3 4b 25 3d 30 b8 39 0d  05 1e 0b e3 4c 25 3d 30  |.K%=0.9.....L%=0|
00000f70  b8 35 0d 05 28 12 e8 23  41 25 2c 53 24 28 4c 25  |.5..(..#A%,S$(L%|
00000f80  2c 4b 25 29 0d 05 32 07  ed 3a ed 0d 05 3c 08 d9  |,K%)..2..:...<..|
00000f90  23 41 25 0d 05 46 05 e1  0d 05 50 0a dd f2 73 61  |#A%..F....P...sa|
00000fa0  76 65 0d 05 5a 19 db 3a  f1 22 53 61 76 65 20 66  |ve..Z..:."Save f|
00000fb0  69 6c 65 3f 20 28 59 2f  4e 29 22 0d 05 64 07 f2  |ile? (Y/N)"..d..|
00000fc0  79 6e 0d 05 6e 0b e7 61  25 3e 32 20 e1 0d 05 78  |yn..n..a%>2 ...x|
00000fd0  1a db 3a e8 22 45 6e 74  65 72 20 66 69 6c 65 6e  |..:."Enter filen|
00000fe0  61 6d 65 20 22 66 24 0d  05 82 0a 41 25 3d ae 66  |ame "f$....A%=.f|
00000ff0  24 0d 05 8c 0b e3 4b 25  3d 30 b8 39 0d 05 96 0b  |$.....K%=0.9....|
00001000  e3 4c 25 3d 30 b8 35 0d  05 a0 12 f1 23 41 25 2c  |.L%=0.5.....#A%,|
00001010  53 24 28 4c 25 2c 4b 25  29 0d 05 aa 07 ed 3a ed  |S$(L%,K%).....:.|
00001020  0d 05 b4 08 d9 23 41 25  0d 05 be 05 e1 0d 05 c8  |.....#A%........|
00001030  09 dd f2 65 6e 64 0d 05  d2 23 db 3a f1 22 44 6f  |...end...#.:."Do|
00001040  20 79 6f 75 20 77 61 6e  74 20 74 6f 20 51 75 69  | you want to Qui|
00001050  74 3f 20 28 59 2f 4e 29  22 0d 05 dc 07 f2 79 6e  |t? (Y/N)".....yn|
00001060  0d 05 e6 0e e7 61 25 3e  32 20 e1 20 8b e0 0d 05  |.....a%>2 . ....|
00001070  f0 0b dd f2 63 6c 65 61  72 0d 05 fa 2b db 3a f1  |....clear...+.:.|
00001080  22 44 6f 20 79 6f 75 20  77 61 6e 74 20 74 6f 20  |"Do you want to |
00001090  63 6c 65 61 72 20 6d 65  6d 6f 72 79 3f 20 28 59  |clear memory? (Y|
000010a0  2f 4e 29 22 0d 06 04 17  f5 3a 61 25 3d a7 22 59  |/N)".....:a%=."Y|
000010b0  79 4e 6e 22 2c be 29 3a  fd 61 25 0d 06 0e 0b e7  |yNn",.):.a%.....|
000010c0  61 25 3e 32 20 e1 0d 06  18 0b e3 4b 25 3d 30 b8  |a%>2 ......K%=0.|
000010d0  39 0d 06 22 0b e3 4c 25  3d 30 b8 35 0d 06 2c 15  |9.."..L%=0.5..,.|
000010e0  53 24 28 4c 25 2c 4b 25  29 3d c4 31 34 2c bd 30  |S$(L%,K%)=.14,.0|
000010f0  29 0d 06 36 07 ed 3a ed  0d 06 40 05 e1 0d 06 4a  |)..6..:...@....J|
00001100  0d dd f2 63 6f 6d 6d 61  6e 64 0d 06 54 1c db 3a  |...command..T..:|
00001110  f1 22 53 74 61 72 20 63  6f 6d 6d 61 6e 64 3f 20  |."Star command? |
00001120  28 59 2f 4e 29 22 0d 06  5e 07 f2 79 6e 0d 06 68  |(Y/N)"..^..yn..h|
00001130  0b e7 61 25 3e 32 20 e1  0d 06 72 15 f1 27 22 45  |..a%>2 ...r..'"E|
00001140  6e 74 65 72 20 63 6f 6d  6d 61 6e 64 22 0d 06 7c  |nter command"..||
00001150  0b e8 27 22 2a 22 66 24  0d 06 86 1d f1 27 22 50  |..'"*"f$.....'"P|
00001160  72 65 73 73 20 53 48 49  46 54 20 74 6f 20 73 63  |ress SHIFT to sc|
00001170  72 6f 6c 6c 22 0d 06 90  07 ef 31 34 0d 06 9a 07  |roll".....14....|
00001180  ff 66 24 0d 06 a4 1c f1  27 22 50 72 65 73 73 20  |.f$.....'"Press |
00001190  61 20 6b 65 79 20 66 6f  72 20 6d 65 6e 75 22 0d  |a key for menu".|
000011a0  06 ae 07 f5 fd a5 0d 06  b8 05 e1 0d ff           |.............|
000011ad
P/FKSM.m0
P/FKSM.m1
P/FKSM.m2
P/FKSM.m4
P/FKSM.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .