home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24a.d64 / demo5 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.