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