home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 96 / 64er_Magazin_Sonderheft_96_19xx_Markt__Technik_de_Side_B.d64 / diskettendok (.txt) next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.1 KB  |  44 lines
  1. 1 a$="0123456789abcdef":printmid$(a$,int(tr/16)+1,1):printchr$(14):poke53281,6
  2. 2 poke53280,6:input"[147][215]ie lautet der defekte [212]rack";tr$:iflen(tr$)<>2then2
  3. 3 fora=1to2:forb=1to16:ifmid$(tr$,a,1)=mid$(a$,b,1)thenx(a)=b-1
  4. 4 nextb,a:tr=16*x(1)+x(2):iftr<0ortr>35ortr=21then2
  5. 5 print"[147][194]itte [209]uelldiskette einlegen":sx=20:sp=5000:wait203,64,64
  6. 6 open1,8,15:open2,8,2,"#":iftr>17thensx=18:iftr>24thensx=17:iftr>30thensx=16
  7. 7 forse=0tosx:print#1,"u1"2;0;tr;se:print#1,"b-p"2;p:forp=0to255:get#2,by$
  8. 8 by=asc(by$+chr$(0)):pokesp,by:sp=sp+1:nextp,se:close2:close1:poke53280,0
  9. 9 poke53281,0:print""tab(5)"  [218]ie"tab(47)"^":wait203,64,64:open1,8,15,"i"
  10. 10 open2,8,2,"#":z=19:n=238:pu=4:fori=0to259:readx:su=su+x:nu=nu+1
  11. 11 ifn>255thenn=0:pu=5
  12. 12 ifnu>10thenreada:nu=0:z=z+1:ifsu<>athengoto19
  13. 13 print#1,"m-w"chr$(n)chr$(pu)chr$(1)chr$(x):n=n+1:nexti
  14. 14 print#1,"m-w"chr$(244)chr$(4)chr$(1)chr$(tr)
  15. 15 print#1,"m-w"chr$(1)chr$(5)chr$(1)chr$(se):print#1,"m-e"chr$(238)chr$(4)
  16. 16 sp=5000:forse=0tosx:print#1,"u1"2;0;tr;s:print#1,"b-p"2;0:forp=0to255
  17. 17 by=peek(sp):print#2,chr$(by);:sp=sp+1:nextp:print#1,"u2"2;0;tr;se:nextse
  18. 18 print#1,"i":close2:close1:print"[212]rack repariert!":end
  19. 19 print"[147][196]atafehler in [218]eile";z;"[146]":close2:close1:end
  20. 20 data169,26,141,5,28,162,21,134,10,169,224,1089
  21. 21 data133,2,165,2,48,252,96,169,19,133,67,2175
  22. 22 data169,0,133,27,160,0,162,0,165,57,153,3201
  23. 23 data0,3,200,200,165,27,153,0,3,200,165,4317
  24. 24 data10,153,0,3,200,165,19,153,0,3,200,5223
  25. 25 data165,18,153,0,3,200,169,15,153,0,3,6102
  26. 26 data200,153,0,3,200,169,0,89,250,2,89,7257
  27. 27 data251,2,89,252,2,89,253,2,153,249,2,8601
  28. 28 data230,27,165,27,197,67,144,190,169,3,133,9953
  29. 29 data49,152,72,138,157,0,7,232,208,250,32,11250
  30. 30 data48,254,104,168,136,32,229,253,32,245,253,13004
  31. 31 data169,7,133,49,32,233,245,133,58,32,143,14238
  32. 32 data247,169,0,133,50,32,14,254,169,255,141,15702
  33. 33 data1,28,162,5,80,254,184,202,208,250,162,17238
  34. 34 data10,164,50,80,254,184,185,0,3,141,1,18310
  35. 35 data28,200,202,208,243,162,9,80,254,184,169,20049
  36. 36 data103,141,1,28,202,208,245,169,255,162,5,21568
  37. 37 data80,254,184,141,1,28,202,208,247,162,187,23262
  38. 38 data80,254,184,189,0,1,141,1,28,232,208,24580
  39. 39 data244,160,0,80,254,184,177,48,141,1,28,25897
  40. 40 data200,208,245,169,103,162,8,80,254,184,141,27651
  41. 41 data1,28,202,208,247,165,50,24,105,10,133,28824
  42. 42 data50,198,27,208,149,80,254,184,80,254,184,30492
  43. 43 data32,0,254,76,158,253,0,34,85,93,83,37264
  44.