0 CLR
10 REM COPYRIGHT 1992 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
100 DIMS1$(30),C1$(20),RM(25),RM$(25),U$(35),U(20),M1$(24)
105 P=950:T=6:L1=8:MD=3:GD=1
110 DATA32,155,183,134,251,32,155,183,138,168,166,251,24,76,240,255
120 DATA"SCIENTIFIC",2,"CONVERSION",13,"CALENDER ",24,"INFO",34
130 DATA"CALCULATOR",2,"& REVERSE.",13,"MEMO PAD.",24,"V4.1",34
140 DATA"SINE    ","COS.    ","TAN.    ","ARC-SINE","ARC-COS."
145 DATA"ARC-TAN.","X^2     ","X^Y     ","PERM...N","COMB...N"
150 DATA"1/X     ","X!      ","SQR     ","X^(1/Y) ","M O D E "
155 DATA"LOG.    ","ANTI-LOG","LN.     ","ANTI-LN.","L.C.M.  ","G.C.F.  "
157 DATA"FACTOR  ","MEMORY +","MEMORY -","M.RECAL ","M.CLEAR "
158 DATA"ADD (+) ","SUBTRACT","MULTIPLY","DIVIDE  "
160 DATA"CM.  IN.","KM. MILE","M.  YRD.","M2  YRD2","M2   SFT"
165 DATA"M3   CFT","MRLA SFT","HCTR ACR","LIT  GAL","LIT  PNT"
170 DATA"KG.  LB.","GRM  OZ.","SEER KG.","MTN  LTN","WTH  BTU"
175 DATA"KW.  HP.","DEC  BSN","DEC  DMS","DEC ROMN","[188]C    [188]F"
180 DATA1000,M,1000,M,1000,M,900,CM,500,D,400,CD,100,C,100,C,100,C,90,XC,50,L
182 DATA40,XL,10,X,10,X,10,X,9,IX,5,V,4,IV,1,I,1,I,1,I
190 FORI=0TO15:READB:POKEP+I,B:NEXT
191 POKE53281,0:POKE53280,0:PRINTCHR$(8)"[147]":GOSUB380
192 SYSP,22,20:PRINT" PLEASE WAIT ":GOSUB1700
193 FORI=1TO8:READM$(I),M(I):NEXT
195 FORI=1TO30:READS1$(I):NEXT
197 FORI=1TO20:READC1$(I):NEXT
198 FORI=1TO21:READRM(I),RM$(I):NEXT
200 DATAINCH,MILE,YARD,SQUARE YARD,SQUARE FT.,CUBIC FT.,SQUARE FT.,ACRE
202 DATAGALLON,PINT,POUND,OUNCE,KILOGRAM,LONG TON,B.T.U.,HORSE POWER
204 DATACENTIMETER,KILOMETER,METER,SQUARE METER,SQUARE METER,CUBIC METER,MERLA
206 DATAHECTARE,LITER,LITER,KILOGRAM,GRAM,SEER,METRIC TON,WATT HOUR,KILOWATT
208 DATA2.54,1.60934,.9144,.8361,.0929,.02832,.00444444
210 DATA.40469,4.54609,.56826,.45359,28.35,1.072,1.016,.293,.7457
212 FORI=1TO32:READU$(I):NEXT
214 FORI=1TO16:READU(I):NEXT
216 DATA JANUARY,31,FEBUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31
217 DATA AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31
218 FORI=1TO24:READM1$(I):NEXT
224 R1$="[150]":R2$="":R3$="":R5$="[154]":R6$="[158]":R7$="[156]":R8$=""
226 MD$(1)=" RADIAN ":MD$(2)=" GRADE  ":MD$(3)=" DEGREE "
228 SYSP,22,20:PRINT"             "
230 GETA$:IFA$=""THENGOSUB520
240 IFT=3THENR4$=R1$:GOTO310
250 IFA$=CHR$(13)THEN550
260 IFA$="_"THENRUN
270 IFA$=""THENC1=C1+1
280 IFA$="[157]"THENC1=C1-1
290 IFC1<1THENC1=4
300 IFC1>4THENC1=1
310 GOSUB340
320 R4$=R2$:T=9-T:IFT=6THEN250
330 GOTO230
340 IFC1=4ANDT=3THENR4$=R3$
350 SYSP,2,M(C1):PRINTR4$;M$(C1)
360 SYSP,3,M(C1):PRINTR4$;M$(C1+4)
370 RETURN
380 PRINT"[213][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]";
385 PRINT"[178][178][178][178][178][178][178][178][178][178][178][178][178][178][201][171][219][177][177][177][177][177][177][177][177]";
390 PRINT"[177][177][219][177][177][177][177][177][177][177][177][177][177][219][177][177][177][177][177][177][177][177][177][219][177]";
395 PRINT"[177][177][177][219][179][171][179][150]SCIENTIFIC[221][150]CONVERS";
400 PRINT"ION[221][150]CALENDAR [221]INFO[171][179][171][179][150]CAL";
405 PRINT"CULATOR[221][150]& REVERSE.[221][150]MEMO P";
410 PRINT"AD.[221]V4.1[171][179][171][219][178][178][178][178][178][178][178][178][178][178][219][178][178]";
415 PRINT"[178][178][178][178][178][178][178][178][219][178][178][178][178][178][178][178][178][178][219][178][178][178][178][219][179]";
420 PRINT"[202][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]";
425 PRINT"[177][177][177][177][177][177][177][177][177][177][177][177][177][177][203]"
480 SYSP,21,2:PRINT"[213][192][192][192][192][192][192][192][192][201]"
490 SYSP,22,2:PRINT"[221]        [221]"
500 SYSP,23,2:PRINT"[202][192][192][192][192][192][192][192][192][203]"
510 SYSP,24,2:PRINT"CRSR[146] HI-LIGHT  RETURN[146] SELECT  _[146] RESET";:RETURN
520 TM$=LEFT$(TI$,2)+":"+MID$(TI$,3,2)+":"+RIGHT$(TI$,2)
530 SYSP,22,3:PRINTTM$
540 RETURN
550 ONC1GOSUB570,6000,8000,1700
560 T=6:GOSUB380:GOTO230
570 X2=21:T=5:LR=3:CB=1:CN=0
575 SYSP,4,2:PRINT"[154][176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][174]"
580 SYSP,5,2:PRINT"[221]SIN.    [221]LOG.    [221][159]F1[154][221]"
590 SYSP,6,2:PRINT"[221]COS.    [221]ANTI-LOG[221]  [221]"
600 SYSP,7,2:PRINT"[221]TAN.    [221]LN.     [221]F [221]"
610 SYSP,8,2:PRINT"[221]ARC-SIN.[221]ANTI-LN.[221]O [221]"
620 SYSP,9,2:PRINT"[221]ARC-COS.[221]L.C.M.  [221]R [221]"
630 SYSP,10,2:PRINT"[221]ARC-TAN.[221]G.C.F.  [221]  [221]"
640 SYSP,11,2:PRINT"[221]X^2     [221]FACTOR  [221]M [221]"
650 SYSP,12,2:PRINT"[221]X^Y     [221]MEMORY +[221]A [221]"
660 SYSP,13,2:PRINT"[221]PERM...N[221]MEMORY -[221]I [221]"
670 SYSP,14,2:PRINT"[221]COMB...N[221]M.RECAL [221]N [221]"
672 SYSP,15,2:PRINT"[221]1/X     [221]M.CLEAR [221]  [221]"
674 SYSP,16,2:PRINT"[221]X!      [221]ADD (+) [221]M [221]"
676 SYSP,17,2:PRINT"[221]SQR     [221]SUBTRACT[221]E [221]"
678 SYSP,18,2:PRINT"[221]X^(1/Y) [221]MULTIPLY[221]N [221]"
679 SYSP,19,2:PRINT"[221][158]M O D E [154][221]DIVIDE  [221]U [221]"
680 SYSP,20,2:PRINT"[173][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][189]":PC=0
690 GETA$:IFA$=""THENGOSUB520
700 IFT=2THENR4$=R5$:GOTO770
710 IFA$=CHR$(13)THEN815
715 IFA$="[133]"THENRETURN
720 IFA$="_"THENRUN
730 IFA$=""THENCB=CB+1:GOSUB2050
740 IFA$="[145]"THENCB=CB-1:GOSUB2050
742 IFA$=""ORA$="[157]"THENLR=15-LR:GOSUB2050
750 IFCB<1THENCB=15:LR=15-LR
760 IFCB>15THENCB=1:LR=15-LR
770 GOSUB795
780 R4$=R2$:T=7-T:IFT=5THEN710
790 GOTO690
795 C3=CB:IFLR=12THENC3=CB+15
800 SYSP,CB+4,LR:PRINTR4$;S1$(C3)
810 RETURN
815 X=LR:Y=CB+5
820 ONC3GOSUB 850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500
825 IFC3<14THEN845
830 ONC3-14GOSUB1550,1600,1650,2500,2600,2700,2800,2900,3000,3100,3200,3300,3400
835 IFC3<27THEN845
840 ONC3-27GOSUB3500,3600,3700
845 GOTO575
850 GOSUB2200
860 AN=SIN(IN*(null)/D1)
870 GOTO5000
900 GOSUB2200
910 AN=COS(IN*(null)/D1)
920 GOTO5000
950 GOSUB2200
960 AN=TAN(IN*(null)/D1)
970 GOTO5000
1000 GOSUB2200
1020 AN=ATN(IN/SQR(-IN*IN+1))*(D1/(null))
1045 GOTO5000
1050 GOSUB2200
1060 IFMD=1THEND1=(null)
1070 AN=(-ATN(IN/SQR(-IN*IN+1))+(null)/2)*(D1/(null))
1095 GOTO5000
1100 GOSUB2200
1120 AN=ATN(IN)*(D1/(null))
1145 GOTO5000
1150 GOSUB2200:AN=IN^2
1195 GOTO5000
1200 GOSUB1860:PRINT"VALUE OF X= ";:GOSUB1910:I1=VAL(S$)
1210 X=X+2:Y=Y+2:GOSUB1860:PRINT"VALUE OF Y= ";:GOSUB1910:I2=VAL(S$)
1220 AN=I1^I2
1245 GOTO5000
1250 GOSUB1860:PRINT"[159]VALUE OF N= ";:GOSUB1910:I1=VAL(S$)
1252 X=X+2:Y=Y+2:GOSUB1860:PRINT"[159]VALUE OF R= ";:GOSUB1910:I2=VAL(S$)
1260 PC=1:IN=I1:GOSUB1410:NF=AN:IN=I2:GOSUB1410:RF=AN
1270 IN=I1-I2:GOSUB1410:FF=AN
1280 NP=NF/FF:NC=NP/RF
1290 AN=NP:IFCB=10THENAN=NC
1295 GOTO5000
1300 GOTO1250
1350 GOSUB2200
1360 AN=1/IN
1395 GOTO5000
1400 GOSUB2200
1410 AN=1:FORI=1TOIN:AN=AN*I:NEXT
1415 IFPC=1THENRETURN
1445 GOTO5000
1450 GOSUB2200
1460 AN=SQR(IN)
1495 GOTO5000
1500 X=10:Y=18:GOSUB1860:PRINT"[129]VALUE OF X= ";:GOSUB1910:I1=VAL(S$)
1510 X=X+2:Y=Y+2:GOSUB1860:PRINT"[129]VALUE OF Y= ";:GOSUB1910:I2=VAL(S$)
1520 AN=I1^(1/I2)
1545 GOTO5000
1550 GOSUB4000
1551 GETA$:IFA$=""THENGOSUB520
1552 IFT1=2THENR4$=R8$:GOTO1566
1554 IFA$=CHR$(13)THENRETURN
1556 IFA$=""THENMD=MD+1:GOSUB2050
1558 IFA$="[145]"THENMD=MD-1:GOSUB2050
1560 IFMD<1THENMD=3
1562 IFMD>3THENMD=1
1566 GOSUB1572
1568 R4$=R1$:T1=7-T1:IFT1=5THEN1554
1570 GOTO1551
1572 SYSP,MD+18,14:PRINTR4$;MD$(MD)
1574 RETURN
1600 GOSUB2200
1610 AN=LOG(IN)/LOG(10)
1645 GOTO5000
1650 GOSUB2200
1660 AN=10^IN
1695 GOTO5000
1700 GOSUB2040:X=5:Y=8:SYSP,Y,X:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1710 SYSP,Y+1,X:PRINT"[221][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][221]"
1720 SYSP,Y+2,X:PRINT"[221][180][158] CALCULATING MACHINE V4.1 [170][221]"
1730 SYSP,Y+3,X:PRINT"[221][180][158]    PROGRAM[160]CREATED[160]BY:   [170][221]"
1740 SYSP,Y+4,X:PRINT"[221][180][159] [188] [146][187]    [172] [146][187][172][162] [146][187][172] [187][146] [187] [146] [172][172][188][146] [170][221]"
1750 SYSP,Y+5,X:PRINT"[221][180][159] [161][161][146][161]    [188][172][146] [172][172] [146][161][190] [146][187] [161] [146]  [146][161] [146][161][170][221]"
1760 SYSP,Y+6,X:PRINT"[221][180][159] [161][161][146][161][172][162]  [146][161][187][146][187] [146][187] [146][161][161] [146]  [161] [146] [187][146][161] [146][190][170][221]"
1770 SYSP,Y+7,X:PRINT"[221][180][159][162][146][188][188][190][188][162][146] [162][146][190][188][190][188][162][146][188][190][188][162][146]  [162][146][190]  [190][188][146][187][170][221]"
1780 SYSP,Y+8,X:PRINT"[221][180][154]   A - 183 BLOCK 'A'      [170][221]"
1790 SYSP,Y+9,X:PRINT"[221][180][154] NORTH NAZIMABAD, KARACHI [170][221]"
1800 SYSP,Y+10,X:PRINT"[221][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][221]"
1810 SYSP,Y+11,X:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1818 RETURN
1820 GOSUB1700:X=12:Y=21:GOSUB1860:PRINT"ENTER 6 DIGITS ";:L1=6:GOSUB1910
1830 IFLEN(S$)<>6THEN1850
1840 TI$=S$:L1=8
1850 RETURN
1860 GOSUB2050:SYSP,Y,X:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1870 SYSP,Y+1,X:PRINT"[221]                         [221]"
1880 SYSP,Y+2,X:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1890 SYSP,Y+1,X+1
1900 RETURN
1910 POKE204,0:Z1=0:S$="":PRINT" [157]";:POKE198,0
1920 GETZ1$:IFZ1$=""THEN1920
1930 IFZ1$="_"THENGOSUB2030:RUN
1935 IFZ1$="[136]"THENF7=1:Z1$=CHR$(13)
1937 IFZ1$="[134]"THENGOSUB2032
1940 IFL1$=""THEN1970
1950 L1=0:FORJ=1TOLEN(L1$):IFZ1$=MID$(L1$,J,1)THENL1=1
1960 NEXT:ONL1+1GOTO1920,2020
1970 IFZ1$=CHR$(13)THENPRINT" ":POKE204,1:POKE207,0:RETURN
1980 IFZ1$=CHR$(20)ANDZ1<>0THENZ1=Z1-1:S$=LEFT$(S$,Z1):PRINT" [157][157] [157]";:GOTO1920
1990 A1=ASC(Z1$):IFA1<32OR(A1<160ANDA1>127)ORL1=Z1THEN1920
2020 PRINTZ1$;:POKE212,0:PRINT" [157]";:Z1=Z1+1:S$=S$+Z1$:IFL1$=""THEN1920
2030 PRINT" ":POKE204,1:POKE207,0:L1$="":RETURN
2032 PRINTAN$:Z1$=CHR$(13):RETURN
2033 REM  Z1$=AN$:Z1=LEN(AN$)-1:RETURN
2040 S1=10:S2=45:GOTO2060
2050 S1=8:S2=255
2060 FORL=54272TO54295:POKEL,0:NEXT
2070 POKE54277,S1:POKE54278,255:POKE54276,23
2080 POKE54296,15:POKE54287,S2:POKE54278,15
2090 RETURN
2100 SYSP,11,5:PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
2110 SYSP,12,5:PRINT"[221][155] FOR ANY TYPE OF PROGRAMMING[221]"
2120 SYSP,13,5:PRINT"[221][155]FOR URDU WORD PROCESSOR ETC.[221]"
2130 SYSP,14,5:PRINT"[221][155]FOR NEW VERSION CALL: 521555[221]"
2140 SYSP,15,5:PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
2145 J=0:FORI=1589TO1618:J=J+PEEK(I):NEXT
2146 IFJ<>4734THEN2146
2150 GOTO5095
2200 GOSUB1860:PRINT"[158]ENTER VALUE= ";:GOSUB1910:IN=VAL(S$):D1=(null)
2205 IFMD=2THEND1=200
2210 IFMD=3THEND1=180
2220 RETURN
2500 GOSUB2200
2510 AN=LOG(IN)
2595 GOTO5000
2600 GOSUB2200
2610 AN=EXP(IN)
2695 GOTO5000
2700 GR=0
2710 GOSUB1860:PRINT"[156]1ST VALUE ? ";:GOSUB1910:A=VAL(S$)
2715 X=X+1:Y=Y+2:GOSUB1860:PRINT"[156]2ND VALUE ? ";:GOSUB1910:B=VAL(S$)
2717 Y=Y+4:GOSUB1860:PRINT"[158] WAIT..!  I AM THINKING. "
2720 IFA*B=0THEN5000
2725 C=A:D=B:IFC>=DTHEN2735
2730 E=D:D=C:C=E
2735 E=C
2740 IFC<>DTHEN2750
2745 AN=E:GOTO5000
2750 E=C*D:IFGR=1THENE=1
2755 Q=2:GOSUB2765:Q=3
2757 GOSUB2765:GOSUB520:IFQ>INT(SQR(D*Q)/2)*2+1THEN2745
2760 Q=Q+2:GOTO2757
2765 AX=C:GOSUB2790:IFR<>0THENRETURN
2770 AX=D:GOSUB2790:IFR<>0THENRETURN
2772 IFGR=1THENE=E*Q:GOTO2780
2775 E=E/Q
2780 C=C/Q:D=D/Q:GOTO2765
2790 R=AX-INT(AX/Q)*Q:RETURN
2800 GR=1:GOTO2710
2900 GOSUB1860:PRINT"[155]NOMINATOR ? ";:GOSUB1910:A=VAL(S$)
2915 X=X+1:Y=Y+2:GOSUB1860:PRINT"[155]DENOMINATOR ? ";:GOSUB1910:B=VAL(S$)
2920 IFA=INT(A)ANDB=INT(B)ANDB<>0THEN2930
2925 AN=0:GOTO5000
2930 IFA=0THEN2925
2935 J=A:K=B:IFA<0THENJ=-A
2940 IFK=0THEN2960
2945 IFJ=0THENJ=K:GOTO2960
2950 IFJ>KTHENJ=J-INT(J/K)*K:GOTO2940
2955 K=K-INT(K/J)*J:GOTO2940
2960 C=A/J:D=B/J
2990 AN$=STR$(C)+" /"+STR$(D)
2995 GOTO5005
3000 GOSUB2200
3010 MP=MP+IN:AN=IN
3020 GOTO5000
3100 GOSUB2200
3110 MP=MP-IN:AN=IN
3120 GOTO5000
3200 AN=MP
3210 GOTO5000
3300 MP=0:AN=0
3310 GOTO5000
3400 MN=0
3410 F7=0:KK=1:AN=0
3412 GOSUB1860:SYSP,Y+2,X+3:PRINT"[178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178]"
3415 SYSP,Y+3,X+3:PRINT"[221]PRESS F7 FOR TOTAL[221]"
3420 SYSP,Y+4,X+3:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":SYSP,Y+1,X+1
3425 PRINT"[150]VALUE"KK"? ";:GOSUB1910:IN=VAL(S$)
3430 IFMN=1THEN3440
3435 AN=AN+IN:GOTO3445
3440 AN=AN-IN
3445 IFF7=1THENF7=0:GOTO5000
3450 KK=KK+1:GOTO3412
3500 MN=1:GOTO3410
3600 DV=0
3610 X=10:Y=13:GOSUB1860:PRINT"[159]1ST VALUE ? ";:GOSUB1910:A=VAL(S$)
3620 X=X+1:Y=Y+2:GOSUB1860:PRINT"[159]2ND VALUE ? ";:GOSUB1910:B=VAL(S$)
3630 AN=A*B
3640 IFDV=1THENAN=A/B
3650 GOTO5000
3700 DV=1:GOTO3610
4000 SYSP,16,13:PRINT"[176][192][192][192][192][192][192][192][192][174]"
4010 SYSP,17,13:PRINT"[221] M O D E[221]"
4015 SYSP,18,13:PRINT"[171][192][192][192][192][192][192][192][192][179]"
4020 SYSP,21,13:PRINT"[221] DEGREE [221]"
4030 SYSP,19,13:PRINT"[221] RADIAN [221]"
4040 SYSP,20,13:PRINT"[221] GRAD   [221]"
4050 SYSP,22,13:PRINT"[173][192][192][192][192][192][192][192][192][189]":T1=5:RETURN
5000 AN$=STR$(AN)
5005 GOSUB2040:SYSP,10,X2:PRINT"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
5010 SYSP,11,X2:PRINT"[221][153]   A N S W E R  [155][221]"
5020 SYSP,12,X2:PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
5030 SYSP,13,X2:PRINT"[221]                [221]"
5035 SYSP,14,X2:PRINT"[221]                [221]"
5040 SYSP,15,X2:PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
5045 SYSP,16,X2:PRINT"[221] PRESS ANY KEY. [221]"
5050 SYSP,17,X2:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
5055 IFCN=1THEN5100
5075 SYSP,13,23:PRINT""S1$(C3)
5080 SYSP,14,23:PRINT""AN$
5095 GETA$:IFA$=""THENGOSUB520:GOTO5095
5097 RETURN
5100 SYSP,13,2:PRINT""AN$:SYSP,14,2:PRINT"[155]"U$:GOTO5095
6000 T=5:LR=14:CB=4:F7=0:CN=1:X2=0
6035 SYSP,5,13:PRINT"[158][176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][174]"
6040 SYSP,6,13:PRINT"[221][155]FROM[158]  [155]TO[158][221][155]FROM[158]  [155]TO[158][221]"
6045 SYSP,7,13:PRINT"[171][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][179]"
6050 SYSP,8,13:PRINT"[221]CM.  IN.[221]KG.  LB.[221]"
6055 SYSP,9,13:PRINT"[221]KM. MILE[221]GRM  OZ.[221]"
6060 SYSP,10,13:PRINT"[221]MT. YRD.[221]SEER KG.[221]"
6065 SYSP,11,13:PRINT"[221]M2  YRD2[221]MTN  LTN[221]"
6070 SYSP,12,13:PRINT"[221]M2   SFT[221]WTH  BTU[221]"
6075 SYSP,13,13:PRINT"[221]M3   CFT[221]KW.  HP.[221]"
6080 SYSP,14,13:PRINT"[221]MRLA SFT[221]DEC  BSN[221]"
6085 SYSP,15,13:PRINT"[221]HCTR ACR[221]DEC  DMS[221]"
6090 SYSP,16,13:PRINT"[221]LIT  GAL[221]DEC ROMN[221]"
6095 SYSP,17,13:PRINT"[221]LIT  PNT[221][188]C    [188]F[221]"
6100 SYSP,18,13:PRINT"[171][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][179]"
6110 SYSP,19,13:PRINT"[221][150] F7 FOR REVERSE  [158][221]"
6120 SYSP,20,13:PRINT"[221][150]    CONVERSIONS. [158][221]"
6130 SYSP,21,13:PRINT"[221] F1 FOR MAIN MENU[158][221]"
6140 SYSP,22,13:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
6150 GETA$:IFA$=""THENGOSUB520
6160 IFT=2THENR4$=R6$:GOTO6250
6170 IFA$=CHR$(13)THEN6300
6175 IFA$="[136]"THENF7=1:GOTO6300
6180 IFA$="[133]"THENRETURN
6190 IFA$="_"THENRUN
6200 IFA$=""THENCB=CB+1:GOSUB2050
6210 IFA$="[145]"THENCB=CB-1:GOSUB2050
6220 IFA$=""ORA$="[157]"THENLR=37-LR:GOSUB2050
6230 IFCB<4THENCB=13:LR=37-LR
6240 IFCB>13THENCB=4:LR=37-LR
6250 GOSUB6280
6260 R4$=R7$:T=7-T:IFT=5THEN6170
6270 GOTO6150
6280 C3=CB-3::IFLR=23THENC3=CB+7
6290 SYSP,CB+4,LR:PRINTR4$;C1$(C3)
6295 RETURN
6300 X=LR-10:Y=CB+5
6305 IFC3<17THENGOSUB6350:GOTO6035
6310 ONC3-16GOSUB7300,7400,7500,7600
6315 GOTO6035
6350 GOSUB7900:AN=IN/U(C3):U$=U$(C3)
6355 IFF7=1THENAN=IN*U(C3):U$=U$(C3+16):F7=0
6360 GOTO5000
7300 GOSUB1860:PRINT"ENTER BASE ";:L1=1:GOSUB1910:NB=VAL(S$):L1=8:MB=0:DB=0
7305 GOSUB7900:CX=VAL(S$)
7310 AB=NB:FB=NB:BB=10:IFF7=1THENBB=NB:AB=10:FB=0:F7=0
7315 Y=Y+4:GOSUB1860:PRINT" WAIT..!  I AM THINKING. "
7320 EB=INT(CX/AB):IFEB=0THEN7350
7330 DB=DB+(CX-EB*AB)*BB^MB
7340 CX=EB:MB=MB+1:GOTO7320
7350 DB=DB+CX*BB^MB
7360 IFFB=0THEN7380
7370 U$="BASE 10 TO"+STR$(AB):AN=DB:GOTO5000
7380 U$="BASE"+STR$(BB)+" TO 10":AN=DB:GOTO5000
7400 IFF7=1THENF7=0:GOTO7430
7410 GOSUB7900:A1=INT(IN):A2=(IN-A1)*60:A3=INT(A2):A4=(A2-A3)*60
7420 AN$=STR$(A1)+"[190]"+STR$(A3)+"'"+STR$(A4)+CHR$(34):U$="DEC. TO D.M.S."
7425 GOTO5005
7430 GOSUB1860:PRINT"[154]ENTER DEGREE ";:GOSUB1910:N1=VAL(S$):Y=Y+2
7440 GOSUB1860:PRINT"[154]ENTER MINUTE ";:GOSUB1910:N2=VAL(S$):Y=Y+2
7450 GOSUB1860:PRINT"[154]ENTER SECOND ";:GOSUB1910:N3=VAL(S$)
7460 AN=N1+(N2/60)+(N3/3600):U$="D.M.S. TO DEC."
7470 GOTO5000
7500 GOSUB7900:AN$=""
7510 FORI=1TO21:IFIN>=RM(I)THENIN=IN-RM(I):AN$=AN$+RM$(I)
7520 IFIN>0THENNEXT
7530 U$="DEC TO ROMAN":GOTO5005
7600 GOSUB7900:AN=9/5*IN+32:U$="FAHRENHEIT"
7610 IFF7=1THENAN=5/9*(IN-32):U$="CENTIGRADE":F7=0
7620 GOTO5000
7900 GOSUB1860:PRINT"[155]ENTER NO. ";:GOSUB1910:IN=VAL(S$):RETURN
8000 SYSP,4,24:PRINT"[156][176][192][192][192][192][192][192][192][192][192][192][192][174]"
8010 SYSP,5,24:PRINT"[221]CALENDAR   [221]"
8020 SYSP,6,24:PRINT"[221]MEMO PAD   [221]"
8030 SYSP,7,24:PRINT"[221]T A B L E S[221]"
8040 SYSP,8,24:PRINT"[221]CHANGE TIME[221]"
8045 SYSP,9,24:PRINT"[221]MESSAGE (R)[221]"
8050 SYSP,10,24:PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][179]"
8060 SYSP,11,24:PRINT"[221][155]F1[156]MAIN MENU[221]"
8090 SYSP,12,24:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][189]"
8100 G$(1)="CALENDER   ":G$(2)="MEMO PAD   ":G$(3)="T A B L E S":T1=5
8110 G$(4)="CHANGE TIME":G$(5)="MESSAGE (R)"
8300 GETA$:IFA$=""THENGOSUB520
8310 IFT1=2THENR4$=R7$:GOTO8380
8320 IFA$=CHR$(13)THEN8500
8325 IFA$="[133]"THENRETURN
8340 IFA$=""THENGD=GD+1:GOSUB2050
8350 IFA$="[145]"THENGD=GD-1:GOSUB2050
8360 IFGD<1THENGD=5
8370 IFGD>5THENGD=1
8380 GOSUB8410
8390 R4$=R2$:T1=7-T1:IFT1=5THEN8320
8400 GOTO8300
8410 SYSP,GD+4,25:PRINTR4$;G$(GD)
8420 RETURN
8500 X=12:Y=GD+5:ONGDGOSUB8600,9300,9100,1820,2100
8510 GOTO8000
8600 GOSUB1860:PRINT"[158]FOUR DIGETS OF YEAR ";:L1=4:GOSUB1910:G=VAL(S$):X=X+1
8610 Y=Y+2:GOSUB1860:PRINT"[154]MONTH (1-12) ";:L1=2:GOSUB1910:M=VAL(S$):L1=8
8620 Y=Y+4:GOSUB1860:PRINT"[155] WAIT..!  I AM THINKING. ":S1=0:S=0
8630 IFG<1900THEN8710
8640 D=(G-1900)*365
8650 FORQ=1901TOG-1
8660 IFQ/4=INT(Q/4)THEN D=D+1
8670 NEXT
8680 D=D+2
8690 GOTO8772
8710 D=G*365
8720 FOR Q=1TOG-1
8730 IFQ/400=INT(Q/400)THEN8750
8740 IFQ/100=INT(Q/100)THEN8760
8750 IFQ/4=INT(Q/4)THEND=D+1
8760 NEXT
8770 D=D+1
8772 SYSP,8,0:PRINT"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
8774 SYSP,9,0:PRINT"[221]           C A L E N D A R[159]            [221]"
8776 SYSP,10,0:PRINT"[221]                                      [221]"
8778 SYSP,11,0:PRINT"[221]                                      [221]"
8780 SYSP,12,0:PRINT"[221]SUN[159]   MON   TUE   WED   THU   FRI  SAT[221]"
8781 SYSP,13,0:PRINT"[221]                                      [221]"
8782 SYSP,14,0:PRINT"[221]                                      [221]"
8783 SYSP,15,0:PRINT"[221]                                      [221]"
8784 SYSP,16,0:PRINT"[221]                                      [221]"
8785 SYSP,17,0:PRINT"[221]                                      [221]"
8786 SYSP,18,0:PRINT"[221]                                      [221]"
8787 SYSP,19,0:PRINT"[221]         [152]   PRESS ANY KEY   [159]          [221]"
8788 SYSP,20,0:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
8810 SYSP,10,1:PRINT"[152]"M1$(2*M-1),,,"[159]    [152]"G"[159]"
8830 IFG/400=INT(G/400)THEN8850
8840 IFG/100=INT(G/100) THEN8860
8850 IFG/4=INT(G/4)THENM1$(4)="29"
8860 FORJ=2TO2*M-2STEP2:S1=S1+VAL(M1$(J)):NEXT
8870 IFM=1THENS1=0
8880 S=S1+D-7*INT((S1+D)/7)
8890 V=VAL(M1$(2*M))
8900 S=S+7:IFS>7THENS=S-7
8910 TT=1+6*(S-1)
8920 YC=13:XC=TT-1:SYSP,YC,XC
8930 IFTT=37THEN8950
8940 FORD=1TOV:GOTO8960
8950 PRINT""1:YC=YC+1:XC=0:FORD=2TOV
8960 SYSP,YC,XC:PRINT""D;:XC=XC+6
8970 IFXC>38THENYC=YC+1:XC=0
8990 NEXT:FORI=13TO18:SYSP,I,0:PRINT"[221]":NEXT:GOTO5095
9100 GOSUB1860:PRINT"[152]ENTER TABLE OF ";:L1=2:GOSUB1910:TB=VAL(S$):L1=8:CT=0
9110 SYSP,10,20:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9120 SYSP,11,20:PRINT"[221]              [221]"
9130 SYSP,12,20:PRINT"[221]              [221]"
9140 SYSP,13,20:PRINT"[221]              [221]"
9150 SYSP,14,20:PRINT"[221]              [221]"
9160 SYSP,15,20:PRINT"[221]              [221]"
9170 SYSP,16,20:PRINT"[221]              [221]"
9180 SYSP,17,20:PRINT"[221]              [221]"
9190 SYSP,18,20:PRINT"[221]              [221]"
9200 SYSP,19,20:PRINT"[221]              [221]"
9210 SYSP,20,20:PRINT"[221]              [221]"
9220 SYSP,21,20:PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
9230 SYSP,22,20:PRINT"[221][155]PRESS ANY KEY.[221]"
9240 SYSP,23,20:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
9250 CT=CT+1:BT=TB*CT
9260 SYSP,10+CT,21:PRINT""TB"*"CT"="BT
9270 IFCT>9THEN5095
9280 GOTO9250
9300 SYSP,7,12:PRINT"[129][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9310 SYSP,8,12:PRINT"[221]                   [221]"
9320 SYSP,9,12:PRINT"[221]                   [221]"
9330 SYSP,10,12:PRINT"[221]                   [221]"
9340 SYSP,11,12:PRINT"[221]                   [221]"
9350 SYSP,12,12:PRINT"[221]                   [221]"
9360 SYSP,13,12:PRINT"[221]                   [221]"
9370 SYSP,14,12:PRINT"[221]                   [221]"
9372 SYSP,15,12:PRINT"[221]                   [221]"
9374 SYSP,16,12:PRINT"[221]                   [221]"
9376 SYSP,17,12:PRINT"[221]                   [221]"
9378 SYSP,18,12:PRINT"[221]                   [221]"
9380 SYSP,19,12:PRINT"[221]                   [221]"
9382 SYSP,20,12:PRINT"[221]                   [221]"
9384 SYSP,21,12:PRINT"[171][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][179]"
9386 SYSP,22,12:PRINT"[129][221][155]F3[129] ANSWER[221][155]F7[129] RETURN[221]"
9388 SYSP,23,12:PRINT"[173][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189]":IFMY=1THENMY=0:RETURN
9390 K=1:SA=49152:SC=1024:IFPEEK(SA+1)<128THEN9398
9392 GOSUB2040:MM$="...JUST A MOMENT...":GOSUB9680
9396 FORI=1TO13:FORJ=1317+(I*40)TOJ+18:POKEJ,PEEK(SA):SA=SA+1:NEXTJ,I
9397 MY=1:GOSUB9386
9398 CR=99:YM=8:XM=13
9400 SYSP,YM,XM:GOSUB9600:POKEZM,CR:GETA$:FORI=1TO75:NEXT:POKEZM,MZ
9403 IFA$=""THEN9400
9404 IFA$=CHR$(148)THEN9400
9405 IFA$=CHR$(20)THENXM=XM-1:GOTO9425
9406 IFA$=""THEN9398
9407 IFA$="[147]"THEN9630
9410 IFA$="[136]"THEN9650
9412 IFA$="[134]"THENK1=1:FORI=1TOLEN(AN$):A$=MID$(AN$,I,1)
9420 PRINT""A$;:XM=XM+1
9425 IFA$=CHR$(13)THENXM=13:YM=YM+1
9430 IFA$="_"THENRUN
9460 IFA$="[157]"THENXM=XM-2
9470 IFA$=""THENYM=YM+1:XM=XM-1
9480 IFA$="[145]"THENYM=YM-1:XM=XM-1
9505 IFXM>31THENXM=13:YM=YM+1
9510 IFXM<13THENXM=31:YM=YM-1
9520 IFYM<8THENYM=20
9530 IFYM>20THENYM=8
9552 IFXM<13ANDYM=8THENXM=30:YM=20
9554 IFXM>31ANDYM>20THENXM=13:YM=8
9556 IFK1=1THENSYSP,YM,XM:NEXT:K1=0
9595 GOTO9400
9600 ZM=1024+XM+40*YM:MZ=PEEK(ZM):RETURN
9630 MM$="ERASE MEMOPAD (Y/N)":MY=1:GOSUB9680:GOSUB5095
9633 IFA$="Y"THENGOSUB9300
9635 MY=1:GOSUB9386:GOTO9400
9650 SA=49152:GOSUB2040:MM$="...JUST A MOMENT...":GOSUB9680
9660 FORI=1TO13:FORJ=1317+(I*40)TOJ+18:POKESA,PEEK(J):SA=SA+1:NEXTJ,I:RETURN
9680 SYSP,22,13:PRINT""MM$:RETURN