Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » WELCOME/Keyboard

WELCOME/Keyboard

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 » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf
Filename: WELCOME/Keyboard
Read OK:
File size: 27EE bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There are 5 duplicate copies of this file in the archive:

File contents
   10VDU6
   20*FX220,27
   30ONERRORGOTO70
   40DIMB 8:MODE4:PROCc:PROCi:MODE6:PROCn:MODE4:PROCs:PROCb:FORp%=1TO6:REPEAT:PROCh(p%):B$=FNr(p%):UNTILB$="NEXT":NEXTp%:REPEAT:MODE4:B%=FNa:IFB%=-1THEN60
   50CLS:PROCs:PROCb:PROCh(B%)
   60UNTILB%=-1:GOTO80
   70CLEAR:PROCl:MODE4:IFERR<>17ANDERR<>0:PRINTERR" at line ";ERL:P%=1:ERR=0:GOTO130
   80*FX124
   90REPEAT:MODE4:CLS:PROCC("Which do you want to do ?",10):PRINTTAB(10,VPOS+3)"";:PROCe("R"):PRINT"epeat this program":PRINTTAB(10,VPOS+1)"Go to ";:PROCe("N"):PRINT"ext program":PRINTTAB(10,VPOS+1)"Return to main ";:PROCe("M"):PRINT"enu":PRINTTAB(10,VPOS+1)"";:PROCe("E"):PRINT"xit from disc"
  100PRINTTAB(0,VPOS+3)"Choose from ";:PROCe("R"):PRINT"epeat, ";:PROCe("N"):PRINT"ext, ";:PROCe("M"):PRINT"enu or ";:PROCe("E"):PRINT"xit ";:*FX202,128,111
  110A$=GET$:UNTIL(A$="R")OR(A$="N")OR(A$="M")OR(A$="E"):CLS:IFA$="R"THENGOTO30
  120IFA$="N"THENP%=3ELSEIFA$="M"THENP%=1ELSEP%=17
  130PROCl:*FX15,1
  140*FX201,1
  150VDU21:*FX220,0
  160CHAIN"BOOT":END
  170DEFPROCC(A$,y%)PRINTTAB((38-LENA$)/2,y%)A$;:ENDPROC
  180DEFPROCe(A$):COLOUR0:COLOUR135:PRINTA$;:COLOUR7:COLOUR128:ENDPROC
  190DEFPROCl:*FX4
  200*FX225,1
  210*FX226,1
  220*FX227,1
  230ENDPROC
  240DEFPROCh(p%):CLS:A=(p%<=3):PROCw(p%):PROCa(A):PROCt(p%):PROCq(p%,A):PROCw(p%):ENDPROC
  250DEFPROCa(A):VDU5:IFATHENl=250ELSEl=32
  260MOVE15,Y-197:GCOL0,0:VDU250,8:GCOL0,1:VDUl:VDU4:ENDPROC
  270DEFPROCw(p%):VDU5:GCOL3,1:ONp%GOTO280,290,280,300,310,320
  280K$(1)=R$(1)+"-":K$(2)=S$(2):K$(3)=S$(3)+A$(3):K$(4)=S$(4)+A$(4):PROCu:GOTO330
  290K$(1)=S$(1)+B$(1):FORi=2TO4:K$(i)=R$(i)+B$(i):NEXT:GOTO330
  300K$(1)=R$(1)+"-":K$(2)=R$(2):K$(3)=R$(3)+A$(3):K$(4)=R$(4)+A$(4):PROCu:GOTO330
  310K$(1)="~\":K$(2)="{}]":K$(3)="":K$(4)="":PROCo:GOTO340
  320K$(1)=R$(1):K$(2)=S$(2):K$(3)=S$(3):K$(4)=S$(4)+B$(4)
  330FORI%=1TOLENK$(1):MOVE30+I%*84,Y-108:PRINTMID$(K$(1),I%,1):NEXTI%:FORI%=1TOLENK$(2):MOVE72+I%*84,Y-203:PRINTMID$(K$(2),I%,1):NEXTI%:FORI%=1TOLENK$(3):MOVE114+I%*84,Y-299:PRINTMID$(K$(3),I%,1):NEXTI%:FORI%=1TOLENK$(4):MOVE156+I%*84,Y-393:PRINTMID$(K$(4),I%,1):NEXTI%
  340PROCm:GCOL0,1:VDU4:ENDPROC
  350DEFPROC_(p%):ONp%GOTO360,370,380,380,370,390
  360Q$(1)=R$(1)+A$(1):FORi=2TO4:Q$(i)=S$(i)+A$(i):NEXT:GOTO400
  370FORi=1TO4:Q$(i)=K$(i):NEXT:GOTO400
  380FORi=1TO4:Q$(i)=R$(i)+A$(i)+S$(i)+B$(i):NEXT:GOTO400
  390PROCr(1,R$(1)):PROCr(2,S$(2)):PROCr(3,S$(3)):PROCr(4,S$(4)+B$(4))
  400ENDPROC
  410DEFPROCr(i,S$):Q$(i)="":FORx=1TOLENS$:n=INSTR(f$,MID$(S$,x,1),1):Q$(i)=Q$(i)+CHR$(n+127):NEXT:ENDPROC
  420DEFPROCb:PROCc:VDU5:GCOL0,1:FORI%=0TO14:PROCk(10+I%*84,Y-140):NEXTI%:FORI%=0TO13:PROCk(52+I%*84,Y-235):NEXTI%:FORI%=0TO11:PROCk(94+I%*84,Y-329):NEXTI%:PROCd(1100,Y-329):PROCd(94,Y-424):FORI%=0TO9:PROCk(220+I%*84,Y-424):NEXTI%:PROCd(1060,Y-424):PROCk(1188,Y-424):PROCp:VDU4:ENDPROC
  430DEFPROCk(X%,Y%):MOVEX%,Y%:MOVEX%+72,Y%:PLOT85,X%,Y%+44:PLOT85,X%+72,Y%+44:ENDPROC
  440DEFPROCd(X%,Y%):MOVEX%,Y%:MOVEX%+116,Y%:PLOT85,X%,Y%+44:PLOT85,X%+116,Y%+44:ENDPROC
  450DEFPROCi:*FX4,2
  460*FX225,128
  470*FX226,144
  480*FX227,160
  490l$=CHR$140:r$=CHR$141:d$=CHR$142:u$=CHR$143:c$=CHR$139:D$=l$+r$+u$+d$+c$:E$=CHR$242+CHR$243+CHR$245+CHR$244+"COPY":DIMR$(4),A$(4),S$(4),B$(4):DIMK$(4),Q$(4),F$(48):VDU23,224;0;&EE,&84,&84,&84,&E4:VDU23,225;0;&C8,&A8,&C8,&A8,&AE:VDU23,226;0;&EA,&8A,&CA,&8A,&8E
  500VDU23,227;0;&97,&D4,&B4,&94,&97:VDU23,228;0;&EA,&8A,&EE,&2A,&EA:VDU23,229;0;&BB,&A1,&B1,&A1,&A1:VDU23,230;0;&80,0;0;:VDU23,231;0;&EE,&88,&CE,&82,&EE:VDU23,232;0;&E0,&80,&80,&80,&E0:VDU23,233;0;&CC,&AA,&CC,&AA,&CA:VDU23,234;0;&90,&A0,&C0,&A0,&90
  510VDU23,235;0;&CE,&A8,&AC,&A8,&CE:VDU23,236;0;&80,&80,&80,&80,&E0:VDU23,237;0;&CE,&A8,&CC,&A8,&AE:VDU23,238;0;&EA,&4A,&4A,&4A,&4E:VDU23,239;0;&C9,&AD,&CB,&A9,&A9:VDU23,240;0;&EE,&8A,&8A,&8A,&EE:VDU23,241;0;&EA,&AA,&E4,&84,&84:VDU23,242;&20,&60,&FF,&60,&20;0
  520VDU23,243;&04,&06,&FF,&06,&04;0:VDU23,245,&10,&38,&7C,&10,&10,&10,&10,&10:VDU23,244,&10,&10,&10,&10,&10,&7C,&38,&10:VDU23,246;0;&EE,&8A,&EE,&28,&E8:VDU23,247;0;&EE,&A8,&E8,&A8,&AE:VDU23,248;0;&E0,&80,&C0,&80,&E0:VDU23,249,4,4,4,4,4,&44,&FC,&40
  530VDU23,250,0;&18,&3C,&3C,&18,0;:Y=1023:R$(1)="1234567890":A$(1)="-"+l$+r$:R$(2)="qwertyuiop":A$(2)=u$+d$+c$:R$(3)="asdfghjkl":A$(3)=";:":R$(4)="zxcvbnm":A$(4)=",./":S$(1)="!""#$%&'()@":B$(1)="=^|":S$(2)="QWERTYUIOP":B$(2)="`_["
  540S$(3)="ASDFGHJKL":B$(3)="+*":S$(4)="ZXCVBNM":B$(4)="<>?":G$="":H$="":FORi=1TO4:G$=G$+R$(i)+A$(i):H$=H$+S$(i)+B$(i):NEXT:a$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ":f$="0123456789"+CHR$255+c$+l$+r$+d$+u$+"ABCDEFGHIJKLMNOPQRSTUVWXYZ:;<->?":FORi=1TO48
  550READF$(i):NEXTi:F$(13)=CHR$242:F$(14)=CHR$243:F$(15)=CHR$244:F$(16)=CHR$245:F$(31)="OLD"+CHR$249:F$(34)="RUN"+CHR$249:ENDPROC
  560DATAf0,f1,f2,f3,f4,f5,f6,f7,f8,f9
  570DATA"",COPY,"","","",""
  580DATAAUTO,RENUM,COLOUR,DRAW,ELSE
  590DATAFOR,GOTO,DEG,INPUT,RAD,CHAIN
  600DATALIST,MODE,NEXT,"",PLOT,LOCAL
  610DATA"",STEP,THEN,UNTIL,VDU
  620DATARESTOR,PROC,REPEAT,END
  630DATAFUNC-:,FUNC-;,LOAD,FUNC--,SAVE,PRINT
  640DEFPROCu:MOVE1038,Y-108:VDU242:MOVE1122,Y-108:VDU243:MOVE1080,Y-203:VDU244:MOVE998,Y-203:VDU245:MOVE1152,Y-195:VDU240,241:ENDPROC
  650DEFPROCm:MOVE26,Y-100:VDU231,232:MOVE56,Y-195:VDU226,227:MOVE102,Y-289:VDU224,225:MOVE118,Y-384:VDU228,229,230:MOVE1202,Y-100:VDU233,234:MOVE1114,Y-289:VDU237,238,239:MOVE1088,Y-384:VDU228,229,230:MOVE1204,Y-384:VDU235,236:MOVE632,Y-471:VDU246,247,248:ENDPROC
  660DEFPROCp:MOVE324,Y-514:MOVE996,Y-514:PLOT85,324,Y-464:PLOT85,996,Y-464:ENDPROC
  670DEFPROCn:PROCc:PRINT''''" Using this program should help you get":PRINT"used to the keyboard, and show you how":PRINT"to get all of the functions of each key.";:PRINT'" The computer will display a character":PRINT"and wait for you to find it and press it";:PRINT"on the keyboard."
  680PRINT'" When you have done so,the computer will";:PRINT"tell you the time taken and your average";:PRINT"time so far.":PRINT'" Pressing the ESCAPE key will take you":PRINT"to the end of the program.":PRINTTAB(7,23);"Press SPACE to continue":REPEATUNTILINKEY(-99):CLS
  690PRINT'" The character produced when you press a";:PRINT"key depends on two things:":PRINT'" 1. Which other keys you are pressing;":PRINT"    SHIFT,CTRL and FUNC keys change the":PRINT"    character produced.":PRINT'" 2. Whether CAPS LOCK is ON or OFF."
  700PRINT'" CAPS LOCK can be toggled ON/OFF by":PRINT"holding down one of the SHIFT keys, and":PRINT"pressing the key marked CAPS LK/FUNC.":PRINT"The small light to the left of the":PRINT"CAPS LK/FUNC key indicates that CAPS":PRINT"LOCK is ON.":PRINT'"  Try it now....."'
  710PRINTTAB(12);"CAPS LOCK is now":PRINTTAB(0,23);"Press SPACE when you want to continue";:N=TIME:REPEATUNTILTIME-N>50:REPEAT:A%=202:X%=0:Y%=48:IF(USR(&FFF4)AND&1000)=&1000THENC$="OFF"ELSEC$="ON "
  720PRINTTAB(19,21);C$:UNTILINKEY(-99):ENDPROC
  730DEFPROCc:VDU23,1,0;0;0;0;:ENDPROC
  740DEFPROCs:VDU28;31,39,17:VDU24;500,1279,1023:ENDPROC
  750DEFPROCA(A):IFATHEN780
  760*FX202,16,239
  770GOTO790
  780*FX202,128,111
  790ENDPROC
  800DEFPROCq(p%,A):PROC_(p%):t=0:r%=0:IFp%=5THENN%=5ELSEN%=10
  810FORq%=1TON%:CLS:REPEATF%=RND(4):UNTILQ$(F%)<>"":C=RND(LENQ$(F%)):D=ASCMID$(Q$(F%),C,1):s=(INSTR(H$,CHR$D)<>0):IFINSTR(a$,CHR$D)ANDATHENs=NOTs
  820u=LEN(S$(F%)+B$(F%)):IFC<=u k%=CELSEk%=C-u
  830x%=F%*42+84*k%-32:IFp%=5x%=x%+11*84:IFF%=2x%=x%-84
  840y%=Y-45-95*F%:N=TIME:REPEATUNTILTIME-N>50:E=FALSE:PROCD("Find "+FNl(D),14,1):*FX15,0
  850T=TIME:REPEAT:PROCA(A):H=INKEY(0):d%=TIME-T:IF(d%>250)ANDNOTEPROCg(x%,y%,s):E=TRUE
  860UNTILH<>-1:IFH=DPROCBELSEPROCE
  870@%=&90A:PRINTTAB(8,13);"Press SPACE to continue":REPEATUNTILINKEY(-99):IFETHENPROCg(x%,y%,s)
  880PROCc:NEXTq%:ENDPROC
  890DEFFNl(c):IFc=13THEN="RETURN"
  900IFc=127THEN="DELETE"
  910IFc<32THEN="CTRL-"+CHR$(c+&40)
  920IFc<128THEN=CHR$c
  930=F$(c-127)
  940DEFFNr(p%):CLS:PROCc:PROCD(" End of part "+STR$p%,-1,1):PRINT''''"You got ";r%;" out of ";N%;" correct.":PRINT''"Press   A    to repeat this test.":PRINT'"Press SPACE to go on to next part."
  950IFINKEY(-99)THEN="NEXT"
  960IFINKEY(-66)THEN="AGAIN"
  970GOTO950
  980DEFPROCt(p%):PROCc:PROCF:ONp%GOTO990,1010,1030,1070,1090,1100
  990PRINT'''" CAPS LOCK will be on in this part.":PRINT'" This means that the letter keys will":PRINT"produce capitals (""upper case""), and":PRINT"the other keys will produce the lower":PRINT"of the 2 or 3 symbols on the key.":PRINT'" This part tests only the keys shown"
 1000PRINT"above.":PROCG:GOTO1110
 1010PRINT'''" CAPS LOCK will also be on in this part.":PRINT" While CAPS LOCK is on, you can obtain":PRINT"small (""lower case"") letters by holding":PRINT"down SHIFT. SHIFT with the other keys":PRINT"will produce the symbol on the top, or":PRINT"top left of the key."
 1020PRINT" This part tests the 'shifted' keys":PRINT"shown above.":PROCG:GOTO1110
 1030PRINT'''"CAPS LOCK will still be on in this part.":PRINT" Now all the keys from parts 1 and 2":PRINT"will be tested.":PRINT'" The 'unshifted' keys are shown above.":PRINT"Press and hold a SHIFT key to see the":PRINT"'shifted' keys.":PRINTTAB(4,13);"Press SPACE to begin the test"
 1040G=FALSE:REPEAT:IFINKEY(-1)ANDNOTGTHENPROCw(3):PROCw(2):G=TRUE
 1050IFGANDNOTINKEY(-1)THENPROCw(2):PROCw(3):G=FALSE
 1060PROCc:UNTILINKEY(-99)ANDNOTG:GOTO1110
 1070PRINT'''" Now CAPS LOCK will be turned off.":PRINT'" The letter keys now produce capital":PRINT"letters when pressed with the SHIFT":PRINT"key and small letters otherwise.Other":PRINT"keys are as in the previous parts.":PRINT'" This part tests both 'shifted' and"
 1080PRINT"'unshifted' keys.":PROCG:GOTO1110
 1090PRINT'''" A few characters are obtained by using":PRINT"the CTRL key in the same way as the":PRINT"SHIFT key.":PRINT'" The characters are printed on the top":PRINT"right of some keys and are also shown":PRINT"above.":PRINT'"This part tests these 'control' keys.":PROCG:GOTO1110
 1100PRINT'''"f0-f9 and BASIC keywords are obtained":PRINT"by using the FUNC key in the same way":PRINT"as either the SHIFT or CTRL key.":PRINT'" The keywords are printed in light brown":PRINT"on the front of some keys.":PROCG
 1110ENDPROC
 1120DEFPROCF:PROCD("Part "+STR$p%,-1,0):ENDPROC
 1130DEFPROCG:PRINTTAB(4,13);"Press SPACE to begin the test":REPEATUNTILINKEY(-99):ENDPROC
 1140DEFPROCo:GCOL3,1:FORI%=11TO12:MOVE114+I%*84,Y-108:PRINTMID$("~\",I%-10,1):NEXTI%:FORI%=10TO12:MOVE156+I%*84,Y-203:PRINTMID$("{}]",I%-9,1):NEXTI%:ENDPROC
 1150DEFPROCg(x%,y%,s):VDU5:GCOL4,0:IFsTHENPROCv(94,Y-424,116):PROCv(1060,Y-424,116)
 1160IFp%=5THENPROCv(94,Y-329,72)
 1170IFp%=6THENPROCv(52,Y-235,72)
 1180PROCv(x%,y%,72):GCOL0,1:VDU4:PROCc:ENDPROC
 1190DEFPROCv(x%,y%,l%):FORE%=y%+4TOy%+40STEP4:MOVEx%+4,E%:DRAWx%+(l%-4),E%:NEXT:ENDPROC
 1200DEFPROCB:PROCD("Correct!",-1,4):@%=&223:PRINTTAB(0,7)"You took     ";d%/100;" seconds.":t=t+d%/100:t=INT(t*100)/100:r%=r%+1:PRINTTAB(0,9)"Average time ";t/r%;" seconds.":ENDPROC
 1210DEFPROCE:IFNOTETHENPROCg(x%,y%,s):E=TRUE
 1220PROCD("You typed "+FNl(H),-1,3):IFFNcTHENPROCf:GOTO1240
 1230PRINTTAB(0,7)"You should have pressed ";FNk(D):PRINT'"instead of ";FNk(H)
 1240ENDPROC
 1250DEFFNc:F$="l1:|-_O0":p=INSTR(F$,CHR$H):F=INSTR(F$,CHR$D):IFp<FTHENm=pELSEm=F
 1260=(ABS(p-F)=1)AND((mMOD2)=1)
 1270DEFPROCf:IFINSTR("l1",CHR$H)THEN1310
 1280IFINSTR(":|",CHR$H)THEN1320
 1290IFINSTR("-_",CHR$H)THEN1330
 1300PRINTTAB(0,7);"You have confused the letter ""O"" with":PRINT'"the number ""0"".":GOTO1340
 1310PRINTTAB(0,7);"You have confused the letter ""l"" with":PRINT'"the number ""1"".":GOTO1340
 1320PRINTTAB(0,7);"You have confused the colon "":"" with":PRINT'"the vertical bar character ""|"".":GOTO1340
 1330PRINTTAB(0,7);"You have confused the minus ""-"" with":PRINT'"the underline ""_""."
 1340ENDPROC
 1350DEFFNk(c):IFc=13THEN="RETURN"
 1360IFc=32THEN="SPACE"
 1370IFc=127THEN="DELETE"
 1380IFc<32THEN="CTRL with "+CHR$(c+&40)
 1390i=INSTR("~\{}]",CHR$c):IFiTHEN="CTRL with "+FNl(ASCMID$(D$,i,1))
 1400IFNOTATHEN1430
 1410i=INSTR(a$,CHR$c):IFi=0THEN1430
 1420IFi<=26THEN="SHIFT with "+CHR$(c-&20)ELSE=CHR$c
 1430IFINSTR(G$,CHR$c)THEN=FNl(c)
 1440i=INSTR(H$,CHR$c):IFiTHEN="SHIFT with "+FNl(ASCMID$(G$,i,1))
 1450="FUNC with "+MID$(f$,c-127,1)
 1460DEFFNa:PRINT'''" You have completed all the parts.":PRINT'"You can now repeat any of the parts, or":PRINT'"go to the End of the program.":PRINT''"CAPS LOCK ON":PRINT'"  1. Unshifted keys":PRINT'"  2. Shifted keys":PRINT'"  3. Unshifted & shifted keys":PRINT'"CAPS LOCK OFF"
 1470PRINT'"  4. Unshifted & shifted keys":PRINT'"  5. CTRL keys":PRINT'"  6. FUNC keys":PRINT''"  E. Go to the end of the program.":*FX15,0
 1480PRINT''"Your choice ? ";:REPEAT:B$=INKEY$(0):UNTILINSTR(" 123456Ee",B$)>1:IFINSTR("Ee",B$)THEN=-1
 1490=VAL(B$)
 1500DEFPROCD(A$,x%,y%):IFx%<0THENPRINTTAB((38-LENA$)/2,y%);ELSEPRINTTAB(x%,y%);
 1510FORD%=1TOLENA$:K%=FNC(ASCMID$(A$,D%,1)):VDU254,10,8,255,11:NEXT:ENDPROC
 1520DEFFNC(C%):?B=C%:A%=10:X%=B:Y%=BDIV256:CALL&FFF1:FORJ%=0TO1:VDU23,J%+254:FORI%=2TO9:VDUB?(J%*4+I%DIV2):NEXT,:=0

�6

*FX220,27
��DF@
(a�B 8:�4:�c:�i:�6:�n:�4:�s:�b:�p%=1�6:�:�h(p%):B$=�r(p%):�B$="NEXT":�p%:�:�4:B%=�a:�B%=-1��T|@
2�:�s:�b:�h(B%)
<�B%=-1:�DP@
F6�:�l:�4:�<>17��<>0:�" at line ";�:P%=1:�=0:�tB@
P
*FX124
Z�:�4:�:�C("Which do you want to do ?",10):�10,�+3)"";:�e("R"):�"epeat this program":�10,�+1)"Go to ";:�e("N"):�"ext program":�10,�+1)"Return to main ";:�e("M"):�"enu":�10,�+1)"";:�e("E"):�"xit from disc"
du�0,�+3)"Choose from ";:�e("R"):�"epeat, ";:�e("N"):�"ext, ";:�e("M"):�"enu or ";:�e("E"):�"xit ";:*FX202,128,111
n=A$=�:�(A$="R")�(A$="N")�(A$="M")�(A$="E"):�:�A$="R"��T^@
x#�A$="N"�P%=3��A$="M"�P%=1�P%=17
��l:*FX15,1
�*FX201,1
��21:*FX220,0
�
�"BOOT":�
�#��C(A$,y%)�(38-�A$)/2,y%)A$;:�
�"��e(A$):�0:�135:�A$;:�7:�128:�
���l:*FX4
�*FX225,1
�*FX226,1
�*FX227,1
��
�=��h(p%):�:A=(p%<=3):�w(p%):�a(A):�t(p%):�q(p%,A):�w(p%):�
���a(A):�5:�A�l=250�l=32
&�15,Y-197:�0,0:�250,8:�0,1:�l:�4:�
5��w(p%):�5:�3,1:�p%�TXA,�TbA,�TXA,�TlA,�TvA,�D@A
LK$(1)=R$(1)+"-":K$(2)=S$(2):K$(3)=S$(3)+A$(3):K$(4)=S$(4)+A$(4):�u:�DJA
"6K$(1)=S$(1)+B$(1):�i=2�4:K$(i)=R$(i)+B$(i):�:�DJA
,LK$(1)=R$(1)+"-":K$(2)=R$(2):K$(3)=R$(3)+A$(3):K$(4)=R$(4)+A$(4):�u:�DJA
65K$(1)="~\":K$(2)="{}]":K$(3)="":K$(4)="":�o:�DTA
@9K$(1)=R$(1):K$(2)=S$(2):K$(3)=S$(3):K$(4)=S$(4)+B$(4)
J��I%=1��K$(1):�30+I%*84,Y-108:�K$(1),I%,1):�I%:�I%=1��K$(2):�72+I%*84,Y-203:�K$(2),I%,1):�I%:�I%=1��K$(3):�114+I%*84,Y-299:�K$(3),I%,1):�I%:�I%=1��K$(4):�156+I%*84,Y-393:�K$(4),I%,1):�I%
T�m:�0,1:�4:�
^-��_(p%):�p%�DhA,�DrA,�D|A,�D|A,�DrA,�tFA
h6Q$(1)=R$(1)+A$(1):�i=2�4:Q$(i)=S$(i)+A$(i):�:�tPA
r�i=1�4:Q$(i)=K$(i):�:�tPA
|0�i=1�4:Q$(i)=R$(i)+A$(i)+S$(i)+B$(i):�:�tPA
�9�r(1,R$(1)):�r(2,S$(2)):�r(3,S$(3)):�r(4,S$(4)+B$(4))
��
�J��r(i,S$):Q$(i)="":�x=1��S$:n=�f$,�S$,x,1),1):Q$(i)=Q$(i)+�(n+127):�:�
����b:�c:�5:�0,1:�I%=0�14:�k(10+I%*84,Y-140):�I%:�I%=0�13:�k(52+I%*84,Y-235):�I%:�I%=0�11:�k(94+I%*84,Y-329):�I%:�d(1100,Y-329):�d(94,Y-424):�I%=0�9:�k(220+I%*84,Y-424):�I%:�d(1060,Y-424):�k(1188,Y-424):�p:�4:�
�>��k(X%,Y%):�X%,Y%:�X%+72,Y%:�85,X%,Y%+44:�85,X%+72,Y%+44:�
�@��d(X%,Y%):�X%,Y%:�X%+116,Y%:�85,X%,Y%+44:�85,X%+116,Y%+44:�
���i:*FX4,2
�*FX225,128
�*FX226,144
�*FX227,160
��l$=�140:r$=�141:d$=�142:u$=�143:c$=�139:D$=l$+r$+u$+d$+c$:E$=�242+�243+�245+�244+"COPY":�R$(4),A$(4),S$(4),B$(4):�K$(4),Q$(4),F$(48):�23,224;0;&EE,&84,&84,&84,&E4:�23,225;0;&C8,&A8,&C8,&A8,&AE:�23,226;0;&EA,&8A,&CA,&8A,&8E
���23,227;0;&97,&D4,&B4,&94,&97:�23,228;0;&EA,&8A,&EE,&2A,&EA:�23,229;0;&BB,&A1,&B1,&A1,&A1:�23,230;0;&80,0;0;:�23,231;0;&EE,&88,&CE,&82,&EE:�23,232;0;&E0,&80,&80,&80,&E0:�23,233;0;&CC,&AA,&CC,&AA,&CA:�23,234;0;&90,&A0,&C0,&A0,&90
���23,235;0;&CE,&A8,&AC,&A8,&CE:�23,236;0;&80,&80,&80,&80,&E0:�23,237;0;&CE,&A8,&CC,&A8,&AE:�23,238;0;&EA,&4A,&4A,&4A,&4E:�23,239;0;&C9,&AD,&CB,&A9,&A9:�23,240;0;&EE,&8A,&8A,&8A,&EE:�23,241;0;&EA,&AA,&E4,&84,&84:�23,242;&20,&60,&FF,&60,&20;0
��23,243;&04,&06,&FF,&06,&04;0:�23,245,&10,&38,&7C,&10,&10,&10,&10,&10:�23,244,&10,&10,&10,&10,&10,&7C,&38,&10:�23,246;0;&EE,&8A,&EE,&28,&E8:�23,247;0;&EE,&A8,&E8,&A8,&AE:�23,248;0;&E0,&80,&C0,&80,&E0:�23,249,4,4,4,4,4,&44,&FC,&40
��23,250,0;&18,&3C,&3C,&18,0;:Y=1023:R$(1)="1234567890":A$(1)="-"+l$+r$:R$(2)="qwertyuiop":A$(2)=u$+d$+c$:R$(3)="asdfghjkl":A$(3)=";:":R$(4)="zxcvbnm":A$(4)=",./":S$(1)="!""#$%&'()@":B$(1)="=^|":S$(2)="QWERTYUIOP":B$(2)="`_["
�S$(3)="ASDFGHJKL":B$(3)="+*":S$(4)="ZXCVBNM":B$(4)="<>?":G$="":H$="":�i=1�4:G$=G$+R$(i)+A$(i):H$=H$+S$(i)+B$(i):�:a$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ":f$="0123456789"+�255+c$+l$+r$+d$+u$+"ABCDEFGHIJKLMNOPQRSTUVWXYZ:;<->?":�i=1�48
&c�F$(i):�i:F$(13)=�242:F$(14)=�243:F$(15)=�244:F$(16)=�245:F$(31)="OLD"+�249:F$(34)="RUN"+�249:�
0"�f0,f1,f2,f3,f4,f5,f6,f7,f8,f9
:�"",COPY,"","","",""
D �AUTO,RENUM,COLOUR,DRAW,ELSE
N!�FOR,GOTO,DEG,INPUT,RAD,CHAIN
X!�LIST,MODE,NEXT,"",PLOT,LOCAL
b�"",STEP,THEN,UNTIL,VDU
l�RESTOR,PROC,REPEAT,END
v)�FUNC-:,FUNC-;,LOAD,FUNC--,SAVE,PRINT
�a��u:�1038,Y-108:�242:�1122,Y-108:�243:�1080,Y-203:�244:�998,Y-203:�245:�1152,Y-195:�240,241:�
����m:�26,Y-100:�231,232:�56,Y-195:�226,227:�102,Y-289:�224,225:�118,Y-384:�228,229,230:�1202,Y-100:�233,234:�1114,Y-289:�237,238,239:�1088,Y-384:�228,229,230:�1204,Y-384:�235,236:�632,Y-471:�246,247,248:�
�;��p:�324,Y-514:�996,Y-514:�85,324,Y-464:�85,996,Y-464:�
����n:�c:�''''" Using this program should help you get":�"used to the keyboard, and show you how":�"to get all of the functions of each key.";:�'" The computer will display a character":�"and wait for you to find it and press it";:�"on the keyboard."
���'" When you have done so,the computer will";:�"tell you the time taken and your average";:�"time so far.":�'" Pressing the ESCAPE key will take you":�"to the end of the program.":�7,23);"Press SPACE to continue":���(-99):�
���'" The character produced when you press a";:�"key depends on two things:":�'" 1. Which other keys you are pressing;":�"    SHIFT,CTRL and FUNC keys change the":�"    character produced.":�'" 2. Whether CAPS LOCK is ON or OFF."
���'" CAPS LOCK can be toggled ON/OFF by":�"holding down one of the SHIFT keys, and":�"pressing the key marked CAPS LK/FUNC.":�"The small light to the left of the":�"CAPS LK/FUNC key indicates that CAPS":�"LOCK is ON.":�'"  Try it now....."'
Ƙ�12);"CAPS LOCK is now":�0,23);"Press SPACE when you want to continue";:N=�:���-N>50:�:A%=202:X%=0:Y%=48:�(�(&FFF4)�&1000)=&1000�C$="OFF"�C$="ON "
��19,21);C$:��(-99):�
���c:�23,1,0;0;0;0;:�
�(��s:�28;31,39,17:�24;500,1279,1023:�
���A(A):�A��TLC
�*FX202,16,239
	�TVC
*FX202,128,111
�
 .��q(p%,A):�_(p%):t=0:r%=0:�p%=5�N%=5�N%=10
*_�q%=1�N%:�:�F%=�(4):�Q$(F%)<>"":C=�(�Q$(F%)):D=��Q$(F%),C,1):s=(�H$,�D)<>0):�a$,�D)�A�s=�s
4(u=�(S$(F%)+B$(F%)):�C<=u k%=C�k%=C-u
>4x%=F%*42+84*k%-32:�p%=5x%=x%+11*84:�F%=2x%=x%-84
HAy%=Y-45-95*F%:N=�:���-N>50:E=�:�D("Find "+�l(D),14,1):*FX15,0
R9T=�:�:�A(A):H=�(0):d%=�-T:�(d%>250)��E�g(x%,y%,s):E=�
\�H<>-1:�H=D�B��E
fE@%=&90A:�8,13);"Press SPACE to continue":���(-99):�E��g(x%,y%,s)
p�c:�q%:�
zݤl(c):�c=13�="RETURN"
��c=127�="DELETE"
��c<32�="CTRL-"+�(c+&40)
��c<128�=�c
�=F$(c-127)
��ݤr(p%):�:�c:�D(" End of part "+�p%,-1,1):�''''"You got ";r%;" out of ";N%;" correct.":�''"Press   A    to repeat this test.":�'"Press SPACE to go on to next part."
��(-99)�="NEXT"
��(-66)�="AGAIN"
�	�tvC
�3��t(p%):�c:�F:�p%�d^C,�drC,�TFD,�TnD,�DBD,�DLD
��'''" CAPS LOCK will be on in this part.":�'" This means that the letter keys will":�"produce capitals (""upper case""), and":�"the other keys will produce the lower":�"of the 2 or 3 symbols on the key.":�'" This part tests only the keys shown"
��"above.":�G:�DVD
���'''" CAPS LOCK will also be on in this part.":�" While CAPS LOCK is on, you can obtain":�"small (""lower case"") letters by holding":�"down SHIFT. SHIFT with the other keys":�"will produce the symbol on the top, or":�"top left of the key."
�C�" This part tests the 'shifted' keys":�"shown above.":�G:�DVD
��'''"CAPS LOCK will still be on in this part.":�" Now all the keys from parts 1 and 2":�"will be tested.":�'" The 'unshifted' keys are shown above.":�"Press and hold a SHIFT key to see the":�"'shifted' keys.":�4,13);"Press SPACE to begin the test"
#G=�:�:�(-1)��G��w(3):�w(2):G=�
�G���(-1)��w(2):�w(3):G=�
$�c:��(-99)��G:�DVD
.��'''" Now CAPS LOCK will be turned off.":�'" The letter keys now produce capital":�"letters when pressed with the SHIFT":�"key and small letters otherwise.Other":�"keys are as in the previous parts.":�'" This part tests both 'shifted' and"
8!�"'unshifted' keys.":�G:�DVD
B��'''" A few characters are obtained by using":�"the CTRL key in the same way as the":�"SHIFT key.":�'" The characters are printed on the top":�"right of some keys and are also shown":�"above.":�'"This part tests these 'control' keys.":�G:�DVD
L��'''"f0-f9 and BASIC keywords are obtained":�"by using the FUNC key in the same way":�"as either the SHIFT or CTRL key.":�'" The keywords are printed in light brown":�"on the front of some keys.":�G
V�
`��F:�D("Part "+�p%,-1,0):�
j:��G:�4,13);"Press SPACE to begin the test":���(-99):�
tl��o:�3,1:�I%=11�12:�114+I%*84,Y-108:�"~\",I%-10,1):�I%:�I%=10�12:�156+I%*84,Y-203:�"{}]",I%-9,1):�I%:�
~?��g(x%,y%,s):�5:�4,0:�s��v(94,Y-424,116):�v(1060,Y-424,116)
��p%=5��v(94,Y-329,72)
��p%=6��v(52,Y-235,72)
��v(x%,y%,72):�0,1:�4:�c:�
�=��v(x%,y%,l%):�E%=y%+4�y%+40�4:�x%+4,E%:�x%+(l%-4),E%:�:�
����B:�D("Correct!",-1,4):@%=&223:�0,7)"You took     ";d%/100;" seconds.":t=t+d%/100:t=�(t*100)/100:r%=r%+1:�0,9)"Average time ";t/r%;" seconds.":�
���E:�E��g(x%,y%,s):E=�
�,�D("You typed "+�l(H),-1,3):�c��f:�dXD
�@�0,7)"You should have pressed ";�k(D):�'"instead of ";�k(H)
��
�6ݤc:F$="l1:|-_O0":p=�F$,�H):F=�F$,�D):�p<F�m=p�m=F
�=(�(p-F)=1)�((m�2)=1)
���f:�"l1",�H)��T^E
�":|",�H)��ThE

�"-_",�H)��TrE
P�0,7);"You have confused the letter ""O"" with":�'"the number ""0"".":�T|E
P�0,7);"You have confused the letter ""l"" with":�'"the number ""1"".":�T|E
(_�0,7);"You have confused the colon "":"" with":�'"the vertical bar character ""|"".":�T|E
2L�0,7);"You have confused the minus ""-"" with":�'"the underline ""_""."
<�
Fݤk(c):�c=13�="RETURN"
P�c=32�="SPACE"
Z�c=127�="DELETE"
d �c<32�="CTRL with "+�(c+&40)
n1i=�"~\{}]",�c):�i�="CTRL with "+�l(��D$,i,1))
x�A��tVE
�i=�a$,�c):�i=0��tVE
�&�i<=26�="SHIFT with "+�(c-&20)�=�c
��G$,�c)�=�l(c)
�-i=�H$,�c):�i�="SHIFT with "+�l(��G$,i,1))
�="FUNC with "+�f$,c-127,1)
��ݤa:�'''" You have completed all the parts.":�'"You can now repeat any of the parts, or":�'"go to the End of the program.":�''"CAPS LOCK ON":�'"  1. Unshifted keys":�'"  2. Shifted keys":�'"  3. Unshifted & shifted keys":�'"CAPS LOCK OFF"
�{�'"  4. Unshifted & shifted keys":�'"  5. CTRL keys":�'"  6. FUNC keys":�''"  E. Go to the end of the program.":*FX15,0
�E�''"Your choice ? ";:�:B$=�(0):��" 123456Ee",B$)>1:�"Ee",B$)�=-1
�
=�(B$)
�3��D(A$,x%,y%):�x%<0��(38-�A$)/2,y%);��x%,y%);
�4�D%=1��A$:K%=�C(��A$,D%,1)):�254,10,8,255,11:�:�
�\ݤC(C%):?B=C%:A%=10:X%=B:Y%=B�256:�&FFF1:�J%=0�1:�23,J%+254:�I%=2�9:�B?(J%*4+I%�2):�,:=0
�
00000000  0d 00 0a 06 ef 36 0d 00  14 0d 2a 46 58 32 32 30  |.....6....*FX220|
00000010  2c 32 37 0d 00 1e 0b ee  85 e5 8d 44 46 40 0d 00  |,27........DF@..|
00000020  28 61 de 42 20 38 3a eb  34 3a f2 63 3a f2 69 3a  |(a.B 8:.4:.c:.i:|
00000030  eb 36 3a f2 6e 3a eb 34  3a f2 73 3a f2 62 3a e3  |.6:.n:.4:.s:.b:.|
00000040  70 25 3d 31 b8 36 3a f5  3a f2 68 28 70 25 29 3a  |p%=1.6:.:.h(p%):|
00000050  42 24 3d a4 72 28 70 25  29 3a fd 42 24 3d 22 4e  |B$=.r(p%):.B$="N|
00000060  45 58 54 22 3a ed 70 25  3a f5 3a eb 34 3a 42 25  |EXT":.p%:.:.4:B%|
00000070  3d a4 61 3a e7 42 25 3d  2d 31 8c 8d 54 7c 40 0d  |=.a:.B%=-1..T|@.|
00000080  00 32 12 db 3a f2 73 3a  f2 62 3a f2 68 28 42 25  |.2..:.s:.b:.h(B%|
00000090  29 0d 00 3c 10 fd 42 25  3d 2d 31 3a e5 8d 44 50  |)..<..B%=-1:..DP|
000000a0  40 0d 00 46 36 d8 3a f2  6c 3a eb 34 3a e7 9f 3c  |@..F6.:.l:.4:..<|
000000b0  3e 31 37 80 9f 3c 3e 30  3a f1 9f 22 20 61 74 20  |>17..<>0:.." at |
000000c0  6c 69 6e 65 20 22 3b 9e  3a 50 25 3d 31 3a 9f 3d  |line ";.:P%=1:.=|
000000d0  30 3a e5 8d 74 42 40 0d  00 50 0a 2a 46 58 31 32  |0:..tB@..P.*FX12|
000000e0  34 0d 00 5a d3 f5 3a eb  34 3a db 3a f2 43 28 22  |4..Z..:.4:.:.C("|
000000f0  57 68 69 63 68 20 64 6f  20 79 6f 75 20 77 61 6e  |Which do you wan|
00000100  74 20 74 6f 20 64 6f 20  3f 22 2c 31 30 29 3a f1  |t to do ?",10):.|
00000110  8a 31 30 2c bc 2b 33 29  22 22 3b 3a f2 65 28 22  |.10,.+3)"";:.e("|
00000120  52 22 29 3a f1 22 65 70  65 61 74 20 74 68 69 73  |R"):."epeat this|
00000130  20 70 72 6f 67 72 61 6d  22 3a f1 8a 31 30 2c bc  | program":..10,.|
00000140  2b 31 29 22 47 6f 20 74  6f 20 22 3b 3a f2 65 28  |+1)"Go to ";:.e(|
00000150  22 4e 22 29 3a f1 22 65  78 74 20 70 72 6f 67 72  |"N"):."ext progr|
00000160  61 6d 22 3a f1 8a 31 30  2c bc 2b 31 29 22 52 65  |am":..10,.+1)"Re|
00000170  74 75 72 6e 20 74 6f 20  6d 61 69 6e 20 22 3b 3a  |turn to main ";:|
00000180  f2 65 28 22 4d 22 29 3a  f1 22 65 6e 75 22 3a f1  |.e("M"):."enu":.|
00000190  8a 31 30 2c bc 2b 31 29  22 22 3b 3a f2 65 28 22  |.10,.+1)"";:.e("|
000001a0  45 22 29 3a f1 22 78 69  74 20 66 72 6f 6d 20 64  |E"):."xit from d|
000001b0  69 73 63 22 0d 00 64 75  f1 8a 30 2c bc 2b 33 29  |isc"..du..0,.+3)|
000001c0  22 43 68 6f 6f 73 65 20  66 72 6f 6d 20 22 3b 3a  |"Choose from ";:|
000001d0  f2 65 28 22 52 22 29 3a  f1 22 65 70 65 61 74 2c  |.e("R"):."epeat,|
000001e0  20 22 3b 3a f2 65 28 22  4e 22 29 3a f1 22 65 78  | ";:.e("N"):."ex|
000001f0  74 2c 20 22 3b 3a f2 65  28 22 4d 22 29 3a f1 22  |t, ";:.e("M"):."|
00000200  65 6e 75 20 6f 72 20 22  3b 3a f2 65 28 22 45 22  |enu or ";:.e("E"|
00000210  29 3a f1 22 78 69 74 20  22 3b 3a 2a 46 58 32 30  |):."xit ";:*FX20|
00000220  32 2c 31 32 38 2c 31 31  31 0d 00 6e 3d 41 24 3d  |2,128,111..n=A$=|
00000230  be 3a fd 28 41 24 3d 22  52 22 29 84 28 41 24 3d  |.:.(A$="R").(A$=|
00000240  22 4e 22 29 84 28 41 24  3d 22 4d 22 29 84 28 41  |"N").(A$="M").(A|
00000250  24 3d 22 45 22 29 3a db  3a e7 41 24 3d 22 52 22  |$="E"):.:.A$="R"|
00000260  8c e5 8d 54 5e 40 0d 00  78 23 e7 41 24 3d 22 4e  |...T^@..x#.A$="N|
00000270  22 8c 50 25 3d 33 8b e7  41 24 3d 22 4d 22 8c 50  |".P%=3..A$="M".P|
00000280  25 3d 31 8b 50 25 3d 31  37 0d 00 82 0e f2 6c 3a  |%=1.P%=17.....l:|
00000290  2a 46 58 31 35 2c 31 0d  00 8c 0c 2a 46 58 32 30  |*FX15,1....*FX20|
000002a0  31 2c 31 0d 00 96 10 ef  32 31 3a 2a 46 58 32 32  |1,1.....21:*FX22|
000002b0  30 2c 30 0d 00 a0 0d d7  22 42 4f 4f 54 22 3a e0  |0,0....."BOOT":.|
000002c0  0d 00 aa 23 dd f2 43 28  41 24 2c 79 25 29 f1 8a  |...#..C(A$,y%)..|
000002d0  28 33 38 2d a9 41 24 29  2f 32 2c 79 25 29 41 24  |(38-.A$)/2,y%)A$|
000002e0  3b 3a e1 0d 00 b4 22 dd  f2 65 28 41 24 29 3a fb  |;:...."..e(A$):.|
000002f0  30 3a fb 31 33 35 3a f1  41 24 3b 3a fb 37 3a fb  |0:.135:.A$;:.7:.|
00000300  31 32 38 3a e1 0d 00 be  0c dd f2 6c 3a 2a 46 58  |128:.......l:*FX|
00000310  34 0d 00 c8 0c 2a 46 58  32 32 35 2c 31 0d 00 d2  |4....*FX225,1...|
00000320  0c 2a 46 58 32 32 36 2c  31 0d 00 dc 0c 2a 46 58  |.*FX226,1....*FX|
00000330  32 32 37 2c 31 0d 00 e6  05 e1 0d 00 f0 3d dd f2  |227,1........=..|
00000340  68 28 70 25 29 3a db 3a  41 3d 28 70 25 3c 3d 33  |h(p%):.:A=(p%<=3|
00000350  29 3a f2 77 28 70 25 29  3a f2 61 28 41 29 3a f2  |):.w(p%):.a(A):.|
00000360  74 28 70 25 29 3a f2 71  28 70 25 2c 41 29 3a f2  |t(p%):.q(p%,A):.|
00000370  77 28 70 25 29 3a e1 0d  00 fa 1b dd f2 61 28 41  |w(p%):.......a(A|
00000380  29 3a ef 35 3a e7 41 8c  6c 3d 32 35 30 8b 6c 3d  |):.5:.A.l=250.l=|
00000390  33 32 0d 01 04 26 ec 31  35 2c 59 2d 31 39 37 3a  |32...&.15,Y-197:|
000003a0  e6 30 2c 30 3a ef 32 35  30 2c 38 3a e6 30 2c 31  |.0,0:.250,8:.0,1|
000003b0  3a ef 6c 3a ef 34 3a e1  0d 01 0e 35 dd f2 77 28  |:.l:.4:....5..w(|
000003c0  70 25 29 3a ef 35 3a e6  33 2c 31 3a ee 70 25 e5  |p%):.5:.3,1:.p%.|
000003d0  8d 54 58 41 2c 8d 54 62  41 2c 8d 54 58 41 2c 8d  |.TXA,.TbA,.TXA,.|
000003e0  54 6c 41 2c 8d 54 76 41  2c 8d 44 40 41 0d 01 18  |TlA,.TvA,.D@A...|
000003f0  4c 4b 24 28 31 29 3d 52  24 28 31 29 2b 22 2d 22  |LK$(1)=R$(1)+"-"|
00000400  3a 4b 24 28 32 29 3d 53  24 28 32 29 3a 4b 24 28  |:K$(2)=S$(2):K$(|
00000410  33 29 3d 53 24 28 33 29  2b 41 24 28 33 29 3a 4b  |3)=S$(3)+A$(3):K|
00000420  24 28 34 29 3d 53 24 28  34 29 2b 41 24 28 34 29  |$(4)=S$(4)+A$(4)|
00000430  3a f2 75 3a e5 8d 44 4a  41 0d 01 22 36 4b 24 28  |:.u:..DJA.."6K$(|
00000440  31 29 3d 53 24 28 31 29  2b 42 24 28 31 29 3a e3  |1)=S$(1)+B$(1):.|
00000450  69 3d 32 b8 34 3a 4b 24  28 69 29 3d 52 24 28 69  |i=2.4:K$(i)=R$(i|
00000460  29 2b 42 24 28 69 29 3a  ed 3a e5 8d 44 4a 41 0d  |)+B$(i):.:..DJA.|
00000470  01 2c 4c 4b 24 28 31 29  3d 52 24 28 31 29 2b 22  |.,LK$(1)=R$(1)+"|
00000480  2d 22 3a 4b 24 28 32 29  3d 52 24 28 32 29 3a 4b  |-":K$(2)=R$(2):K|
00000490  24 28 33 29 3d 52 24 28  33 29 2b 41 24 28 33 29  |$(3)=R$(3)+A$(3)|
000004a0  3a 4b 24 28 34 29 3d 52  24 28 34 29 2b 41 24 28  |:K$(4)=R$(4)+A$(|
000004b0  34 29 3a f2 75 3a e5 8d  44 4a 41 0d 01 36 35 4b  |4):.u:..DJA..65K|
000004c0  24 28 31 29 3d 22 7e 5c  22 3a 4b 24 28 32 29 3d  |$(1)="~\":K$(2)=|
000004d0  22 7b 7d 5d 22 3a 4b 24  28 33 29 3d 22 22 3a 4b  |"{}]":K$(3)="":K|
000004e0  24 28 34 29 3d 22 22 3a  f2 6f 3a e5 8d 44 54 41  |$(4)="":.o:..DTA|
000004f0  0d 01 40 39 4b 24 28 31  29 3d 52 24 28 31 29 3a  |..@9K$(1)=R$(1):|
00000500  4b 24 28 32 29 3d 53 24  28 32 29 3a 4b 24 28 33  |K$(2)=S$(2):K$(3|
00000510  29 3d 53 24 28 33 29 3a  4b 24 28 34 29 3d 53 24  |)=S$(3):K$(4)=S$|
00000520  28 34 29 2b 42 24 28 34  29 0d 01 4a c1 e3 49 25  |(4)+B$(4)..J..I%|
00000530  3d 31 b8 a9 4b 24 28 31  29 3a ec 33 30 2b 49 25  |=1..K$(1):.30+I%|
00000540  2a 38 34 2c 59 2d 31 30  38 3a f1 c1 4b 24 28 31  |*84,Y-108:..K$(1|
00000550  29 2c 49 25 2c 31 29 3a  ed 49 25 3a e3 49 25 3d  |),I%,1):.I%:.I%=|
00000560  31 b8 a9 4b 24 28 32 29  3a ec 37 32 2b 49 25 2a  |1..K$(2):.72+I%*|
00000570  38 34 2c 59 2d 32 30 33  3a f1 c1 4b 24 28 32 29  |84,Y-203:..K$(2)|
00000580  2c 49 25 2c 31 29 3a ed  49 25 3a e3 49 25 3d 31  |,I%,1):.I%:.I%=1|
00000590  b8 a9 4b 24 28 33 29 3a  ec 31 31 34 2b 49 25 2a  |..K$(3):.114+I%*|
000005a0  38 34 2c 59 2d 32 39 39  3a f1 c1 4b 24 28 33 29  |84,Y-299:..K$(3)|
000005b0  2c 49 25 2c 31 29 3a ed  49 25 3a e3 49 25 3d 31  |,I%,1):.I%:.I%=1|
000005c0  b8 a9 4b 24 28 34 29 3a  ec 31 35 36 2b 49 25 2a  |..K$(4):.156+I%*|
000005d0  38 34 2c 59 2d 33 39 33  3a f1 c1 4b 24 28 34 29  |84,Y-393:..K$(4)|
000005e0  2c 49 25 2c 31 29 3a ed  49 25 0d 01 54 10 f2 6d  |,I%,1):.I%..T..m|
000005f0  3a e6 30 2c 31 3a ef 34  3a e1 0d 01 5e 2d dd f2  |:.0,1:.4:...^-..|
00000600  5f 28 70 25 29 3a ee 70  25 e5 8d 44 68 41 2c 8d  |_(p%):.p%..DhA,.|
00000610  44 72 41 2c 8d 44 7c 41  2c 8d 44 7c 41 2c 8d 44  |DrA,.D|A,.D|A,.D|
00000620  72 41 2c 8d 74 46 41 0d  01 68 36 51 24 28 31 29  |rA,.tFA..h6Q$(1)|
00000630  3d 52 24 28 31 29 2b 41  24 28 31 29 3a e3 69 3d  |=R$(1)+A$(1):.i=|
00000640  32 b8 34 3a 51 24 28 69  29 3d 53 24 28 69 29 2b  |2.4:Q$(i)=S$(i)+|
00000650  41 24 28 69 29 3a ed 3a  e5 8d 74 50 41 0d 01 72  |A$(i):.:..tPA..r|
00000660  1e e3 69 3d 31 b8 34 3a  51 24 28 69 29 3d 4b 24  |..i=1.4:Q$(i)=K$|
00000670  28 69 29 3a ed 3a e5 8d  74 50 41 0d 01 7c 30 e3  |(i):.:..tPA..|0.|
00000680  69 3d 31 b8 34 3a 51 24  28 69 29 3d 52 24 28 69  |i=1.4:Q$(i)=R$(i|
00000690  29 2b 41 24 28 69 29 2b  53 24 28 69 29 2b 42 24  |)+A$(i)+S$(i)+B$|
000006a0  28 69 29 3a ed 3a e5 8d  74 50 41 0d 01 86 39 f2  |(i):.:..tPA...9.|
000006b0  72 28 31 2c 52 24 28 31  29 29 3a f2 72 28 32 2c  |r(1,R$(1)):.r(2,|
000006c0  53 24 28 32 29 29 3a f2  72 28 33 2c 53 24 28 33  |S$(2)):.r(3,S$(3|
000006d0  29 29 3a f2 72 28 34 2c  53 24 28 34 29 2b 42 24  |)):.r(4,S$(4)+B$|
000006e0  28 34 29 29 0d 01 90 05  e1 0d 01 9a 4a dd f2 72  |(4))........J..r|
000006f0  28 69 2c 53 24 29 3a 51  24 28 69 29 3d 22 22 3a  |(i,S$):Q$(i)="":|
00000700  e3 78 3d 31 b8 a9 53 24  3a 6e 3d a7 66 24 2c c1  |.x=1..S$:n=.f$,.|
00000710  53 24 2c 78 2c 31 29 2c  31 29 3a 51 24 28 69 29  |S$,x,1),1):Q$(i)|
00000720  3d 51 24 28 69 29 2b bd  28 6e 2b 31 32 37 29 3a  |=Q$(i)+.(n+127):|
00000730  ed 3a e1 0d 01 a4 d4 dd  f2 62 3a f2 63 3a ef 35  |.:.......b:.c:.5|
00000740  3a e6 30 2c 31 3a e3 49  25 3d 30 b8 31 34 3a f2  |:.0,1:.I%=0.14:.|
00000750  6b 28 31 30 2b 49 25 2a  38 34 2c 59 2d 31 34 30  |k(10+I%*84,Y-140|
00000760  29 3a ed 49 25 3a e3 49  25 3d 30 b8 31 33 3a f2  |):.I%:.I%=0.13:.|
00000770  6b 28 35 32 2b 49 25 2a  38 34 2c 59 2d 32 33 35  |k(52+I%*84,Y-235|
00000780  29 3a ed 49 25 3a e3 49  25 3d 30 b8 31 31 3a f2  |):.I%:.I%=0.11:.|
00000790  6b 28 39 34 2b 49 25 2a  38 34 2c 59 2d 33 32 39  |k(94+I%*84,Y-329|
000007a0  29 3a ed 49 25 3a f2 64  28 31 31 30 30 2c 59 2d  |):.I%:.d(1100,Y-|
000007b0  33 32 39 29 3a f2 64 28  39 34 2c 59 2d 34 32 34  |329):.d(94,Y-424|
000007c0  29 3a e3 49 25 3d 30 b8  39 3a f2 6b 28 32 32 30  |):.I%=0.9:.k(220|
000007d0  2b 49 25 2a 38 34 2c 59  2d 34 32 34 29 3a ed 49  |+I%*84,Y-424):.I|
000007e0  25 3a f2 64 28 31 30 36  30 2c 59 2d 34 32 34 29  |%:.d(1060,Y-424)|
000007f0  3a f2 6b 28 31 31 38 38  2c 59 2d 34 32 34 29 3a  |:.k(1188,Y-424):|
00000800  f2 70 3a ef 34 3a e1 0d  01 ae 3e dd f2 6b 28 58  |.p:.4:....>..k(X|
00000810  25 2c 59 25 29 3a ec 58  25 2c 59 25 3a ec 58 25  |%,Y%):.X%,Y%:.X%|
00000820  2b 37 32 2c 59 25 3a f0  38 35 2c 58 25 2c 59 25  |+72,Y%:.85,X%,Y%|
00000830  2b 34 34 3a f0 38 35 2c  58 25 2b 37 32 2c 59 25  |+44:.85,X%+72,Y%|
00000840  2b 34 34 3a e1 0d 01 b8  40 dd f2 64 28 58 25 2c  |+44:....@..d(X%,|
00000850  59 25 29 3a ec 58 25 2c  59 25 3a ec 58 25 2b 31  |Y%):.X%,Y%:.X%+1|
00000860  31 36 2c 59 25 3a f0 38  35 2c 58 25 2c 59 25 2b  |16,Y%:.85,X%,Y%+|
00000870  34 34 3a f0 38 35 2c 58  25 2b 31 31 36 2c 59 25  |44:.85,X%+116,Y%|
00000880  2b 34 34 3a e1 0d 01 c2  0e dd f2 69 3a 2a 46 58  |+44:.......i:*FX|
00000890  34 2c 32 0d 01 cc 0e 2a  46 58 32 32 35 2c 31 32  |4,2....*FX225,12|
000008a0  38 0d 01 d6 0e 2a 46 58  32 32 36 2c 31 34 34 0d  |8....*FX226,144.|
000008b0  01 e0 0e 2a 46 58 32 32  37 2c 31 36 30 0d 01 ea  |...*FX227,160...|
000008c0  e2 6c 24 3d bd 31 34 30  3a 72 24 3d bd 31 34 31  |.l$=.140:r$=.141|
000008d0  3a 64 24 3d bd 31 34 32  3a 75 24 3d bd 31 34 33  |:d$=.142:u$=.143|
000008e0  3a 63 24 3d bd 31 33 39  3a 44 24 3d 6c 24 2b 72  |:c$=.139:D$=l$+r|
000008f0  24 2b 75 24 2b 64 24 2b  63 24 3a 45 24 3d bd 32  |$+u$+d$+c$:E$=.2|
00000900  34 32 2b bd 32 34 33 2b  bd 32 34 35 2b bd 32 34  |42+.243+.245+.24|
00000910  34 2b 22 43 4f 50 59 22  3a de 52 24 28 34 29 2c  |4+"COPY":.R$(4),|
00000920  41 24 28 34 29 2c 53 24  28 34 29 2c 42 24 28 34  |A$(4),S$(4),B$(4|
00000930  29 3a de 4b 24 28 34 29  2c 51 24 28 34 29 2c 46  |):.K$(4),Q$(4),F|
00000940  24 28 34 38 29 3a ef 32  33 2c 32 32 34 3b 30 3b  |$(48):.23,224;0;|
00000950  26 45 45 2c 26 38 34 2c  26 38 34 2c 26 38 34 2c  |&EE,&84,&84,&84,|
00000960  26 45 34 3a ef 32 33 2c  32 32 35 3b 30 3b 26 43  |&E4:.23,225;0;&C|
00000970  38 2c 26 41 38 2c 26 43  38 2c 26 41 38 2c 26 41  |8,&A8,&C8,&A8,&A|
00000980  45 3a ef 32 33 2c 32 32  36 3b 30 3b 26 45 41 2c  |E:.23,226;0;&EA,|
00000990  26 38 41 2c 26 43 41 2c  26 38 41 2c 26 38 45 0d  |&8A,&CA,&8A,&8E.|
000009a0  01 f4 e8 ef 32 33 2c 32  32 37 3b 30 3b 26 39 37  |....23,227;0;&97|
000009b0  2c 26 44 34 2c 26 42 34  2c 26 39 34 2c 26 39 37  |,&D4,&B4,&94,&97|
000009c0  3a ef 32 33 2c 32 32 38  3b 30 3b 26 45 41 2c 26  |:.23,228;0;&EA,&|
000009d0  38 41 2c 26 45 45 2c 26  32 41 2c 26 45 41 3a ef  |8A,&EE,&2A,&EA:.|
000009e0  32 33 2c 32 32 39 3b 30  3b 26 42 42 2c 26 41 31  |23,229;0;&BB,&A1|
000009f0  2c 26 42 31 2c 26 41 31  2c 26 41 31 3a ef 32 33  |,&B1,&A1,&A1:.23|
00000a00  2c 32 33 30 3b 30 3b 26  38 30 2c 30 3b 30 3b 3a  |,230;0;&80,0;0;:|
00000a10  ef 32 33 2c 32 33 31 3b  30 3b 26 45 45 2c 26 38  |.23,231;0;&EE,&8|
00000a20  38 2c 26 43 45 2c 26 38  32 2c 26 45 45 3a ef 32  |8,&CE,&82,&EE:.2|
00000a30  33 2c 32 33 32 3b 30 3b  26 45 30 2c 26 38 30 2c  |3,232;0;&E0,&80,|
00000a40  26 38 30 2c 26 38 30 2c  26 45 30 3a ef 32 33 2c  |&80,&80,&E0:.23,|
00000a50  32 33 33 3b 30 3b 26 43  43 2c 26 41 41 2c 26 43  |233;0;&CC,&AA,&C|
00000a60  43 2c 26 41 41 2c 26 43  41 3a ef 32 33 2c 32 33  |C,&AA,&CA:.23,23|
00000a70  34 3b 30 3b 26 39 30 2c  26 41 30 2c 26 43 30 2c  |4;0;&90,&A0,&C0,|
00000a80  26 41 30 2c 26 39 30 0d  01 fe f3 ef 32 33 2c 32  |&A0,&90.....23,2|
00000a90  33 35 3b 30 3b 26 43 45  2c 26 41 38 2c 26 41 43  |35;0;&CE,&A8,&AC|
00000aa0  2c 26 41 38 2c 26 43 45  3a ef 32 33 2c 32 33 36  |,&A8,&CE:.23,236|
00000ab0  3b 30 3b 26 38 30 2c 26  38 30 2c 26 38 30 2c 26  |;0;&80,&80,&80,&|
00000ac0  38 30 2c 26 45 30 3a ef  32 33 2c 32 33 37 3b 30  |80,&E0:.23,237;0|
00000ad0  3b 26 43 45 2c 26 41 38  2c 26 43 43 2c 26 41 38  |;&CE,&A8,&CC,&A8|
00000ae0  2c 26 41 45 3a ef 32 33  2c 32 33 38 3b 30 3b 26  |,&AE:.23,238;0;&|
00000af0  45 41 2c 26 34 41 2c 26  34 41 2c 26 34 41 2c 26  |EA,&4A,&4A,&4A,&|
00000b00  34 45 3a ef 32 33 2c 32  33 39 3b 30 3b 26 43 39  |4E:.23,239;0;&C9|
00000b10  2c 26 41 44 2c 26 43 42  2c 26 41 39 2c 26 41 39  |,&AD,&CB,&A9,&A9|
00000b20  3a ef 32 33 2c 32 34 30  3b 30 3b 26 45 45 2c 26  |:.23,240;0;&EE,&|
00000b30  38 41 2c 26 38 41 2c 26  38 41 2c 26 45 45 3a ef  |8A,&8A,&8A,&EE:.|
00000b40  32 33 2c 32 34 31 3b 30  3b 26 45 41 2c 26 41 41  |23,241;0;&EA,&AA|
00000b50  2c 26 45 34 2c 26 38 34  2c 26 38 34 3a ef 32 33  |,&E4,&84,&84:.23|
00000b60  2c 32 34 32 3b 26 32 30  2c 26 36 30 2c 26 46 46  |,242;&20,&60,&FF|
00000b70  2c 26 36 30 2c 26 32 30  3b 30 0d 02 08 e9 ef 32  |,&60,&20;0.....2|
00000b80  33 2c 32 34 33 3b 26 30  34 2c 26 30 36 2c 26 46  |3,243;&04,&06,&F|
00000b90  46 2c 26 30 36 2c 26 30  34 3b 30 3a ef 32 33 2c  |F,&06,&04;0:.23,|
00000ba0  32 34 35 2c 26 31 30 2c  26 33 38 2c 26 37 43 2c  |245,&10,&38,&7C,|
00000bb0  26 31 30 2c 26 31 30 2c  26 31 30 2c 26 31 30 2c  |&10,&10,&10,&10,|
00000bc0  26 31 30 3a ef 32 33 2c  32 34 34 2c 26 31 30 2c  |&10:.23,244,&10,|
00000bd0  26 31 30 2c 26 31 30 2c  26 31 30 2c 26 31 30 2c  |&10,&10,&10,&10,|
00000be0  26 37 43 2c 26 33 38 2c  26 31 30 3a ef 32 33 2c  |&7C,&38,&10:.23,|
00000bf0  32 34 36 3b 30 3b 26 45  45 2c 26 38 41 2c 26 45  |246;0;&EE,&8A,&E|
00000c00  45 2c 26 32 38 2c 26 45  38 3a ef 32 33 2c 32 34  |E,&28,&E8:.23,24|
00000c10  37 3b 30 3b 26 45 45 2c  26 41 38 2c 26 45 38 2c  |7;0;&EE,&A8,&E8,|
00000c20  26 41 38 2c 26 41 45 3a  ef 32 33 2c 32 34 38 3b  |&A8,&AE:.23,248;|
00000c30  30 3b 26 45 30 2c 26 38  30 2c 26 43 30 2c 26 38  |0;&E0,&80,&C0,&8|
00000c40  30 2c 26 45 30 3a ef 32  33 2c 32 34 39 2c 34 2c  |0,&E0:.23,249,4,|
00000c50  34 2c 34 2c 34 2c 34 2c  26 34 34 2c 26 46 43 2c  |4,4,4,4,&44,&FC,|
00000c60  26 34 30 0d 02 12 e4 ef  32 33 2c 32 35 30 2c 30  |&40.....23,250,0|
00000c70  3b 26 31 38 2c 26 33 43  2c 26 33 43 2c 26 31 38  |;&18,&3C,&3C,&18|
00000c80  2c 30 3b 3a 59 3d 31 30  32 33 3a 52 24 28 31 29  |,0;:Y=1023:R$(1)|
00000c90  3d 22 31 32 33 34 35 36  37 38 39 30 22 3a 41 24  |="1234567890":A$|
00000ca0  28 31 29 3d 22 2d 22 2b  6c 24 2b 72 24 3a 52 24  |(1)="-"+l$+r$:R$|
00000cb0  28 32 29 3d 22 71 77 65  72 74 79 75 69 6f 70 22  |(2)="qwertyuiop"|
00000cc0  3a 41 24 28 32 29 3d 75  24 2b 64 24 2b 63 24 3a  |:A$(2)=u$+d$+c$:|
00000cd0  52 24 28 33 29 3d 22 61  73 64 66 67 68 6a 6b 6c  |R$(3)="asdfghjkl|
00000ce0  22 3a 41 24 28 33 29 3d  22 3b 3a 22 3a 52 24 28  |":A$(3)=";:":R$(|
00000cf0  34 29 3d 22 7a 78 63 76  62 6e 6d 22 3a 41 24 28  |4)="zxcvbnm":A$(|
00000d00  34 29 3d 22 2c 2e 2f 22  3a 53 24 28 31 29 3d 22  |4)=",./":S$(1)="|
00000d10  21 22 22 23 24 25 26 27  28 29 40 22 3a 42 24 28  |!""#$%&'()@":B$(|
00000d20  31 29 3d 22 3d 5e 7c 22  3a 53 24 28 32 29 3d 22  |1)="=^|":S$(2)="|
00000d30  51 57 45 52 54 59 55 49  4f 50 22 3a 42 24 28 32  |QWERTYUIOP":B$(2|
00000d40  29 3d 22 60 5f 5b 22 0d  02 1c fe 53 24 28 33 29  |)="`_["....S$(3)|
00000d50  3d 22 41 53 44 46 47 48  4a 4b 4c 22 3a 42 24 28  |="ASDFGHJKL":B$(|
00000d60  33 29 3d 22 2b 2a 22 3a  53 24 28 34 29 3d 22 5a  |3)="+*":S$(4)="Z|
00000d70  58 43 56 42 4e 4d 22 3a  42 24 28 34 29 3d 22 3c  |XCVBNM":B$(4)="<|
00000d80  3e 3f 22 3a 47 24 3d 22  22 3a 48 24 3d 22 22 3a  |>?":G$="":H$="":|
00000d90  e3 69 3d 31 b8 34 3a 47  24 3d 47 24 2b 52 24 28  |.i=1.4:G$=G$+R$(|
00000da0  69 29 2b 41 24 28 69 29  3a 48 24 3d 48 24 2b 53  |i)+A$(i):H$=H$+S|
00000db0  24 28 69 29 2b 42 24 28  69 29 3a ed 3a 61 24 3d  |$(i)+B$(i):.:a$=|
00000dc0  22 61 62 63 64 65 66 67  68 69 6a 6b 6c 6d 6e 6f  |"abcdefghijklmno|
00000dd0  70 71 72 73 74 75 76 77  78 79 7a 41 42 43 44 45  |pqrstuvwxyzABCDE|
00000de0  46 47 48 49 4a 4b 4c 4d  4e 4f 50 51 52 53 54 55  |FGHIJKLMNOPQRSTU|
00000df0  56 57 58 59 5a 22 3a 66  24 3d 22 30 31 32 33 34  |VWXYZ":f$="01234|
00000e00  35 36 37 38 39 22 2b bd  32 35 35 2b 63 24 2b 6c  |56789"+.255+c$+l|
00000e10  24 2b 72 24 2b 64 24 2b  75 24 2b 22 41 42 43 44  |$+r$+d$+u$+"ABCD|
00000e20  45 46 47 48 49 4a 4b 4c  4d 4e 4f 50 51 52 53 54  |EFGHIJKLMNOPQRST|
00000e30  55 56 57 58 59 5a 3a 3b  3c 2d 3e 3f 22 3a e3 69  |UVWXYZ:;<->?":.i|
00000e40  3d 31 b8 34 38 0d 02 26  63 f3 46 24 28 69 29 3a  |=1.48..&c.F$(i):|
00000e50  ed 69 3a 46 24 28 31 33  29 3d bd 32 34 32 3a 46  |.i:F$(13)=.242:F|
00000e60  24 28 31 34 29 3d bd 32  34 33 3a 46 24 28 31 35  |$(14)=.243:F$(15|
00000e70  29 3d bd 32 34 34 3a 46  24 28 31 36 29 3d bd 32  |)=.244:F$(16)=.2|
00000e80  34 35 3a 46 24 28 33 31  29 3d 22 4f 4c 44 22 2b  |45:F$(31)="OLD"+|
00000e90  bd 32 34 39 3a 46 24 28  33 34 29 3d 22 52 55 4e  |.249:F$(34)="RUN|
00000ea0  22 2b bd 32 34 39 3a e1  0d 02 30 22 dc 66 30 2c  |"+.249:...0".f0,|
00000eb0  66 31 2c 66 32 2c 66 33  2c 66 34 2c 66 35 2c 66  |f1,f2,f3,f4,f5,f|
00000ec0  36 2c 66 37 2c 66 38 2c  66 39 0d 02 3a 18 dc 22  |6,f7,f8,f9..:.."|
00000ed0  22 2c 43 4f 50 59 2c 22  22 2c 22 22 2c 22 22 2c  |",COPY,"","","",|
00000ee0  22 22 0d 02 44 20 dc 41  55 54 4f 2c 52 45 4e 55  |""..D .AUTO,RENU|
00000ef0  4d 2c 43 4f 4c 4f 55 52  2c 44 52 41 57 2c 45 4c  |M,COLOUR,DRAW,EL|
00000f00  53 45 0d 02 4e 21 dc 46  4f 52 2c 47 4f 54 4f 2c  |SE..N!.FOR,GOTO,|
00000f10  44 45 47 2c 49 4e 50 55  54 2c 52 41 44 2c 43 48  |DEG,INPUT,RAD,CH|
00000f20  41 49 4e 0d 02 58 21 dc  4c 49 53 54 2c 4d 4f 44  |AIN..X!.LIST,MOD|
00000f30  45 2c 4e 45 58 54 2c 22  22 2c 50 4c 4f 54 2c 4c  |E,NEXT,"",PLOT,L|
00000f40  4f 43 41 4c 0d 02 62 1b  dc 22 22 2c 53 54 45 50  |OCAL..b.."",STEP|
00000f50  2c 54 48 45 4e 2c 55 4e  54 49 4c 2c 56 44 55 0d  |,THEN,UNTIL,VDU.|
00000f60  02 6c 1b dc 52 45 53 54  4f 52 2c 50 52 4f 43 2c  |.l..RESTOR,PROC,|
00000f70  52 45 50 45 41 54 2c 45  4e 44 0d 02 76 29 dc 46  |REPEAT,END..v).F|
00000f80  55 4e 43 2d 3a 2c 46 55  4e 43 2d 3b 2c 4c 4f 41  |UNC-:,FUNC-;,LOA|
00000f90  44 2c 46 55 4e 43 2d 2d  2c 53 41 56 45 2c 50 52  |D,FUNC--,SAVE,PR|
00000fa0  49 4e 54 0d 02 80 61 dd  f2 75 3a ec 31 30 33 38  |INT...a..u:.1038|
00000fb0  2c 59 2d 31 30 38 3a ef  32 34 32 3a ec 31 31 32  |,Y-108:.242:.112|
00000fc0  32 2c 59 2d 31 30 38 3a  ef 32 34 33 3a ec 31 30  |2,Y-108:.243:.10|
00000fd0  38 30 2c 59 2d 32 30 33  3a ef 32 34 34 3a ec 39  |80,Y-203:.244:.9|
00000fe0  39 38 2c 59 2d 32 30 33  3a ef 32 34 35 3a ec 31  |98,Y-203:.245:.1|
00000ff0  31 35 32 2c 59 2d 31 39  35 3a ef 32 34 30 2c 32  |152,Y-195:.240,2|
00001000  34 31 3a e1 0d 02 8a cf  dd f2 6d 3a ec 32 36 2c  |41:.......m:.26,|
00001010  59 2d 31 30 30 3a ef 32  33 31 2c 32 33 32 3a ec  |Y-100:.231,232:.|
00001020  35 36 2c 59 2d 31 39 35  3a ef 32 32 36 2c 32 32  |56,Y-195:.226,22|
00001030  37 3a ec 31 30 32 2c 59  2d 32 38 39 3a ef 32 32  |7:.102,Y-289:.22|
00001040  34 2c 32 32 35 3a ec 31  31 38 2c 59 2d 33 38 34  |4,225:.118,Y-384|
00001050  3a ef 32 32 38 2c 32 32  39 2c 32 33 30 3a ec 31  |:.228,229,230:.1|
00001060  32 30 32 2c 59 2d 31 30  30 3a ef 32 33 33 2c 32  |202,Y-100:.233,2|
00001070  33 34 3a ec 31 31 31 34  2c 59 2d 32 38 39 3a ef  |34:.1114,Y-289:.|
00001080  32 33 37 2c 32 33 38 2c  32 33 39 3a ec 31 30 38  |237,238,239:.108|
00001090  38 2c 59 2d 33 38 34 3a  ef 32 32 38 2c 32 32 39  |8,Y-384:.228,229|
000010a0  2c 32 33 30 3a ec 31 32  30 34 2c 59 2d 33 38 34  |,230:.1204,Y-384|
000010b0  3a ef 32 33 35 2c 32 33  36 3a ec 36 33 32 2c 59  |:.235,236:.632,Y|
000010c0  2d 34 37 31 3a ef 32 34  36 2c 32 34 37 2c 32 34  |-471:.246,247,24|
000010d0  38 3a e1 0d 02 94 3b dd  f2 70 3a ec 33 32 34 2c  |8:....;..p:.324,|
000010e0  59 2d 35 31 34 3a ec 39  39 36 2c 59 2d 35 31 34  |Y-514:.996,Y-514|
000010f0  3a f0 38 35 2c 33 32 34  2c 59 2d 34 36 34 3a f0  |:.85,324,Y-464:.|
00001100  38 35 2c 39 39 36 2c 59  2d 34 36 34 3a e1 0d 02  |85,996,Y-464:...|
00001110  9e fc dd f2 6e 3a f2 63  3a f1 27 27 27 27 22 20  |....n:.c:.''''" |
00001120  55 73 69 6e 67 20 74 68  69 73 20 70 72 6f 67 72  |Using this progr|
00001130  61 6d 20 73 68 6f 75 6c  64 20 68 65 6c 70 20 79  |am should help y|
00001140  6f 75 20 67 65 74 22 3a  f1 22 75 73 65 64 20 74  |ou get":."used t|
00001150  6f 20 74 68 65 20 6b 65  79 62 6f 61 72 64 2c 20  |o the keyboard, |
00001160  61 6e 64 20 73 68 6f 77  20 79 6f 75 20 68 6f 77  |and show you how|
00001170  22 3a f1 22 74 6f 20 67  65 74 20 61 6c 6c 20 6f  |":."to get all o|
00001180  66 20 74 68 65 20 66 75  6e 63 74 69 6f 6e 73 20  |f the functions |
00001190  6f 66 20 65 61 63 68 20  6b 65 79 2e 22 3b 3a f1  |of each key.";:.|
000011a0  27 22 20 54 68 65 20 63  6f 6d 70 75 74 65 72 20  |'" The computer |
000011b0  77 69 6c 6c 20 64 69 73  70 6c 61 79 20 61 20 63  |will display a c|
000011c0  68 61 72 61 63 74 65 72  22 3a f1 22 61 6e 64 20  |haracter":."and |
000011d0  77 61 69 74 20 66 6f 72  20 79 6f 75 20 74 6f 20  |wait for you to |
000011e0  66 69 6e 64 20 69 74 20  61 6e 64 20 70 72 65 73  |find it and pres|
000011f0  73 20 69 74 22 3b 3a f1  22 6f 6e 20 74 68 65 20  |s it";:."on the |
00001200  6b 65 79 62 6f 61 72 64  2e 22 0d 02 a8 e4 f1 27  |keyboard.".....'|
00001210  22 20 57 68 65 6e 20 79  6f 75 20 68 61 76 65 20  |" When you have |
00001220  64 6f 6e 65 20 73 6f 2c  74 68 65 20 63 6f 6d 70  |done so,the comp|
00001230  75 74 65 72 20 77 69 6c  6c 22 3b 3a f1 22 74 65  |uter will";:."te|
00001240  6c 6c 20 79 6f 75 20 74  68 65 20 74 69 6d 65 20  |ll you the time |
00001250  74 61 6b 65 6e 20 61 6e  64 20 79 6f 75 72 20 61  |taken and your a|
00001260  76 65 72 61 67 65 22 3b  3a f1 22 74 69 6d 65 20  |verage";:."time |
00001270  73 6f 20 66 61 72 2e 22  3a f1 27 22 20 50 72 65  |so far.":.'" Pre|
00001280  73 73 69 6e 67 20 74 68  65 20 45 53 43 41 50 45  |ssing the ESCAPE|
00001290  20 6b 65 79 20 77 69 6c  6c 20 74 61 6b 65 20 79  | key will take y|
000012a0  6f 75 22 3a f1 22 74 6f  20 74 68 65 20 65 6e 64  |ou":."to the end|
000012b0  20 6f 66 20 74 68 65 20  70 72 6f 67 72 61 6d 2e  | of the program.|
000012c0  22 3a f1 8a 37 2c 32 33  29 3b 22 50 72 65 73 73  |":..7,23);"Press|
000012d0  20 53 50 41 43 45 20 74  6f 20 63 6f 6e 74 69 6e  | SPACE to contin|
000012e0  75 65 22 3a f5 fd a6 28  2d 39 39 29 3a db 0d 02  |ue":...(-99):...|
000012f0  b2 e8 f1 27 22 20 54 68  65 20 63 68 61 72 61 63  |...'" The charac|
00001300  74 65 72 20 70 72 6f 64  75 63 65 64 20 77 68 65  |ter produced whe|
00001310  6e 20 79 6f 75 20 70 72  65 73 73 20 61 22 3b 3a  |n you press a";:|
00001320  f1 22 6b 65 79 20 64 65  70 65 6e 64 73 20 6f 6e  |."key depends on|
00001330  20 74 77 6f 20 74 68 69  6e 67 73 3a 22 3a f1 27  | two things:":.'|
00001340  22 20 31 2e 20 57 68 69  63 68 20 6f 74 68 65 72  |" 1. Which other|
00001350  20 6b 65 79 73 20 79 6f  75 20 61 72 65 20 70 72  | keys you are pr|
00001360  65 73 73 69 6e 67 3b 22  3a f1 22 20 20 20 20 53  |essing;":."    S|
00001370  48 49 46 54 2c 43 54 52  4c 20 61 6e 64 20 46 55  |HIFT,CTRL and FU|
00001380  4e 43 20 6b 65 79 73 20  63 68 61 6e 67 65 20 74  |NC keys change t|
00001390  68 65 22 3a f1 22 20 20  20 20 63 68 61 72 61 63  |he":."    charac|
000013a0  74 65 72 20 70 72 6f 64  75 63 65 64 2e 22 3a f1  |ter produced.":.|
000013b0  27 22 20 32 2e 20 57 68  65 74 68 65 72 20 43 41  |'" 2. Whether CA|
000013c0  50 53 20 4c 4f 43 4b 20  69 73 20 4f 4e 20 6f 72  |PS LOCK is ON or|
000013d0  20 4f 46 46 2e 22 0d 02  bc f3 f1 27 22 20 43 41  | OFF.".....'" CA|
000013e0  50 53 20 4c 4f 43 4b 20  63 61 6e 20 62 65 20 74  |PS LOCK can be t|
000013f0  6f 67 67 6c 65 64 20 4f  4e 2f 4f 46 46 20 62 79  |oggled ON/OFF by|
00001400  22 3a f1 22 68 6f 6c 64  69 6e 67 20 64 6f 77 6e  |":."holding down|
00001410  20 6f 6e 65 20 6f 66 20  74 68 65 20 53 48 49 46  | one of the SHIF|
00001420  54 20 6b 65 79 73 2c 20  61 6e 64 22 3a f1 22 70  |T keys, and":."p|
00001430  72 65 73 73 69 6e 67 20  74 68 65 20 6b 65 79 20  |ressing the key |
00001440  6d 61 72 6b 65 64 20 43  41 50 53 20 4c 4b 2f 46  |marked CAPS LK/F|
00001450  55 4e 43 2e 22 3a f1 22  54 68 65 20 73 6d 61 6c  |UNC.":."The smal|
00001460  6c 20 6c 69 67 68 74 20  74 6f 20 74 68 65 20 6c  |l light to the l|
00001470  65 66 74 20 6f 66 20 74  68 65 22 3a f1 22 43 41  |eft of the":."CA|
00001480  50 53 20 4c 4b 2f 46 55  4e 43 20 6b 65 79 20 69  |PS LK/FUNC key i|
00001490  6e 64 69 63 61 74 65 73  20 74 68 61 74 20 43 41  |ndicates that CA|
000014a0  50 53 22 3a f1 22 4c 4f  43 4b 20 69 73 20 4f 4e  |PS":."LOCK is ON|
000014b0  2e 22 3a f1 27 22 20 20  54 72 79 20 69 74 20 6e  |.":.'"  Try it n|
000014c0  6f 77 2e 2e 2e 2e 2e 22  27 0d 02 c6 98 f1 8a 31  |ow....."'......1|
000014d0  32 29 3b 22 43 41 50 53  20 4c 4f 43 4b 20 69 73  |2);"CAPS LOCK is|
000014e0  20 6e 6f 77 22 3a f1 8a  30 2c 32 33 29 3b 22 50  | now":..0,23);"P|
000014f0  72 65 73 73 20 53 50 41  43 45 20 77 68 65 6e 20  |ress SPACE when |
00001500  79 6f 75 20 77 61 6e 74  20 74 6f 20 63 6f 6e 74  |you want to cont|
00001510  69 6e 75 65 22 3b 3a 4e  3d 91 3a f5 fd 91 2d 4e  |inue";:N=.:...-N|
00001520  3e 35 30 3a f5 3a 41 25  3d 32 30 32 3a 58 25 3d  |>50:.:A%=202:X%=|
00001530  30 3a 59 25 3d 34 38 3a  e7 28 ba 28 26 46 46 46  |0:Y%=48:.(.(&FFF|
00001540  34 29 80 26 31 30 30 30  29 3d 26 31 30 30 30 8c  |4).&1000)=&1000.|
00001550  43 24 3d 22 4f 46 46 22  8b 43 24 3d 22 4f 4e 20  |C$="OFF".C$="ON |
00001560  22 0d 02 d0 19 f1 8a 31  39 2c 32 31 29 3b 43 24  |"......19,21);C$|
00001570  3a fd a6 28 2d 39 39 29  3a e1 0d 02 da 18 dd f2  |:..(-99):.......|
00001580  63 3a ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |c:.23,1,0;0;0;0;|
00001590  3a e1 0d 02 e4 28 dd f2  73 3a ef 32 38 3b 33 31  |:....(..s:.28;31|
000015a0  2c 33 39 2c 31 37 3a ef  32 34 3b 35 30 30 2c 31  |,39,17:.24;500,1|
000015b0  32 37 39 2c 31 30 32 33  3a e1 0d 02 ee 12 dd f2  |279,1023:.......|
000015c0  41 28 41 29 3a e7 41 8c  8d 54 4c 43 0d 02 f8 11  |A(A):.A..TLC....|
000015d0  2a 46 58 32 30 32 2c 31  36 2c 32 33 39 0d 03 02  |*FX202,16,239...|
000015e0  09 e5 8d 54 56 43 0d 03  0c 12 2a 46 58 32 30 32  |...TVC....*FX202|
000015f0  2c 31 32 38 2c 31 31 31  0d 03 16 05 e1 0d 03 20  |,128,111....... |
00001600  2e dd f2 71 28 70 25 2c  41 29 3a f2 5f 28 70 25  |...q(p%,A):._(p%|
00001610  29 3a 74 3d 30 3a 72 25  3d 30 3a e7 70 25 3d 35  |):t=0:r%=0:.p%=5|
00001620  8c 4e 25 3d 35 8b 4e 25  3d 31 30 0d 03 2a 5f e3  |.N%=5.N%=10..*_.|
00001630  71 25 3d 31 b8 4e 25 3a  db 3a f5 46 25 3d b3 28  |q%=1.N%:.:.F%=.(|
00001640  34 29 3a fd 51 24 28 46  25 29 3c 3e 22 22 3a 43  |4):.Q$(F%)<>"":C|
00001650  3d b3 28 a9 51 24 28 46  25 29 29 3a 44 3d 97 c1  |=.(.Q$(F%)):D=..|
00001660  51 24 28 46 25 29 2c 43  2c 31 29 3a 73 3d 28 a7  |Q$(F%),C,1):s=(.|
00001670  48 24 2c bd 44 29 3c 3e  30 29 3a e7 a7 61 24 2c  |H$,.D)<>0):..a$,|
00001680  bd 44 29 80 41 8c 73 3d  ac 73 0d 03 34 28 75 3d  |.D).A.s=.s..4(u=|
00001690  a9 28 53 24 28 46 25 29  2b 42 24 28 46 25 29 29  |.(S$(F%)+B$(F%))|
000016a0  3a e7 43 3c 3d 75 20 6b  25 3d 43 8b 6b 25 3d 43  |:.C<=u k%=C.k%=C|
000016b0  2d 75 0d 03 3e 34 78 25  3d 46 25 2a 34 32 2b 38  |-u..>4x%=F%*42+8|
000016c0  34 2a 6b 25 2d 33 32 3a  e7 70 25 3d 35 78 25 3d  |4*k%-32:.p%=5x%=|
000016d0  78 25 2b 31 31 2a 38 34  3a e7 46 25 3d 32 78 25  |x%+11*84:.F%=2x%|
000016e0  3d 78 25 2d 38 34 0d 03  48 41 79 25 3d 59 2d 34  |=x%-84..HAy%=Y-4|
000016f0  35 2d 39 35 2a 46 25 3a  4e 3d 91 3a f5 fd 91 2d  |5-95*F%:N=.:...-|
00001700  4e 3e 35 30 3a 45 3d a3  3a f2 44 28 22 46 69 6e  |N>50:E=.:.D("Fin|
00001710  64 20 22 2b a4 6c 28 44  29 2c 31 34 2c 31 29 3a  |d "+.l(D),14,1):|
00001720  2a 46 58 31 35 2c 30 0d  03 52 39 54 3d 91 3a f5  |*FX15,0..R9T=.:.|
00001730  3a f2 41 28 41 29 3a 48  3d a6 28 30 29 3a 64 25  |:.A(A):H=.(0):d%|
00001740  3d 91 2d 54 3a e7 28 64  25 3e 32 35 30 29 80 ac  |=.-T:.(d%>250)..|
00001750  45 f2 67 28 78 25 2c 79  25 2c 73 29 3a 45 3d b9  |E.g(x%,y%,s):E=.|
00001760  0d 03 5c 14 fd 48 3c 3e  2d 31 3a e7 48 3d 44 f2  |..\..H<>-1:.H=D.|
00001770  42 8b f2 45 0d 03 66 45  40 25 3d 26 39 30 41 3a  |B..E..fE@%=&90A:|
00001780  f1 8a 38 2c 31 33 29 3b  22 50 72 65 73 73 20 53  |..8,13);"Press S|
00001790  50 41 43 45 20 74 6f 20  63 6f 6e 74 69 6e 75 65  |PACE to continue|
000017a0  22 3a f5 fd a6 28 2d 39  39 29 3a e7 45 8c f2 67  |":...(-99):.E..g|
000017b0  28 78 25 2c 79 25 2c 73  29 0d 03 70 0c f2 63 3a  |(x%,y%,s)..p..c:|
000017c0  ed 71 25 3a e1 0d 03 7a  1a dd a4 6c 28 63 29 3a  |.q%:...z...l(c):|
000017d0  e7 63 3d 31 33 8c 3d 22  52 45 54 55 52 4e 22 0d  |.c=13.="RETURN".|
000017e0  03 84 14 e7 63 3d 31 32  37 8c 3d 22 44 45 4c 45  |....c=127.="DELE|
000017f0  54 45 22 0d 03 8e 1b e7  63 3c 33 32 8c 3d 22 43  |TE".....c<32.="C|
00001800  54 52 4c 2d 22 2b bd 28  63 2b 26 34 30 29 0d 03  |TRL-"+.(c+&40)..|
00001810  98 0e e7 63 3c 31 32 38  8c 3d bd 63 0d 03 a2 0e  |...c<128.=.c....|
00001820  3d 46 24 28 63 2d 31 32  37 29 0d 03 ac a8 dd a4  |=F$(c-127)......|
00001830  72 28 70 25 29 3a db 3a  f2 63 3a f2 44 28 22 20  |r(p%):.:.c:.D(" |
00001840  45 6e 64 20 6f 66 20 70  61 72 74 20 22 2b c3 70  |End of part "+.p|
00001850  25 2c 2d 31 2c 31 29 3a  f1 27 27 27 27 22 59 6f  |%,-1,1):.''''"Yo|
00001860  75 20 67 6f 74 20 22 3b  72 25 3b 22 20 6f 75 74  |u got ";r%;" out|
00001870  20 6f 66 20 22 3b 4e 25  3b 22 20 63 6f 72 72 65  | of ";N%;" corre|
00001880  63 74 2e 22 3a f1 27 27  22 50 72 65 73 73 20 20  |ct.":.''"Press  |
00001890  20 41 20 20 20 20 74 6f  20 72 65 70 65 61 74 20  | A    to repeat |
000018a0  74 68 69 73 20 74 65 73  74 2e 22 3a f1 27 22 50  |this test.":.'"P|
000018b0  72 65 73 73 20 53 50 41  43 45 20 74 6f 20 67 6f  |ress SPACE to go|
000018c0  20 6f 6e 20 74 6f 20 6e  65 78 74 20 70 61 72 74  | on to next part|
000018d0  2e 22 0d 03 b6 13 e7 a6  28 2d 39 39 29 8c 3d 22  |."......(-99).="|
000018e0  4e 45 58 54 22 0d 03 c0  14 e7 a6 28 2d 36 36 29  |NEXT"......(-66)|
000018f0  8c 3d 22 41 47 41 49 4e  22 0d 03 ca 09 e5 8d 74  |.="AGAIN"......t|
00001900  76 43 0d 03 d4 33 dd f2  74 28 70 25 29 3a f2 63  |vC...3..t(p%):.c|
00001910  3a f2 46 3a ee 70 25 e5  8d 64 5e 43 2c 8d 64 72  |:.F:.p%..d^C,.dr|
00001920  43 2c 8d 54 46 44 2c 8d  54 6e 44 2c 8d 44 42 44  |C,.TFD,.TnD,.DBD|
00001930  2c 8d 44 4c 44 0d 03 de  f8 f1 27 27 27 22 20 43  |,.DLD.....'''" C|
00001940  41 50 53 20 4c 4f 43 4b  20 77 69 6c 6c 20 62 65  |APS LOCK will be|
00001950  20 6f 6e 20 69 6e 20 74  68 69 73 20 70 61 72 74  | on in this part|
00001960  2e 22 3a f1 27 22 20 54  68 69 73 20 6d 65 61 6e  |.":.'" This mean|
00001970  73 20 74 68 61 74 20 74  68 65 20 6c 65 74 74 65  |s that the lette|
00001980  72 20 6b 65 79 73 20 77  69 6c 6c 22 3a f1 22 70  |r keys will":."p|
00001990  72 6f 64 75 63 65 20 63  61 70 69 74 61 6c 73 20  |roduce capitals |
000019a0  28 22 22 75 70 70 65 72  20 63 61 73 65 22 22 29  |(""upper case"")|
000019b0  2c 20 61 6e 64 22 3a f1  22 74 68 65 20 6f 74 68  |, and":."the oth|
000019c0  65 72 20 6b 65 79 73 20  77 69 6c 6c 20 70 72 6f  |er keys will pro|
000019d0  64 75 63 65 20 74 68 65  20 6c 6f 77 65 72 22 3a  |duce the lower":|
000019e0  f1 22 6f 66 20 74 68 65  20 32 20 6f 72 20 33 20  |."of the 2 or 3 |
000019f0  73 79 6d 62 6f 6c 73 20  6f 6e 20 74 68 65 20 6b  |symbols on the k|
00001a00  65 79 2e 22 3a f1 27 22  20 54 68 69 73 20 70 61  |ey.":.'" This pa|
00001a10  72 74 20 74 65 73 74 73  20 6f 6e 6c 79 20 74 68  |rt tests only th|
00001a20  65 20 6b 65 79 73 20 73  68 6f 77 6e 22 0d 03 e8  |e keys shown"...|
00001a30  16 f1 22 61 62 6f 76 65  2e 22 3a f2 47 3a e5 8d  |.."above.":.G:..|
00001a40  44 56 44 0d 03 f2 f4 f1  27 27 27 22 20 43 41 50  |DVD.....'''" CAP|
00001a50  53 20 4c 4f 43 4b 20 77  69 6c 6c 20 61 6c 73 6f  |S LOCK will also|
00001a60  20 62 65 20 6f 6e 20 69  6e 20 74 68 69 73 20 70  | be on in this p|
00001a70  61 72 74 2e 22 3a f1 22  20 57 68 69 6c 65 20 43  |art.":." While C|
00001a80  41 50 53 20 4c 4f 43 4b  20 69 73 20 6f 6e 2c 20  |APS LOCK is on, |
00001a90  79 6f 75 20 63 61 6e 20  6f 62 74 61 69 6e 22 3a  |you can obtain":|
00001aa0  f1 22 73 6d 61 6c 6c 20  28 22 22 6c 6f 77 65 72  |."small (""lower|
00001ab0  20 63 61 73 65 22 22 29  20 6c 65 74 74 65 72 73  | case"") letters|
00001ac0  20 62 79 20 68 6f 6c 64  69 6e 67 22 3a f1 22 64  | by holding":."d|
00001ad0  6f 77 6e 20 53 48 49 46  54 2e 20 53 48 49 46 54  |own SHIFT. SHIFT|
00001ae0  20 77 69 74 68 20 74 68  65 20 6f 74 68 65 72 20  | with the other |
00001af0  6b 65 79 73 22 3a f1 22  77 69 6c 6c 20 70 72 6f  |keys":."will pro|
00001b00  64 75 63 65 20 74 68 65  20 73 79 6d 62 6f 6c 20  |duce the symbol |
00001b10  6f 6e 20 74 68 65 20 74  6f 70 2c 20 6f 72 22 3a  |on the top, or":|
00001b20  f1 22 74 6f 70 20 6c 65  66 74 20 6f 66 20 74 68  |."top left of th|
00001b30  65 20 6b 65 79 2e 22 0d  03 fc 43 f1 22 20 54 68  |e key."...C." Th|
00001b40  69 73 20 70 61 72 74 20  74 65 73 74 73 20 74 68  |is part tests th|
00001b50  65 20 27 73 68 69 66 74  65 64 27 20 6b 65 79 73  |e 'shifted' keys|
00001b60  22 3a f1 22 73 68 6f 77  6e 20 61 62 6f 76 65 2e  |":."shown above.|
00001b70  22 3a f2 47 3a e5 8d 44  56 44 0d 04 06 fc f1 27  |":.G:..DVD.....'|
00001b80  27 27 22 43 41 50 53 20  4c 4f 43 4b 20 77 69 6c  |''"CAPS LOCK wil|
00001b90  6c 20 73 74 69 6c 6c 20  62 65 20 6f 6e 20 69 6e  |l still be on in|
00001ba0  20 74 68 69 73 20 70 61  72 74 2e 22 3a f1 22 20  | this part.":." |
00001bb0  4e 6f 77 20 61 6c 6c 20  74 68 65 20 6b 65 79 73  |Now all the keys|
00001bc0  20 66 72 6f 6d 20 70 61  72 74 73 20 31 20 61 6e  | from parts 1 an|
00001bd0  64 20 32 22 3a f1 22 77  69 6c 6c 20 62 65 20 74  |d 2":."will be t|
00001be0  65 73 74 65 64 2e 22 3a  f1 27 22 20 54 68 65 20  |ested.":.'" The |
00001bf0  27 75 6e 73 68 69 66 74  65 64 27 20 6b 65 79 73  |'unshifted' keys|
00001c00  20 61 72 65 20 73 68 6f  77 6e 20 61 62 6f 76 65  | are shown above|
00001c10  2e 22 3a f1 22 50 72 65  73 73 20 61 6e 64 20 68  |.":."Press and h|
00001c20  6f 6c 64 20 61 20 53 48  49 46 54 20 6b 65 79 20  |old a SHIFT key |
00001c30  74 6f 20 73 65 65 20 74  68 65 22 3a f1 22 27 73  |to see the":."'s|
00001c40  68 69 66 74 65 64 27 20  6b 65 79 73 2e 22 3a f1  |hifted' keys.":.|
00001c50  8a 34 2c 31 33 29 3b 22  50 72 65 73 73 20 53 50  |.4,13);"Press SP|
00001c60  41 43 45 20 74 6f 20 62  65 67 69 6e 20 74 68 65  |ACE to begin the|
00001c70  20 74 65 73 74 22 0d 04  10 23 47 3d a3 3a f5 3a  | test"...#G=.:.:|
00001c80  e7 a6 28 2d 31 29 80 ac  47 8c f2 77 28 33 29 3a  |..(-1)..G..w(3):|
00001c90  f2 77 28 32 29 3a 47 3d  b9 0d 04 1a 1d e7 47 80  |.w(2):G=......G.|
00001ca0  ac a6 28 2d 31 29 8c f2  77 28 32 29 3a f2 77 28  |..(-1)..w(2):.w(|
00001cb0  33 29 3a 47 3d a3 0d 04  24 17 f2 63 3a fd a6 28  |3):G=...$..c:..(|
00001cc0  2d 39 39 29 80 ac 47 3a  e5 8d 44 56 44 0d 04 2e  |-99)..G:..DVD...|
00001cd0  f3 f1 27 27 27 22 20 4e  6f 77 20 43 41 50 53 20  |..'''" Now CAPS |
00001ce0  4c 4f 43 4b 20 77 69 6c  6c 20 62 65 20 74 75 72  |LOCK will be tur|
00001cf0  6e 65 64 20 6f 66 66 2e  22 3a f1 27 22 20 54 68  |ned off.":.'" Th|
00001d00  65 20 6c 65 74 74 65 72  20 6b 65 79 73 20 6e 6f  |e letter keys no|
00001d10  77 20 70 72 6f 64 75 63  65 20 63 61 70 69 74 61  |w produce capita|
00001d20  6c 22 3a f1 22 6c 65 74  74 65 72 73 20 77 68 65  |l":."letters whe|
00001d30  6e 20 70 72 65 73 73 65  64 20 77 69 74 68 20 74  |n pressed with t|
00001d40  68 65 20 53 48 49 46 54  22 3a f1 22 6b 65 79 20  |he SHIFT":."key |
00001d50  61 6e 64 20 73 6d 61 6c  6c 20 6c 65 74 74 65 72  |and small letter|
00001d60  73 20 6f 74 68 65 72 77  69 73 65 2e 4f 74 68 65  |s otherwise.Othe|
00001d70  72 22 3a f1 22 6b 65 79  73 20 61 72 65 20 61 73  |r":."keys are as|
00001d80  20 69 6e 20 74 68 65 20  70 72 65 76 69 6f 75 73  | in the previous|
00001d90  20 70 61 72 74 73 2e 22  3a f1 27 22 20 54 68 69  | parts.":.'" Thi|
00001da0  73 20 70 61 72 74 20 74  65 73 74 73 20 62 6f 74  |s part tests bot|
00001db0  68 20 27 73 68 69 66 74  65 64 27 20 61 6e 64 22  |h 'shifted' and"|
00001dc0  0d 04 38 21 f1 22 27 75  6e 73 68 69 66 74 65 64  |..8!."'unshifted|
00001dd0  27 20 6b 65 79 73 2e 22  3a f2 47 3a e5 8d 44 56  |' keys.":.G:..DV|
00001de0  44 0d 04 42 f7 f1 27 27  27 22 20 41 20 66 65 77  |D..B..'''" A few|
00001df0  20 63 68 61 72 61 63 74  65 72 73 20 61 72 65 20  | characters are |
00001e00  6f 62 74 61 69 6e 65 64  20 62 79 20 75 73 69 6e  |obtained by usin|
00001e10  67 22 3a f1 22 74 68 65  20 43 54 52 4c 20 6b 65  |g":."the CTRL ke|
00001e20  79 20 69 6e 20 74 68 65  20 73 61 6d 65 20 77 61  |y in the same wa|
00001e30  79 20 61 73 20 74 68 65  22 3a f1 22 53 48 49 46  |y as the":."SHIF|
00001e40  54 20 6b 65 79 2e 22 3a  f1 27 22 20 54 68 65 20  |T key.":.'" The |
00001e50  63 68 61 72 61 63 74 65  72 73 20 61 72 65 20 70  |characters are p|
00001e60  72 69 6e 74 65 64 20 6f  6e 20 74 68 65 20 74 6f  |rinted on the to|
00001e70  70 22 3a f1 22 72 69 67  68 74 20 6f 66 20 73 6f  |p":."right of so|
00001e80  6d 65 20 6b 65 79 73 20  61 6e 64 20 61 72 65 20  |me keys and are |
00001e90  61 6c 73 6f 20 73 68 6f  77 6e 22 3a f1 22 61 62  |also shown":."ab|
00001ea0  6f 76 65 2e 22 3a f1 27  22 54 68 69 73 20 70 61  |ove.":.'"This pa|
00001eb0  72 74 20 74 65 73 74 73  20 74 68 65 73 65 20 27  |rt tests these '|
00001ec0  63 6f 6e 74 72 6f 6c 27  20 6b 65 79 73 2e 22 3a  |control' keys.":|
00001ed0  f2 47 3a e5 8d 44 56 44  0d 04 4c ca f1 27 27 27  |.G:..DVD..L..'''|
00001ee0  22 66 30 2d 66 39 20 61  6e 64 20 42 41 53 49 43  |"f0-f9 and BASIC|
00001ef0  20 6b 65 79 77 6f 72 64  73 20 61 72 65 20 6f 62  | keywords are ob|
00001f00  74 61 69 6e 65 64 22 3a  f1 22 62 79 20 75 73 69  |tained":."by usi|
00001f10  6e 67 20 74 68 65 20 46  55 4e 43 20 6b 65 79 20  |ng the FUNC key |
00001f20  69 6e 20 74 68 65 20 73  61 6d 65 20 77 61 79 22  |in the same way"|
00001f30  3a f1 22 61 73 20 65 69  74 68 65 72 20 74 68 65  |:."as either the|
00001f40  20 53 48 49 46 54 20 6f  72 20 43 54 52 4c 20 6b  | SHIFT or CTRL k|
00001f50  65 79 2e 22 3a f1 27 22  20 54 68 65 20 6b 65 79  |ey.":.'" The key|
00001f60  77 6f 72 64 73 20 61 72  65 20 70 72 69 6e 74 65  |words are printe|
00001f70  64 20 69 6e 20 6c 69 67  68 74 20 62 72 6f 77 6e  |d in light brown|
00001f80  22 3a f1 22 6f 6e 20 74  68 65 20 66 72 6f 6e 74  |":."on the front|
00001f90  20 6f 66 20 73 6f 6d 65  20 6b 65 79 73 2e 22 3a  | of some keys.":|
00001fa0  f2 47 0d 04 56 05 e1 0d  04 60 1e dd f2 46 3a f2  |.G..V....`...F:.|
00001fb0  44 28 22 50 61 72 74 20  22 2b c3 70 25 2c 2d 31  |D("Part "+.p%,-1|
00001fc0  2c 30 29 3a e1 0d 04 6a  3a dd f2 47 3a f1 8a 34  |,0):...j:..G:..4|
00001fd0  2c 31 33 29 3b 22 50 72  65 73 73 20 53 50 41 43  |,13);"Press SPAC|
00001fe0  45 20 74 6f 20 62 65 67  69 6e 20 74 68 65 20 74  |E to begin the t|
00001ff0  65 73 74 22 3a f5 fd a6  28 2d 39 39 29 3a e1 0d  |est":...(-99):..|
00002000  04 74 6c dd f2 6f 3a e6  33 2c 31 3a e3 49 25 3d  |.tl..o:.3,1:.I%=|
00002010  31 31 b8 31 32 3a ec 31  31 34 2b 49 25 2a 38 34  |11.12:.114+I%*84|
00002020  2c 59 2d 31 30 38 3a f1  c1 22 7e 5c 22 2c 49 25  |,Y-108:.."~\",I%|
00002030  2d 31 30 2c 31 29 3a ed  49 25 3a e3 49 25 3d 31  |-10,1):.I%:.I%=1|
00002040  30 b8 31 32 3a ec 31 35  36 2b 49 25 2a 38 34 2c  |0.12:.156+I%*84,|
00002050  59 2d 32 30 33 3a f1 c1  22 7b 7d 5d 22 2c 49 25  |Y-203:.."{}]",I%|
00002060  2d 39 2c 31 29 3a ed 49  25 3a e1 0d 04 7e 3f dd  |-9,1):.I%:...~?.|
00002070  f2 67 28 78 25 2c 79 25  2c 73 29 3a ef 35 3a e6  |.g(x%,y%,s):.5:.|
00002080  34 2c 30 3a e7 73 8c f2  76 28 39 34 2c 59 2d 34  |4,0:.s..v(94,Y-4|
00002090  32 34 2c 31 31 36 29 3a  f2 76 28 31 30 36 30 2c  |24,116):.v(1060,|
000020a0  59 2d 34 32 34 2c 31 31  36 29 0d 04 88 19 e7 70  |Y-424,116).....p|
000020b0  25 3d 35 8c f2 76 28 39  34 2c 59 2d 33 32 39 2c  |%=5..v(94,Y-329,|
000020c0  37 32 29 0d 04 92 19 e7  70 25 3d 36 8c f2 76 28  |72).....p%=6..v(|
000020d0  35 32 2c 59 2d 32 33 35  2c 37 32 29 0d 04 9c 1d  |52,Y-235,72)....|
000020e0  f2 76 28 78 25 2c 79 25  2c 37 32 29 3a e6 30 2c  |.v(x%,y%,72):.0,|
000020f0  31 3a ef 34 3a f2 63 3a  e1 0d 04 a6 3d dd f2 76  |1:.4:.c:....=..v|
00002100  28 78 25 2c 79 25 2c 6c  25 29 3a e3 45 25 3d 79  |(x%,y%,l%):.E%=y|
00002110  25 2b 34 b8 79 25 2b 34  30 88 34 3a ec 78 25 2b  |%+4.y%+40.4:.x%+|
00002120  34 2c 45 25 3a df 78 25  2b 28 6c 25 2d 34 29 2c  |4,E%:.x%+(l%-4),|
00002130  45 25 3a ed 3a e1 0d 04  b0 97 dd f2 42 3a f2 44  |E%:.:.......B:.D|
00002140  28 22 43 6f 72 72 65 63  74 21 22 2c 2d 31 2c 34  |("Correct!",-1,4|
00002150  29 3a 40 25 3d 26 32 32  33 3a f1 8a 30 2c 37 29  |):@%=&223:..0,7)|
00002160  22 59 6f 75 20 74 6f 6f  6b 20 20 20 20 20 22 3b  |"You took     ";|
00002170  64 25 2f 31 30 30 3b 22  20 73 65 63 6f 6e 64 73  |d%/100;" seconds|
00002180  2e 22 3a 74 3d 74 2b 64  25 2f 31 30 30 3a 74 3d  |.":t=t+d%/100:t=|
00002190  a8 28 74 2a 31 30 30 29  2f 31 30 30 3a 72 25 3d  |.(t*100)/100:r%=|
000021a0  72 25 2b 31 3a f1 8a 30  2c 39 29 22 41 76 65 72  |r%+1:..0,9)"Aver|
000021b0  61 67 65 20 74 69 6d 65  20 22 3b 74 2f 72 25 3b  |age time ";t/r%;|
000021c0  22 20 73 65 63 6f 6e 64  73 2e 22 3a e1 0d 04 ba  |" seconds.":....|
000021d0  1b dd f2 45 3a e7 ac 45  8c f2 67 28 78 25 2c 79  |...E:..E..g(x%,y|
000021e0  25 2c 73 29 3a 45 3d b9  0d 04 c4 2c f2 44 28 22  |%,s):E=....,.D("|
000021f0  59 6f 75 20 74 79 70 65  64 20 22 2b a4 6c 28 48  |You typed "+.l(H|
00002200  29 2c 2d 31 2c 33 29 3a  e7 a4 63 8c f2 66 3a e5  |),-1,3):..c..f:.|
00002210  8d 64 58 44 0d 04 ce 40  f1 8a 30 2c 37 29 22 59  |.dXD...@..0,7)"Y|
00002220  6f 75 20 73 68 6f 75 6c  64 20 68 61 76 65 20 70  |ou should have p|
00002230  72 65 73 73 65 64 20 22  3b a4 6b 28 44 29 3a f1  |ressed ";.k(D):.|
00002240  27 22 69 6e 73 74 65 61  64 20 6f 66 20 22 3b a4  |'"instead of ";.|
00002250  6b 28 48 29 0d 04 d8 05  e1 0d 04 e2 36 dd a4 63  |k(H)........6..c|
00002260  3a 46 24 3d 22 6c 31 3a  7c 2d 5f 4f 30 22 3a 70  |:F$="l1:|-_O0":p|
00002270  3d a7 46 24 2c bd 48 29  3a 46 3d a7 46 24 2c bd  |=.F$,.H):F=.F$,.|
00002280  44 29 3a e7 70 3c 46 8c  6d 3d 70 8b 6d 3d 46 0d  |D):.p<F.m=p.m=F.|
00002290  04 ec 19 3d 28 94 28 70  2d 46 29 3d 31 29 80 28  |...=(.(p-F)=1).(|
000022a0  28 6d 83 32 29 3d 31 29  0d 04 f6 17 dd f2 66 3a  |(m.2)=1)......f:|
000022b0  e7 a7 22 6c 31 22 2c bd  48 29 8c 8d 54 5e 45 0d  |.."l1",.H)..T^E.|
000022c0  05 00 13 e7 a7 22 3a 7c  22 2c bd 48 29 8c 8d 54  |.....":|",.H)..T|
000022d0  68 45 0d 05 0a 13 e7 a7  22 2d 5f 22 2c bd 48 29  |hE......"-_",.H)|
000022e0  8c 8d 54 72 45 0d 05 14  50 f1 8a 30 2c 37 29 3b  |..TrE...P..0,7);|
000022f0  22 59 6f 75 20 68 61 76  65 20 63 6f 6e 66 75 73  |"You have confus|
00002300  65 64 20 74 68 65 20 6c  65 74 74 65 72 20 22 22  |ed the letter ""|
00002310  4f 22 22 20 77 69 74 68  22 3a f1 27 22 74 68 65  |O"" with":.'"the|
00002320  20 6e 75 6d 62 65 72 20  22 22 30 22 22 2e 22 3a  | number ""0"".":|
00002330  e5 8d 54 7c 45 0d 05 1e  50 f1 8a 30 2c 37 29 3b  |..T|E...P..0,7);|
00002340  22 59 6f 75 20 68 61 76  65 20 63 6f 6e 66 75 73  |"You have confus|
00002350  65 64 20 74 68 65 20 6c  65 74 74 65 72 20 22 22  |ed the letter ""|
00002360  6c 22 22 20 77 69 74 68  22 3a f1 27 22 74 68 65  |l"" with":.'"the|
00002370  20 6e 75 6d 62 65 72 20  22 22 31 22 22 2e 22 3a  | number ""1"".":|
00002380  e5 8d 54 7c 45 0d 05 28  5f f1 8a 30 2c 37 29 3b  |..T|E..(_..0,7);|
00002390  22 59 6f 75 20 68 61 76  65 20 63 6f 6e 66 75 73  |"You have confus|
000023a0  65 64 20 74 68 65 20 63  6f 6c 6f 6e 20 22 22 3a  |ed the colon "":|
000023b0  22 22 20 77 69 74 68 22  3a f1 27 22 74 68 65 20  |"" with":.'"the |
000023c0  76 65 72 74 69 63 61 6c  20 62 61 72 20 63 68 61  |vertical bar cha|
000023d0  72 61 63 74 65 72 20 22  22 7c 22 22 2e 22 3a e5  |racter ""|"".":.|
000023e0  8d 54 7c 45 0d 05 32 4c  f1 8a 30 2c 37 29 3b 22  |.T|E..2L..0,7);"|
000023f0  59 6f 75 20 68 61 76 65  20 63 6f 6e 66 75 73 65  |You have confuse|
00002400  64 20 74 68 65 20 6d 69  6e 75 73 20 22 22 2d 22  |d the minus ""-"|
00002410  22 20 77 69 74 68 22 3a  f1 27 22 74 68 65 20 75  |" with":.'"the u|
00002420  6e 64 65 72 6c 69 6e 65  20 22 22 5f 22 22 2e 22  |nderline ""_""."|
00002430  0d 05 3c 05 e1 0d 05 46  1a dd a4 6b 28 63 29 3a  |..<....F...k(c):|
00002440  e7 63 3d 31 33 8c 3d 22  52 45 54 55 52 4e 22 0d  |.c=13.="RETURN".|
00002450  05 50 12 e7 63 3d 33 32  8c 3d 22 53 50 41 43 45  |.P..c=32.="SPACE|
00002460  22 0d 05 5a 14 e7 63 3d  31 32 37 8c 3d 22 44 45  |"..Z..c=127.="DE|
00002470  4c 45 54 45 22 0d 05 64  20 e7 63 3c 33 32 8c 3d  |LETE"..d .c<32.=|
00002480  22 43 54 52 4c 20 77 69  74 68 20 22 2b bd 28 63  |"CTRL with "+.(c|
00002490  2b 26 34 30 29 0d 05 6e  31 69 3d a7 22 7e 5c 7b  |+&40)..n1i=."~\{|
000024a0  7d 5d 22 2c bd 63 29 3a  e7 69 8c 3d 22 43 54 52  |}]",.c):.i.="CTR|
000024b0  4c 20 77 69 74 68 20 22  2b a4 6c 28 97 c1 44 24  |L with "+.l(..D$|
000024c0  2c 69 2c 31 29 29 0d 05  78 0c e7 ac 41 8c 8d 74  |,i,1))..x...A..t|
000024d0  56 45 0d 05 82 17 69 3d  a7 61 24 2c bd 63 29 3a  |VE....i=.a$,.c):|
000024e0  e7 69 3d 30 8c 8d 74 56  45 0d 05 8c 26 e7 69 3c  |.i=0..tVE...&.i<|
000024f0  3d 32 36 8c 3d 22 53 48  49 46 54 20 77 69 74 68  |=26.="SHIFT with|
00002500  20 22 2b bd 28 63 2d 26  32 30 29 8b 3d bd 63 0d  | "+.(c-&20).=.c.|
00002510  05 96 13 e7 a7 47 24 2c  bd 63 29 8c 3d a4 6c 28  |.....G$,.c).=.l(|
00002520  63 29 0d 05 a0 2d 69 3d  a7 48 24 2c bd 63 29 3a  |c)...-i=.H$,.c):|
00002530  e7 69 8c 3d 22 53 48 49  46 54 20 77 69 74 68 20  |.i.="SHIFT with |
00002540  22 2b a4 6c 28 97 c1 47  24 2c 69 2c 31 29 29 0d  |"+.l(..G$,i,1)).|
00002550  05 aa 1e 3d 22 46 55 4e  43 20 77 69 74 68 20 22  |...="FUNC with "|
00002560  2b c1 66 24 2c 63 2d 31  32 37 2c 31 29 0d 05 b4  |+.f$,c-127,1)...|
00002570  f2 dd a4 61 3a f1 27 27  27 22 20 59 6f 75 20 68  |...a:.'''" You h|
00002580  61 76 65 20 63 6f 6d 70  6c 65 74 65 64 20 61 6c  |ave completed al|
00002590  6c 20 74 68 65 20 70 61  72 74 73 2e 22 3a f1 27  |l the parts.":.'|
000025a0  22 59 6f 75 20 63 61 6e  20 6e 6f 77 20 72 65 70  |"You can now rep|
000025b0  65 61 74 20 61 6e 79 20  6f 66 20 74 68 65 20 70  |eat any of the p|
000025c0  61 72 74 73 2c 20 6f 72  22 3a f1 27 22 67 6f 20  |arts, or":.'"go |
000025d0  74 6f 20 74 68 65 20 45  6e 64 20 6f 66 20 74 68  |to the End of th|
000025e0  65 20 70 72 6f 67 72 61  6d 2e 22 3a f1 27 27 22  |e program.":.''"|
000025f0  43 41 50 53 20 4c 4f 43  4b 20 4f 4e 22 3a f1 27  |CAPS LOCK ON":.'|
00002600  22 20 20 31 2e 20 55 6e  73 68 69 66 74 65 64 20  |"  1. Unshifted |
00002610  6b 65 79 73 22 3a f1 27  22 20 20 32 2e 20 53 68  |keys":.'"  2. Sh|
00002620  69 66 74 65 64 20 6b 65  79 73 22 3a f1 27 22 20  |ifted keys":.'" |
00002630  20 33 2e 20 55 6e 73 68  69 66 74 65 64 20 26 20  | 3. Unshifted & |
00002640  73 68 69 66 74 65 64 20  6b 65 79 73 22 3a f1 27  |shifted keys":.'|
00002650  22 43 41 50 53 20 4c 4f  43 4b 20 4f 46 46 22 0d  |"CAPS LOCK OFF".|
00002660  05 be 7b f1 27 22 20 20  34 2e 20 55 6e 73 68 69  |..{.'"  4. Unshi|
00002670  66 74 65 64 20 26 20 73  68 69 66 74 65 64 20 6b  |fted & shifted k|
00002680  65 79 73 22 3a f1 27 22  20 20 35 2e 20 43 54 52  |eys":.'"  5. CTR|
00002690  4c 20 6b 65 79 73 22 3a  f1 27 22 20 20 36 2e 20  |L keys":.'"  6. |
000026a0  46 55 4e 43 20 6b 65 79  73 22 3a f1 27 27 22 20  |FUNC keys":.''" |
000026b0  20 45 2e 20 47 6f 20 74  6f 20 74 68 65 20 65 6e  | E. Go to the en|
000026c0  64 20 6f 66 20 74 68 65  20 70 72 6f 67 72 61 6d  |d of the program|
000026d0  2e 22 3a 2a 46 58 31 35  2c 30 0d 05 c8 45 f1 27  |.":*FX15,0...E.'|
000026e0  27 22 59 6f 75 72 20 63  68 6f 69 63 65 20 3f 20  |'"Your choice ? |
000026f0  22 3b 3a f5 3a 42 24 3d  bf 28 30 29 3a fd a7 22  |";:.:B$=.(0):.."|
00002700  20 31 32 33 34 35 36 45  65 22 2c 42 24 29 3e 31  | 123456Ee",B$)>1|
00002710  3a e7 a7 22 45 65 22 2c  42 24 29 8c 3d 2d 31 0d  |:.."Ee",B$).=-1.|
00002720  05 d2 0a 3d bb 28 42 24  29 0d 05 dc 33 dd f2 44  |...=.(B$)...3..D|
00002730  28 41 24 2c 78 25 2c 79  25 29 3a e7 78 25 3c 30  |(A$,x%,y%):.x%<0|
00002740  8c f1 8a 28 33 38 2d a9  41 24 29 2f 32 2c 79 25  |...(38-.A$)/2,y%|
00002750  29 3b 8b f1 8a 78 25 2c  79 25 29 3b 0d 05 e6 34  |);...x%,y%);...4|
00002760  e3 44 25 3d 31 b8 a9 41  24 3a 4b 25 3d a4 43 28  |.D%=1..A$:K%=.C(|
00002770  97 c1 41 24 2c 44 25 2c  31 29 29 3a ef 32 35 34  |..A$,D%,1)):.254|
00002780  2c 31 30 2c 38 2c 32 35  35 2c 31 31 3a ed 3a e1  |,10,8,255,11:.:.|
00002790  0d 05 f0 5c dd a4 43 28  43 25 29 3a 3f 42 3d 43  |...\..C(C%):?B=C|
000027a0  25 3a 41 25 3d 31 30 3a  58 25 3d 42 3a 59 25 3d  |%:A%=10:X%=B:Y%=|
000027b0  42 81 32 35 36 3a d6 26  46 46 46 31 3a e3 4a 25  |B.256:.&FFF1:.J%|
000027c0  3d 30 b8 31 3a ef 32 33  2c 4a 25 2b 32 35 34 3a  |=0.1:.23,J%+254:|
000027d0  e3 49 25 3d 32 b8 39 3a  ef 42 3f 28 4a 25 2a 34  |.I%=2.9:.B?(J%*4|
000027e0  2b 49 25 81 32 29 3a ed  2c 3a 3d 30 0d ff        |+I%.2):.,:=0..|
000027ee
WELCOME/Keyboard.m0
WELCOME/Keyboard.m1
WELCOME/Keyboard.m2
WELCOME/Keyboard.m4
WELCOME/Keyboard.m5