1 REM ported to Net Basic 2 REM from the DTSS emulator manual A BASIC OUTLINE 3 PRINT "Plot a happy little normal distribution curve" 4 HTML 5 PRINT "
" 10 FOR x = -2 TO 2 STEP .1 30 PRINT TAB(INT(100 * (EXP(-(x ^ 2 / 2)) / SQR(2 * PI)))); 31 GOSUB INT(RND * 10) * 10 + 50 32 PRINT "
" 40 NEXT x 45 PRINT "
46 END 50 PRINT "🙂" 55 RETURN 60 PRINT "😀" 65 RETURN 70 PRINT "😂" 75 RETURN 80 PRINT "😃" 85 RETURN 90 PRINT "😄" 95 RETURN 100 PRINT "😅" 105 RETURN 110 PRINT "😉" 115 RETURN 120 PRINT "😆" 125 RETURN 130 PRINT "😊" 135 RETURN 140 PRINT "😎" 145 RETURN
Return to Example Index