home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8701.d64
/
load-einfach
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
876b
|
54 lines
100 A=18:B=1
110 REM EINLESEN DES BLOCKS
120 OPEN15,8,15:OPEN2,8,2,"#"
130 FORI=1TO8:T$(I)="":NEXTI
140 IFA=0ORB=0THENCLOSE2:CLOSE15:END
150 GOSUB540
160 K=4
170 FORI=1TO8
180 PRINT#15,"B-P 2";K-2
190 GET#2,P$:P=ASC(P$+CHR$(0))
200 IFP<>130ANDP<>194THEN270
210 FORJ=1TO16
220 PRINT#15,"B-P 2";J+K
230 GET#2,C$
240 T$(I)=T$(I)+C$
250 NEXTJ
260 K=K+32
270 NEXTI
280 REM ABFRAGE
290 K=17
300 FORI=1TO8
310 IFT$(I)=""THEN420
320 PRINT"[147]"T$(I)
330 PRINT"WAS SOLL ANGEHAENGT WERDEN ?"
340 PRINT" ,8[146]:"
350 PRINT" ,8,1[146]"
360 PRINT" N[146]ICHTS"
370 GETE$:IFE$=""THEN370
380 IFE$="8"THENAF$=",8:":AF=8:GOTO480
390 IFE$="1"THENAF$=",8,1":AF=1:GOTO480
400 IFE$="N"THEN420
410 GOTO370
420 K=K+32
430 NEXTI
440 IFW=1THENGOSUB600
450 A=A1:B=B1:CLOSE2:CLOSE15
460 PRINT"[147]BITTE WARTEN !"
470 GOTO110
480 W=1
490 IFAF=8THENPRINT#15,"B-P 2";K
500 IFAF=1THENPRINT#15,"B-P 2";K-1
510 PRINT#2,CHR$(160);AF$;
520 GOTO420
530 RUN
540 REM LESEN
550 PRINT#15,"U1 2 0";A;B
560 PRINT#15,"B-P 2 0"
570 GET#2,A$,B$
580 A1=ASC(A$+CHR$(0)):B1=ASC(B$+CHR$(0))
590 RETURN
600 REM SCHREIBEN
610 PRINT#15,"U2 2 0";A;B
620 RETURN