10 GOSUB 200 : REM Ladda maskinkod
20 REM KURVPLOTTER
30 ; CHR$(12%)
40 FOR X=0 TO PI STEP .1
50 A%=11%-8%*SIN(2%*X)
60 ; CUR(A%,39%)".";
70 ; CUR(11%,39%)"-";
80 P%=CALL(65408%)
90 NEXT X
100 GOTO 50
200 REM LEFTSCROLL
210 REM Vid anrop scrollas sk{rmen ett
220 REM steg }t v{nster.
230 REM Anrop :  (Ex) P%=CALL(65408%)
240 REM Rutinen {r relokerbar men
250 REM g|r ett CALL 2 : 147 till ROM.
260 REM Testat p} checksumma 10042.
270 REM 
280 DATA 245,197,213,175,50,244,253
281 DATA 50,243,253,245,205,147,2
282 DATA 6,39
283 DATA 19,26,27,18,19,16,249
284 DATA 62,32,18,241,60,254,24
285 DATA 32,231
286 DATA 209,193,241,201
290 RESTORE 280
300 FOR I%=65408% TO 65408%+35%
310 READ P% : POKE I%,P%
320 NEXT I%
330 RETURN 
340 REM 
350 REM Om f|ljande {ndringar g|rs,
360 REM s} sparas kolumn 0 vid scroll.
370 REM Det {r bra vid anv{ndning till-
380 REM sammans med grafik!
390 REM 282 DATA 6,38,19
400 REM 285 DATA 32,230
410 REM 300 FOR I%=65408% TO 65408%+36%