Sharp MZ-1POl Manual do Utilizador descarregar pdf (Página 6)

(Hr~r:'llr!J

alJl

fllJl"'l~ll~r

[JrlJr:"'~(1

100

Disklabel

fuer

MZ-700

und

MZ-SOa

11

(i

,

(C)

by

' M. Gt-os-:;mann ,

Stauf

f enbL\rg

10

120

3370

Seesen

16

1"30

140

Mit

Hilfe

dieses

ProgrammE

laesst

sich

das

Dire~torv

auf

150

einen

passendeG

Aufkleber

drucken.

Es

kann

auch

auf

Papier

160

gedrL\ckt

YJerden

und

aL\f

die

Diskett.enhueJ.le

geklebt

~'Jet-(jE,r;.

170

(Das

Programm

laeuft

nur

fuer

Disketten,

die

von

B2~ic

genutzt

180

werden~

also

nicht

mit

CP/M!).

In

den

Zeile

440-470

wird

der

190

Drucker

auf

Condensed-Print,

TiefstelIen

und

einen

Zeilen-

200

abstand

von

10/144

inch

eingestellt.

210

·

Viel

Spass

beim

drucken!

220

230

'

250

INF'UT"Dis:·

kettiteJ.

ei.ngeben!.

260

INF'UT"Datum (CF:=Kein

Datum):.

27(1

F'RINT"

Bitte

vJat-ten!11

280

290

DlM

F$(65)~TY(65)~TY$(5)

300

DATAOBJ~BTX,BSD~BRD~RB

310

FORI=lT05:READTY$(!):NEXT

320

";T$

It;DT$:IFDT$=".":DT$="11

330

'

Fuer

MZ-700

muss

A=$2020

gesetzt

340

' \-4ler,jen.

350

A=$27FO

360

FORI=ATOA+32*63STEP32

370IFCPEEK(I)<1)ORePEEK(!»5)GOT0420

380

TyeN)=PEEK(!)

390

J=I+l

400

IFPEEK(J)<>$D:F$(N)=F$(N)+CHR$(PEEK(

~)

):J=J+l:GOT0400

410

N=N+l

42

!.)

t

···

~EXT

430 ' 440

beim

700er

weglassen

440 INIT

If

LF'T:MO,S2"

450

F'P I

!'lT

/PCHF:$

(27)

;

11

B11 ;

CHF:$

(3)

;

460 PRINT/PCHF:$.(27);/iSIf;CHF:$(1);

470

PF:INT/FCHR$(27);

"3

11

;CHP$(lü);

480

X=N

490

IFN/3<>INT(N/3):N=N+l:GOT0490

500

NO=N!3

510

F'F:INT/F'"Di

sk:

11;

T$;

TAB

(54)

;

DT$

520

FORI=OT062:

F'RINT

/P"_II;:

NEXT:

F'

RINT

IF'

530

FOF:J=OTDNO-1

540

F'F:INT/F'T'($(TY(J);

":

If;F$(.])

;TAB(21);

55

1

)

IFTY

(,J+NO)

<:

>0:

PRINTlF'TY$ (TY

(J+NO)

);

11:

11;

F·t (J+NO) ;

TAB

(42)

;

560

IFTY

(J+2*NO)

-<

>0:

PF:!NT

IPTY$

(TY

(J+2t:t'IO)

) ;

11:

11;

F$

(J+:-.tNO)

El.SEPFINT

IF'

570

NEXTJ

580

FEINT/F'X;"

Files

in

Use

ll

Seite 6

1 2 3 4 5 6 7 8 9 10 11 ... 15 16

Comentários a estes Manuais

Sem comentários