5 PRINTCHR$(8)+CHR$(142)
10 OP$="+-*/^S=:_CAX[133][134][135][136]":NP=12:C$="[154]":D$=""
20 POKE53280,3:POKE53281,1:GOSUB8000:GOSUB9000
40 C=0:FORX=49152TO49262:READN:POKEX,N:NEXT
50 C=0:FORX=50000TO50090:READN:POKEX,N:NEXT
60 POKE50012,ASC(C$):POKE50060,ASC(C$):POKE50044,ASC(D$):SYS49152:GOTO999
200 POKE783,0:POKE781,R:POKE782,C:SYS65520:RETURN
999 FOR P=1TO4:F$(P)="0":GOSUB4900:NEXT
1000 S$="0":J=0:XT=0:OP=-1:XP=0:V1=0
1020 FD=1
1030 GOSUB4000
1040 POKE781,J:POKE782,NP:SYS50000:IFX$<>"C"ANDX$<>"A"THEN1100
1090 IF PXTHENPRINT#3:PRINT#3,"[160]***************":PRINT#3:PRINT#3:PRINT#3
1092 IF X$="A" THEN 999
1095 GOTO 1000
1100 IFX$=":"THENS$=STR$(-1*VAL(S$)):GOTO1030
1105 IFX$="S"THENXT=1:OP=0:GOTO1020
1120 IF(OP>0ANDOP<6)AND(XT>0)THENXX=OP:XT=2:OP=0:GOTO1020
1140 IFX$="_"THENX$="":OP=0:GOTO1030
1160 IFX$<"[133]"ORX$>"[136]"THEN1220
1180 P=ASC(X$)-132:IF XT=1 THEN F$(P)=S$:GOSUB4900:XT=0:OP=-1:GOTO1260
1200 IF XT<>2 THEN 1220
1210 A=VAL(F$(P)):POKE251,0:B=VAL(S$):IFPEEK(251)THEN2000
1212 X=XX:GOSUB3000:F$(P)=STR$(A):XT=0:GOSUB4900
1215 OP=-1:GOTO1260
1220 IFX$="X"THENCLOSE3:R=22:C=0:GOSUB200:SYS (8*4096)+4
1240 XT=0:IFFDTHEN1290
1260 IF XP THEN 1270
1265 POKE251,0:V1=VAL(S$):IFPEEK(251)THEN2000
1266 IF(OP>0ANDOP<6)THENFD=1:XP=OP:IFPXTHENPL=0:PE=0:GOSUB6000
1267 GOTO1030
1270 A=V1:X=XP:POKE251,0:B=VAL(S$):IFPEEK(251)THEN2000
1275 GOSUB3000:V1=A:IFPX=0THEN1285
1280 PO=1:PL=0:PE=0:GOSUB6000:PL=1:PE=0:PO=0:IF OP=7 THEN PL=0:PE=1
1285 S$=STR$(A):XP=0:IF PX THEN GOSUB 6000
1290 IF(OP>0ANDOP<6)THENXP=OP:GOTO1020
1300 OP=0:GOTO1020
2000 S$="OVERFLOW!":GOTO2020
2010 S$="DIVISION BY 0!"
2020 XT=0:OP=-1:XP=0:V1=0:GOTO1020
3000 ONXGOTO3020,3030,3040,3050,3060
3020 A=A+B:RETURN
3030 A=A-B:RETURN
3040 A=A*B:RETURN
3050 A=A/B:RETURN
3060 IF (A>1.98) AND (B>126) THEN 2000
3065 A=A^B:RETURN
4000 DF=0:EF=0:L=LEN(S$):NF=0:GOTO4365
4020 GETX$:IFX$=""THEN4020
4040 IF((X$>="0"ANDX$<="9")OR(X$="."ANDDF=0))ANDL<14THEN4320
4060 IFX$="-"ANDFDANDOP<>0THENGOTO4320
4080 IF X$="-"AND EF AND NF=0 THEN NF=1:GOTO4320
4100 IF X$="E" AND FD=0 AND EF=0 AND S$<>"-" THEN EF=1:DF=1:GOTO 4340
4120 X=ASC(X$):IFX>132ANDX<137ANDXT=0THENS$=F$(X-132):GOTO4370
4140 IF X$="P"THENGOSUB9500:GOTO4020
4160 IFX$<>CHR$(20)THEN4260
4170 IF MID$(S$,LEN(S$))="."THENDF=0
4180 X$=MID$(S$,1,1):IFL=1OR(L=2AND(X$="-"ORX$="."))THENS$="0":L=1:DF=0:GOTO4360
4200 IF NF AND MID$(S$,L,1)="-"THENNF=0
4220 IF EF AND MID$(S$,L,1)="E"THENEF=0
4240 L=L-1:S$=LEFT$(S$,L):GOTO4360
4260 F=0:FORJ=1TOLEN(OP$):IFX$<>MID$(OP$,J,1)THEN4280
4265 IF OP>0 AND J<6 AND FD THEN 4020
4270 OP=J:RETURN
4280 NEXT:GOTO4020
4320 DF=(X$=".")ORDF:IFS$="0"ORFDTHENS$=X$:L=LEN(S$):FD=0:GOTO4360
4340 S$=S$+X$:L=LEN(S$):FD=0
4360 IF XP=0 THEN POKE781,0:POKE782,12:SYS50000
4365 P=0:GOSUB4900:GOTO4020
4370 EF=0:NF=0:DF=0:FORK=1TOLEN(S$):X$=MID$(S$,K,1):IFX$="-"THENDF=1:GOTO4400
4380 IF X$="E"THENEF=1:DF=1:GOTO4400
4390 IF X$="."THENDF=1:GOTO4400
4400 NEXT:L=LEN(S$):FD=0:GOTO4365
4900 T$=S$:IFPTHENT$=F$(P)
4905 R=RX(P):C=CX(P):GOSUB200:PRINTD$MID$("               ",1,15-LEN(T$))T$;
4910 RETURN
6000 T$=S$:IF PO THEN T$=MID$(OP$,XP,1)+" "+T$
6010 IF PL THEN PRINT#3," ---------------"
6020 IF PE THEN PRINT#3," ==============="
6030 PRINT#3,MID$("                ",1,16-LEN(T$))T$:RETURN
8000 GOSUB 20000
8005 GET A$:IF A$<>"Y" AND A$<>"N" AND A$<>"[140]" THEN 8005
8007 IF A$="[140]" THEN SYS (8*4096)+4
8008 IF A$="N" THEN RETURN
8010 PRINT"[147]"TAB(13)" INSTRUCTIONS "
8020 PRINT"USE THIS PROGRAM LIKE A REGULAR CALC-"
8030 PRINT"ULATOR.  NUMBERS CAN BE IN SCIENTIFIC"
8040 PRINT"NOTATION, IF DESIRED."
8042 PRINT"MAKE CORRECTIONS USING THE DEL[146] KEY."
8050 PRINT"PRESS S[146] AND THEN A FUNCTION KEY TO
8060 [153]"STORE A VALUE INTO ONE OF THE FOUR
8070 PRINT"MEMORIES.  PRESS A FUNCTION KEY TO
8080 [153]"RETRIEVE THE VALUE FROM A MEMORY.
8090 PRINT"PRESS S[146], THEN +[146], THEN A FUNCTION KEY TO
8100 [153]"ADD THE VALUE IN THE MAIN WINDOW TO A
8110 PRINT"MEMORY.  (THIS WORKS FOR THE OTHER
8115 [153]"THE OTHER OPERATORS AS WELL.)"
8130 [153]"PRESS _WAIT TO CLEAR THE CURRENT OPERATOR."
8140 [153]"USE CWAIT TO CLEAR THE CURRENT CALCULATION."
8150 [153]"USE AWAIT TO RESET CALCULATOR AND MEMORIES."
8160 [153]"PRESS XWAIT TO EXIT THE PROGRAM."
8170 [153][163]6)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
8900 [153]"       PRESS SPACEBAR TO CONTINUE "
8910 A$[178]"":[161]A$:[139]A$[179][177]" "[167]8910
8999 [142]
9000 [153]C$"LOAD":P$[178]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD(null)                (null)"
9010 [153][163]13)" 64 CALCULATOR WAIT"
9030 P$[178]P$[170]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
9040 [129]J[178]1[164]5:[135]R,C,X$:[141]200:[153]P$;:R[178]R[171]1:C[178]C[170]8:[141]200:[153]X$;
9050 [130]:P2$[178]"(null)TANRIGHT$CMDCMDCMD(null) (null)CMDCMDCMDMID$TAN(null)"
9060 C[178]2:[129]J[178]1[164]NP:R[178]17:X$[178][202](OP$,J,1):[141]200:[153]P2$;:R[178]R[170]1:C[178]C[170]1
9070 [141]200:[153]X$;:C[178]C[170]2:[130]:[129]J[178]0[164]4:[135] RX(J),CX(J):[130]
9090 R[178]21:C[178]14:[141]200:[153]"PRINTER: ":PX[178][171]1:[141]9500
9100 S$[178]"INITIALIZING...":P[178]0:[141]4900:[142]
9500 PX[178][168] PX:R[178]21:C[178]23:[141]200:[153]C$""[202]("OFFON",[171]3[172]PX[170]1,3[170]PX)"WAIT "
9510 [139]PX[167][159]3,4:[152]3:[152]3:[152]3:[142]
9520 [160]3:[142]
10000 [131] 4,1,F1,8,1,F5,4,22,F3,8,22,F7,13,11,"",14,13,5,3,5,24,9,3,9,24
20000 [153]"CONTLOAD"[163]11)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
20010 [153][163]11)" UPTIME PRESENTS WAIT"
20020 [153][163]9)"F1"[163]30)"F3"
20030 [153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$   (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$";
20040 [153]" (null)               0CONT(null)   (null)               0CONT(null)";
20045 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)   MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
20050 [153][163]9)"F5"[163]30)"F7"
20060 [153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$   (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$";
20070 [153]" (null)               0CONT(null)   (null)               0CONT(null)";
20080 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)   MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)";
20090 [153]""[163]11)"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
20100 [153][163]11)"(null) 64 CALCULATORCONT  (null)"
20110 [153][163]11)"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
20120 [153]"       (C) 1987 BY MIKE BROUSSARD
20130 PRINT" PUBLISHED BY SOFTDISK PUBLISHING, INC."
20140 PRINT"    DO YOU WANT INSTRUCTIONS? (Y/N)"
20999 RETURN
31000 DATA 173,0,3,141,52,192,173,1,3,141,53,192,169,23,141,0,3,169,192,141,1
31010 DATA 3,96,169,0,133,251,224,0,208,1,96,160,0,185,104,192,208,15,173,52
31020 DATA 192,141,0,3,173,53,192,141,1,3,76,0,0,133,2,228,2,240,5,200,200,200
31030 DATA 208,225,200,134,251,185,104,192,133,20,200,185,104,192,133,21,165
31040 DATA 43,166,44,32,23,166,176,3,76,227,168,165,95,233,1,133,122,165,96
31050 DATA 233,0,133,123,96,15,208,7,20,218,7,0
40000 DATA 202,134,2,169,3,141,156,195,140,157,195,169,151,32,210,255,162,0
40010 DATA 138,72,162,18,172,156,195,24,32,240,255,173,156,195,105,3,141,156
40020 DATA 195,104,170,228,2,208,10,169,31,32,210,255,169,18,32,210,255,189
40030 DATA 158,195,32,210,255,169,151,32,210,255,169,146,32,210,255,232,236
40040 DATA 157,195,208,199,96,39,12,43,45,42,47,94,83,61,58,95,67,65,88,0