10 ! Program av Magnus <8042> 1990
20 ! 
30 ! ----------------------
40 ! [ndrad loop som avbryts om tangent trycks -
50 ! CRTC:ns "sync delay" }terst{lls d} vid n{sta "v{nsterl{ge"
55 ! och programmet avslutas.
60 ! Tidigare tvingades man trycka "CTRL-C", och CRTC:n }terst{lldes ej.
70 ! <7759>
80 ! 
90 INTEGER : NO EXTEND 
100 OUT 56,2,57,0 : ; CHR$(12) : ; CUR(10,0);"Magnus"
110 WHILE -1
120   FOR A=15 TO 112
130     FGCTL BLK
140     OUT 56,2,57,A
150   NEXT A 
160   FOR A=112 TO 15 STEP -1
170     FGCTL BLK
180     OUT 56,2,57,A
190   NEXT A 
200 IF SYS(5)=0 WEND 
210 GET Z$ : OUT 56,2,57,100
220 END