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:
- AEW website » acornsoft » acornsoft_3_5_discs_Electron_Welcome_Disc_HA-WELC.adf » Welcome/Keyboard
- AEW website » acp_pres » acp_pres_3_5_discs_Electron-Adfs-E00_A-E00.adf » WELCOME/Keyboard
- Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF » WELCOME/Keyboard
- Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Welcome/Keyboard
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » WELCOME/Keyboard
- Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » WELCOME/Keyboard
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
.