4 REM:   ...........................
5 REM:   :       ALGEBRA           :
6 REM:   :M.A.C.E. SOFTWARE CONTEST:
7 REM:   :    JOHN ROBINSON        :
8 REM:   :        1984             :
9 REM:   :.........................:
10 GOTO13000
50 PRINT"[147]":POKE53281,0:POKE53280,0
60 FORY=1TO18
61 READZ
62 POKE1033+Y,Z:POKE55305+Y,2
63 NEXT
70 FORY=1TO18
71 READZ
72 POKE1993+Y,Z:POKE56265+Y,2
73 NEXT
95 REM:DEFINE VARIABLES
100 A=INT(18*RND(1))-9
110 B=INT(18*RND(1))-9
120 IFB=0THENB=1
130 C=INT(18*RND(1))-9
140 D=INT(20*RND(1))-10
150 IFD=0THEND=1
160 E=INT(20*RND(1))-10
170 F=INT(20*RND(1))-10
180 A1=INT(18*RND(1))-9
190 B1=INT(18*RND(1))-9
200 IFB1=0THENB1=1
210 C1=INT(18*RND(1))-9
220 D1=INT(20*RND(1))-10
230 IFD1=0THEND1=1
233 IFA=0THEN100
234 IFA1=0THEN100
235 N1=D*D1*F
240 N2=A*D1*C
250 N3=A1*D*C1
260 N4=D*D1*E
270 N5=A*D1*B
280 N6=A1*D*B1
290 M1=N1-N2-N3-N4
300 M2=N5+N6
310 IFM2=0THEN100
320 X=M1/M2
330 IFX=INT(X)THEN336
335 GOTO100
336 IFX>99ORX<-99THEN100
337 IFX=0THEN100
338 GOTO6000
339 TI$="000000"
340 PRINT"[147]":GOTO8500
341 GOSUB7000
345 IFA=0THEN650
350 IFA=1THEN400
360 IFB=1THEN550
370 IFC=0THEN580
380 IFD=1THEN600
390 IFB=-1THEN393
391 IFC<0THEN395
392 T=9-L1-L2-L3:PRINTTAB(T-(-T*(T<1)))A"[157]("B"[157][154]X+"C"[157])":GOTO397
393 IFC<0THEN396
394 T=8-L1-L2:PRINTTAB(T-(-T*(T<1)))A"[157](-[154]X+"C"[157])":GOTO397
395 T=10-L1-L2-L3:PRINTTAB(T-(-T*(T<1)))A"[157]("B"[157][154]X"C"[157])":GOTO397
396 T=9-L1-L3:PRINTTAB(T-(-T*(T<1)))A"[157](-[154]X"C"[157])":GOTO397
397 PRINTTAB(T-(-T*(T<1)))"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
398 PRINTTAB(T-(-T*(T<1)))"   "D:GOTO650
400 IFB=1THEN440
410 IFC=0THEN470
420 IFD=1THEN490
430 IFB=-1THEN433
431 IFC<0THEN435
432 T=11-L2-L3:PRINTTAB(T-(-T*(T<1)))B"[157][154]X+"C:GOTO437
433 IFC<0THEN436
434 T=11-L3:PRINTTAB(T-(-T*(T<1)))"-[154]X+"C:GOTO437
435 T=12-L2-L3:PRINTTAB(T-(-T*(T<1)))B"[157][154]X"C:GOTO437
436 T=11-L3:PRINTTAB(T-(-T*(T<1)))"-[154]X"C
437 PRINTTAB(T-(-T*(T<1)))"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
438 PRINTTAB(T+2)D:GOTO650
440 IFC=0THEN500
450 IFD=1THEN520
460 IFC<0THEN467
464 T=11-L3:PRINTTAB(T-(-T*(T<1)))"[154]X+"C"
465 [153][163]T[171]([171]T[172](T[179]1)))"TANTANTANTANTANTANTANTANTAN"
466 [153][163]T[170]1)D:[137]650
467 T[178]12[171]L3:[153][163]T[171]([171]T[172](T[179]1)))"CONTX"C:[137]465
470 [139]D[178]1[167]530
480 T[178]12[171]L2:[153][163]T[171]([171]T[172](T[179]1)))B"CMDCONTX"
481 [153][163]T[171]([171]T[172](T[179]1)))"TANTANTANTANTANTAN"
482 [153][163]T[170]1)D:[137]650
490 [139]B[178][171]1[167]493
491 [139]C[179]0[167]495
492 T[178]12[171]L2[171]L3:[153][163]T[171]([171]T[172](T[179]1)))""B"CMDCONTX+"C"":[137]650
493 [139]C[179]0[167]496
494 T[178]11[171]L3:[153][163]T[171]([171]T[172](T[179]1)))"-CONTX+"C"":[137]650
495 T[178]13[171]L2[171]L3:[153][163]T[171]([171]T[172](T[179]1)))""B"CMDCONTX"C"":[137]650
496 T[178]12[171]L3:[153][163]T[171]([171]T[172](T[179]1)))"-CONTX"C"":[137]650
500 [139]D[178]1[167]540
510 T[178]12[171]L7:[153][163]T[171]([171]T[172](T[179]1)))"CONTX"
511 [153][163]T[171]1)"TANTANTANTAN"
512 [153][163]T[171]1)D:[137]650
520 [139]C[179]0[167]525
521 T[178]10[171]L3:[153][163]T[171]([171]T[172](T[179]1)))"CONTX +"C"":[137]650
525 T[178]12[171]L3:[153][163]T[171]([171]T[172](T[179]1)))"CONTX"C"":[137]650
530 [139]B[178][171]1[167]532
531 T[178]13[171]L2:[153][163]T[171]([171]T[172](T[179]1)))""B"CMDCONTX":[137]650
532 T[178]12:[153][163]T[171]([171]T[172](T[179]1)))"-CONTX":[137]650
540 [139]A1[178]0[175]E[178]0[167]543
541 T[178]13:[153][163]T[171]([171]T[172](T[179]1)))"CONTX"
542 [137]650
543 [153][163]12)"DEF(null)TANTANTANTANTANTANTANTANRIGHT$"
544 [153][163]12)"PEEKCONTX = "F:[153][163]21)"DEFONPEEK"
545 [153][163]12)"MID$TANTANTANTANTANTANTANTAN(null)"
546 [153][163]34)"SYSCHECK":[137]10340
550 [139]C[178]0[167]610
560 [139]D[178]1[167]630
570 [139]C[179]0[167]575
571 T[178]9[171]L1[171]L3:[153][163]T[171]([171]T[172](T[179]1)))A"CMD(CONTX+"C"CMD)"
572 [153][163]T[171]([171]T[172](T[179]1)))"TANTANTANTANTANTANTANTANTANTANTANTAN"
573 [153][163]T[170]3)D:[137]650
575 T[178]10[171]L1[171]L3:[153][163]T[171]([171]T[172](T[179]1)))A"CMD(CONTX"C"CMD)":[137]572
580 [139]D[178]1[167]640
590 [139]B[178][171]1[167]595
591 T[178]10[171]L1[171]L2:[153][163]T[171]([171]T[172](T[179]1)))A"CMD("B"CMDCONTX)"
592 [153][163]T[171]([171]T[172](T[179]1)))"TANTANTANTANTANTANTANTANTANTAN"
593 [153][163]T[170]2)D:[137]650
595 T[178]9[171]L1:[153][163]T[171]([171]T[172](T[179]1)))A"CMD(-CONTX)":[137]592
600 [139]B[178][171]1[167]603
601 [139]C[179]0[167]605
602 T[178]10[171]L1[171]L2[171]L3:[153][163]T[171]([171]T[172](T[179]1)))""A"CMD("B"CMDCONTX+"C"CMD)":[137]650
603 [139]C[179]0[167]606
604 T[178]8[171]L1[171]L3:[153][163]T[171]([171]T[172](T[179]1)))""A"CMD(-CONTX+"C"CMD)":[137]650
605 T[178]11[171]L1[171]L2[171]L3:[153][163]T[171]([171]T[172](T[179]1)))""A"CMD("B"CMDCONTX"C"CMD)":[137]650
606 T[178]9[171]L1[171]L3:[153][163]T[171]([171]T[172](T[179]1)))" "A"CMD(-CONTX"C"CMD)":[137]650
610 [139]D[178]1[167]645
620 T[178]12[171]L1:[153][163]T[171]([171]T[172](T[179]1)))A"CMDCONTX"
621 [153][163]T[171]([171]T[172](T[179]1)))"TANTANTANTANTAN"
622 [153][163]T[170]1)D:[137]650
630 [139]C[179]0[167]635
631 T[178]9[171]L1[171]L3:[153][163]T[171]([171]T[172](T[179]1)))""A"CMD(CONTX+"C"CMD)":[137]650
635 T[178]10[171]L1[171]L3:[153][163]T[171]([171]T[172](T[179]1)))" "A"CMD(CONTX"C"CMD)":[137]650
640 [139]B[178][171]1[167]644
641 T[178]10[171]L1[171]L2:[153][163]T[171]([171]T[172](T[179]1)))" "A"CMD("B"CMDCONTX)":[137]650
644 T[178]9[171]L1:[153][163]T[171]([171]T[172](T[179]1)))""A"CMD(-CONTX)":[137]650
645 [139]A[178][171]1[167]647
646 T[178]13[171]L1:[153][163]T[171]([171]T[172](T[179]1)))""A"CMDCONTX":[137]650
647 T[178]11:[153][163]T[171]([171]T[172](T[179]1)))"        -CONTX"
650 T[178]14:[139]A1[178]0[167]720
660 [139]A1[178]1[167]730
670 [139]B1[178]1[167]780
680 [139]C1[178]0[167]820
690 [139]D1[178]1[167]850
700 [139]E[178]0[167]870
710 [139]B1[178][171]1[167]713
711 [139]C1[179]0[167]715
712 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD("B1"CMDCONTX+"C1"CMD)":[137]717
713 [139]C1[179]0[167]716
714 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD(-CONTX+"C1"CMD)":[137]717
715 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD("B1"CMDCONTX"C1"CMD)":[137]717
716 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD(-CONTX"C1"CMD)":[137]717
717 [139]E[179]0[167]719
718 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTANTANTANTANTANTANTAN +"E"= "F:[153][163]T[171]([171]T[172](T[179]1)))"     "D1:[137]2000
719 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTANTANTANTANTANTANTAN "E"= "F:[153][163]T[171]([171]T[172](T[179]1)))"      "D1:[137]2000
720 [139]E[178]0[167]725
721 [139]E[179]0[167]726
722 [153][163]T[171]([171]T[172](T[179]1)))"ONON +"E"= "F"":[137]2000
725 [153][163]T[171]([171]T[172](T[179]1)))"ONON = "F"":[137]2000
726 [153][163]T[171]([171]T[172](T[179]1)))"ONON"E"= "F"":[137]2000
730 [139]B1[178]1[167]880
740 [139]C1[178]0[167]920
750 [139]D1[178]1[167]950
760 [139]E[178]0[167]970
770 [139]C1[179]0[167]773
771 [139]B1[178][171]1[167]779
772 T1[178]T[170]L5[170]L6[170]5:[153][163]T[171]([171]T[172](T[179]1)))"ONONON   "B1"CMDCONTX+"C1:[137]774
773 T1[178]T[170]L5[170]L6[170]5:[153][163]T[171]([171]T[172](T[179]1)))"ONONON   "B1"CMDCONTX"C1
774 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTANTANTANTANTANTAN"
775 [139]E[179]0[167]777
776 [153][163]T1)"ON +"E"= "F:[137]778
777 [153][163]T1)"ON "E"= "F
778 [153][163]T[171]([171]T[172](T[179]1)))"     "D1:[137]2000
779 T1[178]T[170]L6[170]6:[153][163]T[171]([171]T[172](T[179]1)))"ONONON   -CONTX+"C1:[137]774
780 [139]C1[178]0[167]980
790 [139]D1[178]1[167]1010
800 [139]E[178]0[167]1030
810 [139]C1[179]0[167]812
811 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD(CONTX+"C1"CMD)":[137]813
812 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD(CONTX"C1"CMD)"
813 [139]E[179]0[167]815
814 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTANTANTANTANTANTAN +"E"= "F:[137]816
815 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTANTANTANTANTAN "E"= "F
816 [153][163]T[171]([171]T[172](T[179]1)))"     "D1:[137]2000
820 [139]D1[178]1[167]1040
830 [139]E[178]0[167]1060
840 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD("B1"CMDCONTX)"
841 [139]E[179]0[167]843
842 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTANTANTANTAN +"E"= "F:[137]844
843 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTANTANTANTAN "E"= "F
844 [153][163]T[171]([171]T[172](T[179]1)))"     "D1:[137]2000
850 [139]E[178]0[167]1070
860 [139]B1[178][171]1[167]864
861 [139]C1[179]0[167]867
862 [139]E[179]0[167]1980
863 [153][163]T[171]([171]T[172](T[179]1)))"ONON"A1"CMD("B1"CMDCONTX+"C1"CMD)+"E"= "F"":[137]1990
864 [139]C1[179]0[167]1981
865 [139]E[179]0[167]1983
866 [153][163]T[171]([171]T[172](T[179]1)))"ONON"A1"CMD(-CONTX+"C1"CMD)+"E"= "F"":[137]1990
867 [139]E[179]0[167]1984
868 [153][163]T[171]([171]T[172](T[179]1)))"ONON"A1"CMD("B1"CMDCONTX"C1"CMD)+"E"= "F"":[137]1990
870 [139]B1[178][171]1[167]873
871 [139]C1[179]0[167]875
872 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD("B1"CMDCONTX+"C1"CMD)":[137]877
873 [139]C1[179]0[167]876
874 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD(-CONTX+"C1"CMD)":[137]877
875 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD("B1"CMDCONTX"C1"CMD)":[137]877
876 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD(-CONTX"C1"CMD)":[137]877
877 [139]E[179]0[167]1990
878 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTANTANTANTANTANTANTAN = "F
879 [153][163]T[171]([171]T[172](T[179]1)))"      "D1:[137]2000
880 [139]C1[178]0[167]1080
890 [139]D1[178]1[167]1110
900 [139]E[178]0[167]1130
910 [139]C1[179]0[167]912
911 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   CONTX+"C1:[137]913
912 [153][163]T[171]([171]T[172](T[179]1)))"ONONON    X"C1
913 [139]E[179]0[167]915
914 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTAN +"E"= "F:[137]916
915 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTAN "E"= "F
916 [153][163]T[171]([171]T[172](T[179]1)))"    "D1:[137]2000
920 [139]D1[178]1[167]1140
930 [139]E[178]0[167]1160
940 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "B1"CMDCONTX"
941 [139]E[179]0[167]943
942 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTAN +"E"= "F:[137]944
943 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTAN "E"= "F
944 [153][163]T[171]([171]T[172](T[179]1)))"   "D1:[137]2000
950 [139]E[178]0[167]1170
960 [139]B1[178][171]1[167]964
961 [139]C1[179]0[167]967
962 [139]E[179]0[167]1970
963 [153][163]T[171]([171]T[172](T[179]1)))"ONON"B1"CMDCONTX+"C1"CMD+"E"= "F"":[137]1991
964 [139]C1[179]0[167]1971
965 [139]E[179]0[167]1973
966 [153][163]T[171]([171]T[172](T[179]1)))"ONON-CONTX+"C1"CMD+"E"= "F"":[137]2000
967 [139]E[179]0[167]1974
968 [153][163]T[171]([171]T[172](T[179]1)))"ONON"B1"CMDCONTX"C1"CMD+"E"= "F"":[137]1991
970 [139]C1[179]0[167]972
971 T1[178]T[170]L5[170]L6[170]5:[153][163]T[171]([171]T[172](T[179]1)))"ONONON   "B1"CMDCONTX+"C1:[137]973
972 T1[178]T[170]L5[170]L6[170]4:[153][163]T[171]([171]T[172](T[179]1)))"ONONON   "B1"CMDCONTX"C1
973 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTANTANTANTANTANTANTANTAN"
974 [153][163]T1)"ON = "F
975 [153][163]T[171]([171]T[172](T[179]1)))"     "D1:[137]2000
980 [139]D1[178]1[167]1180
990 [139]E[178]0[167]1210
1000 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMDCONTX"
1001 [139]E[179]0[167]1003
1002 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTAN +"E"= "F:[137]1004
1003 [153][163]T[171]([171]T[172](T[179]1)))" + TANTANTAN "E"= "F
1004 [153][163]T[171]([171]T[172](T[179]1)))"   "D1:[137]2000
1010 [139]E[178]0[167]1210
1020 [139]C1[179]0[167]1023
1021 [139]E[179]0[167]1025
1022 [153][163]T[171]([171]T[172](T[179]1)))"ONON"A1"CMD(CONTX+"C1"CMD)+"E"="F"":[137]1990
1023 [139]E[179]0[167]1026
1024 [153][163]T[171]([171]T[172](T[179]1)))"ONON"A1"CMD(CONTX"C1"CMD)+"E"= "F"":[137]1990
1025 [153][163]T[171]([171]T[172](T[179]1)))"ONON"A1"CMD(CONTX+"C1"CMD)"E"= "F"":[137]1990
1026 [153][163]T[171]([171]T[172](T[179]1)))"ONON"A1"CMD(CONTX"C1"CMD)"E"= "F"":[137]1990
1030 [139]C1[179]0[167]1032
1031 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD(CONTX+"C1"CMD)":[137]1033
1032 [153][163]T[171]([171]T[172](T[179]1)))"ONONON   "A1"CMD(CONTX"C1"CMD)
1033 PRINTTAB(T-(-T*(T<1)))" + [192][192][192][192][192][192][192][192][192] = "F
1034 PRINTTAB(T-(-T*(T<1)))"      "D1:GOTO2000
1040 IFE=0THEN1220
1050 IFE<0THEN1052
1051 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157]("B1"[157][154]X)+"E"= "F"":GOTO1990
1052 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157]("B1"[157][154]X)"E"= "F"":GOTO1990
1060 PRINTTAB(T-(-T*(T<1)))"[145][145][145]   "A1"[157]("B1"[157][154]X)"
1061 PRINTTAB(T-(-T*(T<1)))" + [192][192][192][192][192][192][192] = "F
1062 PRINTTAB(T-(-T*(T<1)))"    "D1:GOTO2000
1070 IFC1<0THEN1072
1071 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157]("B1"[157][154]X+"C1"[157]) = "F"":GOTO1990
1072 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157]("B1"[157][154]X"C1"[157]) = "F"":GOTO1990
1080 IFD1=1THEN1230
1090 IFE=0THEN1250
1100 PRINTTAB(T-(-T*(T<1)))"[145][145][145]   [154]X"
1101 IFE<0THEN1103
1102 PRINTTAB(T-(-T*(T<1)))" + [192] +"E"= "F:GOTO1104
1103 PRINTTAB(T-(-T*(T<1)))" + [192] "E"= "F
1104 PRINTTAB(T-(-T*(T<1)))"  "D1:GOTO2000
1110 IFE=0THEN1260
1120 IFC1<0THEN1123
1121 IFE<0THEN1125
1122 PRINTTAB(T-(-T*(T<1)))"[145][145]+[154]X+"C1"[157]+"E"= "F"":GOTO2000
1123 IFE<0THEN1126
1124 PRINTTAB(T-(-T*(T<1)))"[145][145]+[154]X"C1"[157]+"E"= "F"":GOTO2000
1125 PRINTTAB(T-(-T*(T<1)))"[145][145]+[154]X+"C1"[157]"E"= "F"":GOTO2000
1126 PRINTTAB(T-(-T*(T<1)))"[145][145]+[154]X"C1" "E"= "F"":GOTO2000
1130 IFC1<0THEN1132
1131 PRINTTAB(T-(-T*(T<1)))"[145][145][145]   [154]X+"C1:GOTO1133
1132 PRINTTAB(T-(-T*(T<1)))"[145][145][145]   [154]X"C1
1133 PRINTTAB(T-(-T*(T<1)))" + [192][192][192][192] = "F
1134 PRINTTAB(T-(-T*(T<1)))"    "D1:GOTO2000
1140 IFE=0THEN1270
1150 IFE<0THEN1152
1151 PRINTTAB(T-(-T*(T<1)))"[145][145]"B1"[157][154]X+"E"= "F"":GOTO1991
1152 PRINTTAB(T-(-T*(T<1)))"[145][145]"B1"[157][154]X"E"= "F"":GOTO1991
1160 PRINTTAB(T-(-T*(T<1)))"[145][145][145]   "B1"[157][154]X"
1161 PRINTTAB(T-(-T*(T<1)))" + [192][192][192] = "F
1162 PRINTTAB(T-(-T*(T<1)))"   "D1:GOTO2000
1170 IFC1<0THEN1172
1171 PRINTTAB(T-(-T*(T<1)))"[145][145]"B1"[157][154]X+"C1"= "F"":GOTO1991
1172 PRINTTAB(T-(-T*(T<1)))"[145][145]"B1"[157][154]X"C1"= "F"":GOTO1991
1180 IFE=0THEN1280
1190 IFE<0THEN1192
1191 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157][154]X+"E"= "F"":GOTO1990
1192 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157][154]X"E"= "F"":GOTO1990
1200 PRINTTAB(T-(-T*(T<1)))"[145][145][145]   "A1"[157][154]X"
1201 PRINTTAB(T-(-T*(T<1)))" + [192][192][192] = "F
1202 PRINTTAB(T-(-T*(T<1)))"   "D1:GOTO2000
1210 IFC<0THEN1212
1211 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157]([154]X+"C1"[157]) = "F"":GOTO1990
1212 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157]([154]X"C1"[157]) = "F"":GOTO1990
1220 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157]("B1"[157][154]X) = "F"":GOTO1990
1230 IFE=0THEN1290
1240 IFE<0THEN1242
1241 PRINTTAB(T-(-T*(T<1)))"[145][145]+[154]X+"E"= "F"":GOTO2000
1242 PRINTTAB(T-(-T*(T<1)))"[145][145]+[154]X"E"= "F"":GOTO2000
1250 PRINTTAB(T-(-T*(T<1)))"[145][145][145]    [154]X"
1251 PRINTTAB(T-(-T*(T<1)))" + [192][192][192] = "F
1252 PRINTTAB(T-(-T*(T<1)))"   "D1:GOTO2000
1260 IFC<0THEN1262
1261 PRINTTAB(T-(-T*(T<1)))"[145][145]+[154]X+"C1"= "F"":GOTO2000
1262 PRINTTAB(T-(-T*(T<1)))"[145][145]+[154]X"C1"= "F"":GOTO2000
1270 PRINTTAB(T-(-T*(T<1)))"[145][145]"B1"[157][154]X = "F"":GOTO1991
1280 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157][154]X = "F"":GOTO1990
1290 PRINTTAB(T-(-T*(T<1)))"[145][145] +[154]X = "F"":GOTO2000
1970 PRINTTAB(T-(-T*(T<1)))"[145][145]"B1"[157][154]X+"C1"[157]"E"= "F"":GOTO1991
1971 IFE<0THEN1975
1972 PRINTTAB(T-(-T*(T<1)))"[145][145]-[154]X"C1"[157]+"E"= "F"":GOTO2000
1973 PRINTTAB(T-(-T*(T<1)))"[145][145]-[154]X+"C1"[157]"E"= "F"":GOTO2000
1974 PRINTTAB(T-(-T*(T<1)))"[145][145]"B1"[157][154]X"C1"[157]"E"= "F"":GOTO1991
1975 PRINTTAB(T-(-T*(T<1)))"[145][145]-[154]X"C1"[157]"E"= "F"":GOTO2000
1980 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157]("B1"[157][154]X+"C1"[157])"E"= "F"":GOTO1990
1981 IFE<0THEN1985
1982 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157](-[154]X"C1"[157])+"E"= "F"":GOTO1990
1983 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157](-[154]X+"C1"[157])"E"= "F"":GOTO1990
1984 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157]("B1"[157][154]X"C1"[157])"E"= "F"":GOTO1990
1985 PRINTTAB(T-(-T*(T<1)))"[145][145]"A1"[157](-[154]X"C1"[157])"E"= "F""
1990 IFA1>0THENPRINTTAB(T-(-T*(T<1)))"[145][145]+"
1991 IFA1=1ANDB1>=0THENPRINTTAB(T-(-T*(T<1)))"[145][145]+"
2000 REM:
2005 INPUTA$
2010 B$=LEFT$(A$,3)
2011 C$=LEFT$(A$,1)
2012 IFC$="H"THEN12040
2020 IFB$="DIS"THEN2080
2030 IFB$="COM"THEN2500
2040 IFB$="ADD"THEN3000
2050 IFB$="SUB"THEN3500
2060 IFB$="MUL"THEN4000
2070 IFB$="DIV"THEN4500
2071 PRINT"[145]                                       ":PRINT"[145]":INPUTA$:GOTO2010
2075 PRINT"[145][145]INAPPROPRIATE COMMAND                  "
2076 FORO=1TO1000:NEXT
2077 PRINT"[145]                                      [145]":GOTO2000
2080 PRINT"[145]                             [158]DISTRIBUTE"
2090 B=A*B:C=A*C:A=1
2095 IFB=0ANDC=0THENA=0
2100 B1=A1*B1:C1=A1*C1:A1=1
2105 IFB1=0ANDC1=0THENA1=0
2110 GOTO341
2115 INPUTZ
2116 PRINT"[145]                               [158]ADD "Z""
2120 GOSUB7500
2140 PRINT"[145]SUBTRACT WHAT VALUE";
2145 INPUTZ
2146 PRINT"[145]                          [158]SUBTRACT "Z""
2150 GOSUB7500
2180 PRINT"[145]MULTIPLY BY WHAT VALUE";
2190 INPUTZ
2195 PRINT"[145]                       [158]MULTIPLY BY "Z""
2200 GOSUB7500
2210 E=E*Z:F=F*Z
2260 INPUTZ
2265 PRINT"[145]                         [158]DIVIDE BY "Z""
2270 GOSUB7500
2280 E=E/Z:F=F/Z
2500 PRINT"[145]                     [158]COMBINE LIKE TERMS"
2510 IFD=1ANDA=1THEN2560
2520 IFD1=1ANDA1=1THEN2570
2530 IFB=1ANDC=0THEN2580
2540 IFB1=1ANDC1=0THEN2590
2550 IFA=1ANDD=1THEN2600
2555 GOTO341
2560 E=E+C:C=0:GOTO2520
2570 E=E+C1:C1=0:GOTO2530
2580 B=A:A=1:GOTO2540
2590 B1=A1:A1=1:GOTO2550
2600 IFA1=1ANDD1=1THEN2610
2605 GOTO341
2610 B=B+B1:B1=0:A1=0
2620 GOTO341
3000 PRINT"[145]ADD WHAT VALUE";
3010 INPUTZ
3015 GOSUB9000
3019 PRINT"[145]                                      "
3020 PRINTTAB(35-L9)"[145][158]ADD "Z""
3030 GOSUB7500
3040 F=F+Z
3050 IFA=1ANDD=1THEN3080
3060 IFA1=1ANDD1=1THEN3090
3070 E=E+Z:GOTO341
3080 IFC+Z=0THEN3100
3085 GOTO3060
3090 IFC1+Z=0THEN3110
3095 GOTO3070
3100 C=0:GOTO341
3110 C1=0:GOTO341
3500 PRINT"[145]SUBTRACT WHAT VALUE";
3510 INPUTZ
3515 GOSUB9000
3519 PRINT"[145]                                      "
3520 PRINTTAB(30-L9)"[145][158]SUBTRACT "Z""
3530 GOSUB7500
3540 F=F-Z
3550 IFA=1ANDD=1THEN3580
3560 IFA1=1ANDD1=1THEN3590
3570 E=E-Z:GOTO341
3580 IFC-Z=0THEN3600
3585 GOTO3560
3590 IFC1-Z=0THEN3610
3595 GOTO3570
3600 C=0:GOTO341
3610 C1=0:GOTO341
4000 PRINT"[145]MULTIPLY BY WHAT VALUE";
4010 INPUTZ
4011 IFZ=0THENPRINT"[145]DO NOT USE ZERO!          ":GOTO4013
4012 GOTO4015
4013 FORT=0TO1000:NEXT:GOTO4000
4015 GOSUB9000
4020 PRINT"[145]                            "
4022 PRINTTAB(27-L9)"[145][158]MULTIPLY BY "Z""
4030 GOSUB7500
4040 E=E*Z:F=F*Z
4050 A2=A*Z/D
4060 A3=A1*Z/D1
4070 IFA2=INT(A2)THEN4110
4080 A=A*Z
4090 IFA3=INT(A3)THEN4120
4100 A1=A1*Z:GOTO341
4110 A=A2:D=1
4111 IFC=0THEN4113
4112 GOTO4090
4113 B=A*B:A=1
4114 IFB=0THENA=0:GOTO4090
4120 A1=A3:D1=1
4121 IFC1=0THEN4123
4122 GOTO341
4123 B1=A1*B1:A1=1
4124 IFB1=0THENA1=0
4125 GOTO341
4500 PRINT"[145]DIVIDE BY WHAT VALUE";
4510 INPUTZ
4511 IFZ=0THENPRINT"[145]DO NOT USE ZERO!          ":GOTO4513
4512 GOTO4515
4513 FORT=0TO1000:NEXT:GOTO4500
4515 GOSUB9000
4519 PRINT"[145]                                      "
4520 PRINTTAB(29-L9)"[145][158]DIVIDE BY "Z""
4530 GOSUB7500
4540 E=E/Z:F=F/Z
4550 IFA=1THEN4630
4560 A2=A/Z
4570 IFA2=INT(A2)THEN4650
4580 D=D*Z
4590 IFA1=1THEN4660
4600 A2=A1/Z
4610 IFA2=INT(A2)THEN4680
4620 D1=D1*Z:GOTO341
4630 B2=B/(Z*D):C2=C/(Z*D)
4640 IFB2=INT(B2)THEN4690
4645 GOTO4580
4650 A=A2:GOTO4590
4660 B2=B1/(Z*D1):C2=C1/(Z*D1)
4670 IFB2=INT(B2)THEN4700
4675 GOTO4620
4680 A1=A2:GOTO341
4690 IFC2=INT(C2)THEN4710
4695 GOTO4580
4700 IFC2=INT(C2)THEN4730
4705 GOTO4620
4710 B=B2:C=C2
4720 D=1:GOTO4590
4730 B1=B2:C1=C2
4740 D1=1:GOTO341
6000 M3=A/D:M4=D/A
6010 IFM4=INT(M4)THEN6020
6015 GOTO6030
6020 D=M4:A=1
6030 IFM3=INT(M3)THEN6040
6035 GOTO6050
6040 A=M3:D=1
6050 M5=A1/D1:M6=D1/A1
6060 IFM6=INT(M6)THEN6070
6065 GOTO6080
6070 D1=M6:A1=1
6080 IFM5=INT(M5)THEN6090
6085 GOTO6100
6090 A1=M5:D1=1
6100 GOTO339
7000 REM:ROUND DECIMALS TO ONE PLACE
7010 A=INT(A*10+.5)/10
7020 B=INT(B*10+.5)/10
7030 C=INT(C*10+.5)/10
7040 D=INT(D*10+.5)/10
7050 E=INT(E*10+.5)/10
7060 F=INT(F*10+.5)/10
7070 A1=INT(A1*10+.5)/10
7080 B1=INT(B1*10+.5)/10
7090 C1=INT(C1*10+.5)/10
7100 D1=INT(D1*10+.5)/10
7110 S1$=STR$(A)
7120 S2$=STR$(B)
7130 S3$=STR$(C)
7140 S4$=STR$(A1)
7150 S5$=STR$(B1)
7160 S6$=STR$(C1)
7170 S7$=STR$(D)
7180 S8$=STR$(D1)
7210 L1=LEN(S1$)
7220 L2=LEN(S2$)
7230 L3=LEN(S3$)
7240 L4=LEN(S4$)
7250 L5=LEN(S5$)
7260 L6=LEN(S6$)
7270 L7=LEN(S7$)
7280 L8=LEN(S8$)
7300 RETURN
7500 REM:ALLOW FOR ROUNDING ERROR
7510 IFABS(A-Z)<.1THENA=Z
7520 IFABS(B-Z)<.1THENB=Z
7530 IFABS(C-Z)<.1THENC=Z
7540 IFABS(D-Z)<.1THEND=Z
7550 IFABS(E-Z)<.1THENE=Z
7560 IFABS(F-Z)<.1THENF=Z
7570 IFABS(A1-Z)<.1THENA1=Z
7580 IFABS(B1-Z)<.1THENB1=Z
7590 IFABS(C1-Z)<.1THENC1=Z
7600 IFABS(D1-Z)<.1THEND1=Z
7700 RETURN
8500 G=A:H=B:I=C:J=D
8510 G1=A1:H1=B1:I1=C1:J1=D1
8520 K=E:L=F:GOTO341
9000 S9$=STR$(Z)
9010 L9=LEN(S9$)
9020 RETURN
10000 DATA19,5,12,5,3,20,9,14,7,32,5,17,21,1,20,9,15,14
10001 DATA6,15,18,32,8,5,12,16,44,32,20,25,16,5,32,60,8,62
10340 A=G:B=H:C=I:D=J
10341 A1=G1:B1=H1:C1=I1:D1=J1
10342 E=K:F=L
10345 IFA=0THEN10650
10350 IFA=1THEN10400
10360 IFB=1THEN10550
10370 IFC=0THEN10580
10380 IFD=1THEN10600
10390 IFB=-1THEN10393
10391 IFC<0THEN10395
10392 PRINTA"[157]("B"[157]([154]"X"[157])+"C"[157])":GOTO10397
10393 IFC<0THEN10396
10394 PRINTA"[157](-[154]"X"+"C"[157])":GOTO10397
10395 PRINTA"[157]("B"[157]([154]"X"[157])"C"[157])":GOTO10397
10396 PRINTA"[157](-[154]"X""C"[157])":GOTO10397
10397 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192]"
10398 PRINT"    "D:GOTO10650
10400 IFB=1THEN10440
10410 IFC=0THEN10470
10420 IFD=1THEN10490
10430 IFB=-1THEN10433
10431 IFC<0THEN10435
10432 PRINT"  "B"[157]([154]"X"[157])+"C:GOTO10437
10433 IFC<0THEN10436
10434 PRINT" -[154]"X"+"C:GOTO10437
10435 PRINT" "B"[157]([154]"X"[157])"C:GOTO10437
10436 PRINT" -[154]"X""C
10437 PRINT" [192][192][192][192][192][192][192][192][192][192][192]"
10438 PRINT"     "D:GOTO10650
10440 IFC=0THEN10500
10450 IFD=1THEN10520
10460 IFC<0THEN10467
10464 PRINT"   [154]"X"+"C"
10465 [153]"   TANTANTANTANTANTANTANTANTAN"
10466 [153]"      "D:[137]10650
10467 [153]"    CONT"X""C:[137]10465
10470 [139]D[178]1[167]10530
10480 [153]"     "B"CMD(CONT"X"CMD)"
10481 [153]"     TANTANTANTANTANTANTANTAN"
10482 [153]"      "D:[137]10650
10490 [139]B[178][171]1[167]10493
10491 [139]C[179]0[167]10495
10492 [153]""B"CMD(CONT"X"CMD)+"C"":[137]10650
10493 [139]C[179]0[167]10496
10494 [153]"   -CONT"X"+"C"":[137]10650
10495 [153]"  "B"CMD(CONT"X"CMD)"C"":[137]10650
10496 [153]"   -CONT"X""C"":[137]10650
10500 [139]D[178]1[167]10540
10510 [153]"       CONT"X""
10511 [153]"      TANTANTANTAN"
10512 [153]"      "D:[137]10650
10520 [139]C[179]0[167]10525
10521 [153]"   CONT"X"+"C"":[137]10650
10525 [153]"     CONT"X""C"":[137]10650
10530 [153]"     "B"CMD(CONT"X"CMD)":[137]10650
10540 [139]A1[178]0[175]E[178]0[167]10543
10541 [153]"       CONT"X""
10542 [137]10650
10550 [139]C[178]0[167]10610
10560 [139]D[178]1[167]10630
10570 [139]C[179]0[167]10575
10571 [153]A"(CONT"X"+"C")"
10572 [153]"TANTANTANTANTANTANTANTANTANTAN"
10573 [153]"   "D:[137]10650
10575 [153]" "A"CMD(CONT"X""C"CMD)":[137]10572
10580 [139]D[178]1[167]10640
10590 [139]B[178][171]1[167]10595
10591 [153]" "A"CMD("B"CMD(CONT"X"CMD))"
10592 [153]" TANTANTANTANTANTANTANTANTANTANTANTAN"
10593 [153]"     "D:[137]10650
10595 [153]"  "A"CMD(-CONT"X")":[137]10592
10600 [139]B[178][171]1[167]10603
10601 [139]C[179]0[167]10605
10602 [153]""A"CMD("B"CMD(CONT"X"CMD)+"C"CMD)":[137]10650
10603 [139]C[179]0[167]10606
10604 [153]""A"CMD(-CONT"X"+"C"CMD)":[137]10650
10605 [153]""A"CMD("B"CMD(CONT"X"CMD)"C"CMD)":[137]10650
10606 [153]" "A"CMD(-CONT"X""C"CMD)":[137]10650
10610 [139]D[178]1[167]10645
10620 [153]"      "A"CMD(CONT"X"CMD)"
10621 [153]"      TANTANTANTANTANTAN"
10622 [153]"       "D:[137]10650
10630 [139]C[179]0[167]10635
10631 [153]""A"CMD(CONT"X"+"C"CMD)":[137]10650
10635 [153]" "A"CMD(CONT"X""C"CMD)":[137]10650
10640 [139]B[178][171]1[167]10644
10641 [153]" "A"CMD("B"CMD(CONT"X"CMD))":[137]10650
10644 [153]" "A"CMD(-CONT"X")":[137]10650
10645 [153]"     "A"CMD(CONT"X"CMD)"
10650 [139]A1[178]0[167]10720
10660 [139]A1[178]1[167]10730
10670 [139]B1[178]1[167]10780
10680 [139]C1[178]0[167]10820
10690 [139]D1[178]1[167]10850
10700 [139]E[178]0[167]10870
10710 [139]B1[178][171]1[167]10713
10711 [139]C1[179]0[167]10715
10712 [153][163]13)"ONONON  "A1"CMD("B1"CMD(CONT"X"CMD)+"C1"CMD)":[137]10717
10713 [139]C1[179]0[167]10716
10714 [153][163]13)"ONONON  "A1"CMD(-CONT"X"+"C1"CMD)":[137]10717
10715 [153][163]13)"ONONON  "A1"CMD("B1"CMD(CONT"X"CMD)"C1"CMD)":[137]10717
10716 [153][163]13)"ONONON  "A1"CMD(-CONT"X""C1"CMD)":[137]10717
10717 [139]E[179]0[167]10719
10718 [153][163]13)"+ TANTANTANTANTANTANTANTANTANTANTANTANTAN +"E"= "F:[153][163]13)"    "D1:[137]12000
10719 [153][163]13)"+ TANTANTANTANTANTANTANTANTANTANTANTAN "E"= "F:[153][163]16)"    "D1:[137]12000
10720 [139]E[178]0[167]10725
10721 [139]E[179]0[167]10726
10722 [153][163]13)"ONON+"E"= "F"":[137]12000
10725 [153][163]13)"ONON= "F"":[137]12000
10726 [153][163]13)"ONON"E"= "F"":[137]12000
10730 [139]B1[178]1[167]10880
10740 [139]C1[178]0[167]10920
10750 [139]D1[178]1[167]10950
10760 [139]E[178]0[167]10970
10770 [139]C1[179]0[167]10772:[139]B1[178][171]1[167]10777
10771 [153][163]13)"ONONON  "B1"CMD(CONT"X"CMD)+"C1:[137]10773
10772 [153][163]13)"ONONON  "B1"CMD(CONT"X"CMD)"C1
10773 [139]E[179]0[167]10775
10774 [153][163]13)"+ TANTANTANTANTANTANTANTANTANTAN +"E"= "F:[137]10776
10775 [153][163]13)"+ TANTANTANTANTANTANTANTANTANTAN "E"= "F
10776 [153][163]13)"     "D1:[137]12000
10777 [153][163]13)"ONONON  -(CONT"X"CMD)+"C1:[137]10773
10780 [139]C1[178]0[167]10980
10790 [139]D1[178]1[167]11010
10800 [139]E[178]0[167]11030
10810 [139]C1[179]0[167]10812
10811 [153][163]13)"ONONON  "A1"CMD(CONT"X"+"C1"CMD)":[137]10813
10812 [153][163]13)"ONONON  "A1"CMD(CONT"X""C1"CMD)"
10813 [139]E[179]0[167]10815
10814 [153][163]13)"+ TANTANTANTANTANTANTANTANTAN +"E"= "F:[137]10816
10815 [153][163]13)"+ TANTANTANTANTANTANTANTAN "E"= "F
10816 [153][163]13)"    "D1:[137]12000
10820 [139]D1[178]1[167]11040
10830 [139]E[178]0[167]11060
10840 [153][163]13)"ONONON  "A1"CMD("B1"CMD(CONT"X"CMD))"
10841 [139]E[179]0[167]10843
10842 [153][163]13)"+ TANTANTANTANTANTANTANTANTAN +"E"= "F:[137]10844
10843 [153][163]13)"+ TANTANTANTANTANTANTANTANTAN "E"= "F
10844 [153][163]13)"     "D1:[137]12000
10850 [139]E[178]0[167]11070
10860 [139]B1[178][171]1[167]10864
10861 [139]C1[179]0[167]10867
10862 [139]E[179]0[167]11980
10863 [153][163]13)"ONON"A1"CMD("B1"CMD(CONT"X"CMD)+"C1"CMD)+"E"= "F"":[137]11990
10864 [139]C1[179]0[167]11981
10865 [139]E[179]0[167]11983
10866 [153][163]13)"ONON"A1"CMD(-CONT"X"+"C1"CMD)+"E"= "F"":[137]11990
10867 [139]E[179]0[167]11984
10868 [153][163]13)"ONON"A1"CMD("B1"CMD(CONT"X"CMD)"C1"CMD)+"E"= "F"":[137]11990
10870 [139]B1[178][171]1[167]10873
10871 [139]C1[179]0[167]10875
10872 [153][163]13)"ONONON  "A1"CMD("B1"CMD(CONT"X"CMD)+"C1"CMD)":[137]10877
10873 [139]C1[179]0[167]10876
10874 [153][163]13)"ONONON  "A1"CMD(-CONT"X"+"C1"CMD)":[137]10877
10875 [153][163]13)"ONONON  "A1"CMD("B1"CMD(CONT"X"CMD)"C1"CMD)":[137]10877
10876 [153][163]13)"ONONON  "A1"CMD(-CONT"X""C1"CMD)":[137]10877
10877 [139]E[179]0[167]11990
10878 [153][163]13)"+ TANTANTANTANTANTANTANTANTANTANTANTAN = "F
10879 [153][163]13)"      "D1:[137]12000
10880 [139]C1[178]0[167]11080
10890 [139]D1[178]1[167]11110
10900 [139]E[178]0[167]11130
10910 [139]C1[179]0[167]10912
10911 [153][163]13)"ONONON  CONT"X"+"C1:[137]10913
10912 [153][163]13)"ONONON  CONT"X;C1""
10913 [139]E[179]0[167]10915
10914 [153][163]13)"+ TANTANTANTANTANTAN +"E"= "F:[137]10916
10915 [153][163]13)"+ TANTANTANTANTANTAN "E"= "F
10916 [153][163]13)"   "D1:[137]12000
10920 [139]D1[178]1[167]11140
10930 [139]E[178]0[167]11160
10940 [153][163]13)"ONONON  "B1"CMD(CONT"X"CMD)"
10941 [139]E[179]0[167]10943
10942 [153][163]13)"+ TANTANTANTANTAN +"E"= "F:[137]10944
10943 [153][163]13)"+ TANTANTANTANTAN "E"= "F
10944 [153][163]13)"   "D1:[137]12000
10950 [139]E[178]0[167]11170
10960 [139]B1[178][171]1[167]10964
10961 [139]C1[179]0[167]10967
10962 [139]E[179]0[167]11970
10963 [153][163]13)"ONON"B1"CMD(CONT"X"CMD)+"C1"CMD+"E"= "F"":[137]11991
10964 [139]C1[179]0[167]11971
10965 [139]E[179]0[167]11973
10966 [153][163]13)"ONON-CONT"X"+"C1"CMD+"E"= "F"Q":[137]12000
10967 [139]E[179]0[167]11974
10968 [153][163]13)"ONON"B1"CMD(CONT"X"CMD)"C1"CMD+"E"= "F"":[137]11991
10970 [139]C1[179]0[167]10972
10971 [153][163]13)"ONONON  "B1"CMD(CONT"X"CMD)+"C1:[137]10973
10972 [153][163]13)"ONONON  "B1"CMDCONT("X"CMD)"C1
10973 [153][163]13)"+ TANTANTANTANTANTANTANTAN = "F
10974 [153][163]13)"     "D1:[137]12000
10980 [139]D1[178]1[167]11180
10990 [139]E[178]0[167]11210
11000 [153][163]13)"ONONON  "A1"CMD(CONT"X"CMD)"
11001 [139]E[179]0[167]11003
11002 [153][163]13)"+ TANTANTANTANTANTAN +"E"= "F:[137]11004
11003 [153][163]13)"+ TANTANTANTANTANTAN "E"= "F
11004 [153][163]13)"    "D1:[137]12000
11010 [139]E[178]0[167]11210
11020 [139]C1[179]0[167]11023
11021 [139]E[179]0[167]11025
11022 [153][163]13)"ONON"A1"CMD(CONT"X"+"C1"CMD)+"E"= "F"":[137]11990
11023 [139]E[179]0[167]11026
11024 [153][163]13)"ONON"A1"CMD(CONT"X""C1"CMD)+"E"= "F"":[137]11990
11025 [153][163]13)"ONON"A1"CMD(CONT"X"+"C1"CMD)"E"= "F"":[137]11990
11026 [153][163]13)"ONON"A1"CMD(CONT"X""C1"CMD)"E"= "F"":[137]11990
11030 [139]C1[179]0[167]11032
11031 [153][163]13)"ONONON  "A1"CMD(CONT"X"+"C1"CMD)":[137]11033
11032 [153][163]13)"ONONON  "A1"CMD(CONT"X""C1"CMD)
11033 PRINTTAB(13)"+ [192][192][192][192][192][192][192][192][192][192][192] = "F
11034 PRINTTAB(13)"      "D1:GOTO12000
11040 IFE=0THEN11220
11050 IFE<0THEN11052
11051 PRINTTAB(13)"[145][145]"A1"[157]("B1"[157]([154]"X"[157]))+"E"= "F"":GOTO11990
11052 PRINTTAB(13)"[145][145]"A1"[157]("B1"[157]([154]"X"[157]))"E"= "F"":GOTO11990
11060 PRINTTAB(13)"[145][145][145]  "A1"[157]("B1"[157]([154]"X"[157]))"
11061 PRINTTAB(13)"+ [192][192][192][192][192][192][192][192][192][192] = "F
11062 PRINTTAB(13)"     "D1:GOTO12000
11070 IFC1<0THEN11072
11071 PRINTTAB(13)"[145][145]"A1"[157]("B1"[157]([154]"X"[157])+"C1"[157]) = "F"":GOTO11990
11072 PRINTTAB(13)"[145][145]"A1"[157]("B1"[157]([154]"X"[157])"C1"[157]) = "F"":GOTO11990
11080 IFD1=1THEN11230
11090 IFE=0THEN11250
11100 PRINTTAB(13)"[145][145][145]  [154]"X""
11101 IFE<0THEN11103
11102 PRINTTAB(13)"+ [192][192] +"E"= "F:GOTO11104
11103 PRINTTAB(13)"+ [192][192] "E"= "F
11104 PRINTTAB(13)" "D1:GOTO12000
11110 IFE=0THEN11270
11120 IFC1<0THEN11123
11121 IFE<0THEN11125
11122 PRINTTAB(13)"[145][145]+[154]"X"+"C1"[157]+"E"= "F"":GOTO12000
11123 IFE<0THEN11126
11124 PRINTTAB(13)"[145][145]+[154]"X""C1"[157]+"E"= "F"":GOTO12000
11125 PRINTTAB(13)"[145][145]+[154]"X"+"C1"[157]"E"= "F"":GOTO12000
11126 PRINTTAB(13)"[145][145]+[154]"X""C1" "E"= "F"":GOTO12000
11130 IFC1<0THEN11132
11131 PRINTTAB(13)"[145][145][145]  [154]"X"+"C1:GOTO11133
11132 PRINTTAB(13)"[145][145][145]  [154]"X""C1
11133 PRINTTAB(13)"+ [192][192][192][192] = "F
11134 PRINTTAB(13)"   "D1:GOTO12000
11140 IFE=0THEN11270
11150 IFE<0THEN11152
11151 PRINTTAB(13)"[145][145]"B1"[157]([154]"X"[157])+"E"= "F"":GOTO11991
11152 PRINTTAB(13)"[145][145]"B1"[157]([154]"X"[157])"E"= "F"":GOTO11991
11160 PRINTTAB(13)"[145][145][145]  "B1"[157]([154]"X"[157])"
11161 PRINTTAB(13)"+ [192][192][192][192][192][192] = "F
11162 PRINTTAB(13)"   "D1:GOTO12000
11170 IFC1<0THEN11172
11171 PRINTTAB(13)"[145][145]"B1"[157]([154]"X"[157])+"C1"= "F"":GOTO11991
11172 PRINTTAB(13)"[145][145]"B1"[157]([154]"X"[157])"C1"= "F"":GOTO11991
11180 IFE=0THEN11280
11190 IFE<0THEN11192
11191 PRINTTAB(13)"[145][145]"A1"[157]([154]"X"[157])+"E"= "F"":GOTO11990
11192 PRINTTAB(13)"[145][145]"A1"[157]([154]"X"[157])"E"= "F"":GOTO11990
11200 PRINTTAB(13)"[145][145][145]  "A1"[157]([154]"X"[157])"
11201 PRINTTAB(13)"+ [192][192][192][192][192][192] = "F
11202 PRINTTAB(13)"    "D1:GOTO12000
11210 IFC<0THEN11212
11211 PRINTTAB(13)"[145][145]"A1"[157]([154]"X"+"C1"[157]) = "F"":GOTO11990
11212 PRINTTAB(13)"[145][145]"A1"[157]([154]"X""C1"[157]) = "F"":GOTO11990
11220 PRINTTAB(13)"[145][145]"A1"[157]("B1"[157][154]"X") = "F"":GOTO11990
11230 IFE=0THEN11290
11240 IFE<0THEN11242
11241 PRINTTAB(13)"[145][145]+[154]"X"+"E"= "F"":GOTO12000
11242 PRINTTAB(13)"[145][145]+[154]"X""E"= "F"":GOTO12000
11250 PRINTTAB(13)"[145][145][145]   [154]"X""
11251 PRINTTAB(13)"+ [192][192][192] = "F
11252 PRINTTAB(13)"  "D1:GOTO12000
11260 IFC<0THEN11262
11261 PRINTTAB(13)"[145][145]+[154]"X"+"C1"= "F"":GOTO12000
11262 PRINTTAB(13)"[145][145]+[154]"X""C1"= "F"":GOTO12000
11270 PRINTTAB(13)"[145][145]"B1"[157]([154]"X"[157]) = "F"":GOTO11991
11280 PRINTTAB(13)"[145][145]"A1"[157]([154]"X"[157]) = "F"":GOTO11990
11290 PRINTTAB(13)"[145][145]+[154]"X" = "F"":GOTO12000
11970 PRINTTAB(13)"[145][145]"B1"[157]([154]"X"[157])+"C1" "E"= "F"":GOTO11991
11971 IFE<0THEN11975
11972 PRINTTAB(13)"[145][145]-[154]"X""C1"[157]+"E"= "F"":GOTO12000
11973 PRINTTAB(13)"[145][145]-[154]"X"+"C1;E"= "F"":GOTO12000
11974 PRINTTAB(13)"[145][145]"B1"[157]([154]"X"[157])"C1;E"= "F"":GOTO11991
11975 PRINTTAB(13)"[145][145]-[154]"X""C1;E"= "F"":GOTO12000
11980 PRINTTAB(13)"[145][145]"A1"[157]("B1"[157]([154]"X"[157])+"C1"[157])"E"= "F"":GOTO11990
11981 IFE<0THEN11985
11982 PRINTTAB(13)"[145][145]"A1"[157](-[154]"X""C1"[157])+"E"= "F"":GOTO11990
11983 PRINTTAB(13)"[145][145]"A1"[157](-[154]"X"+"C1"[157])"E"= "F"":GOTO11990
11984 PRINTTAB(13)"[145][145]"A1"[157]("B1"[157]([154]"X"[157])"C1"[157])"E"= "F"":GOTO11990
11985 PRINTTAB(13)"[145][145]"A1"[157](-[154]"X""C1"[157])"E"= "F"":GOTO11990
11990 IFA1>0THENPRINTTAB(13)"[145][145]+"
11991 IFA1=1ANDB1>=0THENPRINTTAB(13)"[145][145]+"
12000 S$=MID$(TI$,3,2)
12001 T$=RIGHT$(TI$,2)
12004 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][153]"
12005 PRINT"[145]         TIME: ";S$" MIN "T$" SEC           [146]"
12009 PRINT""
12010 OPEN1,0:PRINTTAB(27)"[158]PRESS RETURN[144]";:PRINT:INPUT#1,U:CLOSE1
12040 GOSUB16000
12150 PRINT""
12160 PRINTTAB(6)"1.  REPEAT THE SAME PROBLEM"
12170 PRINTTAB(6)"2.  NEW PROBLEM"
12180 PRINTTAB(6)"3.  INSTRUCTIONS"
12190 PRINTTAB(6)"4.  QUIT"
12200 INPUT"          ENTER NUMBER <1-4>";Q
12210 RESTORE:IFQ=2THEN50
12220 IFQ=4THENPRINT"[147]GOODBYE!!":FORW=1TO1000:NEXT:PRINT"[147]"
12221 IFQ=4THEN63000
12230 IFQ=1THEN14000
12235 W1=W1+1
12240 IFQ=3THEN15000
12250 PRINT"[145][145][145][145]":GOTO12200
12500 END
13000 GOSUB16000
13130 PRINT""
13140 FORW=1TO15
13141 PRINTTAB(36)"[194][157]"
13142 NEXT
13150 PRINT""
13151 PRINTTAB(5)"[213][192][201] [178]   [213][192][201] [176][192][174] [178][192][201]  [178][192][192][201] [213][192][201]
13152 [153][163]5)"PEEK PEEK PEEK   PEEK > PEEK > PEEK PEEK  PEEK  PEEK PEEK PEEK"
13153 [153][163]5)"PEEK PEEK PEEK   PEEK   PEEK   PEEK PEEK  PEEK  PEEK PEEK PEEK"
13154 [153][163]5)"-TAN< PEEK   PEEK   -<  -TAN>RIGHT$ -TAN=(null) -TAN<"
13155 [153][163]5)"PEEK PEEK PEEK   PEEKTAN=TANPEEK   PEEK  PEEK PEEK PEEK  PEEK PEEK"
13156 [153][163]5)"PEEK PEEK PEEK = PEEK PEEK PEEK = PEEK  PEEK PEEK PEEK  PEEK PEEK"
13157 [153][163]5)"> > /TANEXP MID$TAN(null) /TANEXP /TANTAN(null) > >  > >"
13160 [153][163]7)"SYSJOHN ROBINSON   JULY 1984"
13170 [153]" M.A.C.E. SOFTWARE CONTEST  EDUCATIONAL"
13400 [159]1,0:[153][163]13)"ONONONONSYSPRESS RETURNPRINT#";:[153]:[132]1,U:[160]1
13450 [129]W[178]1[164]15
13451 [153][163]36)"PEEKCMD"
13500 [137]14500
14000 A[178]G:B[178]H:C[178]I:D[178]J
14001 A1[178]G1:B1[178]H1:C1[178]I1:D1[178]J1
14002 E[178]K:F[178]L
14050 [153]"LOAD":[151]53281,0:[151]53280,0
14051 [137]338
14500 [141]16000
14650 [153]""
14660 [153][163]5)"THIS PROGRAM PRESENTS UNIQUE"
14670 [153][163]5)"WAYS TO ILLUSTRATE SOME OF THE"
14680 [153][163]5)"PROPERTIES OF EQUALITY LEADING"
14690 [153][163]5)"TO THE SOLUTION OF AN EQUATION."
14700 [153][163]5)"IT MAY BE USED AS PART OF A"
14710 [153][163]5)"TEACHER'S CLASSROOM LESSON"
14720 [153][163]5)"OR AS INDIVIDUAL STUDENT"
14730 [153][163]5)"PRACTICE."
14740 [159]1,0:[153][163]13)"SYSPRESS RETURNPRINT#";:[153]:[132]1,U:[160]1
15000 [141]16000
15150 [153]""
15160 [153][163]16)"COMMANDS"
15170 [153][163]10)"SYSADD"
15180 [153][163]10)"SUBTRACT"
15190 [153][163]10)"SYSMULTIPLY"
15195 [153][163]10)"SYSDIVIDE"
15200 [153][163]10)"SYSDISTRIBUTE"
15210 [153][163]10)"SYSCOMBINE LIKE TERMS"
15220 [153][163]13)"SYSPRESS RETURN"
15240 [161]Q$:[139]Q$[178]""[167]15240
15245 [139]W1[177]0[167]12040
15250 [137]50
16000 [153]"LOADSYS":[151]53281,12:[151]53280,12
16010 [153]"  (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
16020 [129]W[178]1[164]18
16030 [153][163]2)"PEEKCMD"
16040 [130]
16050 [153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
16060 [129]W[178]1[164]15
16070 [153][163]3)"PEEKCMD"
16080 [130]
16090 [153]"SYS  MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
16100 [153]""
16110 [129]W[178]1[164]17
16120 [153][163]37)"PEEKCMD"
16130 [130]
16140 [153][163]3)"ONMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
16150 [153]""
16160 [129]W[178]1[164]15
16170 [153][163]36)"PEEKCMD"
16180 [130]
16190 [142]
63000 [143]   CONNECT TO L.S.
63010 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
63020 [151]631,13:[151]632,13:[151]198,2:        [128]