User`s manual

1613 PRINTiI5."Ul:";2;0;18;a
17121 PRINTiI5."B-P";2;1
18121PRINT":'1";
19121 ¥=22:X=I:GOSUB43a
2130 FORI=0T020:PRINT:PRINT":T1"RIGHT$(STR$(I>+" ".3); : NEXT
21121GET#2,A$
220 GEHI2. A$
23121GET#2., A$
240 TS=0
25121FORT=lTOI7:GOSUB450
26121Y=22:X=T+4:GOSUB43e:GOSUB54a:NEXT
270 FORI=lT02a0a:NEXT:PRINT":'1"
28121Y=22:X=I:GOSUB430
29121FORI"0T02a: PRUIT: PRINT":T1"RIGHT$(STR$( I)+" ".3);: NEXT
31210FORT=18T035
31121 GOSUB450
32121Y=22:X=T-13:GOSUB43a:GOSUB~4a:NEXT
330 FORI=lT0100a:NEXT
34121PRINT"~"
350 PRIt~T#15. "B-P"; 2; 144
36121N$="":FORI=IT020:GET#2,A$:N$=N$+A$:NEXT
37121PRINT" "N$" "TS-17;"BLOCKS FREE"
38121FORI=IT04aaa:NEXT
3913 PRUIT":,]"
400 INPUT" J.MdIJFI~IOTHER DISKETTE t~I..I".: A$
410 IFA$="Y"THENRUN
42121IFA$O"¥"THENEND
43121PRINTLEFT$(Y$. Y)LEFT$(X$. >0 "II";
44121RETURH
45121GET#2.SC$:SC=ASC(RIGHT$(CHR$(0)+SC$.1»
460 TS=TS+SC
47121GET#2.A$:IFA$=""THENA$=CHR$(0)
480 SB(0)=ASC(A$)
4913 GET#2,A$:IFA$=""THENA$=CHR$(a)
51210SB(I)=ASC(A$)
51121GET#2., A$: I FA$= '''' THEHA$=CHR$ (.,)
52121SB(2)=ASC(A$)
530 RETUR~I
54121PRIHT"QI"RIGHT$(STR$(T). 1); "1m";
55121REM PRUITT" "SC" "SB(a)" "SB( 1)" "SB(2)=CHR$(e)
56121IFT>24AHDS=18THEH:PRINTMID$(NU$.Z4,1); :GOT066121
5713 FORS=0T020
58121 IFT<18THEN62121
590 IFT>30AHDS=17THEN:PRINTMID$(NU$.Z4.1); :GOT066e
6121121IFT)24AHDS=18THEN:PRINTMID$(NU$.Z4.1);
:GOT066e
61121IFT)24AHDS=19THENPRINTMID$(NU$,Z4.1); :GOT066a
6213 IFT>17AHDS=2aTHENPRINTMID$(NU$,Z4.1);
:24=24+1:GOT066a
6313 PR It~T" ::I".:
64121 I F F~IS(S) =121THEN PR HIT" +".: :GOT066a
6513 PRIt~T"!!!+".: :REt1RIGHT$(STR$(S). 1); 24.1).: :GOT072
6613 PRU~T""I!!!";
6713 NEXT
6813 RETUR~I
48