home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_B.d64 / sortieren (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  839b  |  19 lines
  1. 10 ifpeek(828)<>160thenload"msp-sort",8,1
  2. 20 dima$(150):poke53280,6:poke53265,11:print"[147][158]die msp-routine 'msp-sort' sortiert"
  3. 30 print"arrays unter folgender voraussetzung:"
  4. 40 print"1) das array muss ab '0' angelegt sein."
  5. 50 print"2) das letzte element muss ein             leer-string sein."
  6. 51 print"3) die dim'ensionierung muss als erstes    im prg. erfolgen."
  7. 55 fortr=1to39:print"-";:next:print
  8. 60 print"es werden jetzt 150 buchstaben-folgen   erzeugt und ausgegeben,"
  9. 70 print"anschliessend werden diese alphabetisch sortiert und erneut ausgegeben."
  10. 75 print"               taste!":poke53265,27
  11. 80 gosub130:print"[147]       erzeugung "
  12. 90 b$="abcdefghijklmnopqrstuvwxyzabcd":fort=0to149:a=int(rnd(1)*26)+1
  13. 100 a$(t)=mid$(b$,a,5):next:print"[147]":gosub140:print"       sortierung"
  14. 110 sys828
  15. 120 print"[147]":gosub140:list80-150
  16. 130 poke198,0:wait198,1:poke198,0:return
  17. 140 fors=0to150:ifs>0thenifs/23=int(s/23)thengosub130:print"[147]"
  18. 150 printtab(15)a$(s):next:gosub130:print"[147]":return
  19.