1 REM**********************************
2 REM*                                *
3 REM* ERZEUGEN EINER DREIECKSPANNUNG *
4 REM* MIT HILFE EINES D/A-WANDLERS   *
5 REM*                                *
8 REM**********************************
9 :
10 POKE56579,15:REM DATENRICHTUNGSREGISTER
20 FOR I = 0 TO 15 :REM HIER WIRD EINE
30 POKE 56577,I    :REM ANSTEIGENDE
40 FOR X = 0 TO 50 :REM SPANNUNG
45 NEXT X          :REM ERZEUGT
50 NEXTI
55 :
60 FORI = 15 TO 0 STEP -1:REM HIER
70 POKE 56577,I    :REM FAELLT DIE
80 FOR X = 0 TO 50 :REM SPANNUNG
90 NEXTX           :REM WIEDER AB
100 NEXTI
110 GOTO20