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