Atari 65XE Uživatelský manuál stáhnout pdf (Strana 178)

str.

177

32000

REM

EDYTOR BASICA

32010 REM Copyright (c) W. Zientara

32020

CLR

:DIM

WRS$(120):CLOSE

#2:CLO

SE #3

32030

OPEN

#2,4,0,"E:":OPEN

#3,5,0,"E:

"

32040

?

CHR$(125):POSITION

11,1:?

" EDYTOR BASICA"

32050

TRAP

32040:POSITION

2,3:?

"Wpisz

wiersz programu"

3206O

POSITION

1,4:?

"

":INPUT

#2;WRS$

:IF

WRS$="" THEN POSITION

2,4:LIST

B:G

OTO

32060

32070

IF

WRS$(1,1)="*" THEN

B=VAL(WRS$

(2,LEN(WRS$))):POSITION 2,4:LIST B:GOT

0 32060

32080

POSITION

2,10:?

"CONT"

32090

B=VAL(WRS$):POSITION

1,3:?

" ";

32100

POKE

842,13:STOP

32110

POKE

842,12

32120

?

CHR$(125):POSITION

11,1:?

" ED

YTOR BASICA

":POSITION

2,15:LIST

B

32130

C=0:ODP=C

32140

POSITION

2,16:INPUT

#3;WRS$:IF

W

RS$="" THEN ? "WIERSZ ";B;" USUNIETY":

GOTO

32050

32150

FOR D=1 TO

LEN(WRS$):C=C+1:ODP=O

DP+(C*ASC(WRS$(D,D))):NEXT D

32160

KOD=INT(ODP/676)

32170

KOD=ODP-KOD*676

32180

KODS=INT(KOD/26)

32190

KODM=KOD-(KODS*26)+193

32200

KODS=KODS+193

32210

POSITION

0,16:?

CHR$(KODS);CHR$(

KODM)

32220

POSITION

2,13:? "JezeIi

kod sie

nie zgadza, nacisnij RETURN i popr

aw

wiersz.":GOTO

32050

1 2 ... 173 174 175 176 177 178 179 180

Komentáře k této Příručce

Žádné komentáře