[Apple II]
Type=Paste

[Data]

NEW

1  REM  ************************
2  REM   ALTAIR SINE WAVE
3  REM  ==================
4  REM
7  REM  ADAPTED FOR THE APPLE II AND SLIGHTLY IMPROVED BY MOOSE O'MALLEY 6-MAR-2002
8  REM
9  REM  ************************
10 PRINT "Y = SIN X"
20 PRINT
30 LET L=10
40 LET M=L+(40-L)/2
50 PRINT "  X     Y"
60 FOR X1=-33 TO 33 STEP 2
70 LET X=.1*X1
80 LET Y=SIN(X)
90 LET Y2=10*Y+M
100 IF X1=0 THEN 210
110 IF Y2<L THEN 250
120 IF Y2>40 THEN 250
130 IF Y2<M THEN 190
140 IF Y2=M THEN 170
150 PRINT X;
151 PRINT TAB(6);Y;
152 PRINT TAB(M);"!";TAB(Y2);"*"
160 GOTO 220
170 PRINT X;
171 PRINT TAB(6);Y;
172 PRINT TAB(Y2);"*";TAB(M);"!"
180 GOTO 220
190 PRINT X;
191 PRINT TAB(6);Y;
192 PRINT TAB(Y2);"*";TAB(M);"!"
200 GOTO 220
210 PRINT X;
211 PRINT TAB(6);Y;
212 PRINT TAB(Y2);"*";TAB(67);"---Y"
220 NEXT X1
230 PRINT TAB(M);"X"
240 GOTO 260
250 PRINT "--- T O O  W I D E ---"
260 END