home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8703a.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  96 lines
  1. 10 PRINT"[147]DEMO FUER  ARITH13"
  2. 20 PRINT"VON MARKUS OLBRICH"
  3. 30 GOSUB10000
  4. 40 PRINT"[147]";:GOSUB12000:PRINT"UNTERSCHIED ZWISCHEN":PRINT"PRINT UND PRINT&"
  5. 45 PRINT"PRINT 0.6666666666666":GOSUB13000
  6. 50 PRINT.6666666666666:PRINT
  7. 51 PRINT"ES WERDEN ZWAR INTERN 14 STELLEN BERECH-";
  8. 52 PRINT"NET. DER ALTE PRINT BEFEHL ZEIGT ABER"
  9. 53 PRINT"NUR 9 DAVON AN."
  10. 60 PRINT"PRINT& 0.6666666666666":GOSUB13000
  11. 70 PRINT&.6666666666666
  12. 71 PRINT"DER PRINT& BEFEHL ZEIGT BEI ARITH13"
  13. 72 PRINT"GANZE 13 STELLEN AN."
  14. 80 GOSUB10000
  15. 85 GOSUB1000:CLR
  16. 90 PRINT"[147]";:GOSUB11000
  17. 100 PRINT"PRINT SQR(10)^2-10":GOSUB13000
  18. 110 PRINTSQR(10)^2-10
  19. 115 PRINT"MUESSTE GENAU 0 ERGEBEN !!"
  20. 120 GOSUB12000
  21. 130 PRINT"PRINT SQR(10)^2-10":GOSUB13000
  22. 140 PRINTSQR(10)^2-10
  23. 145 GOSUB10000
  24. 150 PRINT"[147]";:GOSUB11000
  25. 160 PRINT"FORI=0TO1STEP0.1:PRINTI:NEXT"
  26. 170 GOSUB13000:CLR
  27. 180 FORI=0TO1STEP.1:PRINTI:NEXT
  28. 185 PRINT"DIE 1 FEHLT !!!!"
  29. 187 GOSUB10000:PRINT"[147]";
  30. 190 GOSUB12000:CLR
  31. 200 PRINT"FORI=0TO1STEP0.1:PRINTI:NEXT"
  32. 210 GOSUB13000:CLR
  33. 220 FORI=0TO1STEP.1:PRINTI:NEXT
  34. 230 GOSUB10000:CLR
  35. 240 PRINT"[147]LOGARITHMISCHE UND"
  36. 245 PRINT"EXPONENTIALFUNKTIONEN:"
  37. 250 GOSUB11000:CLR
  38. 260 PRINT"PRINT LOG(2)":GOSUB13000
  39. 270 PRINTLOG(2)
  40. 280 PRINT"PRINT EXP(1)":GOSUB13000
  41. 290 PRINTEXP(1)
  42. 300 PRINT"PRINT 3^0.5":GOSUB13000
  43. 310 PRINT3^.5
  44. 320 PRINT""
  45. 350 GOSUB12000:CLR
  46. 360 PRINT"PRINT& LOG(2)":GOSUB13000
  47. 370 PRINT&LOG(2)
  48. 380 PRINT"PRINT& EXP(1)":GOSUB13000
  49. 390 PRINT&EXP(1)
  50. 400 PRINT"PRINT& 3^0.5":GOSUB13000
  51. 410 PRINT&3^.5
  52. 420 GOSUB10000:CLR
  53. 430 PRINT"[147]TRIGONOMETRISCHE FUNKTIONEN:"
  54. 440 GOSUB11000:CLR
  55. 450 PRINT"PRINT SIN(1)":GOSUB13000
  56. 460 PRINTSIN(1)
  57. 470 PRINT"PRINT COS(1)":GOSUB13000
  58. 480 PRINTCOS(1)
  59. 482 PRINT"PRINT TAN(1)":GOSUB13000
  60. 484 PRINTTAN(1)
  61. 490 PRINT"PRINT ATN(1)":GOSUB13000
  62. 500 PRINTATN(1);""
  63. 510 GOSUB12000:CLR
  64. 520 PRINT"PRINT& SIN(1)":GOSUB13000
  65. 530 PRINT&SIN(1)
  66. 540 PRINT"PRINT& COS(1)":GOSUB13000
  67. 550 PRINT&COS(1)
  68. 552 PRINT"PRINT& TAN(1)":GOSUB13000
  69. 554 PRINT&TAN(1)
  70. 560 PRINT"PRINT& ATN(1)":GOSUB13000
  71. 570 PRINT&ATN(1);""
  72. 580 GOSUB10000
  73. 600 PRINT"[147]ENDE."
  74. 999 END
  75. 1000 PRINT"[147]";:GOSUB11000
  76. 1010 PRINT"PRINT 1+0.000000000001"
  77. 1020 GOSUB13000
  78. 1030 PRINT1+.000000000001
  79. 1031 PRINT"DIE 0.000000000001 GEHT VERLOREN !"
  80. 1040 GOSUB12000
  81. 1050 PRINT"PRINT& 1+0.000000000001"
  82. 1060 GOSUB13000
  83. 1070 PRINT&1+.000000000001
  84. 1080 GOTO10000
  85. 10000 PRINT"          (TASTE DRUECKEN)";
  86. 10010 GETA$:IFA$=""THEN10010
  87. 10020 RETURN
  88. 11000 PRINT"[158]CBM BASIC V2 :":PRINT
  89. 11010 POKE1,3*16+7:RETURN
  90. 12000 PRINT"ARITH13 :":PRINT
  91. 12010 POKE1,3*16+5:RETURN
  92. 13000 PRINT"[145]";TAB(31);"<RETURN>"
  93. 13010 GETA$:IFA$=""THEN13010
  94. 13020 IFASC(A$)<>13THEN13010
  95. 13030 RETURN
  96.