home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / grafik-demo2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  120 lines
  1. 10 D:C\0,14,15:Cy:Cu12,3,"grafik - demo ii"
  2. 20 Cu5,7
  3. 30 Cz"bitte jedes mal , wenn in der",80
  4. 40 printtab(5);:Cz"rechten oberen ecke ein blin -",80
  5. 50 printtab(4);:Cz"kendes rechteck erscheint , eine",80
  6. 60 Cu12,18,"taste druecken"
  7. 70 D13,0:D1,13,0,0,0:D1,340,33:Ce get
  8. 80 :
  9. 90 D_   C\   D{$60}
  10. 100 :
  11. 110 Cy:Cu0,5
  12. 120 fori=0to14
  13. 130 C\i,6,15
  14. 140 printtab(10);C(" ",20)
  15. 150 next
  16. 160 Ce get
  17. 170 :
  18. 180 D_   C]    D{$60}
  19. 190 :
  20. 200 C]11,6,18,13,0
  21. 210 Ce get
  22. 220 :
  23. 230 D_   C{$60}    D{$60}
  24. 240 :
  25. 250 C{$60}0,0,40,1,42,6
  26. 260 C{$60}39,1,1,23,42,14
  27. 270 C{$60}0,24,40,1,42,6
  28. 280 C{$60}0,1,1,23,42,14
  29. 290 Ce get
  30. 300 :
  31. 310 D_   C_    D{$60}
  32. 320 :
  33. 330 C_10,5,20,15,81
  34. 340 Ce get
  35. 350 :
  36. 360 D_   CA   D{$60}
  37. 370 :
  38. 380 fora=0to3
  39. 390 CA0,0,20,12:CA20,12,20,12
  40. 400 Dq1
  41. 410 CA0,12,20,12:CA20,0,20,12
  42. 420 Dq1
  43. 430 CA0,0,20,12:CA20,12,20,12
  44. 440 Dq1
  45. 450 CA0,12,20,12:CA20,0,20,12
  46. 460 Dq1
  47. 470 next
  48. 480 Ce get
  49. 490 :
  50. 500 D_   CB    D{$60}
  51. 510 :
  52. 520 Cy:Cu27,12,"hallo"
  53. 530 fora=1to100
  54. 540 CB27,12,5,1,35*rnd(0),25*rnd(0)
  55. 550 next
  56. 560 Ce get
  57. 570 :
  58. 580 D_   CE   D{$60}
  59. 590 :
  60. 600 CE
  61. 610 Cy:C{$60}1,1,38,23,160,5:Ce get
  62. 620 CE
  63. 630 Ce get
  64. 640 :
  65. 650 D_   CF   D{$60}
  66. 660 :
  67. 670 Cy:Cu0,8
  68. 680 Cv"********   ********"
  69. 690 Cv"[153]**    **    ****** "
  70. 700 Cv"[159]*  *   *      **   "
  71. 710 Cv"[154]****          **   "
  72. 720 Cv"****          **   "
  73. 730 Cv"[156]*  *   *      **   "
  74. 740 Cv"**    **      **   "
  75. 750 Cv"[150]********      **   "
  76. 760 fori=1to25:CF0,0,40,25,1:next
  77. 770 :
  78. 780 D_   CI   D{$60}
  79. 790 :
  80. 800 fori=1to40:CI0,0,40,25,1:next
  81. 810 :
  82. 820 D_   CG   D{$60}
  83. 830 :
  84. 840 fori=1to25:CG0,0,40,25,1:next
  85. 850 :
  86. 860 D_   CH   D{$60}
  87. 870 :
  88. 880 fori=1to40:CH0,0,40,25,1:next
  89. 890 :
  90. 900 fori=1to20:CF10,0,20,17,0:next
  91. 910 Ce get
  92. 920 :
  93. 930 D_   CJ   D{$60}
  94. 940 :
  95. 950 print"[144][147]":Cu0,8
  96. 960 Cv"********   ********"
  97. 970 Cv"[153]**    **    ****** "
  98. 980 Cv"[159]*  *   *      **   "
  99. 990 Cv"[154]****          **   "
  100. 1000 Cv"****          **   "
  101. 1010 Cv"[156]*  *   *      **   "
  102. 1020 Cv"**    **      **   "
  103. 1030 Cv"[150]********      **   "
  104. 1040 fora=1to2
  105. 1050 for i=2to14
  106. 1060 ifi=7ori=8ori=9ori=11ori=12thennext
  107. 1070 CJi,10
  108. 1080 Dq3:nexti,a
  109. 1090 CJ
  110. 1100 Cta$
  111. 1110 C\0,6,15:Cy:end
  112. 1120 Cd get
  113. 1130 C;
  114. 1140 geta$
  115. 1150 D13,0
  116. 1160 C@a$<>""
  117. 1170 D13,0
  118. 1180 Cg
  119. 1190 :
  120.