home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / in_the_mag / emulation / ql / qdos4amiga3.lha / POKE_DIGITS_bas < prev    next >
Encoding:
Text File  |  1995-09-21  |  1.4 KB  |  44 lines
  1. 100 REMark Amiga Qdos emulator PRINT patch
  2. 110 REMark For Amiga Qdos 3.20 only
  3. 120 REMark Hacked by S N Goodwin 14-09-92
  4. 130 REMark Modified by M J Swift 14-10-92
  5. 140 REMark Tweaked by S N Goodwin 21-11-92
  6. 150 REMark Altered by M J Swift 06-03-93
  7. 160 :
  8. 170 REMark Allows the 8 digit Qdos FP
  9. 180 REMark output routine to generate
  10. 190 REMark 6,7 or 8 significant digits in
  11. 200 REMark BASIC, QLIB etc. Permits
  12. 210 REMark accurate editing of BASIC
  13. 220 REMark constants up to 99999999
  14. 230 REMark with no need to add quotes.
  15. 240 :
  16. 250 REMark * You cannot use this program
  17. 260 REMark   to give 9 or significant
  18. 270 REMark   digits.
  19. 280 :
  20. 290 REMark * Uses PDTK toolkit keywords
  21. 300 REMark   FLOAT$, INTEGER%
  22. 310 :
  23. 320 CLS
  24. 330 PRINT "ASCII     12345678","1234567 ","25.3-25.2"
  25. 340 GIMME 6 : PRINT "6 digits  ";"12345678"+0,"1234567"+0,25.3-25.2
  26. 350 GIMME 7 : PRINT "7 digits  ";"12345678"+0,"1234567"+0;" ",25.3-25.2
  27. 360 GIMME 8 : PRINT "8 digits  ";"12345678"+0,"1234567"+0;" ",25.3-25.2
  28. 370 STOP
  29. 380 :
  30. 1000 DEFine PROCedure GIMME(n)
  31. 1010 LOCal a$(6),e,m
  32. 1020  IF n<6 OR n>8:PRINT#0;n!"digits not allowed.":STOP
  33. 1030  POKE 16133,n-1
  34. 1040  a$=FLOAT$(10^(n+1))
  35. 1050  e=STRING%(a$(1 TO 2))
  36. 1060  m=STRING%(a$(3 TO 4))+((STRING%(a$(5 TO 6)))<>0)
  37. 1070  POKE_W 16156,e:POKE_W 16158,m
  38. 1080  a$=FLOAT$(10^n)
  39. 1090  e=STRING%(a$(1 TO 2))
  40. 1100  m=STRING%(a$(3 TO 4))+((STRING%(a$(5 TO 6)))<>0)
  41. 1110  POKE_W 16176,e:POKE_W 16178,m
  42. 1120  POKE_L 16260,10^n
  43. 1130 END DEFine GIMME
  44.