home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh8x / sh87a.d64 / grafik-demo2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.9 KB  |  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`
  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`
  19. 190 :
  20. 200 c]11,6,18,13,0
  21. 210 cE GET
  22. 220 :
  23. 230 d_   c`    d`
  24. 240 :
  25. 250 c`0,0,40,1,42,6
  26. 260 c`39,1,1,23,42,14
  27. 270 c`0,24,40,1,42,6
  28. 280 c`0,1,1,23,42,14
  29. 290 cE GET
  30. 300 :
  31. 310 d_   c_    d`
  32. 320 :
  33. 330 c_10,5,20,15,81
  34. 340 cE GET
  35. 350 :
  36. 360 d_   ca   d`
  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`
  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`
  59. 590 :
  60. 600 ce
  61. 610 cY:c`1,1,38,23,160,5:cE GET
  62. 620 ce
  63. 630 cE GET
  64. 640 :
  65. 650 d_   cf   d`
  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`
  79. 790 :
  80. 800 FORI=1TO40:ci0,0,40,25,1:NEXT
  81. 810 :
  82. 820 d_   cg   d`
  83. 830 :
  84. 840 FORI=1TO25:cg0,0,40,25,1:NEXT
  85. 850 :
  86. 860 d_   ch   d`
  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`
  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.