home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8710.d64
/
bytesucher
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
5KB
|
137 lines
50 RESTORE:S=0:FORI=9999TO10054:READA:POKEI,A:S=S+A:NEXTI
60 IFS<>7539THENPRINTCHR$(13)"[144]DATAFEHLER !":END
80 CLR:DIMA$(145,3),W(20),Y(20)
82 PRINT"[147] [211]EBASTIAN [206]EUHAUS & [208]AUL-[194]. [203]AMP ";
83 PRINT" [194] [217][160][212][160][197][160][211][160][213][160][195][160][200][160][197][160][210][160] "
85 PRINT" [196]ISK EINLEGEN & [198]LOPPY ANSCHALTEN !"
90 POKE53280,6:POKE53281,14:L=1:GOTO500
100 GET#2,X$:A=ASC(X$+CHR$(0)):RETURN
200 PRINT#1,"B-P";2;X*32+B:RETURN
300 OPEN3,0
310 PRINT"[147] "T1$" ":PRINT">[146]"T2$:FORII=1TOL
320 POKE1144+II,99:POKE55416+II,6:NEXTII
330 PRINT"[145]";:INPUT#3,A$:IFLEN(A$)>LTHEN310
400 CLOSE3:T2$="":L=1:RETURN
450 SYS62255:OPEN1,8,15:CLOSE1:IFSTTHEN80
455 OPEN1,8,15,"UJ":PRINT#1,"I0"
460 INPUT#1,A,A$:IFA=73THEN460
470 CLOSE1:IFA=0ORFEHLER=1THENFE=0:RETURN
480 POKE53280,0:POKE53281,0:PRINT"[147]FLOPPYFEHLER:"A,A$:GOSUB20000:GOTO80
500 INPUT" [198][146]ILES ODER [211][146]EKTOREN DURCHSUCHEN F[157][157][157]";X$:PRINT"[147]";
510 IFX$<>"S"ANDX$<>"F"THEN80
520 IFX$="S"THENF$="*":GOTO5410
1000 GOSUB450:OPEN1,8,15,"I0":T=18:S=1:C=0:OPEN2,8,2,"#"
1010 PRINT#1,"U1";2;0;T;S:GOSUB100:T=A:GOSUB100:S=A
1020 FORX=0TO7:C=C+1:INPUT#1,A,B$:IFATHEN2010
1030 B=3:GOSUB200:GOSUB100:A$(C,2)=STR$(A)
1050 GOSUB100:A$(C,3)=STR$(A)
1060 IFVAL(A$(C,2))=0THENC=C-1:GOTO2000
1070 B=5:GOSUB200:A$=""
1075 FORI=1TO16:GOSUB100:A$=A$+CHR$(A):NEXTI
1500 A$(C,1)=A$:PRINT" => [144]"A$;
2000 NEXTX:IFTTHEN1010
2010 FEHLER=1:B=A:GOSUB450
5000 POKE198,0:PRINTCHR$(13)" => '[144]*' ... [212]/[211]-[193]USWAHL"
5005 PRINT" '[144]$' ... [206]EUBEGINN"CHR$(13)" [198]EHLER:"B"- "B$
5007 PRINT" [211]TATUS:"A"- "A$
5010 INPUT"[198]ILENAME ";F$:IFF$="$"THEN80
5100 IFF$=""THENF$=CHR$(0)
5105 IFF$="*"THEN5410
5110 FORI=1TOC:IFLEFT$(A$(I,1),LEN(F$))=F$THEN5400
5120 NEXT:PRINT"[145][145][145]":GOTO5010
5400 T=VAL(A$(I,2)):S=VAL(A$(I,3))
5410 T1$="[215]ERTE ODER [212]EXT ?":T2$="W":GOSUB300:IFA$<>"W"ANDA$<>"T"THEN5410
5420 IFA$="W"THENA$="":GOTO5500
5425 T1$="[211]UCH[212]EXT-[197]INGABE (-20 [218]EICHEN)":L=20:GOSUB300:F=LEN(A$)
5440 FORI=1TOF:W(I)=ASC(MID$(A$,I,1)):NEXT:B$=A$:GOTO5540
5460 T1$="[206]EU[212]EXT-[197]INGABE (-20 [218]EICHEN)":L=20:T2$=B$:GOSUB300
5470 FORI=1TOF:Y(I)=ASC(MID$(A$,I,1)):NEXT:GOTO5600
5500 T1$="[215]IEVIEL #-[195]HR$-[195]ODES (1-20) ?":L=2:GOSUB300:F=VAL(A$)
5505 IFF<1ORF>20THEN5500
5510 FORI=1TOF
5520 T1$=STR$(I)+". [215]ERT ":L=3:GOSUB300:W(I)=VAL(A$)
5530 IFW(I)<0ORW(I)>255THEN5520
5535 Y(I)=W(I):NEXTI
5540 T1$="[197]RSETZEN (J/N) ?":T2$="N"
5542 GOSUB300:N$=A$:IFN$<>"J"ANDN$<>"N"THEN5540
5544 IFN$="J"ANDB$<>""THEN5460
5545 IFN$="N"THEN5600
5546 FORI=1TOF
5547 T1$=STR$(I)+". [215]ERT ":L=3:T2$=STR$(Y(I)):GOSUB300:Y(I)=VAL(A$)
5548 IFY(I)<0ORY(I)>255THEN5547
5549 NEXTI
5600 GOSUB450:OPEN1,8,15,"I0":OPEN2,8,2,"#"
5610 FORI=1TOF:POKE827+I,W(I):NEXT
5611 PRINT"[147] [170][183][183][183][183][183]KONTINUIERLICH[146][183][183][183][183][183][183]"
5612 PRINT"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5615 FORI=55296TO55549:POKEI,0:NEXTI:POKE189,F:POKE198,0:IFF$="*"THEN10000
5620 TT=T:SS=S:PRINT#1,"U1";2;0;T;S:GOSUB100:T=A:GOSUB100:S=A
5630 PRINT"[145]TRACK:"TT"[157] SECTOR:"SS"[157] ":SYS9999
5640 IFPEEK(182)>0THEN7000
5650 IFU=1THEN7050
5660 IFPEEK(198)>0THEN7050
5670 IFTTHEN5620
5680 PRINT" BYTE-FOLGE NICHT GEFUNDEN!":POKE198,0:WAIT198,1:POKE198,1:GOTO80
7000 AZ=PEEK(182)-F+1:PRINT"[145]TRACK:"TT"[157] SECTOR:"SS"[157] BYTENR.:"AZ"[157] "
7004 FORI=55294+AZ TO 55293+AZ+F:POKEI,1:NEXTI:GOSUB20000
7010 IFN$="N"THEN7050
7030 PRINT#1,"B-P";2;AZ:FORI=1TOF:PRINT#2,CHR$(Y(I));:NEXTI
7040 PRINT#1,"U2";2;0;TT;SS:INPUT#1,A,A$:IFA=0THEN7050
7045 POKE211,0:POKE214,10:SYS58640
7047 PRINT"[144]FLOPPYFEHLER:"A;A$" ":POKE198,0:WAIT198,1
7050 POKE211,0:POKE214,10:SYS58640
7051 POKE198,0:INPUT" S[146]UCHEN / E[146]NDE / A[146]ENDERN / G[146]ANGART S [157][157][157][157][157]";S$
7052 IFS$<>"S"ANDS$<>"E"ANDS$<>"A"ANDS$<>"G"THENPRINT"[145][145]":GOTO7050
7053 FORI=55294+AZ TO 55293+AZ+F
7054 POKEI,0:NEXTI
7055 IFS$="E"THENGOSUB450:PRINT:END
7056 IFS$="S"THEN8000
7058 IFS$="A"THEN7300
7090 U=1-U:POKE211,20:POKE214,6:SYS58640
7100 IFU=0THENPRINT"KONTINUIERLICH"
7200 IFU=1THENPRINT"EINZELSCHRITT[146][183]"
7210 PRINT"":GOTO7050
7300 B=0:POKE198,0
7310 BB=B:I=PEEK(1024+B)
7311 POKE1024+B,I-(I<128)*128
7312 POKE1024+B,I+(I>127)*128:IFPEEK(198)=0THEN7311
7315 GETA$:A=ASC(A$+CHR$(0)):IFA=13THEN7400
7320 IFA=17THENB=B+40:IFB>253THENB=B-240:IFB>40THENB=B-40
7325 IFA=145THENB=B-40:IFB<0THENB=B+280
7330 IFA=29THENB=B+1+(B>252)*254
7335 IFA=157THEN B=B-1-(B<1)*254
7340 IFB>253ANDB<280THENB=B-40
7350 POKE1024+BB,I:IFBB<>BTHEN7310
7360 POKE1024+B,A
7370 B=B+1:GOTO7310
7400 INPUT"ABSPEICHERN (J/N) J[157][157][157]";A$:IFA$<>"J"ANDA$<>"N"THEN7400
7420 IFA$="N"THENPRINT"[145][145][145][145]":GOTO7050
7425 PRINT#1,"B-P";2;2
7430 FORI=1024TO1277:PRINT#2,CHR$(PEEK(I));:NEXTI:PRINT"[145][145][145]":GOTO7040
8000 SYS10050:PRINT"[145][145][145]":IFPEEK(182)>0THEN7000
8005 PRINT"[145]":IFF$<>"*"THEN5660
8010 GOTO10040
10000 INPUT"[145] START-TRACK ";T:IFT<1ORT>35THENPRINT"[145]":GOTO10000
10020 INPUT"[145]START-SEKTOR ";S:IFS<0ORS>20THENPRINT"[145]":GOTO10020
10032 INPUT"[145]NACH R[146]EIHE ODER A[146]NSCHLUSS R[157][157][157]";R$
10033 IFR$<>"R"ANDR$<>"A"THEN10032
10034 PRINT"[145]":IFR$="A"THENF$="":GOTO5620
10035 POKE198,0
10040 TT=T:SS=S:PRINT#1,"U1";2;0;T;S:INPUT#1,A:IFATHENT=T+1+(T=35):S=0:GOTO10040
10045 GET#2,A$,A$:SYS9999
10050 PRINT"[145]TRACK:"TT"[157] SECTOR:"SS"[157] ":GOSUB100:GOSUB100
10060 S=S+1:IFPEEK(198)>0ORU=1THEN7050
10080 IFPEEK(182)>0THEN7000
10090 IFT=35ANDS>16THEN5680
10100 GOTO10040
20000 SI=54272:WE=SI+4:WF=SI+11
20010 POKESI+22,0:POKESI+23,249:POKESI+24,159
20020 POKESI,169:POKESI+1,5+HH:POKESI+5,27:POKESI+6,17
20022 POKESI+12,222:POKEWF,33:POKEWE,33
20030 FOREE=15TO65:POKESI+13,0:POKESI+7,0:POKESI+8,EE
20035 IFPEEK(198)=0THENNEXTEE:HH=3-HH:POKEWE,0:GOTO20020
20040 POKEWE,0:POKEWF,0:POKE198,0:RETURN
30000 DATA120,162,2,134,96,32,198,255,32,207,255,164,96,153,254,3,200,132,96,208
30001 DATA243,32,204,255,160,1,162,0,200,240,16,189,60,3,217,254,3,208,243,232
30002 DATA228,189,240,3,76,43,39,132,182,88,96,164,182,76,41,39