Commodore vic-1540 User Manual page 78

160 PRINT#15,"Ui:";2;0;i8;0
170 PRINT#J5,"B-P";2;l
1S0 PRINT11:!1;
19Q V=22:X=l:GOSUB430
280 FORI=0TO20:PRINT:PRINT"mMRIGHT$<STR$<I)+" ",3>;:NEXT
210 GET#2,flS
■ 220 GET#2,fl$
230 GET#2,fi*
240 TS=0
250 FORT=1TO17:GOSUB450
266 V=22:X=T+4:GOSUB430:GOSUB540:NEXT
278 FORI=1TO2000:NEXT =PRINT"3"
286 V=22:X=l:GOSUB430
290 FORI=0TO20 = PRINT•PRINT11T]I1RIGHT$<STR$<I)+11 ",3); :NEXT
300 F0RT=18T035
310 GOSUB450
320 V=22:X=T-13:GOSUB430•GOSUB540•NEXT
330 FORI=1TO1000-NEXT
34Q print"jmmr
350 PRINT#15/'B-P";2;144
360 N*=IMI :FORI=lTO20:GET#2,fl$-N$=N$+fl*:NEXT
376 PRINT" "N$" "TS-17;"BLOCKS FREE"
3SQ FORI=1TG4000:NEXT
330 PRINT"?]"
400 INPUT-'MUWWiaflNOTHER DISKETTE NIIIG";R*
410 IFfl$="V"THENRUN
420 IFWCV'THENEND
430 PRINTLEFT*<V$,V>LEFT$(X$, X> "II";
440 RETURN
456 GET#2>SC$:SC=RSC<RIGHT$<CHR$<0)+SC$,1)>
460 TS=TS+SC
470 GET#2,fi$:lFfl$=""THENfl$=CHR$<0>
480 SB<0)=flSC<fl$>
490 GET#2ifl*f- IFfl$=""THENfl$=CHR$<0)
500 SB<l>=RSC<fl$>
510 GET#2>fl$:IFfl$=n"THENfl$=CHR$<0)
520 SB<2)=nSC<fl$>
530 RETURN
540 PRINT":?H"RIGHT$<STR$<T>. 1>; "im";
550 REM PRINTT" "SC" "SB<0>" "SB<l)n nSB<2)=CHR$<0)
560 IFT>24flNBS=13THEN:PRINTMII)*':NU^,Z4,l); :GOTO660
570 FGRS=0TO20
530 1FT<18THEN620
590 IFT>30RNLS=17THEN:PRINTMID$<NU$.Z4,1);:GOTO660
6O0 IFT>24flNDS=13THEN:PRlNTMID*<NU^Z4>l>j -GOTO660
610 IFT>24mNDS=19THENPRINTMID$<NU$,Z4>1);:GOTG660
620 IFT>17flNDS=20THENPRINTMID$<NU*,Z4,1); ^Z4=Z4+1:
639 PR I NT "a11;
640 IF FNS'.:S)=0 THEN PRINT"+M; •G0TG66Q
659 PRINTIIB+"; :REHRIGHT$(STR$<S)/ 1>;Z4,1>; :G0T072
fA# PRINT'TIB";
6?d NEXT
630 RETURN
71