start tok64 d64-xt0DUe
0 REM sys pd 1992
1 REM      {reverse on}{123}{096}{096}{096}{096}{096}{096}{096}{123}
2 REM      {reverse on}{125}big bam{125}
3 REM      {reverse on}{123}{096}{096}{096}{096}{096}{096}{096}{123}
10 INPUT"antal blocks free ";b
20 IFb<.ORb>8670THEN10
30 h=INT(b/255):l=b-h*255
40 OPEN2,8,2,"#"
45 OPEN1,8,15,"u1 2 0 18 0"
50 IFh=.THENc=4:GOTO100
55 IFh>17THENh=h+1
60 FORc=4TO4*hSTEP4
61 IFh=72THEN90
70 PRINT#1,"b-p 2"c
80 PRINT#2,CHR$(255);
90 NEXT
95 IFc=72THENc=76
100 IFc<144THENPRINT#1,"b-p 2"c
110 IFc<144THENPRINT#2,CHR$(l);
120 IFc<136THENGOSUB1000
130 PRINT#1,"u2 2 0 18 0"
140 PRINT#1,"i"
145 CLOSE1:CLOSE2:END
1000 FORx=c+4TO140STEP4
1100 PRINT#1,"b-p 2"x
1200 PRINT#2,CHR$(0);
1300 NEXT
1400 RETURN
stop tok64
(bastext 1.0)