Commodore vic-1540 User Manual page 77

I . D I R
4 0PEN2,8,15
5 PRINT"33":G0T0 10000
10
20
4u GET#l,fi*,B*
59 C=8
60 IF fl$OIIU THEN C=fiSC<R$)
70 IF B$O1M1 THEN C=C+flSC<B$)*256
80 PRINT"flia"MID$<STR$<C),2);TRB<3>; "S2"i
90 GET#1>B$:IF STO0 THEN 1000
1U0 IF B*OCHR$<34> THEN 90
110 GET#1,B*=IF B$OCHR$<34)THEN PRINTED;-GOTQlID
120 GET#1,B$:IF B*=CHR$<32) THEN 120
130 PRINT TflB<18);:C$=IMI
140 C$=C*+B$--GET#1,B*:IF B$Oni1 THEN 140
150 PRINT"Iia11LEFT$<C*,3>
160 GET T$:IF TOO"11 THEN GOSUB 200Q
170 IF ST=0 THEN 30
1000 PRINT" BLOCKS FREES"
1010 CLOSEl:GOTO 10000
2800 IF T$="Q" THEN CLOSED END
2010 GET T$-IF T$="" THEN 2000
2020 RETURN
4000 REM DISK COMMflND
4010 C$="":PRINTI1>M;
4011 GETB$:IFB$=IM1 THEN4011
4012 PRINTB$;:IF B$=CHR$<13> THEN 4020
4013 C*=C$+B$:GOTO 4011
4020 PRINT#2,C$
5008 PRINT"51"; . * • . •■
5010 GET#2,fl$:PRINTfl$;:IF fl$OCHR$(13>GOTO5010
5020 PRINT"*"
10000 PRINT "D-DIRECTORY"
10CU0 PRINT ">-BISK COMMflND" •
10020 PRINT "Q-QUIT PROGRflM"
10030 PRINT "S-DISK STflTUS "
10100 GETfi*:IFfl$=""THEN10100
10200 IF fl$="D" THEM 10
10300 IF R$=".(t OR fl$-">11 OR fl$=">" THEN 4000
10310 IF fl$="Q" THEN END
1032O IF fi*="S" THEN 5Oo0
19539 GOTO 10100
2. VIEW BAM
100 REM
101 REM * VIEW BflM FOR VIC-1540 *
102 REM ♦*♦♦**♦*******♦**♦*♦*******
105 0PEN15,8;15
110 PRINTtlS/'^^NUI^-'N/fl N/fl N/fl N/fl N/fl":Z4=l
120 0PEN2,8,2/'#"
138 v$
148 X$
150 DEF FNS<Z> = 2t<S-INT<S/8>*8> RND <SB<INT<S/8>>)
70