@ |}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`L8"LVh h! 8"ȱ #ȱ ȱ  $%& S! S&%&$8`#"#"  8!HH"L$ D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G%}H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0})8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH)}  hyhyB q L> Lm JJ  Ln*` dB%'}8  H H` 1 { LL   !L     Hh SY?  q  1L}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF  } G) *Gȩ GȽG GȌd q q G`  8   0G  `D!}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y"}`piH n0)բY? 08`0 #}  0$L GGȽG L `8L`L$}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8ikiLE`%}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE&} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR'}1LJ舩9GIH`LJJ`HGHh l`(} S gL   8 rii `дCDCG W  )}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}*} |||DDOS DOSDOS SYS }+}}+},}BSTART PRGCDOS SYS-} 0`BDELV !B .}`LVUQ   ]   TU J ]L!T  #      TU /} L ? .  t`GBJ V~DEHI B V0dV0}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh1}DEL8HI   0 HI,0 0  9 .G VLO2},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI3} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI4} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO 5}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -6}LLu DEHILV 9 .l 9 .l  `` s$B VBH7}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL8}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e9}1i1232435ޥ<<8?} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D;}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F<}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟=}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i>}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 0?}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE@}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBHA}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L B} BL1TYPE "Y" TO DELETE...DELETE FILE SPECNOT ALLOWED OPTION NOT ALLOWED653 FREE SECTORS COPYING---D2:STARC}T.PRG#Lz#|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: BD} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#E}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%F} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C0 THEN POKE 85,PEEK(85)-1:PRINT #6;"";:POKE 85,PEEK(85) f}-1:GOTO 3618 PRINT #6;B$;20 IF Q=22 THEN I=0:GOSUB 7500:POKE 752,1:POKE 703,24:GOSUB 6480:PRINT "}";:C1=0:GOTO 672022 IF Q g}=155 THEN POKE 703,24:PRINT "}";:POKE 752,1:PRINT "";:POSITION 2,7:PRINT I$(Z*250,((Z+1)*250)-1):GOTO 714024 N=N+1:IF Q<32 h}THEN 1426 IF C1=0 THEN C1=128 IF C1=1 THEN I$(Z*250+1,Z*250+1)=B$:GOTO 3230 I$(Z*250+C1,Z*250+C1)=B$32 C1=C1+1:IF C1=220 i}THEN POKE 752,1:GOTO 714034 GOTO 1236 I$(Z*250+C1,Z*250+C1)=" ":C1=C1-1:IF C1=0 THEN C1=138 GOTO 1243 TRAP 1200044 POKE j}703,24:POKE 82,2:POKE 752,1:OPEN #1,4,0,"K:":OPEN #6,12,0,"S:":POKE 752,145 IF ZT=0 THEN DIM I$(7750),S$(40),DD$(3),B$(255), k}A$(1),L$(35),C$(3),F1$(15),F2$(15):GOTO 4746 TRAP 11400:CF=1:F2$="D1:DATA.TMP":GOSUB 11120:TRAP 12000:GOTO 11047 DIM FILE$( l}20),NAME$(20),DISK$(3),T$(250),C1(30)48 I$(1,1)=" ":I$(7750,7750)=" ":I$(2)=I$49 FOR C=1 TO 30:C1(C)=1:NEXT C:GOTO 4650 RE m}M MENU DISPLAY ROUTINE55 FOR I=1 TO 19:Q=I*256 GOSUB Q+SL:IF SL=-1 THEN V=0:RETURN 57 POSITION 3,I+1+V:PRINT S$;:NEXT I58 n} S$="":REM CLEAR STRING FOR DISPLAY60 RETURN 80 REM BORDER SUBROUTINE84 PRINT "}"85 FOR Q=1 TO 23:POSITION 2,Q:PRINT ""; o}:POSITION 39,Q:PRINT "";:NEXT Q87 POSITION 2,0:FOR Q=1 TO 37:PRINT "";:NEXT Q:PRINT "";90 POSITION 2,22:FOR Q=1 TO 37:PR p}INT "";:NEXT Q:PRINT "";95 RETURN 110 SETCOLOR 2,12,8:SETCOLOR 4,12,8:SETCOLOR 1,0,0:PRINT "}";:PRINT 115 POKE 752,1:POK q}E 703,24:REM CURSOR OFF AND FULLSCREEN130 GOSUB 80140 GOTO 192150 S$="<1> Letters":RETURN 152 S$="":RETURN 154 S$="<2> N r}umbers & Symbols":RETURN 156 S$="":RETURN 158 S$="<3> Words":RETURN 160 S$="":RETURN 162 S$="<4> Text & Program Listings" s}:RETURN 164 S$="":RETURN 166 S$="<5> Create or View Paragraphs":RETURN 168 S$="":RETURN 170 S$="<6> Practice Paragraphs": t}RETURN 172 S$="":RETURN 174 S$="<7> Save Paragraphs on Disk":RETURN 176 S$="":RETURN 178 S$="<8> Recall Paragraphs from D u}isk":RETURN 180 S$="":RETURN 182 S$="<9> Edit Paragraphs":RETURN 184 S$="":RETURN 186 S$="<0> View Catalog or Quit":RETUR v}N 192 SL=148:GOSUB 50250 GET #1,Q255 A$=CHR$(Q)290 IF ASC(A$)<48 OR ASC(A$)>57 THEN 250295 A=VAL(A$):IF A=0 THEN A=1030 w}0 ON A GOTO 2130,2870,1425,360,6000,8000,10000,11000,14000,13000360 RESTORE :GOTO 460370 S$="LEVEL <4> TEXT & PROGRAM LISTI x}NGS":RETURN 372 S$="":RETURN 374 S$=" DIRECTIONS":RETURN 376 S$=" ==========":RETURN 378 S$="":RETU y}RN 380 S$="> Type the indicated # to practice":RETURN 382 S$=" the following symbols":RETURN 384 S$="":RETURN 386 S$="<1 z}> 'abcd'":RETURN 388 S$="<2> 'efgh'":RETURN 390 S$="<3> 'ijkl'":RETURN 392 S$="<4> 'mnop'":RETURN 394 S$="<5> 'qrst'":RET {}URN 396 S$="<6> 'uvwxyz'":RETURN 398 S$="<7> All Letters":RETURN 400 S$="<8> Numbers & Letters":RETURN 402 S$="<9> Progra |}m Listings":RETURN 404 S$="":RETURN 406 S$=" Type 'ESC' for Menu":RETURN 460 GOSUB 80:V=0:SL=368:GOSUB 50650 GOSUB }} 6100:GOSUB 6155:A$=CHR$(Q)660 IF Q<49 OR Q>57 THEN 650670 V=VAL(A$)690 IF V<0 OR V>9 THEN 650710 IF V=0 THEN GOTO 11073 ~}0 PRINT "}":RESTORE 750 X=0770 READ DD$:X=X+1790 IF X=45 THEN GOTO 820810 GOTO 770820 REM IF V>6 THEN 840830 REM FOR I= }1 TO V:READ B$:READ T$:B$(LEN(B$)+1)=" ":B$(LEN(B$)+1)=T$:NEXT I:GOTO 850840 FOR I=1 TO V:READ B$841 READ T$842 IF T$="" } THEN READ T$:B$(LEN(B$)+1)=",":B$(LEN(B$)+1)=T$:GOTO 841844 B$(LEN(B$)+1)=" ":B$(LEN(B$)+1)=T$846 NEXT I850 POSITION 2,3 }:PRINT B$860 POSITION 15,20:PRINT "Š"865 POSITION 2,9:S=0:T=0870 FOR I=1 TO LEN(B$)880 POKE 753,0890 Q=PEEK(7 }53):IF Q<>3 THEN T=T+1.2:GOTO 890895 GET #1,Q900 S=S+T:T=0930 A$=CHR$(Q)950 IF A$=CHR$(13) THEN 890970 IF A$<>B$(I,I) TH }EN U=U+1:PRINT "";:GOTO 890990 PRINT A$;:NEXT I995 V=01000 FOR Q=1 TO 200:NEXT Q1010 W=INT((LEN(B$)/5)/(S/2580))1030 L= }4:GOSUB 38501050 GOSUB 6100:GOSUB 61551055 IF Q=67 THEN 3601060 GOTO 10501070 DATA FAD,JOE,BAD,ASK,HAD1090 DATA AND,LAD, }SHE,OLD,OAK1110 DATA THE,HAS,HAL,SEE,HIS1130 DATA COT,ILL,GET,SKI,WIT1150 DATA OWN,NEW,AND,FIN,FOR1170 DATA ARE,CAR,AXE,Y }OU,OUR1190 DATA MAY,PIG,CUP,GAP,SKY1210 DATA ZIP,OZ.,EQ.,QUE,BOB1230 DATA MOB,VIC,GM.,VIA,FUN1250 DATA BESS BANCH IS THE }BEST PAID; SHE CAN DO A BIG JOB.1260 DATA DID CLAY CHECK THE DUE DATES ON THE CASH CARD ?1270 DATA EVA FAY FELT THAT ONE F }ILE FOR EACH SAFE WILL NOT DO.1280 DATA GREG IS NOT GOOD WITHTHE WEIGHTS. HE IS NOT GREAT WITH THEROPES EITHER.1290 DATA I }F IT IS A SMALL JET,, JIM WILL JUST JUMP FOR JOY.1300 DATA KATE BLOKES KEEPS ALL KINDS OF LISTS FOR MR. BLACK.1310 DATA JO }HN IS KNOWN MORE FOR HIS MIND THAN FOR HIS MIGHT.1320 DATA TO TOP THE PINK POST PEOPLE MUST PLAN TO GO UP NORTH.1330 DATA R }UN MY QUEER QUARTZ ROCK QUICKLY TO THE QUAY.1340 DATA STAN SAID TO ASK THE TERMS OFTHE SALE.1350 DATA OUR VOTES HAVEN'T BEE }N PLEDGED. REX WENT TO THE NEW WAX WORKS. THE TAXES ARE DUE AT SIX.1360 DATA LIZ SAYS: ZEST AND ZEAL AREN'T GOING TO WIN T }HE PRIZE.1370 DATA TEX RANZZEL PACKED THE BAG WITH FIFTEEN QUARTS OF YACA JUICES,, MILK,, AND TWENTY TWINKIES.1380 DATA T }OM NEVER SAW HIM AGAIN.1390 DATA JOHN'S BOAT CAUGHT 284 GROUPER,, 3 PERCH,, AND 1,,690 BASS. THE FISH,, WEIGHING628 LBS }.1400 DATA WERE IN BOX #759 BEFORE THEYWERE CARRIED AWAY BY 1340 ANTS.1410 DATA 10 GET A$:GOTO 50:HOME:RESTORE:HOME:IFB$ <> } MID$ (A$,,I,,1)1420 DATA THEN U=U+1:GOTO 90:60 W=INT(70-S/(25*LEN(A$)))1425 REM WORDS1426 GOTO 15251430 S$=" L }EVEL <3>: WORDS":RETURN 1432 S$="":RETURN 1434 S$="":RETURN 1436 S$=" DIRECTIONS ":RETURN 1438 S$=" } ==========":RETURN 1440 S$="":RETURN 1442 S$="> Type each word as it appears":RETURN 1444 S$=" on the screen":RETURN 14 }46 S$="":RETURN 1448 S$="> Select level of difficulty 1-9":RETURN 1450 S$="":RETURN 1452 S$="> The program automatically b }egins":RETURN 1454 S$=" when you press a number":RETURN 1456 S$="":RETURN 1458 RETURN 1460 RETURN 1462 RETURN 1464 RET }URN 1466 S$=" Press 'ESC' for Menu":RETURN 1525 GOSUB 80:SL=1428:GOSUB 501530 GOSUB 6100:GOSUB 6155:A$=CHR$(Q)1540 } IF Q-48<1 OR Q-48>9 THEN 15301550 M=5*VAL(A$)1570 IF M<1 OR M>45 THEN GOTO 15301590 FOR P=1 TO 101610 ZZ=RND(1):ZZ=INT(( }RND(1)*M)+0.5)1630 IF ZZ=0 THEN ZZ=11650 FOR J=1 TO ZZ1670 READ B$:NEXT J:RESTORE 1690 FOR J=1 TO 31710 C$=B$1730 NEXT }J:PRINT "}":POSITION 18,12:PRINT B$1750 POSITION 18,141770 FOR J=1 TO 31790 T=01800 POKE 753,01810 Q=PEEK(753):IF Q<>3 T }HEN T=T+0.2:GOTO 18101820 GET #1,Q1830 A$=CHR$(Q)1850 IF A$=C$(J,J) THEN PRINT A$;1870 IF A$=CHR$(13) THEN 18101890 IF A }$<>C$(J,J) THEN U=U+1:PRINT "";:GOTO 18101910 S=S+T1930 NEXT J1950 FOR Q=1 TO 60:NEXT Q1970 PRINT "}"1990 NEXT P2010 W }=80-S/52030 L=3:GOSUB 38502070 GOSUB 6100:GOSUB 61552100 IF Q=67 THEN 14262110 GOTO 20702130 REM LETTERS- CODE 12150 L$ }="FJDKSLAEHOTIWNRCSUPGYZBQMVX"2170 PRINT "}":GOSUB 802180 GOTO 22752186 S$=" LEVEL <1>: LETTERS":RETURN 2188 S$="" }:RETURN 2190 S$=" DIRECTIONS ":RETURN 2192 S$=" =========="2194 S$="":RETURN 2196 S$="> Type each } letter when it appears":RETURN 2198 S$=" on the screen":RETURN 2200 S$="":RETURN 2202 S$="> The faster the response is, }the":RETURN 2204 S$=" closer it will be to the stimilus":RETURN 2206 S$="":RETURN 2208 S$="> The word 'ERROR' will appear } to":RETURN 2210 S$=" indicate an incorrect response":RETURN 2212 S$="":RETURN 2214 RETURN 2216 S$="> Select level of di }fficulty 1-9":RETURN 2218 S$="":RETURN 2220 RETURN 2222 S$=" Press 'ESC' for Menu":RETURN 2275 SL=2184:GOSUB 50229 }0 GOSUB 61002295 A$=CHR$(Q)2297 GOSUB 61552300 IF Q<49 OR Q>57 THEN 22902310 M=3*VAL(A$)2330 IF M<3 OR M>27 THEN GOTO 21 }702340 GOSUB 80:GOTO 24372350 S$=" YOU WILL BE USING THESE LETTERS":SL=2356:RETURN 2360 MS=M:M=INT((39-M)/2+0.5)2362 S$= }""2365 FOR X=1 TO M-3:S$(LEN(S$)+1)=" ":NEXT X2370 M=MS2390 FOR X=1 TO M2395 S$(LEN(S$)+1)=L$(X,X):NEXT X2415 MS=M:M=INT }((39-M)/2):M=MS:V=3:SL=2414:RETURN 2420 S$=" PRESS 'ESC' FOR MENU":V=12:RETURN 2422 S$="":RETURN 2424 S$=" } OR":RETURN 2426 S$="":RETURN 2428 S$=" PRESS ANY KEY TO BEGIN":RETURN 2430 SL=-1:RETURN 2437 SL=2348:GOSUB 50 }2440 GOSUB 6100:GOSUB 61552445 PRINT "}"2470 FOR P=1 TO 202490 T=02510 ZZ=RND(1):ZZ=INT((RND(1)*M)+0.5)2530 IF ZZ=0 THE }N ZZ=12550 B$=L$(ZZ,ZZ):POSITION 2,12:PRINT B$;2560 POKE 753,02570 Q=PEEK(753):IF Q<>3 THEN T=T+0.6:GOTO 25702575 GET #1, }Q2590 A$=CHR$(Q)2595 IF T=0 THEN T=12610 IF T>31 THEN PRINT " SLOW ":T=31:GOTO 26502630 IF A$=B$ THEN POSITION T,12:P }RINT B$2650 IF A$<>B$ THEN PRINT " ERROR ":U=U+1:T=T+12670 FOR R=1 TO 60:NEXT R2690 S=S+T2710 PRINT "}"2730 NEXT P }2750 W=80-2.5*S/202770 L=1:GOSUB 38502810 GOSUB 61002830 IF Q=27 THEN 1102835 IF Q=67 THEN 21302850 GOTO 28102870 REM }2890 L$="1234567890:-!#$%&'@()*=;/,+?><@.X"2891 GOTO 30152940 S$=" LEVEL <2>: NUMBERS & SYMBOLS":RETURN 2942 S$="":RETUR }N 2944 S$=" DIRECTIONS":RETURN 2946 S$=" ==========":RETURN 2948 S$="":RETURN 2950 S$="> Type each }symbol when it appears":RETURN 2952 S$=" on the screen.":RETURN 2954 S$="":RETURN 2956 S$="> The faster a correct respons }e is":RETURN 2958 S$=" entered, the closer the response":RETURN 2960 S$=" will be to the stimulus":RETURN 2962 S$="":RET }URN 2964 S$="> The word 'ERROR' will appear to":RETURN 2966 S$=" indicate an incorrect response ":RETURN 2968 S$="":RETU }RN 2970 S$="> Select level of difficulty 1-8":RETURN 2972 S$=" Type 'ESC' for menu":V=2:RETURN 2974 SL=-1:RETURN 3 }015 GOSUB 80:SL=2938:GOSUB 503030 GOSUB 6100:GOSUB 61553035 IF Q<49 OR Q>56 THEN 30303040 A$=CHR$(Q)3050 M=4*VAL(A$)3055 } GOTO 31203066 S$=" YOU WILL USING THESE SYMBOLS":RETURN 3068 S$="":RETURN 3070 MS=M:M=INT((39-M)/2+0.5)3080 FOR X=1 TO }M-3:S$(LEN(S$)+1)=" ":NEXT X3085 M=MS3090 FOR X=1 TO M3098 S$(LEN(S$)+1)=L$(X,X):NEXT X:SL=3092:V=3:RETURN 3099 STOP 310 }0 MS=M:M=INT((39-M)/2):M=MS3102 S$="":V=9:RETURN 3104 S$=" Press 'ESC' for menu":RETURN 3106 S$="":RETURN 3108 S$=" } or":RETURN 3110 S$="":RETURN 3112 S$=" Press any key to begin":RETURN 3114 SL=-1:RETURN 3120 GOSUB 80 }:SL=3064:GOSUB 503125 GOSUB 6100:GOSUB 61553127 PRINT "}"3130 FOR X=1 TO M3210 FOR P=1 TO 203230 T=03250 ZZ=RND(1):ZZ=I }NT((RND(1)*M)+0.5)3270 IF ZZ=0 THEN ZZ=13290 B$=L$(ZZ,ZZ):POSITION 2,12:PRINT B$;3300 POKE 753,03310 Q=PEEK(753):IF Q<>3 }THEN T=T+0.5:GOTO 33103330 GET #1,Q3350 A$=CHR$(Q)3355 IF T=0 THEN T=13370 IF T>31 THEN PRINT " SLOW ":T=31:GOTO 341 }03390 IF A$=B$ THEN POSITION T,12:PRINT B$3410 IF A$<>B$ THEN PRINT " ERROR":U=U+1:T=T+13430 FOR Q=1 TO 60:NEXT Q345 }0 S=S+T3470 PRINT "}"3490 NEXT P3510 W=80-2.5*S/203530 L=2:GOSUB 38503570 GOSUB 6100:GOSUB 61553595 IF Q=67 THEN 28703 }610 GOTO 35703630 PRINT "}":RETURN :REM *******NO GET HERE YET M.C.*******3850 REM WORDS PER MINUTE SUBROUTINE3870 W=INT(W }+0.5):IF W<5 THEN W=53875 PRINT "}":POSITION 6,6:PRINT "WORDS PER MINUTE >> ";W3890 POSITION 6,12:PRINT "NUMBER OF ERRORS > }> ";U3910 POSITION 3,16:PRINT " TYPE 'C' TO CONTINUE ON LEVEL ";L;""3930 POSITION 17,18:PRINT "OR":POSITION 4,20:PRINT " TY }PE 'ESC' TO RETURN TO MENU"3950 T=0:S=0:U=0:RETURN 3951 REM 3969 REM 3970 REM SUBROUTINE FOR ERROR INDICATIONS3990 PRINT } "";:PRINT A$;4010 RETURN 4011 REM 5015 PRINT "";5540 REM 6000 REM STORE PHRASES FOR USER6010 REM ZT IS NOW THE SIGNAL } TO ACCEPT USER PRACTICE6040 PRINT "}":GOTO 68806060 REM 6080 REM "GET SUBROUTINE"6100 Q=PEEK(753):IF Q<>3 THEN R=R+1:GOT }O 61006105 GET #1,Q6140 RETURN 6150 REM TEST FRO ESC6155 IF Q=27 THEN 1106157 RETURN 6160 REM 6180 REM 6200 REM VIEW }# OF WORDS STORED6210 POKE 703,4:REM TEXT WINDOW ON BOTTOM6220 PRINT " ";ZT;" PARAGRAPHS ARE STORED ON THIS FILE"6225 PRI }NT " THE MAXIMUM POSSIBLE IS ";:PRINT ""6240 RETURN 6260 REM 6280 REM 6460 REM 6480 REM VIEW WORDS STORED6500 P }RINT "}":POSITION 3,1:PRINT " PARAGRAPHS STORED ON THIS FILE":PRINT 6520 ZL=ZU+1:ZU=ZU+2:REM SET LOWER AND UPPER LOOP LIMITS }6560 IF ZU>30 THEN ZU=306580 ZS=Z:FOR Z=ZL TO ZU6581 PRINT " Ƞ";Z6583 PRINT I$(Z*250+1,(Z*250)+C1(Z)) }6585 FOR Q=1 TO 39:PRINT "-";:NEXT Q:PRINT "-"6590 NEXT Z:Z=ZS6600 PRINT " çծ٠Ҡ٠ϠԮ";:PRINT } ""6620 GOSUB 60806625 IF Q=27 THEN ZL=0:ZU=0:GOTO 110:REM MENU6640 IF ZT>ZU THEN 64806660 ZL=0:ZU=0:RETURN 6680 REM 67 }00 REM 6720 REM REQUEST ANOTHER PARAGRAPH6740 POSITION 6,4:PRINT #6;"ESC ............MENU":PRINT #6;""6765 POSITION 6,5:P }RINT #6;"CTRL-V ..........VIEW PARAGRAPHS":PRINT #6;""6770 POSITION 6,6:PRINT #6;"ANY OTHER KEY ...ADD PARAGRAPHS"6780 GOSU }B 61006800 IF Q=27 THEN 110:REM ESC6810 IF Q=22 THEN POKE 703,24:GOSUB 6480:GOTO 69676815 POKE 703,24:PRINT "}":POKE 703,4 }6820 GOTO 69676840 RETURN 6860 REM 6880 REM INPUT SEQ. FOR MICROTYPING6890 IF Z=0 THEN Z=1:REM BEGIN STORING STRINGS WIT }H Z=16900 REM 6920 REM 6925 GOTO 69656930 S$="LEVEL <5>: CREATE / VIEW PARAGRAPHS":RETURN 6932 S$="":RETURN 6934 S$=" } DIRECTIONS":RETURN 6936 S$=" ==========":RETURN 6938 S$="":RETURN 6940 S$="> Enter a paragraph (220 cha }r. max)":RETURN 6942 S$="":RETURN 6944 S$="> Type 'RETURN' when done":RETURN 6946 S$="":RETURN 6948 S$="> To save paragra }phs on disk, first":RETURN 6950 S$=" go to main menu - then type <7>":RETURN 6952 S$=" Type 'ESC' for menu":V=3:RET }URN 6954 S$="":RETURN 6956 S$=" or":RETURN 6958 S$="":RETURN 6960 S$=" Type any key to begin":RETUR }N 6962 SL=-1:RETURN 6965 GOSUB 80:SL=6928:GOSUB 50:GOSUB 6100:GOSUB 61556966 REM 6967 PRINT "}":GOSUB 6200:POSITION 8,1:P }RINT #6;"ŠҠ"6968 POSITION 8,3:PRINT #6;"ESC......MENU":POSITION 8,4:PRINT #6;"CTRL-V...VIEW PARAGRAPHS" }6969 POSITION 2,6:PRINT #6;"àҠ̭̠֠ŠŠ"6975 POKE 752,0:PRINT #66980 IF XX=1 THEN Z=Z+1:XX=0:REM } ONLY AFTER READING FILE FROM DISK, INCREMENT Z BY ONE6981 REM MAX PARAGRAPH INDICATOR6982 IF ZT>=30 AND Q<>22 THEN ME=6998 }:S1=1:GOSUB 9000:GOTO 1106985 GOTO 127004 S$=" 30 PARAGRAPHS ARE STORED":V=9:RETURN 7006 S$="":RETURN 7008 S$=" } NO MORE CAN BE ACCEPTED":SL=9010:RETURN 7120 REM 7140 REM BUILD I$ - STRING7141 POKE 703,247145 IF C1=0 THEN C1=17150 I }=C1:C1(Z)=C1-1:C1=0:N=0:REM MAX LENGTH COUNTER7160 PRINT "}":I=0:POSITION 2,7:PRINT I$(Z*250,((Z+1)*250)-1):PRINT 7180 POSI }TION 8,14:PRINT "ӠӠԠٯΩ"7200 GOSUB 6080:IF Q=89 THEN PRINT "}":Z=Z+1:GOTO 73007240 GOTO 73207300 ZT=ZT+1: }GOSUB 6200:GOTO 67207320 IF Q<>78 THEN 71807340 T$(1,1)=" ":T$(250,250)=" ":T$(2)=T$:I$(Z*250+1,(Z+1)*250)=T$7360 FOR R=1 }TO 10:POSITION 10,2:PRINT "٠ľ"7362 FOR R1=1 TO 8:NEXT R17364 POSITION 10,2:PRINT "<>"736 }6 NEXT R:PRINT "}":GOTO 67207500 T$(1,1)=" ":T$(250,250)=" ":T$(2)=T$:I$(Z*250+1,(Z+1)*250)=T$:RETURN 8000 IF ZT>0 THEN 802 }08005 GOTO 80148010 S$=" PRACTICE NOT AVAILABLE":V=10:SL=9010:RETURN 8014 ME=8004:GOSUB 9000:GOTO 1108020 PRINT "}": }GOTO 80528022 S$=" LEVEL <6> PRACTICE USER INPUT":V=1:RETURN 8024 S$=" DIRECTIONS":V=2:RETURN 8026 S$=" } ==========":RETURN 8028 S$="> Type each word as it appears":V=3:RETURN 8030 S$=" on the screen":RETURN 8032 S$="> En }ter the # of paragraphs":V=4:RETURN 8034 S$=" on which you'd like to be tested":RETURN 8036 S$="> Practice will begin":V=5 }:RETURN 8038 S$=" as soon as you press a #":RETURN 8040 S$=" or":V=6:RETURN 8042 S$=" Press 'ESC' f }or menu":V=8:RETURN 8044 SL=-1:RETURN 8052 GOSUB 80:SL=8020:GOSUB 508055 GOSUB 6100:GOSUB 61558057 IF Q-48<1 OR Q-48>9 TH }EN 80558058 PRINT "}"8060 JT=VAL(CHR$(Q))8070 FOR J=1 TO JT8090 ZZ=RND(1):ZZ=INT((RND(1)*ZT))+18100 POSITION 2,2:PRINT I }$(ZZ*250+1,(ZZ*250)+C1(ZZ))8120 POSITION 2,108140 FOR R=1 TO LEN(I$(ZZ*250+1,(ZZ*250)+C1(ZZ)))8160 T=08180 Q=PEEK(753):IF } Q<>3 THEN T=T+1.2:GOTO 81808190 GET #1,Q8200 A$=CHR$(Q)8220 IF A$=I$(ZZ*250+R,ZZ*250+R) THEN PRINT A$;8260 IF A$<>I$(ZZ* }250+R,ZZ*250+R) THEN U=U+1:PRINT "";:GOTO 81808280 S=S+T8300 NEXT R8320 FOR Q=1 TO 150:NEXT Q8330 PRINT "}":NEXT J8340 }REM 8720 W=80-S/58740 L=6:GOSUB 38508750 GOSUB 6100:GOSUB 61558800 IF Q=67 THEN 80008830 GOTO 87509000 REM NOTE:NO PARA }GRAPHS IN MEMORY9005 POKE 703,24:POKE 752,19010 PRINT "}":PRINT "";9012 GOTO 90309014 S$=" NOTE":V=7:RETURN } 9016 S$=" ====":SL=ME:RETURN 9018 S$="":RETURN :IF S1=1 THEN S1=0:SL=7002:RETURN :REM SIGNAL FROM MAX PARAGRA }PHS9019 RETURN 9020 S$=" NO PARAGRAPHS IN MEMORY":V=11:RETURN 9022 S$=" TYPE ANY KEY FOR MENU":V=13:RETURN 9024 } SL=-1:RETURN 9030 SL=9012:GOSUB 509031 REM 9040 GOSUB 61009050 RETURN 10000 REM DISK WRITING10001 IF ZT>0 THEN 100601 }0002 GOTO 1000810006 S$=" DISK SAVING NOT AVAILABLE":V=10:SL=9010:RETURN 10008 ME=10000:GOSUB 9000:GOTO 11010009 REM }10010 S$="LEVEL <7>: SAVING PARAGRAPHS ON DISK":RETURN 10012 S$="":RETURN 10014 S$=" NOTE":RETURN 10016 S$=" } ====":RETURN 10018 S$="":RETURN 10020 S$="> Your file will be automatically":RETURN 10022 S$=" locked to preven }t accidental":RETURN 10024 S$=" over-writing":RETURN 10026 S$="":RETURN 10028 S$="> See manual to erase the file":RETURN }10030 S$=" Type any key to begin":V=2:RETURN 10032 S$=" or":V=4:RETURN 10034 S$=" Press 'ESC' f }or menu":V=6:RETURN 10036 SL=-1:RETURN 10060 GOSUB 80:SL=10008:GOSUB 5010070 GOSUB 6100:GOSUB 615510110 F1$="":F2$="":PRI }NT "}":POSITION 2,8:PRINT "ŠƠŠ";:INPUT F1$10112 POSITION 2,10:PRINT "ŠҠ";:GOSUB 6100:D=Q:D=D-48:I }F D<0 OR D>2 THEN D=110113 PRINT D10114 F2$="D":F2$(LEN(F2$)+1)=STR$(D):F2$(LEN(F2$)+1)=":":F2$(LEN(F2$)+1)=F1$10115 IF F2 }$(4)="DATA.TMP" THEN 1011010118 POSITION 2,14:PRINT "SAVING: ";F2$10120 OPEN #2,8,0,F2$10135 PRINT #2;ZT10140 FOR Z=1 TO }ZT:T$=I$(Z*250+1,(Z+1)*250):PRINT #2;T$:PRINT #2;C1(Z):NEXT Z10150 CLOSE #210155 IF CF=1 THEN CF=0:RETURN 10158 XIO 35,#2, }0,0,F2$:REM LOCK FILE10160 GOTO 11011000 REM RECALL FROM DISK11005 XX=1:REM SIGNAL TO INCREMENT Z ON6000 SEQ.11006 GOTO 1 }106011010 S$="":RETURN 11012 S$="":RETURN 11014 S$="LEVEL <8>: RECALL PARAGRAPHS - DISK":RETURN 11016 S$=" NOTE: THIS } WILL ERASE ANY":V=4:RETURN 11018 S$="PARAGRAPHS PRESENTLY IN THE MEMORY":V=6:RETURN 11020 S$=" Type any key to begin }":V=9:RETURN 11022 S$=" or":V=10:RETURN 11024 S$=" Press 'ESC' for menu":V=11:RETURN 11026 SL=-1:RE }TURN 11060 GOSUB 80:SL=11008:GOSUB 5011070 GOSUB 6100:GOSUB 615511110 PRINT "}":POSITION 2,8:PRINT "ŠƠŠ";:INP }UT F1$11112 POSITION 2,10:PRINT "ŠҠ";:GOSUB 6100:D=Q:D=D-48:IF D<0 OR D>2 THEN D=111113 PRINT D11114 F2$="D" }:F2$(LEN(F2$)+1)=STR$(D):F2$(LEN(F2$)+1)=":":F2$(LEN(F2$)+1)=F1$11115 FOR Z=1 TO 30:NEXT Z:Z=0:ZT=011120 OPEN #2,4,0,F2$11 }180 INPUT #2;ZT11190 FOR Z=1 TO ZT11200 INPUT #2;T$:I$(Z*250+1,(Z+1)*250)=T$:INPUT #2;T:C1(Z)=T:NEXT Z11290 CLOSE #211295 } IF CF=1 THEN CF=0:XIO 33,#2,0,0,"D:DATA.TMP":RETURN 11300 GOTO 11011400 IF PEEK(195)=170 THEN CLOSE #2:CF=0:TRAP 40000:RET }URN 11410 GOTO 1200012000 REM ERROR HANDLING12005 POKE 703,24:POKE 752,112010 TRAP 12000:REM RESTORE TRAP12012 IF PEEK(1 }95)=129 THEN CLOSE #212015 GOSUB 80:PRINT "";12020 IF PEEK(195)=6 THEN ES=1:GOTO 1205012030 IF PEEK(195)=167 THEN ES=2:GO }TO 1205012040 ES=312050 ON ES GOTO 12250,12400,1260012100 GOSUB 610012110 GOTO 11012112 FOR Z=1 TO ZT:PRINT I$:NEXT Z12 }200 S$=" OUT OF DATA ERROR":RETURN 12202 S$="":RETURN 12204 S$="":RETURN 12206 S$=" DIRECTIONS":RETURN 122 }08 S$=" ==========":RETURN 12210 S$="":RETURN 12212 S$="> The file you requested has no data":RETURN 12214 S$="": }RETURN 12216 S$="> You may have mis-spelled":RETURN 12218 S$=" the file's name":RETURN 12220 S$="":RETURN 12222 S$="> Pl }ease type any key to return":RETURN 12224 S$=" to the menu":RETURN 12226 S$="":RETURN 12228 S$="> Then type <0> to view t }he ":RETURN 12230 S$=" directory of files":RETURN 12232 SL=-1:RETURN 12250 SL=12198:GOSUB 5012255 XIO 33,#2,0,0,F2$:REM }DELETE FILE12257 GOTO 1210012400 REM FILE LOCKED ERROR12405 GOTO 1245012410 S$=" FILE LOCKED ERROR":RETURN 12412 S }$="":RETURN 12414 S$=" DIRECTIONS":RETURN 12416 S$=" ==========":RETURN 12418 S$="":RETURN 12420 S$="> }You have attempted to write":RETURN 12422 S$=" on a locked file":RETURN 12424 S$="":RETURN 12426 S$="> If you wish to rep }lace the ":RETURN 12428 S$=" file, type CTRL-R ":RETURN 12430 S$="":RETURN 12432 S$="> Type any other key to return":RET }URN 12434 S$=" to the menu":RETURN 12436 S$="":RETURN 12438 S$="> From the menu, type <0> if you ":RETURN 12440 S$=" }need to see the directory of files":RETURN 12442 SL=-1:RETURN 12450 SL=12408:GOSUB 5012460 GOSUB 610012470 IF Q<>18 THEN }11012475 CLOSE #212480 XIO 36,#2,0,0,F2$12495 PRINT "}":POSITION 2,14:PRINT "Ǡ";F2$12500 GOTO 10120:REM WRITE FI }LE12550 GOTO 1210012600 REM CATCH-ALL ERROR12605 GOTO 1265012610 S$=" ERROR":RETURN 12612 S$="":RETURN 1261 }4 S$=" DIRECTIONS":RETURN 12616 S$=" ==========":RETURN 12618 S$="":RETURN 12620 S$="> Error # >> h }as been encountered":RETURN 12622 S$=" on line # >>":RETURN 12624 S$="":RETURN 12626 S$="> Please type any key to re-star }t":RETURN 12628 S$=" MICROTYPING":RETURN 12630 S$="":RETURN 12632 S$="> If the error persists, please":RETURN 12634 S$=" } contact HAYDEN":RETURN 12636 SL=-1:RETURN 12650 SL=12608:GOSUB 5012655 POSITION 15,7:PRINT PEEK(195):POSITION 17,8:PRINT } 256*PEEK(187)+PEEK(186):GOTO 1210013000 REM END ROUTINE13010 PRINT "}":POKE 82,2:GOSUB 1500013020 POSITION 3,22:PRINT " }"13030 GOSUB 6100:IF Q<>81 THEN POKE 82,2:GOTO 13013040 GRAPHICS 0:END 14000 REM CHAIN T }O EDITOR14005 IF ZT>0 THEN 1406014006 GOTO 1405014020 S$=" EDITING NOT AVAILABLE":V=10:SL=9010:RETURN 14050 ME=14014 }:GOSUB 9000:GOTO 11014060 PRINT "}":POSITION 8,10:PRINT "LOADING MICROTYPING EDITOR"14070 CF=1:F2$="D1:DATA.TMP":GOSUB 1012 }0:REM CHAIN EFFECT14080 RUN "D:EDITOR"15000 REM DISK MENU15010 POKE 82,215015 POSITION 2,015020 DISK$="D1:"15030 NAME$= }DISK$15040 NAME$(LEN(NAME$)+1)="*.*"15050 OPEN #2,6,0,NAME$15055 FILECOUNT=015060 INPUT #2,FILE$15070 IF FILE$(5,16)="FR }EE SECTORS" THEN 1520015080 FILECOUNT=FILECOUNT+1:IF FILECOUNT=23 THEN POKE 82,20:POSITION 20,015090 IF FILECOUNT>44 THEN F }ILECOUNT=44:GOTO 12015100 NAME$=" . "15110 IF FILE$(11,13)=" " THEN NAME$(9,9)=" "15120 NAME$(1,8)=FILE$(3,10) }15130 NAME$(10,12)=FILE$(11,13)15140 PRINT NAME$15150 GOTO 1506015200 CLOSE #2:RETURN IF I=218 OR I=219 THEN PRINT "";1 Z10 REM MICROTYPING EDITOR20 REM WORKING COPY 3/19/82-120030 POKE 703,24:POKE 82,2:POKE 752,1:POKE 16,64:POKE 53774,64:OPEN }#1,4,0,"K:":GOTO 20000:REM CORE100 REM DIMENSION & ERR110 TRAP 12000140 IF ZT=0 THEN DIM I$(7750),S$(40),B$(2),T$(300),C1(}300),N$(250)150 CI=-1:REM INDICATOR FOR INSERT - POS=YES; NEG=NO152 I$(1,1)=" ":I$(7750,7750)=" ":I$(2)=I$153 FOR C=1 TO 3}0:C1(C)=1:NEXT C155 GOSUB 15000:REM CHAIN RETRIEVE160 PRINT "}";:RETURN 180 REM 200 REM MENU DISPLAY SUBROUTINE220 FOR I }=1 TO 19:Q=I*2222 GOSUB Q+SL:IF SL=-1 THEN V=0:RETURN 224 POSITION 3,I+1+V:PRINT S$;:NEXT I226 S$="":REM CLEAR STRING FOR !}DISPLAY228 RETURN 340 REM 360 REM BORDER SUBROUTINE362 PRINT "}"380 FOR Q=1 TO 23:POSITION 2,Q:PRINT "";:POSITION 39,Q:"}PRINT "";:NEXT Q400 POSITION 2,0:FOR Q=1 TO 37:PRINT "";:NEXT Q:PRINT "";420 POSITION 2,22:FOR Q=1 TO 37:PRINT "";:NEXT#} Q:PRINT "";440 RETURN 460 REM 500 SETCOLOR 2,12,8:SETCOLOR 4,12,8:SETCOLOR 1,0,0:POKE 703,24:PRINT "}":REM MENU DISPLAY$}502 GOTO 590520 S$="":RETURN 522 S$=" EDIT MENU":RETURN 524 S$=" ==== ====":RETURN 526 S$="":RETURN%} 528 S$=" <1> View or edit paragraphs":RETURN 530 S$=" <2> Return to microtyping":V=3:RETURN 532 S$=" Type the ind&}icated number":V=10:RETURN 534 SL=-1:RETURN 590 GOSUB 360:REM BORDER600 SL=518:GOSUB 200:REM DISPLAY620 GOSUB 6080:REM GE'}T KEY630 B=Q-48:REM 12 THEN 620650 RETURN :REM TO CORE651 REM 6080 REM "GET SUBROUTINE"6100 Q=PEEK((}753):IF Q<>3 THEN 61006105 GET #1,Q6140 RETURN 6141 REM 6480 REM VIEW WORDS STORED6500 PRINT "}":POSITION 3,1:PRINT " PA)}RAGRAPHS STORED ON THIS FILE":PRINT 6520 ZL=ZU+1:ZU=ZU+2:REM SET LOWER & UPPER LOOP LIMITS6540 REM 6560 IF ZU>30 THEN ZU=3*}06580 ZS=Z:FOR Z=ZL TO ZU6581 PRINT " Ƞ";Z6583 PRINT I$(Z*250+1,Z*250+C1(Z))6585 FOR Q=1 TO 39:PRINT "+}-";:NEXT Q:PRINT "-"6590 NEXT Z:Z=ZS6600 PRINT "ESC..MENU. E..EDIT. ANY KEY..CONTINUE"6620 GOSUB 60806627 IF Q=27 OR Q,}=69 THEN ZL=0:ZU=06630 IF Q=69 OR Q=101 THEN 7000:REM EDIT6635 IF Q=27 THEN 20200:REM MENU6640 IF ZT>ZU THEN 64806660 ZL=-}0:ZU=0:RETURN 7000 REM EDIT SEQ.7010 TRAP 70107120 POSITION 2,1:PRINT "Enter # to edit and press RETURN. #>";:INPUT B712.}5 TRAP 120007130 IF LEN(STR$(B))=0 THEN 20200:REM MENU7180 IF B<1 OR B>ZT THEN PRINT "";:GOTO 71207185 Z=INT(B):X=LEN(I$(/}Z*250+1,Z*250+C1(Z)))7190 C=1:PRINT "}";7195 GOTO 7300:REM MENU7200 REM PRINT REG. CHAR.7210 IF X=220 THEN PRINT "";:GOT0}O 72607220 B$=CHR$(Q)7230 IF C=1 THEN I$(Z*250+1,Z*250+1)=B$:GOTO 72507235 IF C=X+1 THEN I$(Z*250+C1(Z)+1,Z*250+C1(Z)+1)=B1}$:GOTO 72507240 I$(Z*250+C,Z*250+C)=B$:C=C+1:GOTO 72557250 C=C+1:X=X+1:C1(Z)=X7255 GOSUB 7520:REM SCREEN DISPLAY7260 RETU2}RN 7261 REM 7300 REM MENU7310 REM RAISE BOTTOM???7315 GOTO 73607320 S$="CTRL-INSERT ....INSERT CHAR":RETURN 7322 S$="CT3}RL-DELETE ....DELETE CHAR":RETURN 7324 S$="CTRL-P ....DELETE PARAGRAPH":RETURN 7326 S$="CTRL- ....CURSOR UP":RE4}TURN 7328 S$="CTRL- ....CURSOR DOWN":RETURN 7330 S$="CTRL- ....CURSOR RT.":RETURN 7332 S$="CTRL- ....5}CURSOR LEFT":RETURN 7334 S$="ESC or RTN ....EXIT EDIT MODE":RETURN 7360 POSITION 15,1:PRINT "Ԡ"7370 FOR Q=1 TO 8:6}POSITION 3,Q+2:S=Q*2:GOSUB S+7318:PRINT S$:NEXT Q7380 GOSUB 226:REM CLEAR STRING7390 POKE 752,0:POSITION 2,12:PRINT I$(Z*257}0+1,Z*250+C1(Z)):POSITION 2,12:PRINT I$(Z*250+1,Z*250+1);"";7400 GOTO 76507401 REM 7440 REM :GET CHAR USING GET7520 REM 8}SCREEN DISPLAY7530 IF QS=1 THEN QS=0:PRINT "}";:GOTO 75357531 REM SIGNAL FOR CHAR DELETE7535 IF C=0 THEN PRINT "";:GOTO 79}6507540 PRINT B$;7560 RETURN 7570 REM 7580 REM EDITING7590 GOTO 7650:REM MAIN BLOCK7600 REM GET CHAR USING PEEK7610 Q=:}PEEK(753)7620 GET #1,Q7630 RETURN 7640 REM 7650 T$="":GOSUB 76007660 IF Q=255 THEN 7750:REM INSERT CHAR7670 IF Q=254 AN;}D C39<} THEN PRINT "";:C=C+1:GOTO 7650:REM RT.7695 IF Q=31 AND C<=X AND PEEK(85)=39 THEN PRINT "";:C=C-39:GOTO 76507700 IF Q=30 =}AND C>1 AND PEEK(85)<>0 THEN PRINT "";:C=C-1:GOTO 7650:REM LEFT7705 IF Q=30 AND PEEK(85)=0 AND C>1 AND C+39<=X THEN PRINT ">}";:C=C+39:GOTO 76507710 IF Q=28 AND PEEK(84)>12 THEN PRINT "";:C=C-40:GOTO 7650:REM UP7720 IF Q=29 AND C+40<=X THEN PRINT?} "";:C=C+40:GOTO 7650:REM DOWN7725 IF Q=27 OR Q=155 THEN PRINT "}";:POKE 752,1:C1(Z)=X:GOTO 202007730 IF Q>31 AND Q<123 TH@}EN GOSUB 7200:GOTO 76507735 PRINT "";:GOTO 7650:REM ILLEGAL CHAR7740 REM 7750 REM INSERT CHAR7755 IF X=220 THEN PRINT "A}";:GOTO 7650:REM MENU7760 PRINT "";:I$(Z*250+X+1,Z*250+X+1)=I$(Z*250+X,Z*250+X):T$=I$(Z*250+C,Z*250+(X-1))7780 I$(Z*250+C+B}1,Z*250+X)=T$:I$(Z*250+C,Z*250+C)=" ":X=X+1:C1(Z)=X:GOTO 76507840 REM DELETE CHAR7845 REM 7850 IF X=1 THEN PRINT "";:GOTOC} 76507860 REM 7870 IF Q<>254 THEN 78907880 PRINT "";:T$=I$(Z*250+C+1,Z*250+X):I$(Z*250+C,Z*250+(X-1))=T$7885 I$(Z*250+X,D}Z*250+X)=" ":X=X-1:C1(Z)=X7890 GOTO 76507910 REM DELETE PARAGRAPH7920 POSITION 1,22:PRINT "ŮħҠӮE}"7930 GOSUB 76007940 IF Q<>68 THEN 202007950 FOR J=Z TO ZT-1:I$(J*250+1,(J+1)*250)=I$((J+1)*250+1,(J+2)*250):NEXT J:REM F}ZT IS TOTAL PAR.7955 T$(1,1)=" ":T$(250,250)=" ":T$(2)=T$:I$(ZT*250+1,(ZT+1)*250)=T$7960 ZT=ZT-17970 GOTO 202007985 RETURG}N 12000 REM ERROR HANDLING12005 POKE 752,1:REM TURN CURSOR OFF12015 GOSUB 360:PRINT "";12050 GOSUB 1260012100 GOSUB 610H}012110 GOTO 2020012600 REM CATCH-ALL ERROR12605 GOTO 1265012610 S$=" ERROR":RETURN 12612 S$="":RETURN 12614I} S$=" DIRECTIONS":RETURN 12616 S$=" ==========":RETURN 12618 S$="":RETURN 12620 S$="> Error # >> haJ}s been encountered":RETURN 12622 S$=" on line # >>":RETURN 12624 S$="":RETURN 12626 S$="> Please type any key to re-startK}":RETURN 12628 S$=" MICROTYPING":RETURN 12630 S$="":RETURN 12632 S$="> If the error persists, please":RETURN 12634 S$=" L} contact HAYDEN":RETURN 12636 SL=-1:RETURN 12650 SL=12608:GOSUB 20012655 POSITION 15,7:PRINT PEEK(195):POSITION 17,8:PRINTM} 256*PEEK(187)+PEEK(186):RETURN 13000 REM CHAIN TO MICROTYPING13010 GOTO 2200015000 REM CHAIN RETRIEVE15010 OPEN #2,4,0,"N}D:DATA.TMP"15020 INPUT #2;ZT15030 FOR Z=1 TO ZT15040 INPUT #2;T$:I$(Z*250+1,(Z+1)*250)=T$15050 INPUT #2;T:C1(Z)=T15060 NO}EXT Z15070 CLOSE #215080 XIO 33,#2,0,0,"D:DATA.TMP"15100 RETURN 16000 REM CHAIN EFFECT16010 OPEN #2,8,0,"D:DATA.TMP"160P}20 PRINT #2;ZT16030 FOR Z=1 TO ZT16040 T$=I$(Z*250+1,(Z+1)*250):PRINT #2;T$:PRINT #2;C1(Z):NEXT Z16050 CLOSE #216100 RETUQ}RN 20000 REM CORE20100 GOSUB 100:REM DIM/ERR20200 GOSUB 500:REM MENU DISPLAY20300 ON B GOSUB 6480,1300020400 GOTO 20200R}22000 REM CHAIN TO MICROTYPING22005 Z=ZT:XX=1:REM ADJUSTMENT22006 REM TO REPLICATE NORMAL MICROTYPING22010 PRINT "}":POSITS}ION 6,10:PRINT "RETURNING TO MICROTYPING"22050 GOSUB 16000:REM OUTPUT TO CHAIN22080 RUN "D:MICRO"16,64:POKE 53774,64:OPEN d10 REM MICROTYPING INTRODUCTION12 DIM L$(40)14 POKE 752,1:POKE 16,64:POKE 53774,64:REM TURN CURSOR OFF & DISABLE BREAK16 SU}ETCOLOR 2,12,8:SETCOLOR 4,12,8:SETCOLOR 1,0,045 GOTO 365080 REM BORDER SUBROUTINE85 PRINT "}":POSITION 2,0:FOR Q=0 TO 22:PV}OSITION 2,Q:PRINT "";:POSITION 39,Q:PRINT "";:NEXT Q87 POSITION 2,0:FOR Q=0 TO 37:PRINT "";:NEXT Q90 POSITION 2,22:FOR QW}=0 TO 37:PRINT "";:NEXT Q95 RETURN 3650 L$="MICROTYPING"3652 GOSUB 803654 POSITION 12,4:FOR Q=1 TO LEN(L$):POSITION Q+10X},Q+1:PRINT L$(Q,Q);:SOUND 0,65,10,14:FOR X=1 TO 80:NEXT X3658 SOUND 0,0,0,0:NEXT Q3690 POSITION 8,14:L$="٠Үî͠Y}":GOSUB 39003700 FOR X=1 TO 800:NEXT X3730 POSITION 10,16:L$="Ԡé":GOSUB 39003770 POSITION 7,18:L$="Z}Πˠ٬î":GOSUB 39003810 POSITION 9,20:L$="̠ӠĮ":GOSUB 39003830 RUN "D:MICRO"3900 FOR Q=1 T[}O LEN(L$):PRINT L$(Q,Q);:FOR P=1 TO 10:NEXT P:NEXT Q3910 RETURN 6,64:POKE 53774,64:REM TURN CURSOR OFF & DISABLE BREAK16 SBvw7G[V[BCIZSDDALCF1F2CFILENAMEDISKTC1SZMZZZXMSRJEFILECOUNCWWCHART]}EXNP ^}@_} !"#$%&'()*+,-`}./012345679@A'A@9Ba}7tAMICROTYPING.1!!WORKING ON RT & LEFT ARROWS @C 3/18/82 - 1800 "A a)b}@6.>:,%"@16-CAR@F(I(L(O(aAR AaU.+"A&)"@c}0,*F:@,K@F:@,&@[ @x@F:@,&@ @6] @d}6-%@+"A=AR@K(>:AS,]ARp"@"6-% Au7ARe}@IA@$S AdZ f6-p Ag "AUAq@%6-%@% @2@f}"6-@D"@:67$AP%@<$AP%@,.D @2""67$AP%<$AP%g},. 96-%@"A /AR@9 Aq@" @$J$67$AP%<$AP%,. 26-&@>q}_BSTART PRGB'DOS SYSB*:DUP SYSBdMICRO LSTB8EDITOR LSTBTINTRO LSTB\MICRO B@EDITOR B _INTRO BhEDITFTRS BoAUTORUN SYSqDATA TMP"J6-@& @+ B ,A@$'@@G@@K:g@r}@S:y@AA@B7tAAR@-~"t;AwPs},;@@,;@,;AU,;@,;@5,;@,;@,;@,~ @G.I B6-@t}+6. D1:DATA.TMP5 B ? B I A/<<;@ ,;@ ,;@,;AP,9@0,0D67@<@u},. 567AwP<AwP,. D67@,.14-@@0&68,-@* 4 @F2MENU DISPLAY ROUTv}INE7%-@@%6-$@8% %"6@"6-%$9"-@%@% " :% 6.%Cw}LEAR STRING FOR DISPLAY<$PBORDER SUBROUTINET }UA-@@##-@* 6-@9= A x}W;-@)-@@70 4 ; Z;-@@")-@@70 4 ; _$y}n[0@@70@@Q0@X }[ sCAR@'A@z}$CCURSOR OFF AND FULLSCREEN @ A6. <1> Letters$ 6. $"6.<2> Numbers & Symbo{}ls"$ 6. $6. <3> Words$ 6. $(%6.<4> Text & Program Listings($ 6. $*'6.<5> Creat|}e or View Paragraphs*$ 6. $$!6.<6> Practice Paragraphs$$ 6. $(%6.<7> Save Paragraphs on Disk($}} 6. $,)6.<8> Recall Paragraphs from Disk,$ 6. $ 6.<9> Edit Paragraphs $ 6. $%"6.~}<0> View Catalog or Quit%$6-AH @P)@ 6.>:,"''@:, @H)@:,!@WAP'$ 6}-A:,"$6-@,WWA!0A(pA%A`A`ABBB@B0h#} A`r.+6.!LEVEL <4> TEXT & PROGRAM LISTINGS.$t 6. $v# 6. DIRECTIONS#$x# 6. =}=========#$z 6. $|/,6."> Type the indicated # to practice/$~$!6. the following symbols$$ 6. $}6. <1> 'abcd'$6. <2> 'efgh'$6. <3> 'ijkl'$6. <4> 'mnop'$6. <5> 'qrst'$6. <6> }'uvwxyz'$6.<7> All Letters$"6.<8> Numbers & Letters"$!6.<9> Program Listings!$ 6. $(%6}. Type 'ESC' for Menu($/ @6-%6-Ah/ @P Aa AaU 6.>:,!! @I})!@WAP 6-A:,!! )!@ AP" A } #6-"}6-%@"@E A * Ap4IF V>6 THEN 840>VVFOR I=1 TO V:READ B$:READ T$:B$(LEN(B$)+1)=" }":B$(LEN(B$)+1)=T$:NEXT I:GOTO 850H-@"I"JC 4"%67B:,%@,.,967B:,%@,.C A}AL.67B:,%@,. .67B:,%@,.N R-@@ \&-@@ &  Ša-}-@@ !6--6-f8-@@ #' 8-@B:,pASz&6-}F:AS,&@A)@ 6.>:,4>:@,A-07<,6-%@# - A}   Q6-Q6-P:+F:@,$BU6%F:@,$AV%F:@ ,,'@`,-@A }%%6-P:++B:,'@,$@`,',6-@ A8P Aa AaU"@gA`$ AP.}FAD,JOE,BAD,ASK,HADBAND,LAD,SHE,OLD,OAKVTHE,HAS,HAL,SEE,HISjCOT,ILL,GET,SKI,WIT~OWN,NEW,AND,FIN,FOR}ARE,CAR,AXE,YOU,OURMAY,PIG,CUP,GAP,SKYZIP,OZ.,EQ.,QUE,BOBMOB,VIC,GM.,VIA,FUN88BESS BANCH IS THE BEST P}AID; SHE CAN DO A BIG JOB.44DID CLAY CHECK THE DUE DATES ON THE CASH CARD?;;EVA FAY FELT THAT ONE FILE FOR EACH SAFE }WILL NOT DO.PPGREG IS NOT GOOD WITH THE WEIGHTS. HE IS NOT GREAT WITH THE ROPES EITHER. 99IF IT IS A SMALL JET,, JIM} WILL JUST JUMP FOR JOY.99KATE BLOKES KEEPS ALL KINDS OF LISTS FOR MR. BLACK.99JOHN IS KNOWN MORE FOR HIS MIND THAN F}OR HIS MIGHT.(;;TO TOP THE PINK POST PEOPLE MUST PLAN TO GO UP NORTH.233RUN MY QUEER QUARTZ ROCK QUICKLY TO THE QUAY.<}--STAN SAID TO ASK THE TERMS OF THE SALE.F``OUR VOTES HAVEN'T BEEN PLEDGED. REX WENT TO THE NEW WAX WORKS. THE TAXES A}RE DUE AT SIX.P==LIZ SAYS: ZEST AND ZEAL AREN'T GOING TO WIN THE PRIZE.ZccTEX RANZZEL PACKED THE BAG WITH FIFTEEN QUAR}TS OF YACA JUICES,, MILK,, AND TWENTY TWINKIES.dTOM NEVER SAW HIM AGAIN.nccJOHN'S BOAT CAUGHT 284 GROUPER,, 3 PERC}H,, AND 1,,690 BASS. THE FISH,, WEIGHING 628 LBS.xBBWERE IN BOX #759 BEFORE THEY WERE CARRIED AWAY BY 1340 ANTS.AA}10 GET A$:GOTO 50:HOME:RESTORE:HOME:IF B$<>MID$(A$,,I,,1)44THEN U=U+1:GOTO 90:60 W=INT(70-S/(25*LEN(A$))) WORDS} A%. LEVEL <3>: WORDS&$ 6. $ 6. $$!6. DIRECTIONS $$# 6. } ==========#$ 6. $+(6.> Type each word as it appears+$6. on the screen$ 6. $-*6.} > Select level of difficulty 1-9-$ 6. $/,6."> The program automatically begins/$. when you press a} number&$ 6. $$$$$)&6. Press 'ESC' for Menu)$# @6-A(# @P} Aa AaU 6.>:,11&@H @)&@H!@ A06-@$A:,"# @)!@E}# A06-@@J06-H:@,06-P:+H:@,$,%?P,^"6-@r-@}" #-@@ 6.#  }-@@# -@@-@@}6-AS66-F:AS,@,6-%? 6 A)@& 6.>:,:4}7<, N4>:@,Ab-07<,6-%@# - Av 6-% -@@`}  } 6-@&'@6-@ A8P Aa AaU4"@gA&> A p}RLETTERS- CODE 1f%%6.FJDKSLAEHOTIWNRCSUPGYZBQMVXz } @ A"u'$6. LEVEL <1>: LETT}ERS'$ 6. $%"6. DIRECTIONS %$!!6. ========== 6. $/,6."> Type each l}etter when it appears/$6. on the screen$ 6. $.+6.!> The faster the response is, the.$0-6.# cl}oser it will be to the stimilus0$ 6. $.+6.!> The word 'ERROR' will appear to.$-*6. indicate an incorrec}t response-$ 6. $$-*6. > Select level of difficulty 1-9-$ 6. $$(%6. Press 'ESC' }for Menu($6-A! @P Aa 6.>:, AaU!! @I)!@WA" 6-@$A:}, # @)!@'# A!p$  @ A$7. :+6.! YOU WILL BE USING THESE LETTERS76-A#V:$8 , 6}-,6-P:+@9&,'@%?P,: 6.= 3-@&@/67B:,%@,. 3 B 6-V -@}[ 67B:,%@,.7<, o E 6-$6-P:+@9&,'@,*6-66-@B6-A$E$t 5&6. PRESS '}ESC' FOR MENU26-@5$v 6. $x 6. OR$z 6. $| *'6. PRESS ANY KEY TO BEGIN*}$~ 6-6@$ 6-A#H @P  Aa AaU } -@@  6- 06-H:}@,06-P:+H:@,$,%?P, "6-@ %6.7<, -@@%  AS } 66-F:AS,@,6-%?`6 A%p )@ 6.>:,# "6-@2 4!@1 } SLOW *6-@14 A&PF  4-@ Z 6 0  ERROR (6-%@66-%@n -@}@`  6-% }   !!6-@&@P$'@  6-@ A8P Aa "@'}A "@gA!0" A(6 J **6. 1234567890:-!#$%&'@()*=;/,+?><.XK A0| ,)6. LEVE}L <2>: NUMBERS & SYMBOLS,$~ 6. $ # 6. DIRECTIONS#$ # 6. ==========#$ 6. $} /,6."> Type each symbol when it appears/$ 6. on the screen.$ 6. $ /,6."> The faster a correct respo}nse is/$ /,6." entered, the closer the response/$ . will be to the stimulus&$ 6. $ .+6.!> The wo}rd 'ERROR' will appear to.$ /,6." indicate an incorrect response /$ 6. $ -*6. > Select level of difficult}y 1-8-$ 4%6. Type 'ESC' for menu16-@4$ 6-6@$ # @6-A)8# @P  Aa} AaU !! @I)!@VA00 6.>:, 6-@$A:, A1  .+6.! YOU WILL BE USING THESE} SYMBOLS.$ 6. $ , 6-,6-P:+@9&,'@%?P, 3-@&@/67B:,%@,. 3  6}- -@ ;67B:,%@,.7<, ,6-A086-@;$ & * 6-$6-P:+@9&,'@,*6}-  6.6-@ $ (%6. Press 'ESC' for menu($" 6. $$ 6. or$& 6. $(} )&6. Press any key to begin)$* 6-6@$0 # @6-A0d# @P5  Aa AaU7 }}: -@ -@@  6- 06-H:@,06-P:+H:@,$,%?P, "6-@} %6.7<, -@@%  AS 66-F:AS,@,6-%?P6 A3 )}@ 6.>:, "6-@* 5!@1  SLOW +6-@15 A4>  4-@ }R 5 0  ERROR'6-%@56-%@f -@@` z 6-% }   !!6-@&@}P$'@  6-@ A8P  Aa AaU "@gA(p A5p.1 } $1*******NO G}ET HERE YET M.C.******* !!WORDS PER MINUTE SUBROUTINE 6-#9 }-@@9 WORDS PER MINUTE >> P:,2}0-@ @0 NUMBER OF ERRORS >> F>-@@>  TYPE 'C' TO CONTINUE ON LEVEL ZP-@@} OR.-@@ P  TYPE 'ESC' TO RETURN TO MENUn*6-6-'6-*$o&&SUB}ROUTINE FOR ERROR INDICATIONS  $ pSTORE PHRASES FOR USERz22ZT IS NOW THE SIGNAL} TO ACCEPT USER PRACTICE } Ah"GET SUBROUTINE"66-F:AS,@,6-%@6 Aa})@$TEST FRO ESC "@'A $$8VIEW # OF WORDS STOREDB-A@}-TEXT WINDOW ON BOTTOML-- # PARAGRAPHS ARE STORED ON THIS FILEQ-&  THE MAXIMUM POSSIBLE IS - `$}t<PVIEW WORDS STOREDdB }-@@?  PARAGRAPHS STORED ON THIS FILEB xA6-%@}6-%@ASET LOWER AND UPPER LOOP LIMITS!@06-@0 6--  Ƞ}++ 7$AP%@<+$AP,%8,,(-@@7 -" ( -   6-?6-: %ç}ծ٠Ҡ٠Ϡ?  A`8"@'6-'6-1 A8MENU !(>:A%, } Ad6-6-$,@REQUEST ANOTHER PARAGRAPHTS(>:A%,"-@@E @}ESC ............MENUS @mQ-@@C @ CTRL-V ..........VIEW PARAGRAPHSQ @rN}-@@B @ANY OTHER KEY ...ADD PARAGRAPHSN6-| Aa"@'AESC5"@}"!A@$+ Ad5 Aig-A@$ }-A@ Aig$ INPUT }SEQ. FOR MICROTYPING<"6-@<BEGIN STORING STRINGS WITH Z=1  Aie0-6.#LEVEL <5>:} CREATE / VIEW PARAGRAPHS0$ 6. $"6. DIRECTIONS"$"6. =========="$ 6. $}0-6.#> Enter a paragraph (220 char. max)0$ 6. $ .> Type 'RETURN' when done&$" 6. $$0-6.#> To s}ave paragraphs on disk, first0$&.+6.! go to main menu - then type <7>.$(4%6. Type 'ESC' for menu16-@}4$* 6. $,6. or$. 6. $0*'6. Type any key to begin*$26-6@$5}7 @6-Ai(# @P- Aa7 AaU67I } Ab%-@@I @ŠҠ}8h-@@0 @ ESC......MENUB-@@h @CTRL-V...VIEW PARAGRAPHS9-@}@;(@RETURN...ENTER PARAGRAPHM-@@ @&àҠ̭̠֠ŠŠ? AR} @Da"@6-%@)6-aONLY AFTER READING FILE FROM DISK, INCREMENT Z BY ONEE}MAX PARAGRAPH INDICATORFE@0*@"%6-Ai16-@; AE AI6-@ @\7(6.} 30 PARAGRAPHS ARE STORED46-@ 7$^ 6. $`6'6. NO MORE CAN BE ACCEPTED36-A6$}BUILD I$ - STRINGA@$"6-@G 6-68,-&@&6-26-GMAX LE}NGTH COUNTERi }AR@'6-9-@@f 7$AP<++%@,$AP,&@,i  =6-}!-@@= ӠӠԠٯΩ 7 A`"@ }-6-%@7 AsH As %}6-%@ Ab% Ag @xAqq67@<@,. 567AP<AP,. D67@,.}q67$AP%@<+%@,$AP,.A-@@)-@@A ٠ľ-@}@ --@@- <>  } Ag Lt67@<@,. 567AP<AP},. D67@,.q67$AP%@<+%@,$AP,.t$@!A E AJA&6. PRA}CTICE NOT AVAILABLE26-@>6-AA$N#6-A A# AT } ARV:+6.! LEVEL <6> P}RACTICE USER INPUT76-@:$X.6. DIRECTIONS+6-@.$Z"6. =========="$\7(6.> }Type each word as it appears46-@7$^6. on the screen$`4%6.> Enter the # of paragraphs16-@4$b}/,6." on which you'd like to be tested/$d.6.> Practice will begin+6-@.$f'$6. as soon as you press a} #'$h,6. or)6-@,$j4%6. Press 'ESC' for menu16-@4$l6-6@$t# } @6-A # @Pw Aa AaUy11&@H @)&@H!@ AUz }|'6-}6-'6-A:>:,,-@06-H:@,06-P:+H:@,$,,%@=-@@= 7$AP}%@<+$AP,%8,,-@@'-@@ #' >06-B:7$AP%@<+$AP},%8,,,>-@&6-F:AS,&@A)@ 6.>:, '"47$AP%<$AP%,'} D A"07$AP%<$AP%,06-%@7 A Al S K6-%P:+F:@,$BU6%F:@,$AV%F:}@ ,,'@`,S6-% -@@u  }  ""6-?"++6-P:P:+'@,$@}`,',&@" 6-$"6-@ A8P." Aa AaU`""@gA~" AP}(#""NOTE:NO PARAGRAPHS IN MEMORY-#'A@$'AR@2# } 4# A06#+6. } NOTE(6-@+$8#%6. ===="6-%$:#Q 6. $"@%6-16-Ap4$QSIGNAL FRO}M MAX PARAGRAPHS;#$<#6'6. NO PARAGRAPHS IN MEMORY36-@6$>#4%6. TYPE ANY KEY FOR MENU16-@}4$@#6-6@$F#6-A @PG#P# AaZ#$'DISK WRITING'!B`' B}'D)6. DISK SAVING NOT AVAILABLE56-@A6-AD$'#6-B A# A''1.6.$LEVEL} <7>: SAVING PARAGRAPHS ON DISK1$' 6. $'6. NOTE$ '6. ====$"' 6. $$'.+6}.!> Your file will be automatically.$&'+(6. locked to prevent accidental+$('6. over-writing$*' 6. $,'}+(6.> See manual to erase the file+$.'5&6. Type any key to begin26-@5$0'*6. or'6-}@*$2'5&6. Press 'ESC' for menu26-@5$4'6-6@$L'# @6-B# @PV' A}a AaU~'C 6.6. })-@@? ŠƠŠC'k-@@+ ŠҠ}5 Aa;6-I6-&@H_ )!@k6-@' 'L 6.D"67B:,%@,.=:,867B:,%@,.}:L67B:,%@,.'##7@,4DATA.TMPB'$-@@$ SAVING: ' @@}' @'_-@>6.7$AP%@<+%@,$AP,K @[ @8,_ '@}'"@6-$'4(@5@4LOCK FILE' A*RECALL FROM DISK*36-}@3SIGNAL TO INCREMENT Z ON6000 SEQ.* B`+ 6. $+ 6. $+0-6.#LEVEL <8>: RECALL PARAGRAPHS - DI}SK0$+7(6. NOTE: THIS WILL ERASE ANY46-@7$ +;,6."PARAGRAPHS PRESENTLY IN THE MEMORY86-@;$ +5&6}. Type any key to begin26-@ 5$+,6. or)6-@,$+5&6. Press 'ESC' for }menu26-@5$+6-6@$4+# @6-B# @P>+ Aa AaUf+5 }-@@1} ŠƠŠ5h+k-@@+ ŠҠ5 Aa;6-I6-&@H_ )!@k6-}@i+ j+L 6.D"67B:,%@,.=:,867B:,%@,.:L67B:,%@,.k+3-@@0 '6-}36-p+ @@+@+-@+W@=67$AP%@<+%@},$AP,.J@S68,-W ,@,N"@6-K@3@ D:DA}TA.TMPN$$, A,<F:A,"Ap#@/6-9 B<$, B .ERROR HANDLING.'A}@$'AR@. B RESTORE TRAP.#F:A,"A)#@. @ ..F:A},"@$6-@. B P..F:A,"Ag$6-@. B P/6-@/B"PB$B&}D/ AaN/ AP/-@  /%"6. OUT OF DATA ERROR%$/ 6. $/ 6. $/!6. } DIRECTIONS!$/!6. ==========!$/ 6. $/1.6.$> The file you requested has no data1$/ 6. } $/.> You may have misspelled&$/6. the file's name$/ 6. $/,)6.> Please type any key to retu }rn,$/6. to the menu$/ 6. $/)&6.> Then type <0> to view the )$/!6. directory of files!$/6 }-6@$/6-B! @P/6(@3@6DELETE FILE/ B!p0FILE LOCKED ERR }ORu0 B$Pz0%"6. FILE LOCKED ERROR%$|0 6. $~0!6. DIRECTIONS!$0!6. ======= }===!$0 6. $0*'6.> You have attempted to write*$06. on a locked file$0 6. $0+(6.> If you w}ish to replace the +$0!6. file, type CTRL-R !$0 6. $0+(6.> Type any other key to return+$06. t}o the menu$0 6. $00-6.#> From the menu, type <0> if you 0$01.6.$ need to see the directory of files1$}06-6@$06-B$ @P0 Aa0@A0@0((@6@}0, }-@@,  Ǡ0 B WRITE FILE1 B!81CATCH-ALL ERROR=1 B&P}B16. ERROR$D1 6. $F1"6. DIRECTIONS"$H1"6. =========="$J1 6. $}L11.6.$> Error # >> has been encountered1$N16. on line # >>$P1 6. $R1-*6. > Please type any key to re}start-$T16. MICROTYPING$V1 6. $X1,)6.> If the error persists, please,$Z16. contact HAYDEN$\1}6-6@$j16-B& @Po1^-@@" F:A,4-@@T AV$F:A,%F:A,^} B!2END ROUTINE2% }@@% BP2>-@@"> $ѧ}25 Aa@+@@5 A02 +6CHAIN TO EDITOR6!B@`6 B@P}6@%6. EDITING NOT AVAILABLE16-@=6-A@$6#6-B@ A# A6: }-@@}: LOADING MICROTYPING EDITOR6:6-@!6. D1:DATA.TMP+ B :CHAIN EFFECT7%D:EDITOR:DISK MENU:}@@:-@: 6.D1:: 6.:67B:,%@,.*.*: @@:6}-:@://7@<@,4 FREE SECTORSBR:A6-%@"@#/@@ A-@ }:%!@D6-@D% A :6. . ;77@<@,4 767@ <@ ,.} ;++67@<@,.7@<@,;++67@<@,.7@<@,$; .; BP``;@$}D:MICROBCIZSDDALCF1F2CFILENAMEDISKTC1SZMZZZXMSRJEFILECOUNCWWCHART;<DZISBTC1NCSZZZQXXYCHXVPMAMA@ } !} 9@A'A@"}9B7tA MICROTYPING EDITORWORKING COPY 3/19/82-1200FAR@5@@#}K:? BFCOREdDIMENSION & ERRn B ^"^;AwP,;@@,;@,;A,9A,$};AP,;@,96-6@9INDICATOR FOR INSERT - POS=YES; NEG=NOD67@<@,. 567AwP<AwP%},. D67@,.*-@@0&68,-@*  BPCHAIN RETRIEVE } $MENU D&}ISPLAY SUBROUTINE%-@@%6-$@% %"6@"6-%$"-@%@% " '}% 6.%CLEAR STRING FOR DISPLAY$ThBORDER SUBROUTINEj }|A-@@##-@* 6(}-@9= A ;-@)-@@70 4 ; ;-@@")-@@70 )}4 ; $x0@@70@@Q0@cA@$*}i }xMENU DISPLAY A 6. $ "6. EDIT MENU"$ "6. ==== ===="$ 6.+} $+(6. <1> View or edit paragraphs+$5&6. <2> Return to microtyping26-@5$7(6. Type the in,}dicated number46-@7$6-6@$N A`BORDERX#6-A A#DISPLAYl A`GET -}KEYv6-&@H1 EDIT CONT  A`1"@')"@i%6-16-(!"@i)"2}AAp(EDIT"@'BMENU!Ad6-6-$XEDIT SEQ.b Ap3}>-@@: Enter the paragraph # to edit: > B $B:=:,,"B$MENU $ @4})! $ Aq 7 6-P:,76-B:7$AP%@<$AP%8,,,6-@ } AsMENU 5}PRINT REG. CHAR.* "A   Ar`4 6.>:,>D"@:67$AP%@<$AP%@,.D Ar6}PCP"%@F67$AP%8,%@<$AP%8,%@,.P ArPH:"67$AP%<$AP%,.06-%7}@: ArUR(6-%@6-%@(68,-W Au SCREEN DISPLAY\$] MENURAISE BOTT8}OM??? As`(%6.CTRL-INSERT ....INSERT CHAR($(%6.CTRL-DELETE ....DELETE CHAR($-*6. CTRL-P ....D9}ELETE PARAGRAPH-$'$6.CTRL- ....CURSOR UP'$)&6.CTRL- ....CURSOR DOWN)$*'6.CTRL- ....:}CURSOR RIGHT*$)&6.CTRL- ....CURSOR LEFT)$+(6.ESC or RTN ....EXIT EDIT MODE+$#-@@#  ;}ԠM-@@+-@%@96-$@E %AsI M  A&CLEAR STRINGAR<}'-@@M 7$AP%@<$AP%8,,_-@@ 7$AP%@<$AP%@,=} AvP:GET CHAR USING GET`SCREEN DISPLAYj,"@6-" }, Au5kSIGNAL>} FOR CHAR DELETEo "  AvPt $ EDITING AvPMAIN BLOCKGET CHAR USI?}NG PEEK 6-6-F:AS,)@T!AS'-F:@,F:@,7(>:&A(,T@F:@,&@}@9!!@@9-@96-$ 6. Av%"AUAwP%INSEA}RT CHAR)"AT* AxP)DELETE CHAR9"@!AR@+ Ay9DELETE PAR. F:@,"@9B}Aw K&"@1**F:@,@9- ;6-%@E AvPKRT.E&"@1**F:@,"@9C}- ;6-&@7E AvP F:@,"@AwR,"@0*!@*F:@,3 A6-&@D}K ARLEFTW8"@0*F:@,"*!@*%@7? M6-%@7W AvPF""@(*F:E}@,!@) 76-&@8A AvPFUP(A"@)*%@8" 06-%@8: AvPADOWN-E"F}@')"AU }2AR@;68,-E B2-!@1* A## Ar- AvP7/AT G} AvP/ILLEGAL CHAR8 AvP<FINSERT CHARK'"A   AvP'MENUP{ R67$APH}%%@<$AP%%@,.7$AP%<$AP%,{6.7$AP%<$AP%+&@,,dl*67$AP%%@I}<$AP%,.K67$AP%<$AP%,. Y6-%@b68,-l ADELETE CHAR "@ J} AvPATAxZ 16.7$AP%%@<$AP%,Z67$AP%<$AP%+&@K},,.;$67$AP%<$AP%,. 26-&@;68,- ADELETE PARAGRAPH;-@@";L} !ŮħҠӮ Av@hB-&@q67$AP%@<+%@,M}$AP,.7+%@,$AP%@<+%@,$AP,u ZT IS TOTAL PAR.q67@<@,. 567AP<N}AP,. D67@,.q67$AP%@<+%@,$AP,.6-&@" B1$(#06-F:@,O}0 AT* @8AvP-#CAR@$6-F:@,C6.7$AP%<$AP%,2#P@@'@P}@P(7$AP%@<$AP%A ,6#C"@8@'@9ARC AvP7#IQ}"@9@'@9AR?6-I AvP<#,6-A`"AT,6-@:,%A(F#K@R}@#(>:,/@AARK AvP.ERROR HANDLING.'AR@'TURN CURSOR OFF. S} A` / B&D/ AaN/ B81CATCH-ALL ERROR=1 B&PB16. ERROR$D1 6T}. $F1"6. DIRECTIONS"$H1"6. =========="$J1 6. $L11.6.$> Error # >> has been enU}countered1$N16. on line # >>$P1 6. $R1-*6. > Please type any key to restart-$T16. MICROTYPING$VV}1 6. $X1,)6.> If the error persists, please,$Z16. contact HAYDEN$\16-6@$j16-B& AW}o1W-@@" F:A,4-@@T AV$F:A,%F:A,W$2CHAIN TO MICROTYPING2 BX} :CHAIN RETRIEVE:++@@ D:DATA.TMP:@:-@:=@=67$AY}P%@<+%@,$AP,.:@68,-: :@:33@3@ D:Z}DATA.TMP:$>CHAIN EFFECT>++@@ D:DATA.TMP> @>-@>Q06.7$AP[}%@<+%@,$AP,= @M @8,Q >@>$ N COREN ADIM/ERRN A\}MENU DISPLAYLOAdB0O BUCHAIN TO MICROTYPINGU" 6-6-@"ADJUSTMENTU%%TO ]}REPLICATE NORMAL MICROTYPINGU8 }-@@8 RETURNING TO MICROTYPING"V B`OUTPUT TO CHAIN@V%D:^}MICROD:EDITORTC1NCSZZZQXXYCHXVPMAMA@/L MICROTYPING INTRODUCTION ;@@,KAR@"`}'@@d9B7t@dKA@Q0@@70@@Q0@"a}- A6PPBORDER SUBROUTINEUY }-@/-@";-@B N-@9"b}U Y W4-@)-@70 4 Z4-@@")-@70 4 _$B"c}6. MICROTYPINGD @F-@@&-@B:,<-%@%@F 7<,h2@e@"d}@|-@@ J)%2) j=-@@36.٠Үî͠"e}= A9t-@A 8-@@.6.Ԡé8 A9=-@@36."f}ΠŠ= A9:-@ @ 06.̠ӠĮ: A9%D:MICRO<:-@B:,"g} 7<,2-@@6 : F$D:INTRO MICROTYPING INTRODUCTION ;@@,KAR@ :3THIS PARAGRPH WASPREPARED TO ILUSTRATE THE FEETURES OF THE MICROTYPING EDITOR. YOU MAY NOTE THAT THEIR ARE SPELLLING AND G&i}RAMMATICAL ERROR. THIS WUZ DONE TO ALLOW FOUR PRACTICE. &j} 179THE DOCUMENTATION WILL EXPLAIN HOW TO UTILIZE THE EDITOR TO CORRECT THE ERRORS. &k} &l} 79TO BEGIN EDITING, FOLLOW THE INSTRUCTIONS IN THE DOCUMENTATION. THE EDIT CODES ARE ALSO INCLUDED ON THE SCREEN. &m} &n} 111WASPREPARED TO ILUSTRATE THE FEETURES OF THE MICROTYPING EDITOR. YOU MAY NOTE THAT THEIR ARE SPELLLING AND G$`EiͩkΩ͙kCop j`j0 {j`Hi͝Νh*p}`L"ORTNI:D" NURͩkΩ͙kCop j`j0 {j`Hi͝Νh(-2AAAAAAASSSSSSSSSSSSDDDDDDDDDDDDFFFFFFFFFFGGGGGGGGGGGGGHHHHHHHHHHHHJJJJJJJJJJJJJKKKKKKKKKK .r} .s} 89CJCKKTJTU58TJGFKFLFIRIFLFITI4957TJ .t} .u} 34 ,