This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
Listing 1
2 TEST=100:TISKR=110:TISKD=130 4 DIM C$(20),A$(20),ZN$(1):DEG 6 PI=3.14159265:TRAP 140:SETCOLOR 2,0,4:SETCOLOR 4,7,0 8 X=0:Y=0:Z=0:T=0:M=0:C$="" 30 DL=PEEK(560)+256*PEEK(561) 32 POKE 82,0:POKE 752,1 34 POKE DL+8,7:POKE DL+15,7 36 ? ""; 38 ? " "; 40 ? ""; 42 ? " "; 44 ? " |LX CH I |"; 46 ? " DEG | |"; 48 ? " |CL XY R |"; 50 ? " "; 52 ? ""; 54 ? " ":? 56 ? ""; 58 ? "| X^ IN | AIN EG |"; 60 ? "| | |"; 62 ? "| SR OS | AOS AD |"; 64 ? "| | |"; 66 ? "| ^X AN | AAN STO |"; 68 ? "| | |"; 70 ? "| /X N | OG STO |"; 72 ? "| | |"; 74 ? "| XP | 0^X RCL |"; 76 ? ""; 80 GOTO 150 100 REM 102 OPEN #1,4,0,"K:" 104 GET #1,KL:ZN$=CHR$(KL) 106 CLOSE #1 108 RETURN 110 REM 112 POSITION 8,1:? " ":POSITION 8,1:? M 114 POSITION 23,4:? " ":POSITION 23,4:? T 116 POSITION 23,5:? " ":POSITION 23,5:? Z 118 POSITION 23,6:? " ":POSITION 23,6:? Y 120 POSITION 23,7:? " ":POSITION 23,7:? X 122 POSITION 3,3:? " ":POSITION 3,3:C$=STR$(X):? C$:C$="" 124 RETURN 130 REM 132 POSITION 3,3:? " ":POSITION 3,3:? C$ 133 POSITION 23,7:? " ":POSITION 23,7:? C$ 134 RETURN 140 REM 142 POSITION 3,3:? " ":POSITION 3,3:? "ERROR" 144 GOSUB TEST:KL=67 146 TRAP 140:GOTO 198 150 REM 160 GOSUB TISKR 170 GOSUB TEST 180 IF KL=43 THEN X=Y+X:Y=Z:Z=T:GOTO 160 182 IF KL=45 THEN X=Y-X:Y=Z:Z=T:GOTO 160 184 IF KL=42 THEN X=Y*X:Y=Z:Z=T:GOTO 160 186 IF KL=47 THEN X=Y/X:Y=Z:Z=T:GOTO 160 188 IF KL=83 THEN X=-X:GOTO 160 190 IF KL=61 THEN XM=X:X=Y:Y=Z:Z=T:T=XM:GOTO 160 192 IF KL=62 THEN XM=X:X=Y:Y=XM:GOTO 160 194 IF KL=155 THEN T=Z:Z=Y:Y=X:GOTO 230 196 IF KL=80 THEN T=Z:Z=Y:Y=X:X=PI:C$=STR$(X):GOTO 160 198 IF KL=67 OR KL=60 THEN X=0:GOTO 230 200 IF KL=77 THEN M=0:GOTO 160 202 IF KL=69 THEN C$="1E+":GOSUB TISKD:EX=0:GOTO 252 204 IF KL=70 THEN 300 206 IF KL=71 THEN 400 208 IF KL>47 AND KL<58 OR KL=46 THEN T=Z:Z=Y:Y=X:GOSUB TISKR:GOTO 214 210 GOTO 160 212 GOSUB TEST 214 IF KL>47 AND KL<58 OR KL=46 THEN C$(LEN(C$)+1)=ZN$:GOSUB TISKD:GOTO 212 216 IF KL=83 THEN A$="-":A$(2)=C$:C$=A$:GOSUB TISKD:GOTO 240 218 IF KL=69 THEN 250 220 X=VAL(C$) 222 GOTO 180 224 REM --------------------------- 230 GOSUB TISKR:GOSUB TEST 232 IF KL>47 AND KL<58 OR KL=46 THEN 214 234 GOTO 180 236 REM --------------------------- 240 GOSUB TEST 242 IF KL=69 THEN 250 244 X=VAL(C$):C$="":GOTO 180 246 REM --------------------------- 250 EX=0:A$="E+":C$(LEN(C$)+1)=A$:GOSUB TISKD 252 GOSUB TEST 254 IF KL>47 AND KL<58 THEN 270 256 IF KL<>83 THEN 244 258 FOR I=1 TO LEN(C$) 262 IF C$(I,I)<>"E" THEN NEXT I 264 IF C$(I+1,I+1)<>"+" THEN POKE ADR(C$)+I,43:GOTO 268 266 POKE ADR(C$)+I,45 268 GOSUB TISKD:POP:GOTO 252 270 REM --------------------------- 272 EX=EX+1 274 IF EX>2 THEN 252 276 C$(LEN(C$)+1)=ZN$:GOSUB TISKD 278 GOTO 252 300 REM 301 POSITION 23,9:? "f" 302 GOSUB TEST 303 POSITION 23,9:? "" 304 IF KL=50 THEN X=X^2:GOTO 150 306 IF KL=81 THEN X=SQR(X):GOTO 150 308 IF KL=89 THEN X=Y^X:Y=Z:Z=T:GOTO 150 310 IF KL=49 THEN X=1/X:GOTO 150 312 IF KL=53 THEN X=Y/100*X:GOTO 150 314 IF KL=83 THEN X=SIN(X):GOTO 150 316 IF KL=67 THEN X=COS(X):GOTO 150 318 IF KL=84 THEN X=SIN(X)/COS(X):GOTO 150 320 IF KL=76 THEN X=LOG(X):GOTO 150 322 IF KL=69 THEN X=EXP(X):GOTO 150 324 GOTO 302 400 REM 401 POSITION 33,9:? "g" 402 GOSUB TEST 403 POSITION 33,9:? "" 404 IF KL=83 THEN X=ATN(X/SQR(1-X^2)):GOTO 150 406 IF KL=67 THEN X=ATN(SQR(1-X^2)/X):GOTO 150 408 IF KL=84 THEN X=ATN(X):GOTO 150 410 IF KL=76 THEN X=CLOG(X):GOTO 150 412 IF KL=49 THEN X=10^X:GOTO 150 414 IF KL=68 THEN DEG:POSITION 2,6:? "DEG":GOTO 150 416 IF KL=82 THEN RAD:POSITION 2,6:? "RAD":GOTO 150 418 IF KL=43 THEN M=M+X:GOTO 150 420 IF KL=45 THEN M=M-X:GOTO 150 422 IF KL=77 THEN T=Z:Z=Y:Y=X:X=M:GOTO 150 424 GOTO 402
References
Listing downloads
Copyright holder