home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / SQUARE-ROOTS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  53 lines
  1. 95 GOSUB 4999
  2. 100 PRINTCHR$(147)
  3. 110 PRINT"OPTION #1 NUMBER YOU NEED SQUARE OF":PRINT:PRINT:PRINT
  4. 120 PRINT"OPTION #2 CONTINOUS SQUARE ROOTS":PRINT:PRINT:PRINT
  5. 125 PRINT"OPTION #3 END PROGRAM":PRINT:PRINT:PRINT
  6. 130 INPUT"SELECT OPTION(1/2/3)";P
  7. 135 ON P GOTO 1000,2000,6000
  8. 1000 PRINTCHR$(147):INPUT"NUMBER YOU NEED SQUARE ROOT OF";G
  9. 1010 PRINT"THE SQUARE ROOT OF";G;"=";SQR(G)
  10. 1020 INPUT"ANOTHER OR MENU(Y/M)";K$
  11. 1030 IF K$="Y" THEN 1000
  12. 1040 IF K$="M" THEN 100
  13. 2000 PRINTCHR$(147):POKE 53280,0:POKE53281,2
  14. 2010 INPUT"SCREEN OR PRINTER(S/P)";A$
  15. 2020 IF A$="S" THEN 2050
  16. 2030 IF A$="P" THEN 3000
  17. 2050 FOR T= 1 TO 100
  18. 2060 PRINT"THE SQUARE ROOT OF";T"="SQR(T):PRINT:PRINT:PRINT:PRINT
  19. 2065 FOR S= 1 TO 1500:NEXT S
  20. 2066 NEXT T
  21. 2070 INPUT"MENU OR END(M/E)";O$
  22. 2080 IF O$="M" THEN 100
  23. 2090 IF O$="E" THEN 6000
  24. 3000 OPEN3,4
  25. 3010 CMD3
  26. 3020 FOR Y=1 TO 100
  27. 3030 PRINT"THE SQUARE ROOT OF";Y;"=";SQR(Y):PRINT:PRINT
  28. 3040 NEXT Y
  29. 3041 PRINT#3
  30. 3042 CLOSE3
  31. 3050 INPUT"MENU OR END(M/E)";K$
  32. 3060 IF K$="M" THEN 100
  33. 3070 IF K$="E" THEN 6000
  34. 4999 PRINTCHR$(147):POKE 53280,6:POKE 53281,6
  35. 5000 PRINTTAB(10)CHR$(144)"******************"
  36. 5010 PRINTTAB(10)CHR$(144)"*                *"
  37. 5020 PRINTTAB(10)CHR$(144)"*                *"
  38. 5030 PRINTTAB(10)CHR$(144)"*     FOGGER     *"
  39. 5035 PRINTTAB(10)CHR$(144)"*                *"
  40. 5040 PRINTTAB(10)CHR$(144)"*                *"
  41. 5045 PRINTTAB(10)CHR$(144)"******************"
  42. 5046 FOR Y= 1 TO 6000:NEXT Y
  43. 5050 PRINT:PRINT:PRINT:PRINT:PRINT
  44. 5060 PRINTTAB(15)CHR$(144)"PRESENTS"
  45. 5070 FOR U= 1    
  46. 12336 0:NEXT U
  47. 5080 PRINTCHR$(147):POKE 53281,7:POKE 53280,7
  48. 5081 PRINT:PRINT:PRINT:PRINT:PRINT
  49. 5082 PRINTTAB(15)CHR$(144)"SQUARE ROOTS"
  50. 5083 FOR I = 1 TO 5000:NEXT I
  51. 5085 RETURN
  52. 6000 END
  53.