home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1998 December / PCA1298.ISO / leser / 3 / QKURS.BAS < prev    next >
BASIC Source File  |  1998-09-30  |  4KB  |  149 lines
  1. CLS
  2. SCREEN 2
  3. PRINT "                             QBASIC KURS"
  4. CIRCLE (280, 100), 100
  5. INPUT "RETURN !", N
  6. CIRCLE (280, 100), 99
  7. INPUT "RETURN !", N
  8. CIRCLE (280, 100), 98
  9. INPUT "RETURN !", N
  10. CIRCLE (280, 100), 97
  11. INPUT "RETURN !", N
  12. CIRCLE (280, 100), 96
  13. INPUT "RETURN !", N
  14. CIRCLE (280, 100), 95
  15. INPUT "RETURN !", N
  16. CIRCLE (280, 100), 95
  17. INPUT "RETURN !", N
  18. CIRCLE (280, 100), 94
  19. INPUT "RETURN !", N
  20. CIRCLE (280, 100), 93
  21. INPUT "RETURN !", N
  22. CIRCLE (280, 100), 92
  23. INPUT "RETURN !", N
  24. CIRCLE (280, 100), 91
  25. INPUT "RETURN !", N
  26. CIRCLE (280, 100), 90
  27. INPUT "RETURN !", N
  28. CIRCLE (280, 100), 89
  29. INPUT "RETURN !", N
  30. CIRCLE (280, 100), 88
  31. INPUT "RETURN !", N
  32. CIRCLE (280, 100), 87
  33. INPUT "RETURN !", N
  34. CIRCLE (280, 100), 86
  35. INPUT "RETURN !", N
  36. CIRCLE (280, 100), 85
  37. INPUT "RETURN !", N
  38. CIRCLE (280, 100), 84
  39. INPUT "RETURN !", N
  40. CIRCLE (280, 100), 83
  41. INPUT "RETURN !", N
  42. CIRCLE (280, 100), 82
  43. INPUT "RETURN !", N
  44. LINE (365, 80)-(190, 120), , B
  45. CIRCLE (280, 100), 81
  46. INPUT "RETURN !", N
  47. CIRCLE (280, 100), 80
  48. LINE (0, 0)-(550, 200), 3, , &HFF00
  49. CIRCLE (280, 100), 79
  50. INPUT "RETURN !", N
  51. 1 CLS
  52. PRINT "                              QBASIC KURS"
  53. SOUND 500, 5
  54. SOUND 510, 5
  55. PRINT
  56. PRINT
  57. PRINT
  58. PRINT "1=DIE EINFACHEN GRUNDBEFEHLE"
  59. PRINT "2=EIN ADVENTURE"
  60. PRINT "3=EIN PROGRAMM IN QBASIC"
  61. PRINT "4=SCHWIERIGERE BEFEHLE"
  62. PRINT "5=BEENDEN"
  63. PRINT
  64. LINE (365, 80)-(190, 120), , BF
  65. INPUT ; b$
  66. IF b$ = "1" THEN GOTO 2
  67. IF b$ = "2" THEN GOTO 4
  68. IF b$ = "3" THEN GOTO 60
  69. IF b$ = "4" THEN GOTO 80
  70. IF b$ = "5" THEN GOTO 40
  71. GOTO 1
  72. 2 CLS
  73. PRINT " '= BEDEUTET IMMER :ANFÜHRUNGSSTRICHE OBEN"
  74. INPUT "RETURN!", N
  75. CLS
  76. PRINT "PRINT = MIT DEN PRINT BEFEHL SCHREIBEN SIE ENTWEDER (INANFÜHRUNGSTRICHEN) ODER "
  77. PRINT "UM EINE ZEILE FREI ZULASSEN. b.s.p: PRINT 'HALLO' "
  78. PRINT "MIT DEN PRINT BEFEHL KÖNNEN SIE AUCH REChNEN. b.s.p:PRINT 3+2 │+=PLUS -=MINUS"
  79. PRINT "*=MAL"
  80. PRINT
  81. PRINT "CLS = MIT DEN CLS BEFEHL MACHEN SIE DEN BILDSCHIRM FREI. b.s.p:CLS "
  82. PRINT "                                                               PRINT 3+4 "
  83. PRINT
  84. PRINT "GOTO = MIT DEN GOTO BEFEHL SPRINGEN SIE ZU EINER ANDEREN ZEILE. b.s.p:GOTO 1"
  85. PRINT "KENNZEICHNEN SIE ABER DIE ZEILE ZU DER SIE SPRINGEN WOLLEN! b.s.p:1 CLS"
  86. PRINT "                                                                  PRINT 5+4"
  87. PRINT "                                                                  GOTO 1"
  88. PRINT
  89. PRINT "SOUND = MIT DEN SOUND BEFEHL SPIELEN SIE EINEN TON AB. b.s.p:SOUND 100,5"
  90. PRINT "SOUND -B- ,-A- B=HÖHE DES TONES A=LÄNGE DES TONES"
  91. PRINT
  92. PRINT "INPUT = MIT DEN BEFEHL INPUT FRAGEN SIE AB b.s.p1 ODER MACHEN EINE PAUSE "
  93. PRINT "b.s.p1 = INPUT 'WIEVIEL GELD?',n │oder│INPUT 'WIEVIEL GELD';n"
  94. PRINT
  95. INPUT "RETURN!", N
  96. GOTO 1
  97. 4 CLS
  98. PRINT "HABEN SIE SICH SCHON IMMER MAL EIN EIGENES TEXTADVETURE HABEN WOLLEN ?"
  99. PRINT "DANN SEHEN SIE SICH EINMAL DIESES BEISPIEL AN! SO ÄHNLICH KÖNNTEN SIE IHRES "
  100. PRINT "MACHEN. ('=AUSRUFEZEICHEN OBEN)"
  101. PRINT
  102. PRINT "PRINT '                    RECHNEN'"
  103. PRINT "PRINT"
  104. PRINT "INPUT 'WAS IST 10ⁿ?', m$"
  105. PRINT "IF m$ = '1000'THEN GOTO 1"
  106. PRINT "PRINT 'FALSCH!'"
  107. PRINT "1 PRINT 'RICHTIG'"
  108. PRINT
  109. INPUT "RETURN!", N
  110. GOTO 1
  111. 60 CLS
  112. PRINT "ES GIBT NATÜRLICH AUCH ANDERE PROGRAMMARTEN ALS TEXTADVENTURES WIE ZUM BEISPIEL"
  113. PRINT "DIESES GRAFIKPROGRAMM. "
  114. PRINT
  115. PRINT "CLS"
  116. PRINT "SCREEN 2"
  117. PRINT "CIRCLE (280, 100), 79  "
  118. PRINT
  119. INPUT "RETURN!", b
  120. GOTO 1
  121. 80 CLS
  122. PRINT " '= BEDEUTET IMMER :ANFÜHRUNGSSTRICHE OBEN"
  123. INPUT "RETURN!", N
  124. CLS
  125. PRINT "CIRCLE = MIT DEN BEFEHL CIRCLE ZEICHNEN SIE EINEN KREIS. b.s.p:SCREEN 2"
  126. PRINT "                                                        CIRCLE(280, 100), 79  "
  127. PRINT
  128. PRINT "LINE = MIT DEN BEFEHL LINE ZEICHNEN SIE EINE LINIE. b.s.p:SCREEN 2"
  129. PRINT "                                                    LINE (110, 70)-(190, 120) "
  130. PRINT
  131. PRINT "IF = MIT DEN BEFEHL IF WERTEN SIE EINE FRAGE AUS. b.s.p:INPUT '1oder2?',X$"
  132. PRINT "                                       IF B$ = '1' THEN PRINT 'RICHTIG GERATEN !"
  133. PRINT "                                     IF B$ = '2' THEN PRINT 'FALSCH GERATEN !"
  134. PRINT
  135. PRINT "SCREEN = MIT DEN BEFEHL SRCREEN AKTIEVIEREN SIE DEN GRAFIKMODUS. b.s.p:SCREEN 2"
  136. PRINT "SCREEN -d- d=AUFLÖSUNG(1,2,7bis12)│                       CIRCLE(280, 100), 79"
  137. PRINT
  138. INPUT "RETURN!", d
  139. GOTO 1
  140. 40 PRINT
  141. PRINT
  142. PRINT
  143. PRINT
  144. PRINT
  145. PRINT
  146. PRINT "DIESES PROGRAMM IST VON ROBIN HABERKORN "
  147. END
  148.  
  149.