P/MICROTY

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_43.ADF » P/MICROTY

P/MICROTY

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

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

Tape/disk:	Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_43.ADF
Filename:	P/MICROTY
Read OK:	✔
File size:	1780 bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

Duplicates

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

AEW website » kansas » kansas_3_5_discs_Microtype_HA-MTYP.adf » MICROTY
AEW website » kansas » kansas_5_25_discs_Kansas-Collection-3_D-KAN3.ssd » B.MICROTY
AEW website » kansas » kansas_5_25_discs_Microtype_HD-MTYP.ssd » MICROTY
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_43.ADF » P/MICROTY
Personal collection » Acorn hard disk » zipped_disks » elk06 » eug43/P/MICROTY

File contents

   10ONERRORRUN
   20MODE6
   30CLEAR:PROCINIT:PROCTITLE
   40PROCMENU:ONA%GOTO80,210,30
   50AC%=0:G%=G%+1:IFG%>LEN(K$)THEN60ELSEFL$=FL$+CHR$(KE%(H%)):KE%(H%)=AS%(G%):RETURN
   60IFFL$=""THEN70ELSEFORAB%=1TOLEN(FL$):IFASC(MID$(FL$,AB%,1))=KE%(H%)AC%=1:NEXT ELSENEXT
   70IFAC%<>1FL$=FL$+CHR$(KE%(H%)):KE%(H%)=AS%(RND(LEN(K$))):RETURN:ELSEKE%(H%)=AS%(RND(LEN(K$))):RETURN
   80CLS:PRINTTAB(11,1)"# KEY EXERCISES #":ER%=0:V%=0:N%=0:PROCSPEED:IFA%=4THEN40
   90R%=6000/S%+0.5:IFA%<>3FL$=""
  100FORL%=1TO5:FORM%=1TO2:A1$="":A4$="":FORY%=1TO4:A2$=A2$+CHR$(KE%(Y%)):NEXT:FORY%=5TO8:A3$=A3$+CHR$(KE%(Y%)):NEXT:A1$=A2$+CHR$32+A3$:A2$="":A3$="":CLS:PRINTTAB(14,5)A1$:IFN%=0PROCSPC(0,18)
  110N%=N%+1:PRINTTAB(14,6);:*FX15,1
  120FORI%=1TOLEN(A1$):TIME=0:I$=GET$:X%(I%)=TIME:IFI$>"`"ANDI$<"{"I$=CHR$(ASC(I$)-32)
  130IFI$=MID$(A1$,I%,1)VDUASC(I$)ELSEVDU255:ER%=ER%+1
  140A4$=A4$+I$:NEXT:FORJ%=1TOLEN(A1$):W%=W%+X%(J%):NEXT
  150V%=V%+W%:W%=0:IFM%=1FORO%=1TO9:X%(O%)=0:NEXT:GOTO180ELSEFORH%=1TO4:IFX%(H%)<R%ANDKE%(H%)=ASC(MID$(A4$,H%,1))THENGOSUB50:NEXTELSENEXTH%
  160FORH%=5TO8:IFX%(H%)<R%ANDKE%(H%)=ASC(MID$(A4$,H%,1))GOSUB50:NEXTELSENEXTH%
  170FORO%=1TO9:X%(O%)=0:NEXT
  180FORX%=1TO8:C%=RND(8):D%=9-C%:E%=KE%(C%):KE%(C%)=KE%(D%):KE%(D%)=E%:NEXT,,
  190VDU28,0,24,39,3,12:PRINTTAB(10,1)"# LESSON ANALYSIS #":IFFL$>" "PRINT'''"You exceeded ";S%WP$CHR$127'TF$:FORI%=1TOLEN(FL$):PRINTMID$(FL$,I%,1);:NEXT
  200PRINT'''CH$;INT(15/(V%/6000)+0.5)WP$'''YA$INT(100.5-(ER%/90)*100)"%.":PROCSPC(-1,21):FL%=4:GOTO40
  210CLS:PRINTTAB(8,1)"# PRACTICE PARAGRAPH #":PROCSPEED:IFA%=4THEN40
  220V1%=0:ER1%=0:a%=0:b%=0:PP$="":P4$="":SK$="":SP$="":MK$="":MP$="":IFG%>LEN(K$)ORG%=8THEN260ELSEIFFL$=""THEN270ELSEC%=0:FW$=FL$
  230H%=LEN(FW$)
  240CH%=ASC(MID$(FW$,H%,1))-32:C%=C%+1:IFC%=19THEN280ELSEH%=H%-1
  250PP$=PP$+W$(CH%,RND(4))+" ":IFH%=0THEN230ELSE240
  260FORI%=1TO18:PP$=PP$+CW$(RND(91))+" ":NEXT:GOTO280
  270FORI%=1TO8:FW$=FW$+CHR$(KE%(I%)):NEXT:C%=0:GOTO230
  280IFLEN(PP$)>110THEN220ELSECLS:PRINT''';:FORI%=1TOLEN(PP$):IFPOS<>39THEN300ELSEIFMID$(PP$,I%,1)<>" "REPEATI%=I%-1:VDU127:UNTILMID$(PP$,I%,1)=" ":PRINT'''';ELSEPRINT'''';
  290PP$=LEFT$(PP$,I%-1)+RIGHT$(PP$,LEN(PP$)-I%):IFa%=0a%=I%ELSEb%=I%
  300PRINTMID$(PP$,I%,1);:NEXT:PROCSPC(0,18):PRINTTAB(0,4);:*FX15,1
  310FORI%=1TOLEN(PP$)-1:IFI%=a%ORI%=b%PRINT'''';
  320TIME=0:I$=GET$:X%(I%)=TIME:IFI$>"`"ANDI$<"{"I$=CHR$(ASC(I$)-32)
  330IFI$=MID$(PP$,I%,1)VDUASC(I$)ELSEVDU255:ER1%=ER1%+1
  340P4$=P4$+I$:NEXT:PRINT''''"Paragraph analysis in progress ";:R1%=6000/S%+0.5:FORI%=1TOLEN(PP$):IFMID$(P4$,I%,1)<>MID$(PP$,I%,1)MK$=MK$+MID$(PP$,I%,1):NEXTELSEIFR1%<X%(I%)SK$=SK$+MID$(PP$,I%,1):NEXTELSENEXT
  350IFMK$=""MK$=CHR$0
  360IFSK$=""SK$=CHR$0
  370FORI%=1TOLEN(SK$):SK%(I%)=ASC(MID$(SK$,I%,1)):NEXT:FORI%=1TOLEN(MK$):MK%(I%)=ASC(MID$(MK$,I%,1)):NEXT:B%=2
  380REPEATFORI%=B%TOLEN(SK$):IFSK%(I%)=0NEXTELSEIFSK%(I%)=SK%(B%-1)SK%(I%)=0:NEXTELSENEXT
  390B%=B%+1:UNTILB%>=LEN(SK$):FORI%=1TOLEN(SK$):IFSK%(I%)=0ORSK%(I%)=32NEXTELSESP$=SP$+CHR$(SK%(I%)):NEXT
  400B%=2:REPEATFORI%=B%TOLEN(MK$):IFMK%(I%)=0NEXTELSEIFMK%(I%)=MK%(B%-1)MK%(I%)=0:NEXTELSENEXT
  410B%=B%+1:UNTILB%>=LEN(MK$):FORI%=1TOLEN(MK$):IFMK%(I%)=0ORMK%(I%)=32NEXTELSEMP$=MP$+CHR$(MK%(I%)):NEXT
  420FORI%=1TOLEN(PP$)-1:V1%=V1%+X%(I%):X%(I%)=0:NEXT:VDU28,0,24,39,3,12:PRINTTAB(8,1)"# PARAGRAPH ANALYSIS #"'''CH$;INT(((LEN(PP$)-1)/6)/((V1%/100)/60)+0.5)WP$'''YA$INT(100.5-(ER1%/(LEN(PP$)-1))*100)"%."
  430IFSP$>" "PRINT''"You were slow "TF$:FORI%=1TOLEN(SP$):PRINTMID$(SP$,I%,1)" ";:NEXT:PRINT
  440IFMP$>" "PRINT''"You miskeyed "TF$:FORI%=1TOLEN(MP$):PRINTMID$(MP$,I%,1)" ";:NEXT
  450PROCSPC(-1,21):FL%=4:GOTO40
  460DATA!1DL!,!KF!,+@SJ!,!!;AL,,,,,#3#,AL#.,SL#!,#L#A#,D$4$,KS$S$,$33.14,L$K$,99%44%,89.1%,A%K%,HS%21%,SS&L&,65&L&,F&LK,&JS&,'DFLK','LASS','FADS','GLAD',(DD$),(LK$),(HD$),(SS$),(22/7),(K/SS),(0.3*JS),(ABS(K),5*DL,IS*8,LS*AK,33*13,+,+,+,+
  470DATA"L$,5","S,J,L","H,A,","E,L,",-10,1-17,S-K,L-F,0.6,7.33,END.,6.02,22/67,D/LS,2+D/Z,E.G./??/,0.01,(0),0.03,100,11*0.1,0.11*11,1101,11,22.02,2*22.2,2020,2112,3321,313,331,233,442,144,414,3443,552,545,552,155,636,6461,1661,2646,7722
  480DATA7137,7377,1277,8080,1881,2828,8585,9913,9494,9359,999.2,"?:?:?",":?:?A;",":","DD:?L",A$;K$;,LS$;,A;K;D;,HD;,<,>,<>,<>,A=D,L=ABS,F=K$,=,<>,>,>=,<>,?A,?KD,?F$,?33,?@222,?@A,?@JJ,?@455,ALL,LAD,SAD,AAH,BBNL,ABBA,BBS,SBBL,CKAC,CJSC,;CC;
  490DATAJSCC,DAD,DDL,LDD,KDKD,REEL,EEL,ELSE,FEEL,DAFF,SAFF,JAFFA,FF;SS,GAG,G;GK,AGLG,JAGG,HASH,H;HS,JHSH,DHKH,LIJI,KIJI,;IJI,JIJI,JLKJ,;JKJ,JJLK,LKJJ,KLKJ,;KKJ,KLLK,JKLK,FALL,LSLK,LALJ,DALL,MAM,MIME,MLAM,KMLM,DNLN,NJLN,NEDN,NALN,LOOK,TOOK
  500DATAOSLO,ROOF,PEEPS,PUPS,SUPP,SAPP,QDAQ,SQUQ,QADQ,DQFQ,RFAR,RAFR,SRAR,ARFR,LASS,SAS,SALS,SLKS,STAT,TALT,FTAT,DTST,GURU,LULU,KUJU,UKUK,VFSV,AVSV,DVSV,AVDV,WSAW,FWSW,SWSW,WAWD,SXAX,FXAX,XSAX,DXSX,JYKY,LYKY,HYJY,YLHY,ZAZ,JAZZ,FIZZ,ZAPZ
  510DATAABS,ACS,ADVAL,AND,ASC,ASN,ATN,AUTO,BGET#,BPUT#,CALL,"CHAIN""",CHR$,CLEAR,CLOSE#,CLG,CLS,COLOUR,COS,COUNT,DATA,DEFFN,DEFPROC,DEG,DELETE,DIM,DIV,DRAW,ELSE,END,ENDPROC,EOF#,EOR,ERL,ERR,EVAL,EXP,EXT#,FOR,GCOL,GET,GET$,GOTO,GOSUB,HIMEM
  520DATAIF,INKEY,INKEY$,INPUT,INPUT#,INSTR(,INT,LEFT$(,LEN,LET,LIST,LISTO,LN,"LOAD""",LOCAL,LOG,LOMEM,MID$(,MOD,MODE,MOVE,NEW,NEXT,NOT,OLD,ON,ONERROR,OPENOUT,OPENIN,OPT,OR,PAGE,PI,PLOT,POINT(,POS,PRINT,PRINT#,PTR#,RAD,READ,REM,RENUMBER
  530DATAREPEAT,REPORT,RESTORE,RETURN,RIGHT$(,RND(,RUN,"SAVE""",SGN,SIN,SOUND,SPC,SQR,STEP,STOP,STR$(,STRING$(,TAB(,TAN,THEN,TIME,TO,TOP,TRACE,TRUE,UNTIL,USR,VAL,VDU,VPOS,WIDTH,ENVELOPE
  540DEFPROCINIT:RESTORE:DIMX%(111),SK%(111),MK%(111):FL%=3:S%=0:PP$=STRING$(120,"*"):P4$=PP$:MK$=PP$:SK$=PP$:PP$="":P4$="":MK$="":SK$=""
  550K$="ASDF;LKJGHRTUYEIWOQPVNBCMX,Z.@+/?:*1!23#4$5%6&7'8(9)0-=""":DIMAS%(LEN(K$)):G%=8:DIMKE%(9):FORX%=1TOLEN(K$):AS%(X%)=ASC(MID$(K$,X%,1)):NEXT:FORX%=1TO8:KE%(X%)=AS%(X%):NEXT:FL$="":PR$="Practice Paragraph.":TF$="on the following keys"
  560DIMW$(58,4),CW$(120):FORI%=1TO58:FORX%=1TO4:READW$(I%,X%):NEXT,:FORI%=1TO120:READCW$(I%):NEXT:FORI%=1TO4:W$(2,I%)="""":NEXT:CH$="Your average typing speed (including    errors) was "
  570YA$="Your accuracy was ":WP$=" words per minute.":ENDPROC
  580DEFPROCTITLE:VDU26,12:PRINTTAB(4,1)"K A N S A S   M I C R O T Y P E":ENDPROC
  590DEFPROCMENU:VDU28,0,24,39,3,12:PRINTTAB(8,1)"# # #   M E N U   # # #"'''''"1.  Home Keys and Key Practice."''"2.  "PR$:IFFL%=4PRINT'"3.  Reset Program."
  600PRINTTAB(0,17)"Please press the number"'"of the option required  ";:*FX15,1
  610REPEATA%=GET-48:UNTILA%>0ANDA%<FL%:ENDPROC
  620DEFPROCSPEED:VDU28,0,24,39,6:IFS%>0THEN640
  630INPUTTAB(0,3)"Please enter your initial typing speed,"''"10-100 words per minute  "I$:S%=VAL(LEFT$(I$,3)):GOTO690
  640PRINTTAB(0,2)"Response time is currently"';S%WP$'''"1.  ";:IFS%<100PRINT"Increase Response Time."ELSEPRINT"*"
  650PRINT'"2.  ";:IFS%>10PRINT"Decrease Response Time."ELSEPRINT"*"
  660PRINT'"3.  Same Response Time."''"4.  Return to MENU."
  670PRINTTAB(0,16)"Please press the number"'"of the option required  ";:*FX15,1
  680REPEATA%=GET-48:UNTILA%>0ANDA%<5:IFA%=1S%=S%+10ELSEIFA%=2S%=S%-10
  690IFS%>100S%=100ELSEIFS%<10S%=10
  700ENDPROC
  710DEFPROCSPC(t%,y%):PRINTTAB(0,y%)"Press the SPACE BAR to ";:IFt%PRINT"continue ";:ELSEPRINT"start ";
  720*FX15,1
  730REPEATUNTILGET=32:PRINTTAB(0,y%)SPC(37);:ENDPROC


�
�6
�:�INIT:�TITLE
(�MENU:�A%�DP@,�dR@,�T^@
2EAC%=0:G%=G%+1:�G%>�(K$)��T|@�FL$=FL$+�(KE%(H%)):KE%(H%)=AS%(G%):�
<@�FL$=""��DF@��AB%=1��(FL$):�(�FL$,AB%,1))=KE%(H%)AC%=1:� ��
FN�AC%<>1FL$=FL$+�(KE%(H%)):KE%(H%)=AS%(�(�(K$))):�:�KE%(H%)=AS%(�(�(K$))):�
PB�:�11,1)"# KEY EXERCISES #":ER%=0:V%=0:N%=0:�SPEED:�A%=4��Th@
ZR%=6000/S%+0.5:�A%<>3FL$=""
d��L%=1�5:�M%=1�2:A1$="":A4$="":�Y%=1�4:A2$=A2$+�(KE%(Y%)):�:�Y%=5�8:A3$=A3$+�(KE%(Y%)):�:A1$=A2$+�32+A3$:A2$="":A3$="":�:�14,5)A1$:�N%=0�SPC(0,18)
nN%=N%+1:�14,6);:*FX15,1
x?�I%=1��(A1$):�=0:I$=�:X%(I%)=�:�I$>"`"�I$<"{"I$=�(�(I$)-32)
�'�I$=�A1$,I%,1)�(I$)��255:ER%=ER%+1
�,A4$=A4$+I$:�:�J%=1��(A1$):W%=W%+X%(J%):�
�dV%=V%+W%:W%=0:�M%=1�O%=1�9:X%(O%)=0:�:�tt@��H%=1�4:�X%(H%)<R%�KE%(H%)=�(�A4$,H%,1))��Tr@:��H%
�7�H%=5�8:�X%(H%)<R%�KE%(H%)=�(�A4$,H%,1))�Tr@:��H%
��O%=1�9:X%(O%)=0:�
�E�X%=1�8:C%=�(8):D%=9-C%:E%=KE%(C%):KE%(C%)=KE%(D%):KE%(D%)=E%:�,,
�w�28,0,24,39,3,12:�10,1)"# LESSON ANALYSIS #":�FL$>" "�'''"You exceeded ";S%WP$�127'TF$:�I%=1��(FL$):�FL$,I%,1);:�
�Y�'''CH$;�(15/(V%/6000)+0.5)WP$'''YA$�(100.5-(ER%/90)*100)"%.":�SPC(-1,21):FL%=4:�Th@
�6�:�8,1)"# PRACTICE PARAGRAPH #":�SPEED:�A%=4��Th@
�rV1%=0:ER1%=0:a%=0:b%=0:PP$="":P4$="":SK$="":SP$="":MK$="":MP$="":�G%>�(K$)�G%=8��TDA��FL$=""��TNA�C%=0:FW$=FL$
�
H%=�(FW$)
�4CH%=�(�FW$,H%,1))-32:C%=C%+1:�C%=19��TXA�H%=H%-1
�,PP$=PP$+W$(CH%,�(4))+" ":�H%=0��df@��dp@
+�I%=1�18:PP$=PP$+CW$(�(91))+" ":�:�TXA
+�I%=1�8:FW$=FW$+�(KE%(I%)):�:C%=0:�df@
q�(PP$)>110��d\@��:�''';:�I%=1��(PP$):�<>39��TlA��PP$,I%,1)<>" "�I%=I%-1:�127:��PP$,I%,1)=" ":�'''';��'''';
"3PP$=�PP$,I%-1)+�PP$,�(PP$)-I%):�a%=0a%=I%�b%=I%
,-�PP$,I%,1);:�:�SPC(0,18):�0,4);:*FX15,1
6%�I%=1��(PP$)-1:�I%=a%�I%=b%�'''';
@2�=0:I$=�:X%(I%)=�:�I$>"`"�I$<"{"I$=�(�(I$)-32)
J)�I$=�PP$,I%,1)�(I$)��255:ER1%=ER1%+1
T�P4$=P4$+I$:�:�''''"Paragraph analysis in progress ";:R1%=6000/S%+0.5:�I%=1��(PP$):�P4$,I%,1)<>�PP$,I%,1)MK$=MK$+�PP$,I%,1):��R1%<X%(I%)SK$=SK$+�PP$,I%,1):��
^�MK$=""MK$=�0
h�SK$=""SK$=�0
rR�I%=1��(SK$):SK%(I%)=�(�SK$,I%,1)):�:�I%=1��(MK$):MK%(I%)=�(�MK$,I%,1)):�:B%=2
|>��I%=B%��(SK$):�SK%(I%)=0��SK%(I%)=SK%(B%-1)SK%(I%)=0:��
�PB%=B%+1:�B%>=�(SK$):�I%=1��(SK$):�SK%(I%)=0�SK%(I%)=32�SP$=SP$+�(SK%(I%)):�
�CB%=2:��I%=B%��(MK$):�MK%(I%)=0��MK%(I%)=MK%(B%-1)MK%(I%)=0:��
�PB%=B%+1:�B%>=�(MK$):�I%=1��(MK$):�MK%(I%)=0�MK%(I%)=32�MP$=MP$+�(MK%(I%)):�
���I%=1��(PP$)-1:V1%=V1%+X%(I%):X%(I%)=0:�:�28,0,24,39,3,12:�8,1)"# PARAGRAPH ANALYSIS #"'''CH$;�(((�(PP$)-1)/6)/((V1%/100)/60)+0.5)WP$'''YA$�(100.5-(ER1%/(�(PP$)-1))*100)"%."
�C�SP$>" "�''"You were slow "TF$:�I%=1��(SP$):�SP$,I%,1)" ";:�:�
�@�MP$>" "�''"You miskeyed "TF$:�I%=1��(MP$):�MP$,I%,1)" ";:�
��SPC(-1,21):FL%=4:�Th@
���!1DL!,!KF!,+@SJ!,!!;AL,,,,,#3#,AL#.,SL#!,#L#A#,D$4$,KS$S$,$33.14,L$K$,99%44%,89.1%,A%K%,HS%21%,SS&L&,65&L&,F&LK,&JS&,'DFLK','LASS','FADS','GLAD',(DD$),(LK$),(HD$),(SS$),(22/7),(K/SS),(0.3*JS),(ABS(K),5*DL,IS*8,LS*AK,33*13,+,+,+,+
���"L$,5","S,J,L","H,A,","E,L,",-10,1-17,S-K,L-F,0.6,7.33,END.,6.02,22/67,D/LS,2+D/Z,E.G./??/,0.01,(0),0.03,100,11*0.1,0.11*11,1101,11,22.02,2*22.2,2020,2112,3321,313,331,233,442,144,414,3443,552,545,552,155,636,6461,1661,2646,7722
���7137,7377,1277,8080,1881,2828,8585,9913,9494,9359,999.2,"?:?:?",":?:?A;",":","DD:?L",A$;K$;,LS$;,A;K;D;,HD;,<,>,<>,<>,A=D,L=ABS,F=K$,=,<>,>,>=,<>,?A,?KD,?F$,?33,?@222,?@A,?@JJ,?@455,ALL,LAD,SAD,AAH,BBNL,ABBA,BBS,SBBL,CKAC,CJSC,;CC;
���JSCC,DAD,DDL,LDD,KDKD,REEL,EEL,ELSE,FEEL,DAFF,SAFF,JAFFA,FF;SS,GAG,G;GK,AGLG,JAGG,HASH,H;HS,JHSH,DHKH,LIJI,KIJI,;IJI,JIJI,JLKJ,;JKJ,JJLK,LKJJ,KLKJ,;KKJ,KLLK,JKLK,FALL,LSLK,LALJ,DALL,MAM,MIME,MLAM,KMLM,DNLN,NJLN,NEDN,NALN,LOOK,TOOK
���OSLO,ROOF,PEEPS,PUPS,SUPP,SAPP,QDAQ,SQUQ,QADQ,DQFQ,RFAR,RAFR,SRAR,ARFR,LASS,SAS,SALS,SLKS,STAT,TALT,FTAT,DTST,GURU,LULU,KUJU,UKUK,VFSV,AVSV,DVSV,AVDV,WSAW,FWSW,SWSW,WAWD,SXAX,FXAX,XSAX,DXSX,JYKY,LYKY,HYJY,YLHY,ZAZ,JAZZ,FIZZ,ZAPZ
���ABS,ACS,ADVAL,AND,ASC,ASN,ATN,AUTO,BGET#,BPUT#,CALL,"CHAIN""",CHR$,CLEAR,CLOSE#,CLG,CLS,COLOUR,COS,COUNT,DATA,DEFFN,DEFPROC,DEG,DELETE,DIM,DIV,DRAW,ELSE,END,ENDPROC,EOF#,EOR,ERL,ERR,EVAL,EXP,EXT#,FOR,GCOL,GET,GET$,GOTO,GOSUB,HIMEM
��IF,INKEY,INKEY$,INPUT,INPUT#,INSTR(,INT,LEFT$(,LEN,LET,LIST,LISTO,LN,"LOAD""",LOCAL,LOG,LOMEM,MID$(,MOD,MODE,MOVE,NEW,NEXT,NOT,OLD,ON,ONERROR,OPENOUT,OPENIN,OPT,OR,PAGE,PI,PLOT,POINT(,POS,PRINT,PRINT#,PTR#,RAD,READ,REM,RENUMBER
��REPEAT,REPORT,RESTORE,RETURN,RIGHT$(,RND(,RUN,"SAVE""",SGN,SIN,SOUND,SPC,SQR,STEP,STOP,STR$(,STRING$(,TAB(,TAN,THEN,TIME,TO,TOP,TRACE,TRUE,UNTIL,USR,VAL,VDU,VPOS,WIDTH,ENVELOPE
t��INIT:�:�X%(111),SK%(111),MK%(111):FL%=3:S%=0:PP$=�120,"*"):P4$=PP$:MK$=PP$:SK$=PP$:PP$="":P4$="":MK$="":SK$=""
&�K$="ASDF;LKJGHRTUYEIWOQPVNBCMX,Z.@+/?:*1!23#4$5%6&7'8(9)0-=""":�AS%(�(K$)):G%=8:�KE%(9):�X%=1��(K$):AS%(X%)=�(�K$,X%,1)):�:�X%=1�8:KE%(X%)=AS%(X%):�:FL$="":PR$="Practice Paragraph.":TF$="on the following keys"
0��W$(58,4),CW$(120):�I%=1�58:�X%=1�4:�W$(I%,X%):�,:�I%=1�120:�CW$(I%):�:�I%=1�4:W$(2,I%)="""":�:CH$="Your average typing speed (including    errors) was "
:7YA$="Your accuracy was ":WP$=" words per minute.":�
D<��TITLE:�26,12:�4,1)"K A N S A S   M I C R O T Y P E":�
N���MENU:�28,0,24,39,3,12:�8,1)"# # #   M E N U   # # #"'''''"1.  Home Keys and Key Practice."''"2.  "PR$:�FL%=4�'"3.  Reset Program."
XH�0,17)"Please press the number"'"of the option required  ";:*FX15,1
b�A%=�-48:�A%>0�A%<FL%:�
l$��SPEED:�28,0,24,39,6:�S%>0��t@B
ve�0,3)"Please enter your initial typing speed,"''"10-100 words per minute  "I$:S%=�(�I$,3)):�trB
�^�0,2)"Response time is currently"';S%WP$'''"1.  ";:�S%<100�"Increase Response Time."��"*"
�3�'"2.  ";:�S%>10�"Decrease Response Time."��"*"
�6�'"3.  Same Response Time."''"4.  Return to MENU."
�H�0,16)"Please press the number"'"of the option required  ";:*FX15,1
�3�A%=�-48:�A%>0�A%<5:�A%=1S%=S%+10��A%=2S%=S%-10
��S%>100S%=100��S%<10S%=10
��
�O��SPC(t%,y%):�0,y%)"Press the SPACE BAR to ";:�t%�"continue ";:��"start ";
�*FX15,1
����=32:�0,y%)�(37);:�
�

00000000  0d 00 0a 07 ee 85 f9 0d  00 14 06 eb 36 0d 00 1e  |............6...|
00000010  12 d8 3a f2 49 4e 49 54  3a f2 54 49 54 4c 45 0d  |..:.INIT:.TITLE.|
00000020  00 28 1c f2 4d 45 4e 55  3a ee 41 25 e5 8d 44 50  |.(..MENU:.A%..DP|
00000030  40 2c 8d 64 52 40 2c 8d  54 5e 40 0d 00 32 45 41  |@,.dR@,.T^@..2EA|
00000040  43 25 3d 30 3a 47 25 3d  47 25 2b 31 3a e7 47 25  |C%=0:G%=G%+1:.G%|
00000050  3e a9 28 4b 24 29 8c 8d  54 7c 40 8b 46 4c 24 3d  |>.(K$)..T|@.FL$=|
00000060  46 4c 24 2b bd 28 4b 45  25 28 48 25 29 29 3a 4b  |FL$+.(KE%(H%)):K|
00000070  45 25 28 48 25 29 3d 41  53 25 28 47 25 29 3a f8  |E%(H%)=AS%(G%):.|
00000080  0d 00 3c 40 e7 46 4c 24  3d 22 22 8c 8d 44 46 40  |..<@.FL$=""..DF@|
00000090  8b e3 41 42 25 3d 31 b8  a9 28 46 4c 24 29 3a e7  |..AB%=1..(FL$):.|
000000a0  97 28 c1 46 4c 24 2c 41  42 25 2c 31 29 29 3d 4b  |.(.FL$,AB%,1))=K|
000000b0  45 25 28 48 25 29 41 43  25 3d 31 3a ed 20 8b ed  |E%(H%)AC%=1:. ..|
000000c0  0d 00 46 4e e7 41 43 25  3c 3e 31 46 4c 24 3d 46  |..FN.AC%<>1FL$=F|
000000d0  4c 24 2b bd 28 4b 45 25  28 48 25 29 29 3a 4b 45  |L$+.(KE%(H%)):KE|
000000e0  25 28 48 25 29 3d 41 53  25 28 b3 28 a9 28 4b 24  |%(H%)=AS%(.(.(K$|
000000f0  29 29 29 3a f8 3a 8b 4b  45 25 28 48 25 29 3d 41  |))):.:.KE%(H%)=A|
00000100  53 25 28 b3 28 a9 28 4b  24 29 29 29 3a f8 0d 00  |S%(.(.(K$))):...|
00000110  50 42 db 3a f1 8a 31 31  2c 31 29 22 23 20 4b 45  |PB.:..11,1)"# KE|
00000120  59 20 45 58 45 52 43 49  53 45 53 20 23 22 3a 45  |Y EXERCISES #":E|
00000130  52 25 3d 30 3a 56 25 3d  30 3a 4e 25 3d 30 3a f2  |R%=0:V%=0:N%=0:.|
00000140  53 50 45 45 44 3a e7 41  25 3d 34 8c 8d 54 68 40  |SPEED:.A%=4..Th@|
00000150  0d 00 5a 1f 52 25 3d 36  30 30 30 2f 53 25 2b 30  |..Z.R%=6000/S%+0|
00000160  2e 35 3a e7 41 25 3c 3e  33 46 4c 24 3d 22 22 0d  |.5:.A%<>3FL$="".|
00000170  00 64 96 e3 4c 25 3d 31  b8 35 3a e3 4d 25 3d 31  |.d..L%=1.5:.M%=1|
00000180  b8 32 3a 41 31 24 3d 22  22 3a 41 34 24 3d 22 22  |.2:A1$="":A4$=""|
00000190  3a e3 59 25 3d 31 b8 34  3a 41 32 24 3d 41 32 24  |:.Y%=1.4:A2$=A2$|
000001a0  2b bd 28 4b 45 25 28 59  25 29 29 3a ed 3a e3 59  |+.(KE%(Y%)):.:.Y|
000001b0  25 3d 35 b8 38 3a 41 33  24 3d 41 33 24 2b bd 28  |%=5.8:A3$=A3$+.(|
000001c0  4b 45 25 28 59 25 29 29  3a ed 3a 41 31 24 3d 41  |KE%(Y%)):.:A1$=A|
000001d0  32 24 2b bd 33 32 2b 41  33 24 3a 41 32 24 3d 22  |2$+.32+A3$:A2$="|
000001e0  22 3a 41 33 24 3d 22 22  3a db 3a f1 8a 31 34 2c  |":A3$="":.:..14,|
000001f0  35 29 41 31 24 3a e7 4e  25 3d 30 f2 53 50 43 28  |5)A1$:.N%=0.SPC(|
00000200  30 2c 31 38 29 0d 00 6e  1c 4e 25 3d 4e 25 2b 31  |0,18)..n.N%=N%+1|
00000210  3a f1 8a 31 34 2c 36 29  3b 3a 2a 46 58 31 35 2c  |:..14,6);:*FX15,|
00000220  31 0d 00 78 3f e3 49 25  3d 31 b8 a9 28 41 31 24  |1..x?.I%=1..(A1$|
00000230  29 3a d1 3d 30 3a 49 24  3d be 3a 58 25 28 49 25  |):.=0:I$=.:X%(I%|
00000240  29 3d 91 3a e7 49 24 3e  22 60 22 80 49 24 3c 22  |)=.:.I$>"`".I$<"|
00000250  7b 22 49 24 3d bd 28 97  28 49 24 29 2d 33 32 29  |{"I$=.(.(I$)-32)|
00000260  0d 00 82 27 e7 49 24 3d  c1 41 31 24 2c 49 25 2c  |...'.I$=.A1$,I%,|
00000270  31 29 ef 97 28 49 24 29  8b ef 32 35 35 3a 45 52  |1)..(I$)..255:ER|
00000280  25 3d 45 52 25 2b 31 0d  00 8c 2c 41 34 24 3d 41  |%=ER%+1...,A4$=A|
00000290  34 24 2b 49 24 3a ed 3a  e3 4a 25 3d 31 b8 a9 28  |4$+I$:.:.J%=1..(|
000002a0  41 31 24 29 3a 57 25 3d  57 25 2b 58 25 28 4a 25  |A1$):W%=W%+X%(J%|
000002b0  29 3a ed 0d 00 96 64 56  25 3d 56 25 2b 57 25 3a  |):....dV%=V%+W%:|
000002c0  57 25 3d 30 3a e7 4d 25  3d 31 e3 4f 25 3d 31 b8  |W%=0:.M%=1.O%=1.|
000002d0  39 3a 58 25 28 4f 25 29  3d 30 3a ed 3a e5 8d 74  |9:X%(O%)=0:.:..t|
000002e0  74 40 8b e3 48 25 3d 31  b8 34 3a e7 58 25 28 48  |t@..H%=1.4:.X%(H|
000002f0  25 29 3c 52 25 80 4b 45  25 28 48 25 29 3d 97 28  |%)<R%.KE%(H%)=.(|
00000300  c1 41 34 24 2c 48 25 2c  31 29 29 8c e4 8d 54 72  |.A4$,H%,1))...Tr|
00000310  40 3a ed 8b ed 48 25 0d  00 a0 37 e3 48 25 3d 35  |@:...H%...7.H%=5|
00000320  b8 38 3a e7 58 25 28 48  25 29 3c 52 25 80 4b 45  |.8:.X%(H%)<R%.KE|
00000330  25 28 48 25 29 3d 97 28  c1 41 34 24 2c 48 25 2c  |%(H%)=.(.A4$,H%,|
00000340  31 29 29 e4 8d 54 72 40  3a ed 8b ed 48 25 0d 00  |1))..Tr@:...H%..|
00000350  aa 16 e3 4f 25 3d 31 b8  39 3a 58 25 28 4f 25 29  |...O%=1.9:X%(O%)|
00000360  3d 30 3a ed 0d 00 b4 45  e3 58 25 3d 31 b8 38 3a  |=0:....E.X%=1.8:|
00000370  43 25 3d b3 28 38 29 3a  44 25 3d 39 2d 43 25 3a  |C%=.(8):D%=9-C%:|
00000380  45 25 3d 4b 45 25 28 43  25 29 3a 4b 45 25 28 43  |E%=KE%(C%):KE%(C|
00000390  25 29 3d 4b 45 25 28 44  25 29 3a 4b 45 25 28 44  |%)=KE%(D%):KE%(D|
000003a0  25 29 3d 45 25 3a ed 2c  2c 0d 00 be 77 ef 32 38  |%)=E%:.,,...w.28|
000003b0  2c 30 2c 32 34 2c 33 39  2c 33 2c 31 32 3a f1 8a  |,0,24,39,3,12:..|
000003c0  31 30 2c 31 29 22 23 20  4c 45 53 53 4f 4e 20 41  |10,1)"# LESSON A|
000003d0  4e 41 4c 59 53 49 53 20  23 22 3a e7 46 4c 24 3e  |NALYSIS #":.FL$>|
000003e0  22 20 22 f1 27 27 27 22  59 6f 75 20 65 78 63 65  |" ".'''"You exce|
000003f0  65 64 65 64 20 22 3b 53  25 57 50 24 bd 31 32 37  |eded ";S%WP$.127|
00000400  27 54 46 24 3a e3 49 25  3d 31 b8 a9 28 46 4c 24  |'TF$:.I%=1..(FL$|
00000410  29 3a f1 c1 46 4c 24 2c  49 25 2c 31 29 3b 3a ed  |):..FL$,I%,1);:.|
00000420  0d 00 c8 59 f1 27 27 27  43 48 24 3b a8 28 31 35  |...Y.'''CH$;.(15|
00000430  2f 28 56 25 2f 36 30 30  30 29 2b 30 2e 35 29 57  |/(V%/6000)+0.5)W|
00000440  50 24 27 27 27 59 41 24  a8 28 31 30 30 2e 35 2d  |P$'''YA$.(100.5-|
00000450  28 45 52 25 2f 39 30 29  2a 31 30 30 29 22 25 2e  |(ER%/90)*100)"%.|
00000460  22 3a f2 53 50 43 28 2d  31 2c 32 31 29 3a 46 4c  |":.SPC(-1,21):FL|
00000470  25 3d 34 3a e5 8d 54 68  40 0d 00 d2 36 db 3a f1  |%=4:..Th@...6.:.|
00000480  8a 38 2c 31 29 22 23 20  50 52 41 43 54 49 43 45  |.8,1)"# PRACTICE|
00000490  20 50 41 52 41 47 52 41  50 48 20 23 22 3a f2 53  | PARAGRAPH #":.S|
000004a0  50 45 45 44 3a e7 41 25  3d 34 8c 8d 54 68 40 0d  |PEED:.A%=4..Th@.|
000004b0  00 dc 72 56 31 25 3d 30  3a 45 52 31 25 3d 30 3a  |..rV1%=0:ER1%=0:|
000004c0  61 25 3d 30 3a 62 25 3d  30 3a 50 50 24 3d 22 22  |a%=0:b%=0:PP$=""|
000004d0  3a 50 34 24 3d 22 22 3a  53 4b 24 3d 22 22 3a 53  |:P4$="":SK$="":S|
000004e0  50 24 3d 22 22 3a 4d 4b  24 3d 22 22 3a 4d 50 24  |P$="":MK$="":MP$|
000004f0  3d 22 22 3a e7 47 25 3e  a9 28 4b 24 29 84 47 25  |="":.G%>.(K$).G%|
00000500  3d 38 8c 8d 54 44 41 8b  e7 46 4c 24 3d 22 22 8c  |=8..TDA..FL$="".|
00000510  8d 54 4e 41 8b 43 25 3d  30 3a 46 57 24 3d 46 4c  |.TNA.C%=0:FW$=FL|
00000520  24 0d 00 e6 0d 48 25 3d  a9 28 46 57 24 29 0d 00  |$....H%=.(FW$)..|
00000530  f0 34 43 48 25 3d 97 28  c1 46 57 24 2c 48 25 2c  |.4CH%=.(.FW$,H%,|
00000540  31 29 29 2d 33 32 3a 43  25 3d 43 25 2b 31 3a e7  |1))-32:C%=C%+1:.|
00000550  43 25 3d 31 39 8c 8d 54  58 41 8b 48 25 3d 48 25  |C%=19..TXA.H%=H%|
00000560  2d 31 0d 00 fa 2c 50 50  24 3d 50 50 24 2b 57 24  |-1...,PP$=PP$+W$|
00000570  28 43 48 25 2c b3 28 34  29 29 2b 22 20 22 3a e7  |(CH%,.(4))+" ":.|
00000580  48 25 3d 30 8c 8d 64 66  40 8b 8d 64 70 40 0d 01  |H%=0..df@..dp@..|
00000590  04 2b e3 49 25 3d 31 b8  31 38 3a 50 50 24 3d 50  |.+.I%=1.18:PP$=P|
000005a0  50 24 2b 43 57 24 28 b3  28 39 31 29 29 2b 22 20  |P$+CW$(.(91))+" |
000005b0  22 3a ed 3a e5 8d 54 58  41 0d 01 0e 2b e3 49 25  |":.:..TXA...+.I%|
000005c0  3d 31 b8 38 3a 46 57 24  3d 46 57 24 2b bd 28 4b  |=1.8:FW$=FW$+.(K|
000005d0  45 25 28 49 25 29 29 3a  ed 3a 43 25 3d 30 3a e5  |E%(I%)):.:C%=0:.|
000005e0  8d 64 66 40 0d 01 18 71  e7 a9 28 50 50 24 29 3e  |.df@...q..(PP$)>|
000005f0  31 31 30 8c 8d 64 5c 40  8b db 3a f1 27 27 27 3b  |110..d\@..:.''';|
00000600  3a e3 49 25 3d 31 b8 a9  28 50 50 24 29 3a e7 b1  |:.I%=1..(PP$):..|
00000610  3c 3e 33 39 8c 8d 54 6c  41 8b e7 c1 50 50 24 2c  |<>39..TlA...PP$,|
00000620  49 25 2c 31 29 3c 3e 22  20 22 f5 49 25 3d 49 25  |I%,1)<>" ".I%=I%|
00000630  2d 31 3a ef 31 32 37 3a  fd c1 50 50 24 2c 49 25  |-1:.127:..PP$,I%|
00000640  2c 31 29 3d 22 20 22 3a  f1 27 27 27 27 3b 8b f1  |,1)=" ":.'''';..|
00000650  27 27 27 27 3b 0d 01 22  33 50 50 24 3d c0 50 50  |'''';.."3PP$=.PP|
00000660  24 2c 49 25 2d 31 29 2b  c2 50 50 24 2c a9 28 50  |$,I%-1)+.PP$,.(P|
00000670  50 24 29 2d 49 25 29 3a  e7 61 25 3d 30 61 25 3d  |P$)-I%):.a%=0a%=|
00000680  49 25 8b 62 25 3d 49 25  0d 01 2c 2d f1 c1 50 50  |I%.b%=I%..,-..PP|
00000690  24 2c 49 25 2c 31 29 3b  3a ed 3a f2 53 50 43 28  |$,I%,1);:.:.SPC(|
000006a0  30 2c 31 38 29 3a f1 8a  30 2c 34 29 3b 3a 2a 46  |0,18):..0,4);:*F|
000006b0  58 31 35 2c 31 0d 01 36  25 e3 49 25 3d 31 b8 a9  |X15,1..6%.I%=1..|
000006c0  28 50 50 24 29 2d 31 3a  e7 49 25 3d 61 25 84 49  |(PP$)-1:.I%=a%.I|
000006d0  25 3d 62 25 f1 27 27 27  27 3b 0d 01 40 32 d1 3d  |%=b%.'''';..@2.=|
000006e0  30 3a 49 24 3d be 3a 58  25 28 49 25 29 3d 91 3a  |0:I$=.:X%(I%)=.:|
000006f0  e7 49 24 3e 22 60 22 80  49 24 3c 22 7b 22 49 24  |.I$>"`".I$<"{"I$|
00000700  3d bd 28 97 28 49 24 29  2d 33 32 29 0d 01 4a 29  |=.(.(I$)-32)..J)|
00000710  e7 49 24 3d c1 50 50 24  2c 49 25 2c 31 29 ef 97  |.I$=.PP$,I%,1)..|
00000720  28 49 24 29 8b ef 32 35  35 3a 45 52 31 25 3d 45  |(I$)..255:ER1%=E|
00000730  52 31 25 2b 31 0d 01 54  a3 50 34 24 3d 50 34 24  |R1%+1..T.P4$=P4$|
00000740  2b 49 24 3a ed 3a f1 27  27 27 27 22 50 61 72 61  |+I$:.:.''''"Para|
00000750  67 72 61 70 68 20 61 6e  61 6c 79 73 69 73 20 69  |graph analysis i|
00000760  6e 20 70 72 6f 67 72 65  73 73 20 22 3b 3a 52 31  |n progress ";:R1|
00000770  25 3d 36 30 30 30 2f 53  25 2b 30 2e 35 3a e3 49  |%=6000/S%+0.5:.I|
00000780  25 3d 31 b8 a9 28 50 50  24 29 3a e7 c1 50 34 24  |%=1..(PP$):..P4$|
00000790  2c 49 25 2c 31 29 3c 3e  c1 50 50 24 2c 49 25 2c  |,I%,1)<>.PP$,I%,|
000007a0  31 29 4d 4b 24 3d 4d 4b  24 2b c1 50 50 24 2c 49  |1)MK$=MK$+.PP$,I|
000007b0  25 2c 31 29 3a ed 8b e7  52 31 25 3c 58 25 28 49  |%,1):...R1%<X%(I|
000007c0  25 29 53 4b 24 3d 53 4b  24 2b c1 50 50 24 2c 49  |%)SK$=SK$+.PP$,I|
000007d0  25 2c 31 29 3a ed 8b ed  0d 01 5e 11 e7 4d 4b 24  |%,1):.....^..MK$|
000007e0  3d 22 22 4d 4b 24 3d bd  30 0d 01 68 11 e7 53 4b  |=""MK$=.0..h..SK|
000007f0  24 3d 22 22 53 4b 24 3d  bd 30 0d 01 72 52 e3 49  |$=""SK$=.0..rR.I|
00000800  25 3d 31 b8 a9 28 53 4b  24 29 3a 53 4b 25 28 49  |%=1..(SK$):SK%(I|
00000810  25 29 3d 97 28 c1 53 4b  24 2c 49 25 2c 31 29 29  |%)=.(.SK$,I%,1))|
00000820  3a ed 3a e3 49 25 3d 31  b8 a9 28 4d 4b 24 29 3a  |:.:.I%=1..(MK$):|
00000830  4d 4b 25 28 49 25 29 3d  97 28 c1 4d 4b 24 2c 49  |MK%(I%)=.(.MK$,I|
00000840  25 2c 31 29 29 3a ed 3a  42 25 3d 32 0d 01 7c 3e  |%,1)):.:B%=2..|>|
00000850  f5 e3 49 25 3d 42 25 b8  a9 28 53 4b 24 29 3a e7  |..I%=B%..(SK$):.|
00000860  53 4b 25 28 49 25 29 3d  30 ed 8b e7 53 4b 25 28  |SK%(I%)=0...SK%(|
00000870  49 25 29 3d 53 4b 25 28  42 25 2d 31 29 53 4b 25  |I%)=SK%(B%-1)SK%|
00000880  28 49 25 29 3d 30 3a ed  8b ed 0d 01 86 50 42 25  |(I%)=0:......PB%|
00000890  3d 42 25 2b 31 3a fd 42  25 3e 3d a9 28 53 4b 24  |=B%+1:.B%>=.(SK$|
000008a0  29 3a e3 49 25 3d 31 b8  a9 28 53 4b 24 29 3a e7  |):.I%=1..(SK$):.|
000008b0  53 4b 25 28 49 25 29 3d  30 84 53 4b 25 28 49 25  |SK%(I%)=0.SK%(I%|
000008c0  29 3d 33 32 ed 8b 53 50  24 3d 53 50 24 2b bd 28  |)=32..SP$=SP$+.(|
000008d0  53 4b 25 28 49 25 29 29  3a ed 0d 01 90 43 42 25  |SK%(I%)):....CB%|
000008e0  3d 32 3a f5 e3 49 25 3d  42 25 b8 a9 28 4d 4b 24  |=2:..I%=B%..(MK$|
000008f0  29 3a e7 4d 4b 25 28 49  25 29 3d 30 ed 8b e7 4d  |):.MK%(I%)=0...M|
00000900  4b 25 28 49 25 29 3d 4d  4b 25 28 42 25 2d 31 29  |K%(I%)=MK%(B%-1)|
00000910  4d 4b 25 28 49 25 29 3d  30 3a ed 8b ed 0d 01 9a  |MK%(I%)=0:......|
00000920  50 42 25 3d 42 25 2b 31  3a fd 42 25 3e 3d a9 28  |PB%=B%+1:.B%>=.(|
00000930  4d 4b 24 29 3a e3 49 25  3d 31 b8 a9 28 4d 4b 24  |MK$):.I%=1..(MK$|
00000940  29 3a e7 4d 4b 25 28 49  25 29 3d 30 84 4d 4b 25  |):.MK%(I%)=0.MK%|
00000950  28 49 25 29 3d 33 32 ed  8b 4d 50 24 3d 4d 50 24  |(I%)=32..MP$=MP$|
00000960  2b bd 28 4d 4b 25 28 49  25 29 29 3a ed 0d 01 a4  |+.(MK%(I%)):....|
00000970  b2 e3 49 25 3d 31 b8 a9  28 50 50 24 29 2d 31 3a  |..I%=1..(PP$)-1:|
00000980  56 31 25 3d 56 31 25 2b  58 25 28 49 25 29 3a 58  |V1%=V1%+X%(I%):X|
00000990  25 28 49 25 29 3d 30 3a  ed 3a ef 32 38 2c 30 2c  |%(I%)=0:.:.28,0,|
000009a0  32 34 2c 33 39 2c 33 2c  31 32 3a f1 8a 38 2c 31  |24,39,3,12:..8,1|
000009b0  29 22 23 20 50 41 52 41  47 52 41 50 48 20 41 4e  |)"# PARAGRAPH AN|
000009c0  41 4c 59 53 49 53 20 23  22 27 27 27 43 48 24 3b  |ALYSIS #"'''CH$;|
000009d0  a8 28 28 28 a9 28 50 50  24 29 2d 31 29 2f 36 29  |.(((.(PP$)-1)/6)|
000009e0  2f 28 28 56 31 25 2f 31  30 30 29 2f 36 30 29 2b  |/((V1%/100)/60)+|
000009f0  30 2e 35 29 57 50 24 27  27 27 59 41 24 a8 28 31  |0.5)WP$'''YA$.(1|
00000a00  30 30 2e 35 2d 28 45 52  31 25 2f 28 a9 28 50 50  |00.5-(ER1%/(.(PP|
00000a10  24 29 2d 31 29 29 2a 31  30 30 29 22 25 2e 22 0d  |$)-1))*100)"%.".|
00000a20  01 ae 43 e7 53 50 24 3e  22 20 22 f1 27 27 22 59  |..C.SP$>" ".''"Y|
00000a30  6f 75 20 77 65 72 65 20  73 6c 6f 77 20 22 54 46  |ou were slow "TF|
00000a40  24 3a e3 49 25 3d 31 b8  a9 28 53 50 24 29 3a f1  |$:.I%=1..(SP$):.|
00000a50  c1 53 50 24 2c 49 25 2c  31 29 22 20 22 3b 3a ed  |.SP$,I%,1)" ";:.|
00000a60  3a f1 0d 01 b8 40 e7 4d  50 24 3e 22 20 22 f1 27  |:....@.MP$>" ".'|
00000a70  27 22 59 6f 75 20 6d 69  73 6b 65 79 65 64 20 22  |'"You miskeyed "|
00000a80  54 46 24 3a e3 49 25 3d  31 b8 a9 28 4d 50 24 29  |TF$:.I%=1..(MP$)|
00000a90  3a f1 c1 4d 50 24 2c 49  25 2c 31 29 22 20 22 3b  |:..MP$,I%,1)" ";|
00000aa0  3a ed 0d 01 c2 1b f2 53  50 43 28 2d 31 2c 32 31  |:......SPC(-1,21|
00000ab0  29 3a 46 4c 25 3d 34 3a  e5 8d 54 68 40 0d 01 cc  |):FL%=4:..Th@...|
00000ac0  ea dc 21 31 44 4c 21 2c  21 4b 46 21 2c 2b 40 53  |..!1DL!,!KF!,+@S|
00000ad0  4a 21 2c 21 21 3b 41 4c  2c 2c 2c 2c 2c 23 33 23  |J!,!!;AL,,,,,#3#|
00000ae0  2c 41 4c 23 2e 2c 53 4c  23 21 2c 23 4c 23 41 23  |,AL#.,SL#!,#L#A#|
00000af0  2c 44 24 34 24 2c 4b 53  24 53 24 2c 24 33 33 2e  |,D$4$,KS$S$,$33.|
00000b00  31 34 2c 4c 24 4b 24 2c  39 39 25 34 34 25 2c 38  |14,L$K$,99%44%,8|
00000b10  39 2e 31 25 2c 41 25 4b  25 2c 48 53 25 32 31 25  |9.1%,A%K%,HS%21%|
00000b20  2c 53 53 26 4c 26 2c 36  35 26 4c 26 2c 46 26 4c  |,SS&L&,65&L&,F&L|
00000b30  4b 2c 26 4a 53 26 2c 27  44 46 4c 4b 27 2c 27 4c  |K,&JS&,'DFLK','L|
00000b40  41 53 53 27 2c 27 46 41  44 53 27 2c 27 47 4c 41  |ASS','FADS','GLA|
00000b50  44 27 2c 28 44 44 24 29  2c 28 4c 4b 24 29 2c 28  |D',(DD$),(LK$),(|
00000b60  48 44 24 29 2c 28 53 53  24 29 2c 28 32 32 2f 37  |HD$),(SS$),(22/7|
00000b70  29 2c 28 4b 2f 53 53 29  2c 28 30 2e 33 2a 4a 53  |),(K/SS),(0.3*JS|
00000b80  29 2c 28 41 42 53 28 4b  29 2c 35 2a 44 4c 2c 49  |),(ABS(K),5*DL,I|
00000b90  53 2a 38 2c 4c 53 2a 41  4b 2c 33 33 2a 31 33 2c  |S*8,LS*AK,33*13,|
00000ba0  2b 2c 2b 2c 2b 2c 2b 0d  01 d6 e9 dc 22 4c 24 2c  |+,+,+,+....."L$,|
00000bb0  35 22 2c 22 53 2c 4a 2c  4c 22 2c 22 48 2c 41 2c  |5","S,J,L","H,A,|
00000bc0  22 2c 22 45 2c 4c 2c 22  2c 2d 31 30 2c 31 2d 31  |","E,L,",-10,1-1|
00000bd0  37 2c 53 2d 4b 2c 4c 2d  46 2c 30 2e 36 2c 37 2e  |7,S-K,L-F,0.6,7.|
00000be0  33 33 2c 45 4e 44 2e 2c  36 2e 30 32 2c 32 32 2f  |33,END.,6.02,22/|
00000bf0  36 37 2c 44 2f 4c 53 2c  32 2b 44 2f 5a 2c 45 2e  |67,D/LS,2+D/Z,E.|
00000c00  47 2e 2f 3f 3f 2f 2c 30  2e 30 31 2c 28 30 29 2c  |G./??/,0.01,(0),|
00000c10  30 2e 30 33 2c 31 30 30  2c 31 31 2a 30 2e 31 2c  |0.03,100,11*0.1,|
00000c20  30 2e 31 31 2a 31 31 2c  31 31 30 31 2c 31 31 2c  |0.11*11,1101,11,|
00000c30  32 32 2e 30 32 2c 32 2a  32 32 2e 32 2c 32 30 32  |22.02,2*22.2,202|
00000c40  30 2c 32 31 31 32 2c 33  33 32 31 2c 33 31 33 2c  |0,2112,3321,313,|
00000c50  33 33 31 2c 32 33 33 2c  34 34 32 2c 31 34 34 2c  |331,233,442,144,|
00000c60  34 31 34 2c 33 34 34 33  2c 35 35 32 2c 35 34 35  |414,3443,552,545|
00000c70  2c 35 35 32 2c 31 35 35  2c 36 33 36 2c 36 34 36  |,552,155,636,646|
00000c80  31 2c 31 36 36 31 2c 32  36 34 36 2c 37 37 32 32  |1,1661,2646,7722|
00000c90  0d 01 e0 ec dc 37 31 33  37 2c 37 33 37 37 2c 31  |.....7137,7377,1|
00000ca0  32 37 37 2c 38 30 38 30  2c 31 38 38 31 2c 32 38  |277,8080,1881,28|
00000cb0  32 38 2c 38 35 38 35 2c  39 39 31 33 2c 39 34 39  |28,8585,9913,949|
00000cc0  34 2c 39 33 35 39 2c 39  39 39 2e 32 2c 22 3f 3a  |4,9359,999.2,"?:|
00000cd0  3f 3a 3f 22 2c 22 3a 3f  3a 3f 41 3b 22 2c 22 3a  |?:?",":?:?A;",":|
00000ce0  22 2c 22 44 44 3a 3f 4c  22 2c 41 24 3b 4b 24 3b  |","DD:?L",A$;K$;|
00000cf0  2c 4c 53 24 3b 2c 41 3b  4b 3b 44 3b 2c 48 44 3b  |,LS$;,A;K;D;,HD;|
00000d00  2c 3c 2c 3e 2c 3c 3e 2c  3c 3e 2c 41 3d 44 2c 4c  |,<,>,<>,<>,A=D,L|
00000d10  3d 41 42 53 2c 46 3d 4b  24 2c 3d 2c 3c 3e 2c 3e  |=ABS,F=K$,=,<>,>|
00000d20  2c 3e 3d 2c 3c 3e 2c 3f  41 2c 3f 4b 44 2c 3f 46  |,>=,<>,?A,?KD,?F|
00000d30  24 2c 3f 33 33 2c 3f 40  32 32 32 2c 3f 40 41 2c  |$,?33,?@222,?@A,|
00000d40  3f 40 4a 4a 2c 3f 40 34  35 35 2c 41 4c 4c 2c 4c  |?@JJ,?@455,ALL,L|
00000d50  41 44 2c 53 41 44 2c 41  41 48 2c 42 42 4e 4c 2c  |AD,SAD,AAH,BBNL,|
00000d60  41 42 42 41 2c 42 42 53  2c 53 42 42 4c 2c 43 4b  |ABBA,BBS,SBBL,CK|
00000d70  41 43 2c 43 4a 53 43 2c  3b 43 43 3b 0d 01 ea eb  |AC,CJSC,;CC;....|
00000d80  dc 4a 53 43 43 2c 44 41  44 2c 44 44 4c 2c 4c 44  |.JSCC,DAD,DDL,LD|
00000d90  44 2c 4b 44 4b 44 2c 52  45 45 4c 2c 45 45 4c 2c  |D,KDKD,REEL,EEL,|
00000da0  45 4c 53 45 2c 46 45 45  4c 2c 44 41 46 46 2c 53  |ELSE,FEEL,DAFF,S|
00000db0  41 46 46 2c 4a 41 46 46  41 2c 46 46 3b 53 53 2c  |AFF,JAFFA,FF;SS,|
00000dc0  47 41 47 2c 47 3b 47 4b  2c 41 47 4c 47 2c 4a 41  |GAG,G;GK,AGLG,JA|
00000dd0  47 47 2c 48 41 53 48 2c  48 3b 48 53 2c 4a 48 53  |GG,HASH,H;HS,JHS|
00000de0  48 2c 44 48 4b 48 2c 4c  49 4a 49 2c 4b 49 4a 49  |H,DHKH,LIJI,KIJI|
00000df0  2c 3b 49 4a 49 2c 4a 49  4a 49 2c 4a 4c 4b 4a 2c  |,;IJI,JIJI,JLKJ,|
00000e00  3b 4a 4b 4a 2c 4a 4a 4c  4b 2c 4c 4b 4a 4a 2c 4b  |;JKJ,JJLK,LKJJ,K|
00000e10  4c 4b 4a 2c 3b 4b 4b 4a  2c 4b 4c 4c 4b 2c 4a 4b  |LKJ,;KKJ,KLLK,JK|
00000e20  4c 4b 2c 46 41 4c 4c 2c  4c 53 4c 4b 2c 4c 41 4c  |LK,FALL,LSLK,LAL|
00000e30  4a 2c 44 41 4c 4c 2c 4d  41 4d 2c 4d 49 4d 45 2c  |J,DALL,MAM,MIME,|
00000e40  4d 4c 41 4d 2c 4b 4d 4c  4d 2c 44 4e 4c 4e 2c 4e  |MLAM,KMLM,DNLN,N|
00000e50  4a 4c 4e 2c 4e 45 44 4e  2c 4e 41 4c 4e 2c 4c 4f  |JLN,NEDN,NALN,LO|
00000e60  4f 4b 2c 54 4f 4f 4b 0d  01 f4 e9 dc 4f 53 4c 4f  |OK,TOOK.....OSLO|
00000e70  2c 52 4f 4f 46 2c 50 45  45 50 53 2c 50 55 50 53  |,ROOF,PEEPS,PUPS|
00000e80  2c 53 55 50 50 2c 53 41  50 50 2c 51 44 41 51 2c  |,SUPP,SAPP,QDAQ,|
00000e90  53 51 55 51 2c 51 41 44  51 2c 44 51 46 51 2c 52  |SQUQ,QADQ,DQFQ,R|
00000ea0  46 41 52 2c 52 41 46 52  2c 53 52 41 52 2c 41 52  |FAR,RAFR,SRAR,AR|
00000eb0  46 52 2c 4c 41 53 53 2c  53 41 53 2c 53 41 4c 53  |FR,LASS,SAS,SALS|
00000ec0  2c 53 4c 4b 53 2c 53 54  41 54 2c 54 41 4c 54 2c  |,SLKS,STAT,TALT,|
00000ed0  46 54 41 54 2c 44 54 53  54 2c 47 55 52 55 2c 4c  |FTAT,DTST,GURU,L|
00000ee0  55 4c 55 2c 4b 55 4a 55  2c 55 4b 55 4b 2c 56 46  |ULU,KUJU,UKUK,VF|
00000ef0  53 56 2c 41 56 53 56 2c  44 56 53 56 2c 41 56 44  |SV,AVSV,DVSV,AVD|
00000f00  56 2c 57 53 41 57 2c 46  57 53 57 2c 53 57 53 57  |V,WSAW,FWSW,SWSW|
00000f10  2c 57 41 57 44 2c 53 58  41 58 2c 46 58 41 58 2c  |,WAWD,SXAX,FXAX,|
00000f20  58 53 41 58 2c 44 58 53  58 2c 4a 59 4b 59 2c 4c  |XSAX,DXSX,JYKY,L|
00000f30  59 4b 59 2c 48 59 4a 59  2c 59 4c 48 59 2c 5a 41  |YKY,HYJY,YLHY,ZA|
00000f40  5a 2c 4a 41 5a 5a 2c 46  49 5a 5a 2c 5a 41 50 5a  |Z,JAZZ,FIZZ,ZAPZ|
00000f50  0d 01 fe eb dc 41 42 53  2c 41 43 53 2c 41 44 56  |.....ABS,ACS,ADV|
00000f60  41 4c 2c 41 4e 44 2c 41  53 43 2c 41 53 4e 2c 41  |AL,AND,ASC,ASN,A|
00000f70  54 4e 2c 41 55 54 4f 2c  42 47 45 54 23 2c 42 50  |TN,AUTO,BGET#,BP|
00000f80  55 54 23 2c 43 41 4c 4c  2c 22 43 48 41 49 4e 22  |UT#,CALL,"CHAIN"|
00000f90  22 22 2c 43 48 52 24 2c  43 4c 45 41 52 2c 43 4c  |"",CHR$,CLEAR,CL|
00000fa0  4f 53 45 23 2c 43 4c 47  2c 43 4c 53 2c 43 4f 4c  |OSE#,CLG,CLS,COL|
00000fb0  4f 55 52 2c 43 4f 53 2c  43 4f 55 4e 54 2c 44 41  |OUR,COS,COUNT,DA|
00000fc0  54 41 2c 44 45 46 46 4e  2c 44 45 46 50 52 4f 43  |TA,DEFFN,DEFPROC|
00000fd0  2c 44 45 47 2c 44 45 4c  45 54 45 2c 44 49 4d 2c  |,DEG,DELETE,DIM,|
00000fe0  44 49 56 2c 44 52 41 57  2c 45 4c 53 45 2c 45 4e  |DIV,DRAW,ELSE,EN|
00000ff0  44 2c 45 4e 44 50 52 4f  43 2c 45 4f 46 23 2c 45  |D,ENDPROC,EOF#,E|
00001000  4f 52 2c 45 52 4c 2c 45  52 52 2c 45 56 41 4c 2c  |OR,ERL,ERR,EVAL,|
00001010  45 58 50 2c 45 58 54 23  2c 46 4f 52 2c 47 43 4f  |EXP,EXT#,FOR,GCO|
00001020  4c 2c 47 45 54 2c 47 45  54 24 2c 47 4f 54 4f 2c  |L,GET,GET$,GOTO,|
00001030  47 4f 53 55 42 2c 48 49  4d 45 4d 0d 02 08 e8 dc  |GOSUB,HIMEM.....|
00001040  49 46 2c 49 4e 4b 45 59  2c 49 4e 4b 45 59 24 2c  |IF,INKEY,INKEY$,|
00001050  49 4e 50 55 54 2c 49 4e  50 55 54 23 2c 49 4e 53  |INPUT,INPUT#,INS|
00001060  54 52 28 2c 49 4e 54 2c  4c 45 46 54 24 28 2c 4c  |TR(,INT,LEFT$(,L|
00001070  45 4e 2c 4c 45 54 2c 4c  49 53 54 2c 4c 49 53 54  |EN,LET,LIST,LIST|
00001080  4f 2c 4c 4e 2c 22 4c 4f  41 44 22 22 22 2c 4c 4f  |O,LN,"LOAD""",LO|
00001090  43 41 4c 2c 4c 4f 47 2c  4c 4f 4d 45 4d 2c 4d 49  |CAL,LOG,LOMEM,MI|
000010a0  44 24 28 2c 4d 4f 44 2c  4d 4f 44 45 2c 4d 4f 56  |D$(,MOD,MODE,MOV|
000010b0  45 2c 4e 45 57 2c 4e 45  58 54 2c 4e 4f 54 2c 4f  |E,NEW,NEXT,NOT,O|
000010c0  4c 44 2c 4f 4e 2c 4f 4e  45 52 52 4f 52 2c 4f 50  |LD,ON,ONERROR,OP|
000010d0  45 4e 4f 55 54 2c 4f 50  45 4e 49 4e 2c 4f 50 54  |ENOUT,OPENIN,OPT|
000010e0  2c 4f 52 2c 50 41 47 45  2c 50 49 2c 50 4c 4f 54  |,OR,PAGE,PI,PLOT|
000010f0  2c 50 4f 49 4e 54 28 2c  50 4f 53 2c 50 52 49 4e  |,POINT(,POS,PRIN|
00001100  54 2c 50 52 49 4e 54 23  2c 50 54 52 23 2c 52 41  |T,PRINT#,PTR#,RA|
00001110  44 2c 52 45 41 44 2c 52  45 4d 2c 52 45 4e 55 4d  |D,READ,REM,RENUM|
00001120  42 45 52 0d 02 12 b5 dc  52 45 50 45 41 54 2c 52  |BER.....REPEAT,R|
00001130  45 50 4f 52 54 2c 52 45  53 54 4f 52 45 2c 52 45  |EPORT,RESTORE,RE|
00001140  54 55 52 4e 2c 52 49 47  48 54 24 28 2c 52 4e 44  |TURN,RIGHT$(,RND|
00001150  28 2c 52 55 4e 2c 22 53  41 56 45 22 22 22 2c 53  |(,RUN,"SAVE""",S|
00001160  47 4e 2c 53 49 4e 2c 53  4f 55 4e 44 2c 53 50 43  |GN,SIN,SOUND,SPC|
00001170  2c 53 51 52 2c 53 54 45  50 2c 53 54 4f 50 2c 53  |,SQR,STEP,STOP,S|
00001180  54 52 24 28 2c 53 54 52  49 4e 47 24 28 2c 54 41  |TR$(,STRING$(,TA|
00001190  42 28 2c 54 41 4e 2c 54  48 45 4e 2c 54 49 4d 45  |B(,TAN,THEN,TIME|
000011a0  2c 54 4f 2c 54 4f 50 2c  54 52 41 43 45 2c 54 52  |,TO,TOP,TRACE,TR|
000011b0  55 45 2c 55 4e 54 49 4c  2c 55 53 52 2c 56 41 4c  |UE,UNTIL,USR,VAL|
000011c0  2c 56 44 55 2c 56 50 4f  53 2c 57 49 44 54 48 2c  |,VDU,VPOS,WIDTH,|
000011d0  45 4e 56 45 4c 4f 50 45  0d 02 1c 74 dd f2 49 4e  |ENVELOPE...t..IN|
000011e0  49 54 3a f7 3a de 58 25  28 31 31 31 29 2c 53 4b  |IT:.:.X%(111),SK|
000011f0  25 28 31 31 31 29 2c 4d  4b 25 28 31 31 31 29 3a  |%(111),MK%(111):|
00001200  46 4c 25 3d 33 3a 53 25  3d 30 3a 50 50 24 3d c4  |FL%=3:S%=0:PP$=.|
00001210  31 32 30 2c 22 2a 22 29  3a 50 34 24 3d 50 50 24  |120,"*"):P4$=PP$|
00001220  3a 4d 4b 24 3d 50 50 24  3a 53 4b 24 3d 50 50 24  |:MK$=PP$:SK$=PP$|
00001230  3a 50 50 24 3d 22 22 3a  50 34 24 3d 22 22 3a 4d  |:PP$="":P4$="":M|
00001240  4b 24 3d 22 22 3a 53 4b  24 3d 22 22 0d 02 26 d5  |K$="":SK$=""..&.|
00001250  4b 24 3d 22 41 53 44 46  3b 4c 4b 4a 47 48 52 54  |K$="ASDF;LKJGHRT|
00001260  55 59 45 49 57 4f 51 50  56 4e 42 43 4d 58 2c 5a  |UYEIWOQPVNBCMX,Z|
00001270  2e 40 2b 2f 3f 3a 2a 31  21 32 33 23 34 24 35 25  |.@+/?:*1!23#4$5%|
00001280  36 26 37 27 38 28 39 29  30 2d 3d 22 22 22 3a de  |6&7'8(9)0-=""":.|
00001290  41 53 25 28 a9 28 4b 24  29 29 3a 47 25 3d 38 3a  |AS%(.(K$)):G%=8:|
000012a0  de 4b 45 25 28 39 29 3a  e3 58 25 3d 31 b8 a9 28  |.KE%(9):.X%=1..(|
000012b0  4b 24 29 3a 41 53 25 28  58 25 29 3d 97 28 c1 4b  |K$):AS%(X%)=.(.K|
000012c0  24 2c 58 25 2c 31 29 29  3a ed 3a e3 58 25 3d 31  |$,X%,1)):.:.X%=1|
000012d0  b8 38 3a 4b 45 25 28 58  25 29 3d 41 53 25 28 58  |.8:KE%(X%)=AS%(X|
000012e0  25 29 3a ed 3a 46 4c 24  3d 22 22 3a 50 52 24 3d  |%):.:FL$="":PR$=|
000012f0  22 50 72 61 63 74 69 63  65 20 50 61 72 61 67 72  |"Practice Paragr|
00001300  61 70 68 2e 22 3a 54 46  24 3d 22 6f 6e 20 74 68  |aph.":TF$="on th|
00001310  65 20 66 6f 6c 6c 6f 77  69 6e 67 20 6b 65 79 73  |e following keys|
00001320  22 0d 02 30 9d de 57 24  28 35 38 2c 34 29 2c 43  |"..0..W$(58,4),C|
00001330  57 24 28 31 32 30 29 3a  e3 49 25 3d 31 b8 35 38  |W$(120):.I%=1.58|
00001340  3a e3 58 25 3d 31 b8 34  3a f3 57 24 28 49 25 2c  |:.X%=1.4:.W$(I%,|
00001350  58 25 29 3a ed 2c 3a e3  49 25 3d 31 b8 31 32 30  |X%):.,:.I%=1.120|
00001360  3a f3 43 57 24 28 49 25  29 3a ed 3a e3 49 25 3d  |:.CW$(I%):.:.I%=|
00001370  31 b8 34 3a 57 24 28 32  2c 49 25 29 3d 22 22 22  |1.4:W$(2,I%)="""|
00001380  22 3a ed 3a 43 48 24 3d  22 59 6f 75 72 20 61 76  |":.:CH$="Your av|
00001390  65 72 61 67 65 20 74 79  70 69 6e 67 20 73 70 65  |erage typing spe|
000013a0  65 64 20 28 69 6e 63 6c  75 64 69 6e 67 20 20 20  |ed (including   |
000013b0  20 65 72 72 6f 72 73 29  20 77 61 73 20 22 0d 02  | errors) was "..|
000013c0  3a 37 59 41 24 3d 22 59  6f 75 72 20 61 63 63 75  |:7YA$="Your accu|
000013d0  72 61 63 79 20 77 61 73  20 22 3a 57 50 24 3d 22  |racy was ":WP$="|
000013e0  20 77 6f 72 64 73 20 70  65 72 20 6d 69 6e 75 74  | words per minut|
000013f0  65 2e 22 3a e1 0d 02 44  3c dd f2 54 49 54 4c 45  |e.":...D<..TITLE|
00001400  3a ef 32 36 2c 31 32 3a  f1 8a 34 2c 31 29 22 4b  |:.26,12:..4,1)"K|
00001410  20 41 20 4e 20 53 20 41  20 53 20 20 20 4d 20 49  | A N S A S   M I|
00001420  20 43 20 52 20 4f 20 54  20 59 20 50 20 45 22 3a  | C R O T Y P E":|
00001430  e1 0d 02 4e 89 dd f2 4d  45 4e 55 3a ef 32 38 2c  |...N...MENU:.28,|
00001440  30 2c 32 34 2c 33 39 2c  33 2c 31 32 3a f1 8a 38  |0,24,39,3,12:..8|
00001450  2c 31 29 22 23 20 23 20  23 20 20 20 4d 20 45 20  |,1)"# # #   M E |
00001460  4e 20 55 20 20 20 23 20  23 20 23 22 27 27 27 27  |N U   # # #"''''|
00001470  27 22 31 2e 20 20 48 6f  6d 65 20 4b 65 79 73 20  |'"1.  Home Keys |
00001480  61 6e 64 20 4b 65 79 20  50 72 61 63 74 69 63 65  |and Key Practice|
00001490  2e 22 27 27 22 32 2e 20  20 22 50 52 24 3a e7 46  |."''"2.  "PR$:.F|
000014a0  4c 25 3d 34 f1 27 22 33  2e 20 20 52 65 73 65 74  |L%=4.'"3.  Reset|
000014b0  20 50 72 6f 67 72 61 6d  2e 22 0d 02 58 48 f1 8a  | Program."..XH..|
000014c0  30 2c 31 37 29 22 50 6c  65 61 73 65 20 70 72 65  |0,17)"Please pre|
000014d0  73 73 20 74 68 65 20 6e  75 6d 62 65 72 22 27 22  |ss the number"'"|
000014e0  6f 66 20 74 68 65 20 6f  70 74 69 6f 6e 20 72 65  |of the option re|
000014f0  71 75 69 72 65 64 20 20  22 3b 3a 2a 46 58 31 35  |quired  ";:*FX15|
00001500  2c 31 0d 02 62 1b f5 41  25 3d a5 2d 34 38 3a fd  |,1..b..A%=.-48:.|
00001510  41 25 3e 30 80 41 25 3c  46 4c 25 3a e1 0d 02 6c  |A%>0.A%<FL%:...l|
00001520  24 dd f2 53 50 45 45 44  3a ef 32 38 2c 30 2c 32  |$..SPEED:.28,0,2|
00001530  34 2c 33 39 2c 36 3a e7  53 25 3e 30 8c 8d 74 40  |4,39,6:.S%>0..t@|
00001540  42 0d 02 76 65 e8 8a 30  2c 33 29 22 50 6c 65 61  |B..ve..0,3)"Plea|
00001550  73 65 20 65 6e 74 65 72  20 79 6f 75 72 20 69 6e  |se enter your in|
00001560  69 74 69 61 6c 20 74 79  70 69 6e 67 20 73 70 65  |itial typing spe|
00001570  65 64 2c 22 27 27 22 31  30 2d 31 30 30 20 77 6f  |ed,"''"10-100 wo|
00001580  72 64 73 20 70 65 72 20  6d 69 6e 75 74 65 20 20  |rds per minute  |
00001590  22 49 24 3a 53 25 3d bb  28 c0 49 24 2c 33 29 29  |"I$:S%=.(.I$,3))|
000015a0  3a e5 8d 74 72 42 0d 02  80 5e f1 8a 30 2c 32 29  |:..trB...^..0,2)|
000015b0  22 52 65 73 70 6f 6e 73  65 20 74 69 6d 65 20 69  |"Response time i|
000015c0  73 20 63 75 72 72 65 6e  74 6c 79 22 27 3b 53 25  |s currently"';S%|
000015d0  57 50 24 27 27 27 22 31  2e 20 20 22 3b 3a e7 53  |WP$'''"1.  ";:.S|
000015e0  25 3c 31 30 30 f1 22 49  6e 63 72 65 61 73 65 20  |%<100."Increase |
000015f0  52 65 73 70 6f 6e 73 65  20 54 69 6d 65 2e 22 8b  |Response Time.".|
00001600  f1 22 2a 22 0d 02 8a 33  f1 27 22 32 2e 20 20 22  |."*"...3.'"2.  "|
00001610  3b 3a e7 53 25 3e 31 30  f1 22 44 65 63 72 65 61  |;:.S%>10."Decrea|
00001620  73 65 20 52 65 73 70 6f  6e 73 65 20 54 69 6d 65  |se Response Time|
00001630  2e 22 8b f1 22 2a 22 0d  02 94 36 f1 27 22 33 2e  |.".."*"...6.'"3.|
00001640  20 20 53 61 6d 65 20 52  65 73 70 6f 6e 73 65 20  |  Same Response |
00001650  54 69 6d 65 2e 22 27 27  22 34 2e 20 20 52 65 74  |Time."''"4.  Ret|
00001660  75 72 6e 20 74 6f 20 4d  45 4e 55 2e 22 0d 02 9e  |urn to MENU."...|
00001670  48 f1 8a 30 2c 31 36 29  22 50 6c 65 61 73 65 20  |H..0,16)"Please |
00001680  70 72 65 73 73 20 74 68  65 20 6e 75 6d 62 65 72  |press the number|
00001690  22 27 22 6f 66 20 74 68  65 20 6f 70 74 69 6f 6e  |"'"of the option|
000016a0  20 72 65 71 75 69 72 65  64 20 20 22 3b 3a 2a 46  | required  ";:*F|
000016b0  58 31 35 2c 31 0d 02 a8  33 f5 41 25 3d a5 2d 34  |X15,1...3.A%=.-4|
000016c0  38 3a fd 41 25 3e 30 80  41 25 3c 35 3a e7 41 25  |8:.A%>0.A%<5:.A%|
000016d0  3d 31 53 25 3d 53 25 2b  31 30 8b e7 41 25 3d 32  |=1S%=S%+10..A%=2|
000016e0  53 25 3d 53 25 2d 31 30  0d 02 b2 1d e7 53 25 3e  |S%=S%-10.....S%>|
000016f0  31 30 30 53 25 3d 31 30  30 8b e7 53 25 3c 31 30  |100S%=100..S%<10|
00001700  53 25 3d 31 30 0d 02 bc  05 e1 0d 02 c6 4f dd f2  |S%=10........O..|
00001710  53 50 43 28 74 25 2c 79  25 29 3a f1 8a 30 2c 79  |SPC(t%,y%):..0,y|
00001720  25 29 22 50 72 65 73 73  20 74 68 65 20 53 50 41  |%)"Press the SPA|
00001730  43 45 20 42 41 52 20 74  6f 20 22 3b 3a e7 74 25  |CE BAR to ";:.t%|
00001740  f1 22 63 6f 6e 74 69 6e  75 65 20 22 3b 3a 8b f1  |."continue ";:..|
00001750  22 73 74 61 72 74 20 22  3b 0d 02 d0 0b 2a 46 58  |"start ";....*FX|
00001760  31 35 2c 31 0d 02 da 1a  f5 fd a5 3d 33 32 3a f1  |15,1.......=32:.|
00001770  8a 30 2c 79 25 29 89 28  33 37 29 3b 3a e1 0d ff  |.0,y%).(37);:...|
00001780

P/MICROTY.m0

P/MICROTY.m1

P/MICROTY.m2

P/MICROTY.m4

P/MICROTY.m5

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