Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
5 POKE 862,1
10 CLS:WINDOW 8,23,5,39
20 PRINT " "
30 PRINT " "
40 PRINT " "
50 PRINT " "
60 PRINT " "
70 PRINT " "
80 PRINT " "
85 WINDOW:POKE-5120,32
90 PAUSE 20
100 CLS
110 INPUT "TONUMFANG EINGEBEN(HOEHE,TIEFE):";X,Y
120 INPUT "LAENGE:";L
125 INPUT "ANZAHL:";I
130 OUT 136,128:OUT 128,0
135 FOR K=1 TO I
140 FOR A=Y TO X STEP-1
150 OUT 128,5
160 OUT 128,A
170 FOR Q=1 TO L:NEXT Q
180 NEXT A
190 FOR A=X TO Y
200 OUT 128,5
210 OUT 128,A
220 FOR Q=1 TO L:NEXT Q
230 NEXT A
235 NEXT K
240 OUT 128,3