10 PRINT CHR$(26)
20 ' Revised 10 September 1985
30 WIDTH 52
40 PRINT CHR$(27) + ")"
50 REM "      CAN.BAS  (C) 1985 by Louie Crew
60 PRINT "              PREPARE NEW LESSONS
70 PRINT
80 PRINT "  1 = Enter data   2 =  Add data   3 = Edit
90 PRINT 
100 PRINT
110 PRINT "         REVIEW LESSONS PROMPTED WITH
120 PRINT 
130 PRINT  "     Chinese",,"     English" 
140 PRINT
150 PRINT "4 = Words",,"    6 = Words
160 PRINT "5 = Sentences",,"    7 = Sentences
170 PRINT
180 PRINT "8 = Toggle to review by parts of speech "  CHR$(27) + "(";
190     IF TOG>0 THEN 240
200 PRINT "(OFF)" CHR$(27) + ")" 
210 GOTO 250
220 ' --
230 '
240 PRINT  "(ON)" CHR$(27) + ")"
250 PRINT
260 PRINT "  Just a quick list of (E)ng. (C)hinese (B)oth
270 PRINT 
280 PRINT 
290 PRINT "          9 = PRINT A FILE    0 = END
300 PRINT CHR$(27) + "("
310 PRINT "             (C) 1985 by Louie Crew";
320 GOSUB 26000
330     IF Z$="1" THEN 3000
340     IF Z$="0" THEN 600
350     IF Z$="2" THEN 5000
360     IF Z$="4" THEN 700
370     IF Z$="5" THEN 800
380     IF Z$="6" THEN 900
390     IF Z$="7" THEN 1000
400     IF Z$="8" THEN 1100
410     IF Z$="3" THEN 10000
420     IF Z$="9" THEN 11000
430     IF Z$="C" OR Z$="c" OR Z$="E" OR Z$="e" OR Z$="B" OR Z$="b" THEN 12000
440 PRINT "Try again!
450 GOTO 320
460 ' --
470 '
600 PRINT CHR$(26)
610 END
620 ' --
630 '
700 PROMPT1$="1" 
710 GOTO 5470
720 ' --
730 '
800 PROMPT1$="2" 
810 GOTO 5470
820 ' --
830 '
900 PROMPT1$="3" 
910 GOTO 5470
920 ' --
930 '
1000 PROMPT1$="4" 
1010 GOTO 5470
1020 ' --
1030 '
1100     IF TOG=0 THEN 1150
1110 TOG=0 
1120 GOTO 10
1130 ' --
1140 '
1150 TOG=1 
1160 GOTO 10
1170 ' --
1180 '
3000 PRINT CHR$(26)
3010 PRINT "Here are the files you already have:
3020 PRINT
3030 FILES "*.   "
3040 PRINT
3050 PRINT 
3060 PRINT
3070 PRINT "What name would you like to give
3080 LINE INPUT "to the new file?  (ALL CAPS): ",NEWFILE$
3090 OPEN "O",#2,NEWFILE$
3100 PRINT CHR$(26)
3110 PRINT " <> to end.
3120 PRINT
3130 PRINT "Word in Chinese?
3140 GOSUB 17000
3150     IF WORDC$="" GOTO 4010
3160 PRINT 
3170 PRINT
3180 LINE INPUT "English?   ",WORDE$
3190     IF C=60 THEN 3380
3200 PRINT "--------------------------------------------
3210 PRINT " a  = adverb                  p = particle 
3220 PRINT " at = attributive           pat = patterns
3230 PRINT " av = auxiliary verb         ph = phrase
3240 PRINT " bf = boundform              pn = pronoun
3250 PRINT " cv = coverb                 pv = postverb
3260 PRINT " ev = equative verb          pw = placeword
3270 PRINT " fv = functive verb          q  = question
3280 PRINT " i  = interjection           rv = resultative verb
3290 PRINT " ie = idiomatic expression  rve = resultative ending
3300 PRINT " m  = measure                sp = specifier
3310 PRINT " ma = movable adverb         sv = stative verb
3320 PRINT " n  = noun                   vo = verb-object comp.
3330 PRINT " nu = number                 tw = time word
3340 PRINT " on = onomatopoeia
3350 PRINT 
3360 PRINT ,"x   = other useful expressions
3370 PRINT "---------------------------------------------
3380 INPUT "Part of speech";P$  
3390 PRINT 
3400     IF P$="n" THEN 3410 ELSE 3460
3410 PRINT "Measure?     
3420 GOSUB 17100
3430 GOTO 3470
3440 ' --
3450 '
3460 MEASURE$=""
3470 PRINT 
3480 PRINT
3490 PRINT "Sample Chinese sentence: 
3500 GOSUB 17050
3510     IF CSENT$="" THEN 3520 ELSE 3560 
3520 ESENT$="" 
3530 GOTO 3590
3540 ' --
3550 '
3560 PRINT 
3570 PRINT
3580 INPUT "English";ESENT$ 
3590 PRINT CHR$(26)
3600 PRINT "Is the full entry correct?
3610 PRINT
3620 GOSUB 19000
3630 PRINT 
3640 PRINT
3650 PRINT WORDE$
3660 PRINT
3670 PRINT "Part of speech: ";P$
3680 PRINT 
3690     IF MEASURE$="" THEN 3740
3700 PRINT "Measure
3710 PRINT 
3720 PRINT
3730 GOSUB 21000
3740 GOSUB 20000
3750 PRINT 
3760 PRINT 
3770 PRINT ESENT$
3780 PRINT
3790 PRINT
3800     IF C=60 THEN 10240
3810 PRINT "Y/N
3820 GOSUB 26000
3830     IF C=70 THEN 10330
3840     IF Z$="Y" OR Z$="y" THEN 3970 
3850     IF Z$="N" OR Z$="n" THEN 3900
3860 PRINT "Try again.  " 
3870 GOTO 3590
3880 ' --
3890 '
3900 PRINT CHR$(26)
3910 PRINT "Re-enter the data for this entry
3920 PRINT "from the start:
3930 PRINT
3940 GOTO 3110
3950 ' --
3960 '
3970 GOSUB 16000
3980 GOTO 3100
3990 ' --
4000 '
4010 CLOSE
4020     IF GUIDE=1 THEN 5340
4030 PRINT CHR$(26)
4040 PRINT "Your new entries have created ";NEWFILE$
4050 PRINT
4060 PRINT "Hit any key to return to the main menu."
4070 GOSUB 26000
4080 GOTO 10
4090 ' --
4100 '
5000 PRINT CHR$(26)
5010 ON ERROR GOTO 5460
5020 ' --
5030 '
5040 PRINT "Enter the name of the lesson to which you
5050 PRINT "want to add data.
5060 PRINT 
5070 PRINT "Here are your files:
5080 PRINT
5090 FILES "*.   "
5100 PRINT
5110 PRINT "==================================
5120 PRINT
5130 PRINT
5140 PRINT
5150 PRINT
5160 INPUT OLDFILE$
5170 GUIDE=1
5180 OPEN "I",#1,OLDFILE$
5190 OPEN "O",#2,"TEMP1"
5200     IF EOF (1) THEN 5260
5210 LINE INPUT #1,VVV$
5220 PRINT #2,VVV$
5230 GOTO 5200
5240 ' --
5250 '
5260 CLOSE #1
5270 REM Now you go to the same entry requests you use for main menu choice 1
5280 PRINT CHR$(26)
5290 PRINT "You are adding entries to ";OLDFILE$
5300 PRINT
5310 GOTO 3100
5320 ' --
5330 '
5340 PRINT CHR$(26)
5350 PRINT "You have finished updating ";OLDFILE$
5360 PRINT "Your files are being closed
5370 CLOSE
5380 HH$=OLDFILE$+".BAK"
5390 KILL HH$
5400 NAME OLDFILE$ AS HH$
5410 NAME "TEMP1" AS OLDFILE$
5420 GUIDE=0
5430 GOTO 10
5440 ' --
5450 '
5460     IF ERL=5390 THEN RESUME NEXT ELSE END
5470 PRINT CHR$(26)
5480 PRINT "Type the name of the file which you
5490 PRINT "would like to review.  Use CAPS.
5500 PRINT
5510 PRINT "Here are your files:
5520 PRINT
5530 FILES "*.   "
5540 PRINT
5550 PRINT
5560 PRINT "(The file to which you wrote those 
5570 PRINT "missed last was:  ";NEWFILE$;").
5580 PRINT
5590 INPUT REVFILE$
5600 PRINT
5610 PRINT "Type the name of the file in which you
5620 PRINT "would like to store the items 
5630 PRINT "that you miss:   (again, in CAPS)
5640 PRINT
5650 INPUT NEWFILE$
5660 PRINT CHR$(26)
5670     IF TOG=0 THEN 5900
5680 PRINT
5690 PRINT "Indicate the specific category to review:
5700 PRINT 
5710 PRINT " a  = adverb                 p  = particle
5720 PRINT " at = attributive           pat = patterns
5730 PRINT " av = auxiliary verb         ph = phrase
5740 PRINT " bf = bound form             pn = pronoun
5750 PRINT " cv = coverb                 pv = postverb
5760 PRINT " ef = equative verb          pw = placeword
5770 PRINT " fv = functive verb          q  = question
5780 PRINT " i  = interjection           pv = postverb
5790 PRINT " ie = idiomatic expression   rv = resultative verb
5800 PRINT " m  = measure               rve = resultative ending
5810 PRINT " ma = movable adverb         sp = specifier
5820 PRINT " n  = noun                   sv = stative verb
5830 PRINT " nu = number                 tw = time word
5840 PRINT " on = onomatopoeia           vo = verb-obj. comp.
5850 PRINT
5860 PRINT ," x  = Useful expressions
5870 PRINT
5880 INPUT PROMPT2$
5890     IF PROMPT2$="" THEN 5900 ELSE 5910
5900 PROMPT2$="1"
5910 A=0 
5920 B=0 
5930 C=0 
5940 D=0 
5950 E=0 
5960 F=0 
5970 G=0 
5980 H=0 
5990 K=0 
6000 L=0 
6010 X=0
6020 REM  A = RECORDS IN THE FILE
6030 REM  B = RECORDS ACTUALLY REVIEWED
6040 REM  C = WORDS (LETTERS) MISSED
6050 REM  D = TONES MISSED
6060 REM  E = MEASURES COUNTED
6070 REM  F = MEASURES MISSED
6080 REM  G = SENTENCES REVIEWED
6090 REM  H = SENTENCES MISSED
6100 REM  X <> 0 IDENTIFIES CHECK OF SENTENCES ONLY
6110 REM  K = RECORDS WITH AT LEAST ONE ERROR
6120 REM  L = COUNTS MULTIPLE ERRORS W/I ONE RECORD
6130 OPEN "I",#1,REVFILE$
6140 OPEN "O",#2,NEWFILE$
6150     IF EOF (1) THEN 7790
6160 A=A+1 
6170 L=0
6180 GOSUB 15000
6190     IF PROMPT2$="1" THEN 6210
6200     IF P$=PROMPT2$ THEN 6210 ELSE 6150
6210     IF PROMPT1$="1" THEN 6250
6220     IF PROMPT1$="2" THEN 6750
6230     IF PROMPT1$="3" THEN 6960
6240     IF PROMPT1$="4" THEN 7560
6250 PRINT CHR$(26)
6260 B=B+1 
6270 L=0 
6280 GOSUB 19000
6290 PRINT 
6300 PRINT
6310 PRINT
6320 LINE INPUT "Type the English:  ",WASTE$
6330 PRINT
6340 PRINT "                   ";WORDE$
6350 PRINT
6360 PRINT "RE word: "
6370 GOSUB 28000
6380     IF Z$= "" THEN 6410
6390 C=C+1 
6400 L=L+1
6410     IF P$="n" THEN 6420 ELSE 6560
6420     IF MEASURE$="" THEN 6560
6430 E=E+1
6440 PRINT
6450 PRINT "Measure:
6460 PRINT
6470 GOSUB 22000
6480 GOSUB 21000
6490 PRINT
6500 PRINT "RE measure: " 
6510 PRINT
6520 GOSUB 28000
6530     IF Z$="" THEN 6560
6540 F=F+1 
6550 L=L+1
6560     IF CSENT$="" THEN 6740
6570 PRINT
6580 PRINT "Translate:         "
6590 G=G+1
6600 PRINT
6610 GOSUB 20000
6620 PRINT 
6630 PRINT
6640 LINE INPUT WASTE$
6650 PRINT
6660 PRINT ESENT$
6670 PRINT
6680 PRINT "RE translation: "
6690 GOSUB 28000
6700     IF Z$= "" THEN 6730
6710 H=H+1 
6720 L=L+1
6730 PRINT
6740     IF L>0 THEN 7740 ELSE 6150
6750 PRINT CHR$(26)
6760  X=X+1
6770     IF CSENT$="" THEN 6150
6780 B=B+1 
6790 G=G+1
6800 GOSUB 20000
6810 PRINT 
6820 PRINT
6830 PRINT "Translate:
6840 PRINT
6850 INPUT WASTE$
6860 PRINT
6870 PRINT ESENT$
6880 PRINT
6890 PRINT "Missed in any way?  (Y/N)
6900 GOSUB 26000
6910     IF Z$="Y" OR Z$="y" THEN 6920 ELSE 6150
6920 H=H+1
6930 GOTO 7740
6940 ' --
6950 '
6960 PRINT CHR$(26)
6970 B=B+1 
6980 L=0
6990 PRINT "                   ",WORDE$
7000 PRINT
7010 PRINT "Type in Chinese: " 
7020 PRINT
7030 GOSUB 22000
7040 PRINT
7050 PRINT "                   ";
7060 GOSUB 19000
7070 PRINT 
7080 PRINT 
7090 PRINT "RE tone: "
7100 GOSUB 28000
7110     IF Z$="" THEN 7140
7120 D=D+1 
7130 L=L+1
7140 PRINT 
7150 PRINT "RE word itself: "
7160 GOSUB 28000
7170     IF Z$="" THEN 7200
7180 C=C+1 
7190 L=L+1
7200     IF P$="n" THEN 7210 ELSE 7370
7210     IF MEASURE$="" THEN 7370
7220 E=E+1 
7230 PRINT
7240 PRINT "Measure?
7250 PRINT
7260 GOSUB 22000
7270 PRINT 
7280 PRINT
7290 GOSUB 21000
7300 PRINT 
7310 PRINT "RE measure: "
7320 GOSUB 28000
7330     IF Z$="" THEN 7360
7340 F=F+1 
7350 L=L+1
7360 PRINT
7370 PRINT
7380     IF ESENT$="" THEN 7540
7390 PRINT "Translate:
7400 G=G+1
7410 PRINT
7420 PRINT ESENT$
7430 PRINT
7440 GOSUB 22000
7450 PRINT
7460 GOSUB 20000
7470 PRINT 
7480 PRINT
7490 PRINT "RE your translation: "
7500 GOSUB 28000
7510     IF Z$="" THEN 7540
7520 H=H+1 
7530 L=L+1
7540 PRINT 
7550     IF L>0 THEN 7740 ELSE 6150
7560 PRINT CHR$(26)
7570  X=X+1
7580     IF ESENT$="" THEN 6150
7590 B=B+1 
7600 G=G+1
7610 PRINT ESENT$
7620 PRINT
7630 PRINT "Translate:
7640 PRINT
7650 GOSUB 22000
7660 PRINT
7670 GOSUB 20000
7680 PRINT 
7690 PRINT
7700 PRINT "Missed in any way?  (Y/N)
7710 GOSUB 26000
7720     IF Z$="Y" OR Z$="y" THEN 7730 ELSE 6150
7730 H=H+1
7740 K=K+1
7750 GOSUB 16000
7760 GOTO 6150
7770 ' --
7780 '
7790 CLOSE
7800     IF PROMPT1$<>"2" AND PROMPT1$<>"4" THEN 7860
7810 Q=G/H*100
7820 PRINT CHR$(26)
7830 GOTO 8000
7840 ' --
7850 '
7860 PRINT CHR$(26)
7870     IF PROMPT1$="1" THEN 7880 ELSE 7940
7880 N=B+E+G 
7890 P=C+F+H  
7900 REM N=total possible P=total errors
7910 GOTO 7970
7920 ' --
7930 '
7940 N=B+B+E+G 
7950 P=C+D+F+H 
7960 REM see 8032 tones counted here and not there
7970 J=N-P 
7980 Q=J/N*100  
7990 REM J=No correct Q=% correct
8000 PRINT "You have completed your review of: ";REVFILE$
8010 PRINT
8020 PRINT ,"Summary
8030 PRINT
8040 PRINT A," = Records in the file
8050 T=B/A*100
8060 PRINT B," = Records actually reviewed
8070 PRINT T," = Percentage of records reviewed
8080 PRINT "-------------------------------------
8090 PRINT Q," = Overall score  **************
8100 PRINT
8110     IF X<>0 THEN 8430
8120 PRINT K," = Records with at least one error
8130 S=K/B*100 
8140 PRINT S;
8150 PRINT ," = % of total
8160 PRINT
8170     IF PROMPT1$="1" THEN 8180 ELSE 8220
8180 DD$="N.A." 
8190 GOTO 8260
8200 ' --
8210 '
8220 DD=D/B*100
8230 DD$=STR$(DD)
8240 PRINT "Tones missed:  ",D;" or ";
8250 PRINT DD;"  % of tested
8260 CC=C/B*100
8270 CC$=STR$(CC)
8280 PRINT "Words missed:  ",C;" or ";
8290 PRINT CC;"  %
8300     IF E=0 THEN 8380
8310 FF=F/E*100
8320 FF$=STR$(FF)
8330 PRINT "Measure missed:  ",F;" or ";
8340 PRINT FF;"  % of tested
8350 GOTO 8400
8360 ' --
8370 '
8380 PRINT "No measures tested" 
8390 FF$="N.A."
8400     IF G=0 THEN 8480
8410 HH=H/G*100 
8420 HH$=STR$(HH)
8430 PRINT "Sentences missed: ",H;" or ";
8440 PRINT HH;"  %
8450 GOTO 8500
8460 ' --
8470 '
8480 PRINT "No sentences tested." 
8490 HH$="N.A."
8500 PRINT 
8510     IF X<>0 THEN 9170
8520 V=0
8530 OPEN "I",#1,"SCORE.SP"
8540 OPEN "O",#2,"TEMP1"
8550 WRITE #2,REVFILE$,B,Q,CC$,DD$,FF$,HH$
8560     IF V=10 THEN 8630
8570 INPUT #1,Z$,Y,X,W$,U$,T$,S$
8580 V=V+1
8590 WRITE #2,Z$,Y,X,W$,U$,T$,S$
8600 GOTO 8560
8610 ' --
8620 '
8630 CLOSE
8640 PRINT
8650 PRINT "-------------------------------------------
8660 PRINT
8670 KILL "SCORE.SP"
8680 NAME "TEMP1" AS "SCORE.SP"
8690 PRINT "Do you want a fuller review?  Y/N"
8700 GOSUB 27000
8710 PRINT CHR$(26)
8720 V=0
8730     IF Z$="N" OR Z$="n" THEN 9300
8740 RESTORE 8750
8750 DATA Words Not Recognized,Tones Missed,Measure Missed,Translations With Mistakes,x
8760 READ LABEL$
8770     IF LABEL$="x" THEN 9160
8780 PRINT "Regarding ";LABEL$
8790 PRINT "--------------------------------------------
8800 PRINT
8810 OPEN "I",#1,"SCORE.SP"
8820 PRINT "File:","Percentage 
8830 PRINT
8840     IF EOF (1) THEN 9060
8850 INPUT #1,Z$,Y,X,W$,U$,T$,S$
8860     IF V<>0 THEN 8910
8870 PRINT Z$,W$
8880 GOTO 8840
8890 ' --
8900 '
8910     IF V<>1 THEN 8960
8920 PRINT Z$,U$
8930 GOTO 8840
8940 ' --
8950 '
8960     IF V<>2 THEN 9010
8970 PRINT Z$,T$
8980 GOTO 8840
8990 ' --
9000 '
9010     IF V<>3 THEN 9030
9020 PRINT Z$,S$
9030 GOTO 8840
9040 ' --
9050 '
9060 CLOSE
9070 V=V+1
9080 PRINT
9090 PRINT "Hit any key to review next category.
9100 PRINT
9110 GOSUB 26000
9120 PRINT CHR$(26)
9130 GOTO 8760
9140 ' --
9150 '
9160 PRINT CHR$(26)
9170 PRINT "Here is a review of your overall scores
9180 PRINT "on the recent lessons:
9190 PRINT
9200 PRINT "Lesson","Size","Score
9210 PRINT
9220 OPEN "I",#1,"SCORE.SP"
9230     IF EOF (1) THEN 9290
9240 INPUT #1,Z$,Y,X,W$,U$,T$,S$
9250 PRINT Z$,Y,X
9260 GOTO 9230
9270 ' --
9280 '
9290 CLOSE
9300 PRINT
9310 PRINT "Remember that you have stored all those
9320 PRINT "with any errors in the new file called
9330 PRINT NEWFILE$
9340 PRINT
9350 PRINT "Hit any key to list them quickly.
9360 PRINT
9370 PRP$=INPUT$(1)
9380 PRINT CHR$(26)
9390 PRINT 
9400 SZ=0
9410 OPEN "I",#1,NEWFILE$
9420     IF EOF (1) THEN 9700
9430 SZ=SZ+3
9440 GOSUB 15000
9450     IF PROMPT1$="3" OR PROMPT1$="4" THEN 9580
9460 GOSUB 19000
9470 PRINT
9480 PRINT WORDE$ 
9490 PRINT
9500     IF SZ<15 THEN 9550
9510 PRINT ,,,"Hit any key to continue"
9520 HIC$=INPUT$(1)
9530 SZ=0 
9540 PRINT CHR$(26)
9550 GOTO 9420
9560 ' --
9570 '
9580 PRINT WORDE$
9590 GOSUB 19000
9600 PRINT 
9610 PRINT
9620     IF SZ<18 THEN 9670
9630 PRINT ,,,"Hit any key to continue"
9640 HIC$=INPUT$(1)
9650 SZ=0 
9660 PRINT CHR$(26)
9670 GOTO 9420
9680 ' --
9690 '
9700 CLOSE
9710 PRINT
9720 PRINT "1 = Review this new file more slowly
9730 PRINT "      again saving those missed.
9740 PRINT 
9750 PRINT "2 = Return to the main menu.
9760 GOSUB 26000
9770     IF Z$="2" THEN 10
9780 REVFILE$=NEWFILE$
9790     IF NEWFILE$="REV1" THEN 9840
9800 NEWFILE$="REV1" 
9810 GOTO 5890
9820 ' --
9830 '
9840 NEWFILE$="REV2" 
9850 GOTO 5890
9860 ' --
9870 '
10000 PRINT CHR$(26)
10010 PRINT "Here are the files that you now have:
10020 PRINT
10030 FILES "*.   "
10040 PRINT
10050 PRINT
10060 PRINT
10070 PRINT "What file would you like to edit?  (ALL CAPS)
10080 PRINT
10090 ON ERROR GOTO 10480
10100 ' --
10110 '
10120 LINE INPUT EFILE$
10130 OPEN "I",#1,EFILE$
10140 OPEN "O",#2,"TEMP"
10150 C=60
10160     IF EOF (1) THEN 10390
10170 GOSUB 15000
10180 PRINT CHR$(26)
10190 PRINT "Your current entry reads:
10200 PRINT
10210 GOTO 3610
10220 ' --
10230 '
10240 PRINT "Okay?  (Y/N)    --If Y, you will see next item.
10250 PRINT
10260 GOSUB 26000
10270     IF Z$="Y" OR Z$="y" THEN 10340
10280 PRINT "Re-enter the full item completely:
10290 C=70
10300 GOTO 3100
10310 ' --
10320 '
10330     IF Z$="Y" OR Z$="y" THEN 10340 ELSE 3900
10340 GOSUB 16000
10350 C=60
10360 GOTO 10160
10370 ' --
10380 '
10390 CLOSE
10400 NN$=".BAK"
10410 N2$=EFILE$+NN$
10420 KILL N2$
10430 NAME EFILE$ AS N2$
10440 NAME "TEMP" AS EFILE$
10450 GOTO 10
10460 ' --
10470 '
10480     IF ERL=10420 THEN RESUME NEXT ELSE END
11000 PRINT CHR$(26)
11010 PRINT "Here are the files you already have:
11020 PRINT
11030 FILES "*.   "
11040 PRINT
11050 PRINT
11060 PRINT
11070 PRINT "What file would you like to print?
11080 PRINT
11090 PRINT "Be sure that the printer is ONLINE
11100 PRINT "and paper at the first line.
11110 PRINT
11120 PRINT "Use the courier wheel, 12- or 10-pitch"
11130 PRINT
11140 LINE INPUT PRINTFILE$
11150 LPRINT "Here are the contents of ";PRINTFILE$
11160 LPRINT
11170 LLL=6
11180 OPEN "I",#1,PRINTFILE$
11190     IF EOF (1) THEN 11410
11200 GOSUB 15000
11210 GOSUB 23000
11220 LPRINT WORDE$
11230 LPRINT P$ 
11240 LLL=LLL+3
11250     IF MEASURE$="" THEN 11290
11260 LPRINT "Measure:
11270 LLL=LLL+1
11280 GOSUB 25000
11290     IF CSENT$="" THEN 11330
11300 GOSUB 24000
11310 LPRINT ESENT$ 
11320 LLL=LLL+2
11330 LPRINT  
11340 LLL=LLL+2
11350     IF LLL<=62 THEN 11380
11360 LLL=3
11370 LPRINT CHR$(12)
11380 GOTO 11190
11390 ' --
11400 '
11410 CLOSE
11420 PRINT 
11430 PRINT "1 = Print another file.
11440 PRINT "2 = Return to main menu.
11450 PRINT
11460 GOSUB 26000
11470     IF Z$="1" THEN 11000
11480 GOTO 10
11490 ' --
11500 '
12000 ROUTE$=Z$
12010 COUNT1=0 
12020 COUNT2=0
12030 PRINT CHR$(26)
12040 PRINT "Which of your files do you want to list?:
12050  PRINT
12060 FILES
12070 PRINT 
12080 PRINT
12090 PRINT
12100 INPUT REVNOW$
12110 PRINT CHR$(26)
12120 OPEN "I",#1,REVNOW$
12130     IF EOF (1) THEN 12530
12140 GOSUB 15000
12150     IF ROUTE$="C" OR ROUTE$="c" THEN 12300
12160     IF ROUTE$="E" OR ROUTE$="e" THEN 12420
12170 COUNT1=COUNT1+4
12180 GOSUB 19000
12190 PRINT
12200 PRINT WORDE$
12210 PRINT
12220     IF COUNT1<18 THEN 12130
12230 PRINT "         Hit any key for more...
12240 PROMPT$=INPUT$(1)
12250 PRINT CHR$(26)
12260 COUNT1=0 
12270 GOTO 12130
12280 ' --
12290 '
12300 GOSUB 19000
12310 PRINT
12320 COUNT2=COUNT2+1
12330     IF COUNT2<10 THEN 12130
12340 PRINT 
12350 PRINT "         Hit any key for more...
12360 PROMPT$=INPUT$(1)
12370 PRINT CHR$(26)
12380 COUNT2=0 
12390 GOTO 12130
12400 ' --
12410 '
12420 PRINT WORDE$ 
12430 COUNT2=COUNT2+1
12440     IF COUNT2<19 THEN 12130
12450 PRINT 
12460 PRINT "         Hit any key for more...
12470 PROMPT$=INPUT$(1)
12480 PRINT CHR$(26)
12490 COUNT2=0 
12500 GOTO 12130
12510 ' --
12520 '
12530 CLOSE
12540 PRINT
12550 PRINT "1 = List another file
12560 PRINT "2 = Return to the main menu
12570 PRINT 
12580 GOSUB 26000
12590     IF Z$="1" THEN 12010 ELSE 10
12600 ' --
12610 '
15000 INPUT #1,WORDC$,WORDE$,P$,MEASURE$,CSENT$,ESENT$
15010 RETURN
15020 ' --
15030 '
16000 WRITE #2,WORDC$,WORDE$,P$,MEASURE$,CSENT$,ESENT$
16010 RETURN
16020 ' --
16030 '
17000 ROUTE=1 
17010 WORDC$="" 
17020 GOTO 17120
17030 ' --
17040 '
17050 ROUTE=2 
17060 CSENT$="" 
17070 GOTO 17120
17080 ' --
17090 '
17100 ROUTE=3 
17110 MEASURE$=""
17120 PRINT : FRY2=0
17130 Z$=INPUT$(1)
17135 Z=ASC(Z$)
17140     IF Z=13 THEN 18000
17150     IF ROUTE=2 THEN 17220
17160     IF ROUTE=3 THEN 17260
17170 WORDC$=WORDC$+Z$
17175 FRY=LEN(WORDC$)
17190 GOTO 17270
17200 ' --
17210 '
17220 CSENT$=CSENT$+Z$
17225 FRY=LEN(CSENT$)
17230 GOTO 17270
17240 ' --
17250 '
17260 MEASURE$=MEASURE$+Z$
17265 FRY=LEN(MEASURE$)
17270     IF Z$="-" THEN 17300 
17280     IF Z$="\" THEN 17340
17290     IF Z$="/" THEN 17380 ELSE 17430
17300 A$ = CHR$(11) + CHR$(8) + CHR$(45)  + CHR$(10)
17310 GOTO 17390
17320 ' --
17330 '
17340 A$ = CHR$(11) + CHR$(8) + CHR$(92)  + CHR$(10)
17350 GOTO 17390
17360 ' --
17370 '
17380 A$ = CHR$(11) + CHR$(8) + CHR$(47)  + CHR$(10)
17390 Y$=A$
17400 GOTO 17440
17410 ' --
17420 '
17430 Y$=Z$
17440 PRINT Y$;
17442 IF FRY=50 OR FRY=100 OR FRY=150 THEN 17445
17444 GOTO 17130
17445 PRINT : PRINT
17450 GOTO 17130
17460 ' --
17470 '
18000 PRINT 
18004     IF WORDC$="" THEN RETURN
18005     IF MEASURE$="" THEN RETURN
18010     IF ROUTE=1 GOTO  18080
18020     IF ROUTE=3 GOTO 18120
18030     IF CSENT$="" THEN RETURN
18040 GOSUB 20000
18050 GOTO 18130
18060 ' --
18070 '
18080 GOSUB 19000
18090 GOTO 18130
18100 ' --
18110 '
18120 GOSUB 21000
18130 PRINT
18140 PRINT
18150 PRINT "Correct?  (Y/N)";
18160 PROMPT$=INPUT$(1)
18170     IF PROMPT$="Y" OR PROMPT$="y" THEN RETURN
18180 PRINT CHR$(26) 
18190 PRINT "Re-enter the Chinese:
18200 PRINT
18210 WORDC$=""  
18220 CSENT$="" 
18230 MEASURE$=""
18240 GOTO 17130
18250 ' --
18260 '
19000 PRINT
19010 R=0
19020 T=LEN(WORDC$)
19030 R=R+1
19040 WHILE R<=T
19050 X$=LEFT$(WORDC$,R)
19060 Y$=RIGHT$(X$,1)
19070     IF Y$="/" THEN 19100
19080     IF Y$="\" THEN 19140
19090     IF Y$="-" THEN 19180 ELSE 19220
19100 Z$= CHR$(11) + CHR$(8) + CHR$(47) + CHR$(10)
19110 GOTO 19230
19120 ' --
19130 '
19140 Z$= CHR$(11) + CHR$(8) + CHR$(92) + CHR$(10)
19150 GOTO 19230
19160 ' --
19170 '
19180 Z$= CHR$(11) + CHR$(8) + CHR$(45) + CHR$(10)
19190 GOTO 19230
19200 ' --
19210 '
19220 Z$=Y$
19230 PRINT Z$;
19235    IF RR=50 THEN 19030
19240     IF R<50 THEN 19270
19250 PRINT 
19255 RR=50
19260 PRINT
19270 GOTO 19030
19280 ' --
19290 '
19300 WEND
19310 RETURN
19320 ' --
19330 '
20000 PRINT
20010 R=0
20020 T=LEN(CSENT$)
20030 R=R+1
20040 WHILE R<=T
20050 X$=LEFT$(CSENT$,R)
20060 Y$=RIGHT$(X$,1)
20070     IF Y$="/" THEN 20100
20080     IF Y$="\" THEN 20140
20090     IF Y$="-" THEN 20180 ELSE 20220
20100 Z$=CHR$(11) + CHR$(8) + CHR$(47) + CHR$(10)
20110 GOTO 20230
20120 ' --
20130 '
20140 Z$=CHR$(11) + CHR$(8) + CHR$(92) + CHR$(10)
20150 GOTO 20230
20160 ' --
20170 '
20180 Z$=CHR$(11) + CHR$(8) + CHR$(45) + CHR$(10)
20190 GOTO 20230
20200 ' --
20210 '
20220 Z$=Y$
20230 PRINT Z$;
20235    IF RR=50 THEN 20030
20240     IF R<50 THEN 20270
20250 PRINT 
20255 RR=50
20260 PRINT
20270 GOTO 20030
20280 ' --
20290 '
20300 WEND
20310 RETURN
20320 ' --
20330 '
21000 PRINT
21010 R=0
21020 T=LEN(MEASURE$)
21030 R=R+1
21040 WHILE R<=T
21050 X$=LEFT$(MEASURE$,R)
21060 Y$=RIGHT$(X$,1)
21070     IF Y$="/" THEN 21100
21080     IF Y$="\" THEN 21140
21090     IF Y$="-" THEN 21180 ELSE 21220
21100 Z$= CHR$(11) + CHR$(8) + CHR$(47) + CHR$(10)
21110 GOTO 21230
21120 ' --
21130 '
21140 Z$= CHR$(11) + CHR$(8) + CHR$(92) + CHR$(10)
21150 GOTO 21230
21160 ' --
21170 '
21180 Z$= CHR$(11) + CHR$(8) + CHR$(45) + CHR$(10)
21190 GOTO 21230
21200 ' --
21210 '
21220 Z$=Y$
21230 PRINT Z$;
21240 GOTO 21030
21250 ' --
21260 '
21270 WEND
21280 RETURN
21290 ' --
21300 '
22000 PRINT
22010 Z$=INPUT$(1)
22015     Z=ASC(Z$)
22020     IF Z=13 THEN RETURN
22030     IF Z$="-" THEN 22060 
22040     IF Z$="\" THEN 22100
22050     IF Z$="/" THEN 22140 ELSE 22190
22060 A$ = CHR$(11) + CHR$(8) + CHR$(45)  + CHR$(10)
22070 GOTO 22150
22080 ' --
22090 '
22100 A$ = CHR$(11) + CHR$(8) + CHR$(92)  + CHR$(10)
22110 GOTO 22150
22120 ' --
22130 '
22140 A$ = CHR$(11) + CHR$(8) + CHR$(47)  + CHR$(10)
22150 Y$=A$
22160 GOTO 22200
22170 ' --
22180 '
22190 Y$=Z$
22200 PRINT Y$;
22210 GOTO 22010
22220 ' --
22230 '
23000 R=0
23010 T=LEN(WORDC$)
23020 R=R+1
23030 WHILE R<=T
23040 X$=LEFT$(WORDC$,R)
23050 Y$=RIGHT$(X$,1)
23060     IF Y$="/" THEN 23090
23070     IF Y$="\" THEN 23130
23080     IF Y$="-" THEN 23170 ELSE 23210
23090 LPRINT CHR$(27) CHR$(68) CHR$(8) CHR$(47)  CHR$(27) CHR$(85);
23100 GOTO 23020
23110 ' --
23120 '
23130 LPRINT CHR$(27) CHR$(68) CHR$(8) CHR$(92)  CHR$(27) CHR$(85);
23140 GOTO 23020
23150 ' --
23160 '
23170 LPRINT CHR$(27) CHR$(68) CHR$(8) CHR$(45)  CHR$(27) CHR$(85);
23180 GOTO 23020
23190 ' --
23200 '
23210 LPRINT Y$;
23220 GOTO 23020
23230 ' --
23240 '
23250 WEND
23260 LPRINT
23270 RETURN
23280 ' --
23290 '
24000 R=0
24010 T=LEN(CSENT$)
24020 R=R+1
24030 WHILE R<=T
24040 X$=LEFT$(CSENT$,R)
24050 Y$=RIGHT$(X$,1)
24060     IF Y$="/" THEN 24090
24070     IF Y$="\" THEN 24130
24080     IF Y$="-" THEN 24170 ELSE 24210
24090 LPRINT CHR$(27) CHR$(68) CHR$(8) CHR$(47)  CHR$(27) CHR$(85);
24100 GOTO 24020
24110 ' --
24120 '
24130 LPRINT CHR$(27) CHR$(68) CHR$(8) CHR$(92)  CHR$(27) CHR$(85);
24140 GOTO 24020
24150 ' --
24160 '
24170 LPRINT CHR$(27) CHR$(68) CHR$(8) CHR$(45)  CHR$(27) CHR$(85);
24180 GOTO 24020
24190 ' --
24200 '
24210 LPRINT Y$;
24220 GOTO 24020
24230 ' --
24240 '
24250 WEND
24260 LPRINT
24270 RETURN
24280 ' --
24290 '
25000 R=0
25010 T=LEN(MEASURE$)
25020 R=R+1
25030 WHILE R<=T
25040 X$=LEFT$(MEASURE$,R)
25050 Y$=RIGHT$(X$,1)
25060     IF Y$="/" THEN 25090
25070     IF Y$="\" THEN 25130
25080     IF Y$="-" THEN 25170 ELSE 25210
25090 LPRINT CHR$(27) CHR$(68) CHR$(8) CHR$(47)  CHR$(27) CHR$(85);
25100 GOTO 25020
25110 ' --
25120 '
25130 LPRINT CHR$(27) CHR$(68) CHR$(8) CHR$(92)  CHR$(27) CHR$(85);
25140 GOTO 25020
25150 ' --
25160 '
25170 LPRINT CHR$(27) CHR$(68) CHR$(8) CHR$(45)  CHR$(27) CHR$(85);
25180 GOTO 25020
25190 ' --
25200 '
25210 LPRINT Y$;
25220 GOTO 25020
25230 ' --
25240 '
25250 WEND
25260 LPRINT
25270 RETURN
25280 ' --
25290 '
26000 PRINT
26010 PRINT "Enter:" 
26020 Z$=""
26030  Z$=INKEY$ 
26040     IF Z$="" THEN 26030
26050 RETURN
26060 ' --
26070 '
27000 Z$=INPUT$(1)
27010 RETURN
27020 ' --
27030 '
28000 PRINT 
28010 PRINT "Correct?  Y/N";
28020 GOSUB 27000
28030 PRINT
28040     IF Z$="Y" OR Z$="y" THEN 28050 ELSE 28060
28050 Z$=""
28060     IF Z$="" OR Z$="N" OR Z$="n" THEN 28110
28070 PRINT "Try again.
28080 GOTO 28000
28090 ' --
28100 '
28110 RETURN
28120 ' --
28130 '
29000 PRINT
29010 OPEN "O",#1,"TEMP"
29020 GOSUB 28000
29030 WRITE #1,Z$,Z$,Z$
29040     IF Z$="Y" THEN 29060
29050 PRINT "This first
29060 PRINT "this second
29070 CLOSE
29080 END
29090 ' --
29100 '
9040     IF Z$="Y" THEN 29060
29050 PRINT "This first
29060 PRINT "this