home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 30 / Tiger_Disk_030_1996-09_Tiger-Crew-Disk_de_Side_A.d64 / diskdat-sort. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  99 lines
  1. 100 print"[147]"
  2. 200 c1$=""
  3. 300 lz$="                                       "
  4. 400 c3$=""
  5. 500 c4$="[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][156]"
  6. 600 c5$=c4$+lz$+lz$+lz$+"                                       "
  7. 700 c6$="  [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][219][195][195][195][195][179][156]"
  8. 800 c7$="  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][201][156]"
  9. 900 c8$="  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][203][156]"
  10. 1000 poke53280,0 :poke53281,0
  11. 1050 gosub5900
  12. 1100 gosub6300
  13. 1200 goto8300
  14. 1300 dimg$(2000)
  15. 1400 printc3$"  es wird :  geladen [156][146]"
  16. 1500 open2,8,0,"0:datei,s,r"
  17. 1600 gosub 7300:ifb$="ok"then2200
  18. 1700 gosub5800:print"wollen sie ....."
  19. 1800 print""c7$
  20. 1900 print"  [221][156] nochmal laden ......... [221] l[146]  [221]":printc8$
  21. 2000 gosub5600:ift$<>"l"then end
  22. 2100 run
  23. 2200 open2,8,0,"0:datei,s,r"
  24. 2300 input#2,n
  25. 2400 input#2,m
  26. 2500 fori=0ton
  27. 2600 input#2,g$(i)
  28. 2700 next:close2
  29. 2800 rem abspeichern -------------------
  30. 2900 printc3$"  es wird :  sortiert [146]   "
  31. 3000 sys 828
  32. 3700 printc3$"  es wird :  gespeichert [146]              "
  33. 3800 open2,8,2,"@0:datei,s,w"
  34. 3900 gosub7300:ifb$="ok"then4500
  35. 4000 gosub5800
  36. 4050 print"wollen sie ....."
  37. 4100 print""c7$
  38. 4200 print"  [221][156] nochmal abspeichern ... [221] s[146]  [221]":printc8$
  39. 4300 gosub5600:ift$<>"s"then end
  40. 4400 goto 3800
  41. 4500 m=0:open2,8,2,"@0:datei,s,w"
  42. 4600 print#2,n
  43. 4700 print#2,m
  44. 4800 fori=0ton
  45. 4900 print#2,g$(i)
  46. 5000 nexti:close2
  47. 5500 goto10300
  48. 5600 rem einfaches get ----------------
  49. 5700 poke198,0:wait198,1:gett$:return
  50. 5800 rem titelgrafik ------------------
  51. 5900 print"[147][156]   [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  52. 6000 print"   [221]   disketten datei programm   [221]"
  53. 6100 print"   [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][156]"
  54. 6200 fort9=1to1500:next:return
  55. 6300 print"[147]  [156][176][195][195][195][195][195][195][195][195][174]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  56. 6400 print"  [221][207][208]      [221]  masch.sor.routine"
  57. 6500 print"  [221][204][186]      [221]"
  58. 6600 print"  [221]   [213][201]   [221]  [164][164]"
  59. 6700 print"  [221]   [202][203]   [221]  by"
  60. 6800 print"  [221]   [213][201]   [221]"
  61. 6900 print"  [221]   [221][221]   [221]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  62. 7000 print"  [221]   [202][203]   [221]  peter und dirk israel"
  63. 7100 print"  [173][195][195][195][195][195][195][195][195][189]"
  64. 7200 return
  65. 7300 rem disk error -------------------
  66. 7400 open3,8,15
  67. 7500 input#3,b$,b$
  68. 7600 close 3:close 2:close1
  69. 7700 ifb$="ok"thenreturn
  70. 7800 gosub6300:forj1=1to7
  71. 7900 printc3$" disk error[146] : "b$
  72. 8000 forj2=1to260:next
  73. 8100 printc3$" disk error : "b$
  74. 8200 forj2=1to400:next:next:return
  75. 8300 rem einlesen masch.rout. ---------
  76. 8400 fori=828to977:readh
  77. 8500 su=su+h:pokei,h:next
  78. 8600 ifsu=17663then1300
  79. 8700 print"[147] fehler bei eingabe der data zeilen !":end
  80. 8800 data 160,0,177,47,48,13,200,177,47,16
  81. 8900 data 8,160,4,177,47,201,1,240,1,96
  82. 9000 data 24,165,47,105,7,133,110,165,48,105
  83. 9100 data 0,133,111,160,0,177,110,240,236,133
  84. 9200 data 34,200,177,110,153,34,0,192,2,208
  85. 9300 data 246,165,110,133,113,165,111,133,114,24
  86. 9400 data 165,113,105,3,133,113,144,2,230,114
  87. 9500 data 160,0,177,113,240,61,133,77,197,34
  88. 9600 data 144,2,165,34,133,85,200,177,113,153
  89. 9700 data 77,0,192,2,208,246,160,0,177,35
  90. 9800 data 209,78,240,4,176,11,144,207,200,196
  91. 9900 data 85,208,241,196,34,176,198,160,2,177
  92. 10000 data 110,170,177,113,145,110,153,34,0,138
  93. 10100 data 145,113,136,16,240,48,178,24,165,110
  94. 10200 data 105,3,133,110,144,143,230,111,208,139
  95. 10300 qo$=chr$(34)
  96. 10400 print"[147][144]load";qo$;"diskdatei";qo$;",8:ins hpt prgm[144]"
  97. 10500 print"run"
  98. 10600 fori=1to2:poke631+i,13:next:poke198,3:end
  99.