home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 14 / Commodore_Disc_14_19xx_-_de.d64 / scs.demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  107 lines
  1. 5 rem************ demo ****************
  2. 10 (NULL)15
  3. 15 gosub660
  4. 20 (NULL)10,10,12,"s.c.s-extendet basic v2.2"
  5. 30 (NULL)100,144,120,55
  6. 40 (NULL)80,134,160,10
  7. 50 (NULL)180,120,10,14
  8. 60 (NULL)110,154,30,15
  9. 70 (NULL)180,154,30,15
  10. 80 (NULL)148,165,22,35
  11. 90 fora=0to14:(NULL)110+a*2,154+a:next
  12. 100 fora=0to14:(NULL)140-a*2,154+a:next
  13. 110 fora=0to14:(NULL)180+a*2,154+a:next
  14. 120 fora=0to14:(NULL)210-a*2,154+a:next
  15. 130 geta$:ifa$<>" "then130
  16. 140 (NULL)
  17. 150 (NULL)70,10,12,"dietmar schorr"
  18. 160 (NULL)110,24,9,"presents"
  19. 170 (NULL)0,45,13,"s.c.s-extendet basic v2.2"
  20. 180 (NULL)30,60,270,139
  21. 190 fora=0to110
  22. 200 b=int(a*3*rnd(1))+1
  23. 205 c=int(a*1.5*rnd(1))+1
  24. 206 if31+b>290then200
  25. 207 if61+c>200then200
  26. 210 (NULL)31+b,61+c,81
  27. 220 next
  28. 221 geta$:ifa$<>" "then221
  29. 222 (NULL)
  30. 230 (NULL)75,5,7,"s.c.s-extendet basic v2.2"
  31. 240 (NULL)60,50,200,100
  32. 250 fora=0to50:(NULL)a*1.21,a:next
  33. 260 fora=0to50:(NULL)319-a*1.22,a:next
  34. 270 fora=0to50:(NULL)a*1.21,199-a:next
  35. 280 fora=0to49:(NULL)319-a*1.22,199-a:next
  36. 290 (NULL)145,90,35,60
  37. 300 (NULL)168,115,46
  38. 310 geta$:ifa$<>" "then310
  39. 320 (NULL)
  40. 330 (NULL)50,10,23,"sinuskurve"
  41. 340 fora=0to319step.5
  42. 350 (NULL)a,110-(80*sin(a*2*(NULL)/160))
  43. 360 (NULL)a,110
  44. 370 next
  45. 380 geta$:ifa$<>" "then380
  46. 390 (NULL)
  47. 400 fora=0to99step10
  48. 410 (NULL)a,a,320-a*2,199-a*2
  49. 420 next
  50. 430 (NULL)108,96,25,"s.c.s"
  51. 440 geta$:ifa$<>" "then440
  52. 450 (NULL)
  53. 460 (NULL)5,11,"s.c.s presents s.c.s-basic v2.1"
  54. 470 (NULL)0,0
  55. 480 (NULL)........................,255,0
  56. 481 (NULL)..**..**..**.**.**.**...,255,1
  57. 482 (NULL).*...*..*.*.*.*.*.*.*...,255,2
  58. 483 (NULL).*...*..*.*...*.*...*...,255,3
  59. 484 (NULL)..**..**..*...*.*...*...,255,4
  60. 485 (NULL)........................,255,5
  61. 486 (NULL)..**..**...**..**..***..,255,6
  62. 487 (NULL).*..*.*.*.*..*.*.*.**...,255,7
  63. 488 (NULL).*..*.*.*.*..*.**..*....,255,8
  64. 489 (NULL)..**..**...**..*.*.***..,255,9
  65. 490 (NULL)........................,255,10
  66. 491 (NULL)........................,255,11
  67. 492 (NULL)...***..**..***.**.*....,255,12
  68. 493 (NULL)...*..*.**.*....***.....,255,13
  69. 494 (NULL)...*..*.**..**..***.....,255,14
  70. 495 (NULL)...*..*.**....*.**.*....,255,15
  71. 496 (NULL)...*..*.**.*..*.**.*....,255,16
  72. 497 (NULL)...***..**..**..**.*....,255,17
  73. 498 (NULL)........................,255,18
  74. 499 (NULL)........................,255,19
  75. 500 (NULL)........................,255,20
  76. 505 (NULL)255
  77. 510 (NULL)0,1
  78. 520 (NULL)0,1,0,1
  79. 530 (NULL)0,0
  80. 540 (NULL)0,255
  81. 550 fora=0to360
  82. 553 ifa/40<>int(a/40)then560
  83. 554 (NULL)255
  84. 560 (NULL)0,a,110
  85. 570 next
  86. 600 fora=0to345
  87. 610 ifa/40<>int(a/40)then630
  88. 620 (NULL)255
  89. 630 (NULL)0,a,110
  90. 640 next
  91. 650 print"[147]":end
  92. 660 (NULL)80,10,11,"saeulendiagramm"
  93. 670 (NULL)20,50,25,150
  94. 680 (NULL)47,100,25,100
  95. 690 (NULL)74,70,25,130
  96. 700 (NULL)101,80,25,120
  97. 710 (NULL)128,150,25,50
  98. 720 (NULL)155,140,25,60
  99. 730 (NULL)182,180,25,20
  100. 740 (NULL)209,175,25,25
  101. 750 (NULL)236,135,25,65
  102. 760 (NULL)264,125,25,75
  103. 770 (NULL)291,195,25,5
  104. 780 (NULL)10
  105. 790 geta$:ifa$<>" "then790
  106. 795 (NULL):return
  107.