10 BYE
20 COLOR 1
30 CLOSE #1
40 CLOAD
50 CLR
60 COM A$(10)
70 CONT
80 CSAVE
90 DATA ABC,DEF,1,2,A AND C
100 DEG
110 DIM A(10),A(10,10)
120 DOS
130 DRAWTO X,5
140 END
150 ENTER "AKAJLSD"
160 FOR I=1 TO 100:FOR J=-5 TO 100 STEP X
170 GET #1,Q
180 GOTO 5:GOTO X
190 GOSUB 10:GOSUB X
200 GRAPHICS 8
210 INPUT A$:INPUT #1,A$,B
220 IF X=1 THEN 10:IF X=2 THEN GOTO 10
230 LIST
240 LET X=Y:X=Y
250 LOAD "FOOBAR"
260 LOCATE 4,3+X,Y
270 LPRINT "XYZ",A$,B;10
280 NEW
290 NEXT I
300 NOTE #1,X,Y
310 ON X GOTO 10,20,30:ON Y GOSUB 40,50,60
320 OPEN #1,4,0,"FOOBAR"
330 PLOT X,10
340 POINT #1,X,Y
350 POKE 1536,0
360 POP
370 POSITION 4,X
380 PRINT:PRINT "X";:PRINT ,X:PRINT #1,X,Y;Z:PRINT #1;X
390 PUT #1,X
400 RAD
410 REM Whee!
420 READ X,Y,A$
430 RESTORE:RESTORE 10
440 RETURN
450 RUN:RUN "FOOBAR"
460 SAVE "FOOBAR"
470 SETCOLOR 0,4,5
480 SOUND 0,1,2,3
490 STATUS #1,X
500 STOP
510 TRAP 10
520 XIO 40,#1,0,0,""
530 ? "XYZ"
540 GO TO 10
1000 X=10
1010 X$="ABC"
1020 X=10<=20
1030 X=10<>20
1040 X=10>=20
1050 X=10<20
1060 X=10>20
1070 X=10=20
1080 X=10^20
1090 X=10*20
1100 X=10+20
1110 X=10-20
1120 X=10/20
1130 X=10*20
1140 X=NOT 10
1150 X=10 OR 20
1160 X=10 AND 20
1170 X=(10)*(20+30)
1180 X=A$<=B$
1190 X=A$<>B$
1200 X=A$>=B$
1210 X=A$<B$
1220 X=A$>B$
1230 X=A$=B$
1240 X=+Y
1250 X=-Y
1260 X$=A$(5)
1270 X$=A$(5,10)
1280 X$=A$(5+10)
1290 X=VAL(A$(LEN(A$(5,10))))
2000 X$=STR$(0)
2010 X$=CHR$(0)
2020 X=USR(0)+USR(0,1)+USR(0,1,2)+USR(0,1,2,3)
2030 X=ASC(A$)
2040 X=VAL("0")
2050 X=LEN(A$)
2060 X=ADR(A$)
2070 X=ATN(0)
2080 X=COS(0)
2090 X=PEEK(0)
2100 X=SIN(0)
2110 X=RND(0)
2120 X=FRE(0)
2130 X=EXP(0)
2140 X=LOG(0)
2150 X=CLOG(0)
2160 X=SQR(0)
2170 X=SGN(0)
2180 X=ABS(0)
2190 X=INT(0)
2200 X=PADDLE(0)
2210 X=STICK(0)
2220 X=PTRIG(0)
2230 X=STRIG(0)
