| 10 |
AUTOGOTO 70 |
| 70 |
"A" GOSUB 7490 :CHAIN "X:ADBCHN.PRG",70 |
| 5390 |
GOSUB 6310 |
| 5400 |
IF C1<3 PRINT =LPRINT |
| 5410 |
PRINT "MIKESOFT":PRINT "Adressdatenbanksystem":PRINT "Copyright 1991" |
| 5420 |
PRINT "by M. Janssen":IF C1=3 GOSUB 6300 |
| 5430 |
PRINT "statischer RAM-Bedarf:":PRINT "20712 Bytes":PRINT "dynamischer RAM-Bedarf: |
| 5440 |
WAIT :PRINT "192 Bytes je Datensatz":WAIT 0:CLS |
| 5450 |
PRINT "freier Speicher:":PRINT STR$ MEM ;" Bytes" |
| 5460 |
IF C1=3 GOSUB 6300 |
| 5470 |
IF F1=0 GOTO 5550 |
| 5480 |
PRINT STR$ (G+1);" von ";STR$ (M+1);" moeglichen":PRINT "Datensaetzen belegt" |
| 5490 |
IF C1=3 GOSUB 6300 |
| 5500 |
IF F2=0 PRINT "Datei nicht gesichert !" |
| 5510 |
IF F7 PRINT "Datei ist unsortiert !":GOTO 5530 |
| 5520 |
IF F6 PRINT STR$ F6;" neue Datensaetze":PRINT "noch einzusortieren" |
| 5530 |
IF F2=0 OR F6 OR F7 AND C1=3 GOSUB 6300 |
| 5540 |
GOTO 5570 |
| 5550 |
PRINT "Keine Datei !":IF C1=3 GOSUB 6300 |
| 5560 |
PRINT STR$ (C4-1);" von max. 6 Notizen":PRINT "belegt":IF C1=3 GOSUB 6300 |
| 5570 |
IF F PPRINT "Aktuelle Datei |
| 5580 |
ON FP GOTO 5600 ,5610 |
| 5590 |
PRINT =PRINT :GOTO 70 |
| 5600 |
PRINT "mit Password geschuetzt!":GOTO 5590 |
| 5610 |
PRINT "codiert !":GOTO 5590 |
| 6300 |
WAIT :CURSOR 17,3:PRINT CHR$ 91;"ENTER";CHR$ 93:WAIT 0:BEEP 1,1,25:CLS :RETURN |
| 6310 |
CLOSE #1:RESTORE 6400 :GOTO 7290 |
| 6320 |
C1=1:PRINT "CE-140P"; |
| 6330 |
GOTO 6350 |
| 6340 |
C1=2:PRINT "CE-126P"; |
| 6350 |
PRINT " o.k. ?":GOSUB 6300 |
| 6360 |
IF C1=1 OPEN :LPRINT CHR$ 27+"@ |
| 6370 |
RETURN |
| 6380 |
C1=3:RETURN |
| 6400 |
DATA 1,"ZIEL",2,"CE-140P (inkjet)",6320,"CE-126P (thermo)",6340 |
| 6410 |
DATA "Display",6380 |
| 7290 |
CLS :WAIT 0:READ F0:IF F0 READ M$(0):PRINT M$(0) |
| 7300 |
X=0:Y=F0:READ N:Q=INT (N/(4-F0)):S=16-4*Q |
| 7310 |
FOR I=0 TO N:J=INT (I/(4-F0)):CURSOR J*S,I-(4-F0)*J+F0:READ M$(0),Z(I) |
| 7320 |
PRINT " ";LEFT$ (M$(0),S+6-8*SGN Q):NEXT I |
| 7330 |
K=Y-F0+(4-F0)*X:IF K>N LET X=Q:Y=F0+N-(4-F0)*X:K=N |
| 7340 |
CURSOR X*S,Y:PRINT "->" |
| 7350 |
T=ASC INKEY$ :IF T=0 GOTO 7350 |
| 7360 |
BEEP 1,1,25 |
| 7370 |
IF T=5 CURSOR X*S,Y:PRINT " ":Y=Y+1:IF Y>3 LET Y=F0:X=X+1:IF X>Q CLEAR X |
| 7380 |
IF T=4 CURSOR X*S,Y:PRINT " ":Y=Y-1:IF Y<F0 LET Y=3:X=X-1:IF -X CLEAR X |
| 7390 |
IF T=14 CURSOR X*S,Y:PRINT " ":X=X+1:IF X>Q CLEAR X |
| 7400 |
IF T=15 CURSOR X*S,Y:PRINT " ":X=X-1:IF X<0 LET X=Q |
| 7410 |
IF T=13 CLS :CLEAR X,Y:GOTO Z(K) |
| 7420 |
GOTO 7330 |
| 7490 |
RESTORE 7500 :GOTO 7290 |
| 7500 |
DATA 1,"Externer Programmteil !",1,"CE-140F o.k.",7510,"Abbruch",7520 |
| 7510 |
RETURN |
| 7520 |
CLS :END |
