home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 03 Demos and Info / COPROC.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.8 KB  |  58 lines
  1. 10 POKE55,.:POKE56,160:CLR:REM &SQR,U
  2. 20 Q$=CHR$(34):M$=CHR$(13):E=56576:V=53248
  3. 30 PRINT"[147][208]RESS D FOR DOCUMENTATION."
  4. 35 PRINT"[208]RESS C FOR CALCULATION."
  5. 40 GETA$:IFA$="C"THENPRINT"[147]":GOTO60
  6. 45 IFA$="D"THEN300
  7. 50 GOTO40
  8. 55 PRINT"[147][196][197][214][201][195][197]";D;"[157] [206][207][212] [208][210][197][211][197][206][212]":CLOSE8
  9. 60 PRINT"[197]NTER DISK DRIVE DEVICE NUMBER."
  10. 65 PRINT"([197]NTER 0 TO EXIT.)"
  11. 70 PRINT"  8[145]":INPUTD:IFD=.THENEND
  12. 75 IFD>30ORD<4THENPRINT"[147][201][204][204][197][199][193][204] [196][197][214][201][195][197] [206][213][205][194][197][210]":GOTO60
  13. 80 POKE183,6:POKE184,8:POKE185,8:POKE186,D:POKE187,23:POKE188,8
  14. 90 SYS65472:IFPEEK(783)AND1THEN55
  15. 95 CLOSE8:OPEN15,D,15:GOSUB600:IFJ$="00"THEN110
  16. 100 IFJ$="62"ORJ$="64"THEN400
  17. 105 CLOSE15:PRINT"[147]":GOTO60
  18. 110 PRINT#15,"UI":OPEN8,D,8,"&SQR":CLOSE8
  19. 115 PRINT#15,"&SQR=2":POKEE,7:PRINT"[147]"
  20. 120 POKE183,120:POKE187,255:POKE188,198
  21. 125 F=.:PRINT"[197]NTER INTEGER FROM 1 TO 99 FOR COMPUTER."
  22. 130 PRINT"([208]RESS <[210][197][212][213][210][206]> FOR NO NUMBER.)"
  23. 135 N$="":INPUTN$
  24. 140 N=VAL(N$):IFN>99THENPRINT"[147]":GOTO125
  25. 145 IFN<1THENF=1:GOTO155
  26. 150 POKE140,N
  27. 155 PRINT"[197]NTER INTEGER FROM 1 TO 99 FOR [196][207][211]."
  28. 160 PRINT"([208]RESS <[210][197][212][213][210][206]> FOR NO NUMBER.)"
  29. 165 N$="":INPUTN$:N=VAL(N$):IFN>99THEN155
  30. 170 IFN<1THENIFFTHEN200
  31. 175 PRINT"[147][195]ALCULATING..."
  32. 180 IFN<1THENSYS7391:GOTO195
  33. 185 POKE7887,N:SYS7375:IFFTHENSYS7286:GOTO195
  34. 190 SYS6852
  35. 195 SYS7895:GOSUB630:PRINT"[147]":GOTO125
  36. 200 PRINT#15,"UI":CLOSE15:PRINT"[142]":END
  37. 230 OPEN8,D,8,"&SQR":CLOSE8:RETURN
  38. 300 PRINT"[147][201]F PRINTER (DEVICE 4) IS [207][206] WHEN"
  39. 310 PRINT"<[210][197][212][213][210][206]> IS PRESSED, OUTPUT WILL BE TO  PRINTER."
  40. 320 GETA$:IFA$=M$THENPRINT"[147]";:SYS3646:GOTO30
  41. 330 GOTO320
  42. 400 PRINT"[147][212]HERE IS NO USR TYPE FILE NAMED ";Q$;"&SQR";Q$
  43. 410 PRINT"ON DISK.  [208]RESS C TO CREATE SUCH A FILE."
  44. 420 PRINT"([207]R PRESS X TO EXIT.)"
  45. 430 GETA$:IFA$="C"THEN460
  46. 440 IFA$="X"THEN200
  47. 450 GOTO430
  48. 460 OPEN8,D,8,"&SQR,U,W"
  49. 470 PRINT"[215]RITING ";Q$;"&SQR";Q$;"..."
  50. 480 FORI=7399TO7827:PRINT#8,CHR$(PEEK(I));:NEXT
  51. 490 CLOSE8:PRINT"[147]":GOTO110
  52. 600 INPUT#15,J$,O$,H$,N$
  53. 610 IFJ$="00"ORJ$="62"ORJ$="64"THENRETURN
  54. 620 PRINT:PRINTJ$,O$:PRINT:PRINTH$,N$
  55. 630 PRINT"[208]RESS <[210][197][212][213][210][206]>.";
  56. 640 GETA$:IFA$=M$THENRETURN
  57. 650 GOTO640
  58.