100 REMark Amiga Qdos emulator PRINT patch
110 REMark For Amiga Qdos 3.20 only
120 REMark Hacked by S N Goodwin 14-09-92
130 REMark Modified by M J Swift 14-10-92
140 REMark Tweaked by S N Goodwin 21-11-92
150 REMark Altered by M J Swift 06-03-93
160 :
170 REMark Allows the 8 digit Qdos FP
180 REMark output routine to generate
190 REMark 6,7 or 8 significant digits in
200 REMark BASIC, QLIB etc. Permits
210 REMark accurate editing of BASIC
220 REMark constants up to 99999999
230 REMark with no need to add quotes.
240 :
250 REMark * You cannot use this program
260 REMark   to give 9 or significant
270 REMark   digits.
280 :
290 REMark * Uses PDTK toolkit keywords
300 REMark   FLOAT$, INTEGER%
310 :
320 CLS
330 PRINT "ASCII     12345678","1234567 ","25.3-25.2"
340 GIMME 6 : PRINT "6 digits  ";"12345678"+0,"1234567"+0,25.3-25.2
350 GIMME 7 : PRINT "7 digits  ";"12345678"+0,"1234567"+0;" ",25.3-25.2
360 GIMME 8 : PRINT "8 digits  ";"12345678"+0,"1234567"+0;" ",25.3-25.2
370 STOP
380 :
1000 DEFine PROCedure GIMME(n)
1010 LOCal a$(6),e,m
1020  IF n<6 OR n>8:PRINT#0;n!"digits not allowed.":STOP
1030  POKE 16133,n-1
1040  a$=FLOAT$(10^(n+1))
1050  e=STRING%(a$(1 TO 2))
1060  m=STRING%(a$(3 TO 4))+((STRING%(a$(5 TO 6)))<>0)
1070  POKE_W 16156,e:POKE_W 16158,m
1080  a$=FLOAT$(10^n)
1090  e=STRING%(a$(1 TO 2))
1100  m=STRING%(a$(3 TO 4))+((STRING%(a$(5 TO 6)))<>0)
1110  POKE_W 16176,e:POKE_W 16178,m
1120  POKE_L 16260,10^n
1130 END DEFine GIMME
