home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_A.d64 / demo5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  95 lines
  1. 10 rem  ********************
  2. 15 rem  *                  *
  3. 20 rem  * alan version 7.0 *
  4. 25 rem  *                  *
  5. 30 rem  *     d e m o      *
  6. 35 rem  *                  *
  7. 40 rem  *       von        *
  8. 45 rem  *                  *
  9. 50 rem  * andreas pustelny *
  10. 55 rem  *                  *
  11. 60 rem  *       und        *
  12. 65 rem  *                  *
  13. 70 rem  *  alexander gass  *
  14. 75 rem  *                  *
  15. 80 rem  *       1986       *
  16. 85 rem  *                  *
  17. 90 rem  *   (c) by 64'er   *
  18. 95 rem  *                  *
  19. 99 rem  ********************
  20. 100 :
  21. 110 rem  **  utiliy demo **
  22. 120 :
  23. 130 poke53280,6:poke53281,0:poke646,15
  24. 140 (NULL) 0:(NULL) 2
  25. 150 print "  bitte legen sie eine disketten in "
  26. 160 (NULL) 4
  27. 170 print "  das laufwerk #8."
  28. 180 (NULL) 6
  29. 190 print "  druecken sie danach eine taste !"
  30. 200 gosub 10000
  31. 210 (NULL) 0
  32. 220 (NULL)
  33. 230 gosub10115
  34. 240 (NULL) 0
  35. 250 (NULL) 2
  36. 260 print "  das war die directory "
  37. 270 gosub 10115
  38. 280 (NULL) 0
  39. 300 (NULL) 2
  40. 310 print "";:(NULL)
  41. 320 (NULL) 4
  42. 330 print "   ^   ^  ^  ^"
  43. 340 print "   [194]   [194]  [194]  [173][195] sector"
  44. 350 print "   [194]   [194]  [173][195][195][195][195] block "
  45. 360 print "   [194]   [173][195][195][195][195][195][195][195] fehlerbezeichnung"
  46. 370 print "   [173][195][195][195][195][195][195][195][195][195][195][195] fehlernummer"
  47. 380 (NULL) 10
  48. 390 print "  dies ist das statusregister des"
  49. 400 (NULL) 12
  50. 410 print "  laufwerkes #8."
  51. 420 gosub 10100
  52. 430 (NULL) 0
  53. 440 for i=0 to 39
  54. 450 (NULL) sin(i/5)*6+12
  55. 460 print tab(i);"*"
  56. 470 next
  57. 480 gosub 10100
  58. 490 (NULL)1
  59. 500 (NULL)3,0:(NULL):(NULL)1
  60. 510 print"    nun sehen sie einige grafikdemos"
  61. 515 (NULL)0
  62. 520 fori=1to1500:next
  63. 530 (NULL)1
  64. 540 fori=1to152step4
  65. 550 (NULL)i,i,i/2,i/3
  66. 555 (NULL)319-i,i,i/2,i/3
  67. 560 next
  68. 570 gosub 10200
  69. 580 (NULL)
  70. 590 fori=1to320step4
  71. 600 (NULL)cos(i/15)*20+50,i/1.6,319-2*abs((cos(i/15)*20+50))
  72. 610 next
  73. 620 (NULL) 88,29,144,144
  74. 621 (NULL)1
  75. 625 fori=25+kto70step5
  76. 630 (NULL)160,100,i,i
  77. 640 next
  78. 650 k=k+1
  79. 660 ifk<5then625
  80. 730 (NULL)0
  81. 740 gosub 10000:end
  82. 10000 geta$:ifa$=""then10000
  83. 10005 (NULL)
  84. 10010 return
  85. 10100 rem  ** tastendruck ? **
  86. 10110 for i=1 to 3000:next
  87. 10115 (NULL) 1,11,38,3,1
  88. 10120 print "bitte druecken sie eine taste."
  89. 10130 gosub 10000
  90. 10140 (NULL)
  91. 10150 for i=1 to 500:next
  92. 10160 return
  93. 10200 for i=1 to 2000:next
  94. 10210 return
  95.