home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64 / generator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  71 lines
  1. 100 data 1,1,1,2,30,4,8,8,8,16,4,32,4,64,8,128,0,0
  2. 110 data 39,0,1,1,1,2,1,4,1,8,1,16,1,32,1,64,1,128,0,0
  3. 120 data 55,0,1,1,1,2,1,4,1,8,1,16,1,32,1,64,1,128,0,0
  4. 130 data 170,169,166,165,154,153,150,149,106,105,102,101,90,89,86,85
  5. 140 :
  6. 150 poke55,0:poke56,128:clr:print"[147] bitte warten"
  7. 160 dim m(2,63)
  8. 170 ze=-1
  9. 180 read an:readwe
  10. 190 ifan=0thenze=-1:ke=ke+1:ifke=3then240
  11. 200 fori=1toan:ze=ze+1
  12. 210 m(ke,ze)=we
  13. 220 next:goto180
  14. 230 :
  15. 240 ad=32767:of=ad
  16. 250 print"[147]generiere 000 -";
  17. 260 fori=0to511:ad=ad+1:pokead,0:next
  18. 270 forj=0to7
  19. 280 fori=0to63:ad=ad+1:pokead,m(0,i)
  20. 290 next:next
  21. 300 printad-of:print
  22. 310 :
  23. 320 print"generiere 100 -";
  24. 330 forj=0to7
  25. 340 fori=0to63:ad=ad+1:pokead,m(0,i)
  26. 350 next:next
  27. 360 fori=0to511:ad=ad+1:pokead,0:next
  28. 370 printad-of:print
  29. 380 :
  30. 390 print"generiere 010 -";
  31. 400 fori=0to511:ad=ad+1:pokead,0:next
  32. 410 forj=0to7
  33. 420 fori=0to63:ad=ad+1:pokead,m(2,i)
  34. 430 next:next
  35. 440 printad-of:print
  36. 450 :
  37. 460 print"generiere 110 -";
  38. 470 forj=0to7
  39. 480 fori=0to63:ad=ad+1:pokead,m(2,i)
  40. 490 next:next
  41. 500 fori=0to511:ad=ad+1:pokead,0:next
  42. 510 printad-of:print
  43. 520 :
  44. 530 print"generiere 001 -";
  45. 540 fori=0to511:ad=ad+1:pokead,0:next
  46. 550 forj=0to7
  47. 560 fori=0to63:ad=ad+1:pokead,m(1,i)
  48. 570 next:next
  49. 580 printad-of:print
  50. 590 :
  51. 600 print"generiere 101 -";
  52. 610 forj=0to7
  53. 620 fori=0to63:ad=ad+1:pokead,m(1,i)
  54. 630 next:next
  55. 640 fori=0to511:ad=ad+1:pokead,0:next
  56. 650 printad-of:print
  57. 660 :
  58. 670 print"generiere 110 -";
  59. 680 forj=0to15
  60. 690 read a
  61. 700 fori=0to63:ad=ad+1:pokead,a
  62. 710 next:next
  63. 720 printad-of:print
  64. 730 :
  65. 740 print"generiere 111 -";
  66. 750 fori=0to1023:ad=ad+1:pokead,255
  67. 760 next
  68. 770 printad-of:print
  69. 780 print"file liegt von 32768 bis 40959"
  70. 790 print"               $8000 bis $9fff"
  71.