10 X=ABS(Y)
10 IF X < 0 THEN X=ABS(X)
10 X=ADR("Atari")
10 POKE ADR(A$),34
10 Z=USR(ADR(ROUTINE$),128)
10 X=(A AND B+3)
10 IF A > 0 AND B > 0 THEN C=A/B
10 X=ASC(TEXT$(5))
10 IF ASC(STRING$)=65 THEN ? "First letter of the alphabet"
10 PRINT ATN(1)
10 Y=ATN(X)
10 GET #1,A:IF A=27 THEN BYE
10 A$=CHR$(X)
10 X$(4,4)=CHR$(155)
10 Y=CLOG(X)
10 ? CLOG(10^5)
10 CLOSE #1
10 CLOSE #CHN
10 GRAPHICS 0:POKE 752,1:COLOR 124:PLOT 1,1:DRAWTO 30,20
10 GRAPHICS 7:COLOR 1:DRAWTO 100,50:COLOR 2:DRAWTO 10,60
10 GRAPHICS 9:FOR I=0 TO 15:COLOR I:PLOT 0,0:DRAWTO 4*I,100:NEXT I
10 COM X(30,5)
10 COM A$(120),X(400),XYZ(100,3)
10 PRINT "CONT":POSITION 0,0:STOP
10 Y=COS(X)
10 ? SIN(X)*SIN(X)+COS(X)*COS(X)
10 DATA 10,12.8,-0.13,6.2E-4
10 DATA 600 XL,16,800 XL,64,65 XE,64,800 XE,64,130 XE,128
10 DEG
10 DEG :X1=ATN(100):RAD :X2=ATN(100)
10 DIM X(30,5)
10 DIM A$(120),X(400),XYZ(100,3)
10 GET #1,A:IF A=27 THEN DOS
10 DRAWTO I*2,J+10
10 DRAWTO X,191-Y
10 GET #1,A:IF A=27 THEN END
10 ENTER "D:ROUTINES.LST"
10 INPUT FILE$:ENTER FILE$:GOSUB 1000
EXP(number_value)
10 EULER=EXP(1)
10 Y=EXP(X)
FOR number_variable=number_value TO number_value
[STEP number_value]
10 S=0:FOR I=1 TO 100:S=S+I:NEXT I
10 FOR I=1.96 TO 5.48 STEP 0.0037
FRE(number_value)
10 ? FRE(0)
10 D=FRE(0)-1024:DIM A$(D)
GET #number_value,number_variable
10 GET #CHN,KEY
10 IF PEEK(764) < > 255 THEN GET #1,A:A$=CHR$(A)
GOSUB number_value
10 GOSUB KEY
10 GOSUB 1000+X*100
GOTO number_variable
10 GOTO 10
10 GO TO 1000+X*100
GO TO number_variable
GRAPHICS number_value
10 GRAPHICS 0
10 GRAPHICS 8+16
IF number_value THEN number_constant|instruction
10 IF A=B THEN ? "A = B"
10 IF X THEN Y=1/X
10 IF (X>3)*(X=4) THEN 100
INPUT [#number_value,]variable[,variable...]
10 INPUT TEXT$
10 INPUT #CHN,A,B,TXT$
10 PRINT "Enter file name:";:INPUT #16,FILE$
INT(number_variable)
10 MSB=INT(WORD/256)
10 IF A=INT(A) THEN 100
LEN(text_value)
10 LENGHT=LEN(TEXT$)
10 A$(LEN(A$)+1)=B$
[LET] number_variable=number_value
[LET] text_variable=text_value
10 Y=LEN(A$)+LOG(2*Z)
10 LET PRINT=6
LIST [file_spec,][number_value[,number_value]]
10 LIST
10 LIST "D:PRG1.LST",1000,1999
LOAD file_spec
LOCATE number_value,number_value,number_variable
10 LOCATE X,Y,CHAR
10 LOCATE 0,0,A
LOG(number_value)
10 A=LOG(3.1415927)
10 IF X > 0 THEN Y=LOG(X)
LPRINT [value][[,]|[;][value]...]
10 LPRINT A;"^3 = ";A^3
10 LPRINT 1;".",TEXT$
NEW
10 IF CRC < > CODE THEN NEW
NEXT number_variable
10 NEXT INDEX
10 FOR I=0 TO 1000:NEXT I
NOT number_value
10 IF NOT X=2 THEN 100
10 X= NOT Y
NOTE #number_value,number_variable,number_variable
10 NOTE #CHN,X,Y
10 OPEN #1,4,0,"D:FILE.EXT":NOTE #1,SECT,BYTE:CLOSE #1
ON number_value GOTO|GOSUB number_value[,...]
10 ON 2 GOTO 10,20,30
10 GET #1,K:ON K-48 GOSUB 100,500,900
OPEN #number_value,number_value,number_value,file_spec
10 CLOSE #1:OPEN #1,4,0,"K:"
10 OPEN #CHN,MODE,AUX,FILE$
10 OPEN #1,6,0,"D:*.BAS"
number_value OR number_value
10 IF A OR B THEN Y=X/(A*A+B*B)
10 MOVE=(X=1) OR (X=-1) OR (Y=1) OR (Y=-1)
PADDLE(number_value)
10 V=PADDLE(A)
10 IF PADDLE(0) < 100 THEN 10
PEEK(number_value)
10 IF PEEK(53279)=7 THEN 10
10 SCREEN=PEEK(88)+256*PEEK(89)
PLOT number_value,number_value
10 PLOT X,Y
10 PLOT 0,0
POINT #number_value,number_value,number_value
10 POINT #CHN,X,Y
10 OPEN #1,4,0,"D:FILE.EXT":POINT #1,SECT,BYTE
POKE number_value,number_value
10 POKE 82,0
10 POKE 10,LSB:POKE 11,MSB
POP
10 IF I > 6 THEN POP :GOTO 60
POSITION number_value,number_value
10 POSITION 0,0
10 POSITION X,Y
PRINT|? [#number_value[,|;]][value][,|;[value]...]
10 PRINT
10 ? :? "Atari"
10 ? CHR$(125);CHR$(253),1000
10 PRINT #2;"DATA: ";X1,X2,X3
10 PRINT #6;"ATARI":? #6,"computer"
PTRIG(number_value)
10 IF NOT PTRIG(0) THEN GOSUB FIRE
PUT #number_value,number_value
10 PUT #1,BYTE
10 PUT #6,155
10 PUT #CHN,PEEK(I)
RAD
10 RAD
READ variable[,variable]
10 READ A,B,C,TXT$:GOSUB 1000
10 READ X:A(I)=X
REM [any char string]
10 REM
10 REM ------------------------------
10 REM Anything you want: ,$#"@ RUN
10 DIM A$(15):REM name
RESTORE [number_value]
10 RESTORE 1000+X:READ A$
10 RESTORE :GOSUB 1000
RETURN
10 RETURN
10 IF IS_END THEN RETURN
RND(number_value)
10 X=1000*RND(0)
10 NUMBER=INT(RND(0)*6)+1
10 IF RND(Z)<0.5 THEN GOSUB WIN
RUN [file_spec]
10 IF DATA_CORRUPTED THEN RUN
10 IF KEY=START THEN RUN
SAVE file_spec
10 SAVE A$
SETCOLOR number_value,number_value,number_value
10 SETCOLOR 2,0,0
10 SETCOLOR I,H(I),I*2
SGN(number_value)
10 X=SGN(Z)*COUNTER
10 IF NOT SGN(A) THEN GOSUB 1000
SIN(number_value)
10 Y=SIN(X)
10 X=A*SIN(OMEGA*T+F)
SOUND number_value,number_value,number_value,number_value
10 SOUND 0,0,0,0
10 FOR I=0 TO 255:SOUND 1,I,10,10:NEXT I
SQR(number_value)
10 Y=SQR(ABS(X))
STATUS #number_value,number_variable
10 STATUS #X,ST
10 PUT #1,A:STATUS #1,STAT
STICK(number_value)
10 14 6 \ | / \ |/ 11--15--7 / |\ / | \ 9 13 5
10 IF STICK(A)=UP THEN X=X-1
10 GOSUB PROCS(STICK(0))
STRIG(number_value)
10 IF NOT STRIG(A) THEN GOSUB FIRE
10 IF STRIG(0) THEN GOTO 10
STOP
10 ? A,B,X,Y,FILE$,TEST:STOP
10 ? "CONT":POSITION 0,0:STOP
STR$(number_value)
10 ? STR$(SQR(3.714))
10 Y$=STR$(X)
TRAP number_value
PEEK(195)
and number of line which
caused error could be read by PEEK(186)+256*PEEK(187)
. Error
trapping is turned off by error detection or instruction TRAP with
argument greater then 32767.
10 TRAP 10:INPUT A
10 TRAP ERR
10 TRAP 40000
USR(number_value[,number_value...])
10 ? USR(1536)
10 X=USR(PMG,2,HPOS,VPOS)
10 X=USR(ADR(ML$),ADR(TEXT$),LEN(TEXT$))
VAL(text_value)
10 X=VAL(A$(I,I+10))
10 ? VAL("8254E3")
10 TEXT$="-1.2+34":? TEXT$:? VAL(TEXT$)
XIO number_val,#number_val,number_val,number_val,file_spec
10 XIO 18,#6,0,0,"S:"
10 XIO 35,#1,0,0,FILE$
10 XIO CMD,#CHN,A1,A2,FILE$