home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / C64-Files / alphabet (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-04-25  |  1.1 KB  |  46 lines
  1. 10 PRINT"[147][156]":POKE53281,6:POKE53280,9
  2. 20 PRINT"ALPHABETHORDNUNG"
  3. 100 REM ALPHABETH
  4. 110 DIMA$(26)
  5. 120 Z$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  6. 130 Z1$="12345678901234567890123456"
  7. 140 PRINT"[155]ZIEL DES SPIEL  IST ES, EINE FOLGE VON"
  8. 150 PRINT"BUCHSTABEN ALPHABETHISCH ZU ORDNEN."
  9. 160 PRINT"DAZU DUERFEN SIE JEWEILS DEN ANFANG2
  10. 170 [153]"DERFOLGE UMDREHEN. VIEL ERFOLG!"
  11. 180 [153]"WIE LANG SOLL DIE FOLGE SEIN "
  12. 190 [133]"MAXIMAL 26 ";S
  13. 200 [139]S[179]1[176]S[177]26[167]180
  14. 210 [129]I[178]1[164]S:A$(I)[178][202](Z$,I,1):[130]I
  15. 220 [143] ZUFALLSVERTAUSCHUNG
  16. 230 [129]I[178]1[164]S:K[178][181]([187](1)[172]S[170]1)
  17. 240 T$[178]A$(I):A$(I)[178]A$(K):A$(K)[178]T$
  18. 250 [130]I
  19. 260 [141]470:T[178]0
  20. 270 [143] TEILSTRING UMDREHEN
  21. 280 T[178]T[170]1
  22. 290 [133]"WIEVIELE SOLL ICH UMDREHEN";R%
  23. 300 [139]R%[178]0[167]440
  24. 310 [139]R%[177]0[175]R%[179][178]S[167]330
  25. 320 [153]"STOPEINGABE MUSS ZWISCHEN 1 UND"S"LIEGEN!LIST":[137]290
  26. 330 R[178][181](R%[173]2):[129]I[178]1[164]R
  27. 340 T$[178]A$(I)
  28. 350 T$[178]A$(I):A$(I)[178]A$(R%[171]I[170]1):A$(R%[171]I[170]1)[178]T$
  29. 360 [130]I:[141]470
  30. 370 [143] REIHENFOLGE PRUEFEN
  31. 380 C[178]1:[129]I[178]2[164]S
  32. 390 [139]A$(I)[177]A$(I[171]1)[167]410
  33. 400 C[178]0
  34. 410 [130]I
  35. 420 [139]C[178]0[167]270
  36. 430 [153]"IN"T"CMD ZUEGEN GESCHAFFT!"
  37. 440 [153]"NOCHMAL? (J/N)"
  38. 450 [161]Y$:[139]Y$[178]""[167]450
  39. 451 [139]Y$[178]"J"[167]180
  40. 452 [139]Y$[178]"N"[167]460
  41. 453 [139]Y$[179][177]"J"[176]Y$[179][177]"N"[167]450
  42. 460 [128]
  43. 470 [153]"LOAD":[153];[200](Z1$,S)
  44. 480 [129]I[178]1[164]S:[153]A$(I);:[130]I
  45. 490 [153]"":[142]
  46.