10 DEF FNA(X)=FRE(X)-65536*(FRE(X)<0):FR=FNA(0)
20 POKE2,64:POKE792,2:POKE793,0
30 OPEN 3,8,3,"#":OPEN15,8,15,"U1 3 0 18 0":PRINT#15,"B-P 3 180"
40 GET#3,A$:POKE83,ASC(A$+CHR$(0)):CLOSE3:CLOSE15
2000 GOSUB 10000:END
10000 PRINT LEFT$(">>>####",FNA(0)/FR*5+4)+MID$("    <<<",FNA(0)/FR*5+1)
10010 RETURN:REM FREIEN SPEICHER ANZEIGEN