00000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000010: 20 20 20 20 20 20 20 2D 2A 2A 2A 2A 3E 3E 3E 20 | -****>>> |
00000020: 44 44 4C 3E 41 4C 50 48 41 2E 56 31 20 3C 3C 3C |DDL>ALPHA.V1 <<<|
00000030: 2A 2A 2A 2A 2D 0D 0A 0D 0A 20 54 68 69 73 20 70 |****-.... This p|
00000040: 72 6F 67 72 61 6D 20 77 61 73 20 77 72 69 74 74 |rogram was writt|
00000050: 65 6E 20 62 79 20 57 61 79 6E 65 20 53 63 68 6D |en by Wayne Schm|
00000060: 69 64 74 20 66 6F 72 20 74 68 65 20 63 6F 6E 76 |idt for the conv|
00000070: 65 72 73 69 6F 6E 20 6F 66 20 68 69 72 65 73 20 |ersion of hires |
00000080: 44 6F 6F 64 6C 65 0D 0A 66 69 6C 65 73 28 24 35 |Doodle..files($5|
00000090: 63 30 30 2D 24 37 66 66 66 29 20 69 6E 74 6F 20 |c00-$7fff) into |
000000A0: 61 6C 70 68 61 6E 75 6D 65 72 69 63 20 74 65 78 |alphanumeric tex|
000000B0: 74 20 66 69 6C 65 73 20 77 68 69 63 68 20 63 61 |t files which ca|
000000C0: 6E 20 62 65 20 70 72 69 6E 74 65 64 20 6F 6E 20 |n be printed on |
000000D0: 41 4E 59 0D 0A 70 72 69 6E 74 65 72 2C 20 69 6E |ANY..printer, in|
000000E0: 63 6C 75 64 69 6E 67 20 44 61 69 73 79 77 68 65 |cluding Daisywhe|
000000F0: 65 6C 73 21 20 54 68 65 20 63 6F 6E 76 65 72 73 |els! The convers|
00000100: 69 6F 6E 20 69 6E 76 6F 6C 76 65 73 20 61 20 34 |ion involves a 4|
00000110: 2D 74 6F 2D 31 20 72 65 64 75 63 74 69 6F 6E 0D |-to-1 reduction.|
00000120: 0A 77 69 74 68 20 31 36 20 76 61 6C 75 65 73 20 |.with 16 values |
00000130: 72 65 70 72 65 73 65 6E 74 69 6E 67 20 74 68 65 |representing the|
00000140: 20 61 76 65 72 61 67 65 64 20 64 65 6E 73 69 74 | averaged densit|
00000150: 69 65 73 2E 20 54 68 65 72 65 20 69 73 20 61 6E |ies. There is an|
00000160: 20 61 63 63 6F 6D 70 61 6E 79 69 6E 67 0D 0A 73 | accompanying..s|
00000170: 63 72 65 65 6E 20 64 69 73 70 6C 61 79 20 61 6E |creen display an|
00000180: 61 6C 6F 67 6F 75 73 20 74 6F 20 74 68 65 20 53 |alogous to the S|
00000190: 45 51 20 66 69 6C 65 20 62 65 69 6E 67 20 77 72 |EQ file being wr|
000001A0: 69 74 74 65 6E 20 74 6F 20 74 68 65 20 64 69 73 |itten to the dis|
000001B0: 6B 20 28 61 73 20 74 68 65 0D 0A 63 6F 6E 76 65 |k (as the..conve|
000001C0: 72 73 69 6F 6E 20 74 61 6B 65 73 20 70 6C 61 63 |rsion takes plac|
000001D0: 65 29 2E 20 49 74 20 79 69 65 6C 64 73 20 61 20 |e). It yields a |
000001E0: 31 36 20 62 6C 6B 20 53 45 51 20 66 69 6C 65 2C |16 blk SEQ file,|
000001F0: 20 6E 61 6D 65 64 20 77 69 74 68 20 74 68 65 20 | named with the |
00000200: 66 69 72 73 74 20 33 0D 0A 63 68 61 72 2E 28 66 |first 3..char.(f|
00000210: 6F 6C 6C 6F 77 69 6E 67 20 27 44 44 27 29 20 26 |ollowing 'DD') &|
00000220: 20 61 6E 20 61 64 64 65 64 20 73 75 66 66 69 78 | an added suffix|
00000230: 20 27 2E 61 6C 66 27 2E 20 49 6E 63 6C 75 64 65 | '.alf'. Include|
00000240: 20 27 44 44 27 20 77 69 74 68 20 74 68 65 20 70 | 'DD' with the p|
00000250: 72 6F 6D 70 74 0D 0A 66 6F 72 20 66 69 6C 65 6E |rompt..for filen|
00000260: 61 6D 65 2E 20 57 68 65 6E 20 74 68 65 20 73 63 |ame. When the sc|
00000270: 72 65 65 6E 20 64 69 73 70 6C 61 79 20 69 73 20 |reen display is |
00000280: 63 6F 6D 70 6C 65 74 65 20 28 61 6E 64 20 74 68 |complete (and th|
00000290: 65 20 64 69 73 6B 20 6C 69 67 68 74 20 6F 75 74 |e disk light out|
000002A0: 29 20 61 6E 79 0D 0A 6B 65 79 20 77 69 6C 6C 20 |) any..key will |
000002B0: 72 65 74 75 72 6E 20 79 6F 75 20 74 6F 20 27 52 |return you to 'R|
000002C0: 45 41 44 59 27 2E 20 49 20 66 69 6E 64 20 74 68 |EADY'. I find th|
000002D0: 61 74 20 74 68 65 20 62 65 73 74 20 70 72 6F 70 |at the best prop|
000002E0: 6F 72 74 69 6F 6E 73 20 61 72 65 20 6F 62 74 61 |ortions are obta|
000002F0: 69 6E 65 64 0D 0A 62 79 20 73 65 74 74 69 6E 67 |ined..by setting|
00000300: 20 74 68 65 20 70 72 69 6E 74 65 72 20 74 6F 20 | the printer to |
00000310: 31 32 20 70 69 74 63 68 20 28 31 32 63 70 69 29 |12 pitch (12cpi)|
00000320: 20 77 69 74 68 20 37 2F 37 32 22 20 28 31 34 2F | with 7/72" (14/|
00000330: 31 34 34 29 20 6C 69 6E 65 73 70 61 63 69 6E 67 |144) linespacing|
00000340: 2E 0D 0A 4F 6E 20 74 68 65 20 53 74 61 72 20 47 |...On the Star G|
00000350: 65 6D 69 6E 69 2F 44 65 6C 74 61 20 31 30 20 28 |emini/Delta 10 (|
00000360: 45 70 73 6F 6E 2D 63 6F 6D 70 61 74 69 62 6C 65 |Epson-compatible|
00000370: 73 29 20 77 69 74 68 20 4D 57 2D 33 35 30 20 28 |s) with MW-350 (|
00000380: 6F 72 20 45 61 73 79 70 72 69 6E 74 29 0D 0A 69 |or Easyprint)..i|
00000390: 6E 74 65 72 66 61 63 65 2C 20 49 20 74 75 72 6E |nterface, I turn|
000003A0: 20 6F 66 66 20 74 68 65 20 27 77 72 61 70 2D 61 | off the 'wrap-a|
000003B0: 72 6F 75 6E 64 27 20 28 66 6F 72 63 65 64 20 38 |round' (forced 8|
000003C0: 30 2D 63 6F 6C 20 65 6D 75 6C 61 74 69 6F 6E 20 |0-col emulation |
000003D0: 6F 66 20 74 68 65 20 31 35 32 35 0D 0A 2F 72 69 |of the 1525../ri|
000003E0: 67 68 74 20 6D 61 72 67 69 6E 29 20 77 69 74 68 |ght margin) with|
000003F0: 20 4F 50 45 4E 20 34 2C 34 3A 50 52 49 4E 54 23 | OPEN 4,4:PRINT#|
00000400: 34 2C 43 48 52 24 28 32 37 29 22 52 22 43 48 52 |4,CHR$(27)"R"CHR|
00000410: 24 28 30 29 3A 43 4C 4F 53 45 20 34 2E 20 54 68 |$(0):CLOSE 4. Th|
00000420: 65 6E 2C 20 75 73 69 6E 67 0D 0A 54 52 41 4E 53 |en, using..TRANS|
00000430: 50 41 52 45 4E 54 20 73 65 63 6F 6E 64 61 72 79 |PARENT secondary|
00000440: 20 61 64 64 72 65 73 73 20 6F 66 20 27 35 27 20 | address of '5' |
00000450: 28 73 61 6D 65 20 61 73 20 43 61 72 64 63 6F 20 |(same as Cardco |
00000460: 73 74 61 6E 64 61 72 64 29 2C 20 20 4F 50 45 4E |standard), OPEN|
00000470: 20 34 2C 34 2C 35 3A 0D 0A 50 52 49 4E 54 23 34 | 4,4,5:..PRINT#4|
00000480: 2C 43 48 52 24 28 32 37 29 22 42 22 43 48 52 24 |,CHR$(27)"B"CHR$|
00000490: 28 32 29 3B 43 48 52 24 28 32 37 29 22 31 22 3A |(2);CHR$(27)"1":|
000004A0: 50 52 49 4E 54 23 34 2C 43 48 52 24 28 32 37 29 |PRINT#4,CHR$(27)|
000004B0: 22 4D 22 43 48 52 24 28 38 29 3A 43 4C 4F 53 45 |"M"CHR$(8):CLOSE|
000004C0: 20 34 2E 0D 0A 54 68 69 73 20 73 65 74 73 3A 20 | 4...This sets: |
000004D0: 31 32 20 70 69 74 63 68 2C 20 37 2F 37 32 22 20 |12 pitch, 7/72" |
000004E0: 6C 69 6E 65 73 70 61 63 65 2C 20 61 6E 64 20 38 |linespace, and 8|
000004F0: 20 63 68 61 72 2E 20 6C 65 66 74 20 6D 61 72 67 | char. left marg|
00000500: 69 6E 20 28 74 6F 20 63 65 6E 74 65 72 29 2E 0D |in (to center)..|
00000510: 0A 45 71 75 69 76 61 6C 65 6E 74 20 6F 6E 20 61 |.Equivalent on a|
00000520: 20 4F 6B 69 20 39 32 20 77 69 74 68 20 4D 57 2D | Oki 92 with MW-|
00000530: 33 35 30 3A 20 74 75 72 6E 20 6F 66 66 20 27 77 |350: turn off 'w|
00000540: 72 61 70 2D 61 72 6F 75 6E 64 27 2C 20 74 68 65 |rap-around', the|
00000550: 6E 20 4F 50 45 4E 20 34 2C 34 2C 35 3A 0D 0A 50 |n OPEN 4,4,5:..P|
00000560: 52 49 4E 54 23 34 2C 43 48 52 24 28 32 38 29 3A |RINT#4,CHR$(28):|
00000570: 50 52 49 4E 54 23 34 2C 43 48 52 24 28 32 37 29 |PRINT#4,CHR$(27)|
00000580: 22 25 39 22 43 48 52 24 28 31 34 29 3A 50 52 49 |"%9"CHR$(14):PRI|
00000590: 4E 54 23 34 2C 43 48 52 24 28 32 37 29 22 25 43 |NT#4,CHR$(27)"%C|
000005A0: 30 39 30 22 3A 43 4C 4F 53 45 34 2E 0D 0A 41 66 |090":CLOSE4...Af|
000005B0: 74 65 72 20 73 65 74 74 69 6E 67 20 74 68 65 20 |ter setting the |
000005C0: 70 72 69 6E 74 65 72 2C 20 79 6F 75 20 63 61 6E |printer, you can|
000005D0: 20 75 73 65 20 61 6E 79 20 77 6F 72 64 70 72 6F | use any wordpro|
000005E0: 63 65 73 73 6F 72 20 28 73 75 70 70 6F 72 74 69 |cessor (supporti|
000005F0: 6E 67 20 53 45 51 29 20 6F 72 0D 0A 53 65 71 75 |ng SEQ) or..Sequ|
00000600: 65 6E 74 69 61 6C 20 46 69 6C 65 20 50 72 69 6E |ential File Prin|
00000610: 74 65 72 2E 20 49 74 20 69 73 20 72 65 63 6F 6D |ter. It is recom|
00000620: 6D 65 6E 64 65 64 20 74 68 61 74 20 79 6F 75 20 |mended that you |
00000630: 61 64 64 72 65 73 73 20 74 68 65 20 70 72 69 6E |address the prin|
00000640: 74 65 72 20 69 6E 0D 0A 54 52 41 4E 53 50 41 52 |ter in..TRANSPAR|
00000650: 45 4E 54 20 6D 6F 64 65 20 61 6E 64 20 6F 75 70 |ENT mode and oup|
00000660: 75 74 20 61 73 20 41 53 43 49 49 20 74 65 78 74 |ut as ASCII text|
00000670: 20 28 74 68 65 20 6E 61 74 75 72 65 20 6F 66 20 | (the nature of |
00000680: 74 68 65 20 66 69 6C 65 29 2E 20 49 20 68 61 76 |the file). I hav|
00000690: 65 0D 0A 75 70 6C 6F 61 64 65 64 20 61 20 70 72 |e..uploaded a pr|
000006A0: 67 20 74 68 61 74 20 73 70 65 63 69 66 69 63 61 |g that specifica|
000006B0: 6C 6C 79 20 73 75 70 70 6F 72 74 73 20 74 68 65 |lly supports the|
000006C0: 20 70 72 69 6E 74 6F 75 74 20 6F 6E 20 47 65 6D | printout on Gem|
000006D0: 69 6E 69 2F 45 70 73 6F 6E 20 69 6E 0D 0A 31 32 |ini/Epson in..12|
000006E0: 20 70 69 74 63 68 20 61 6E 64 20 61 64 64 69 74 | pitch and addit|
000006F0: 69 6F 6E 61 6C 6C 79 20 31 32 20 70 69 74 63 68 |ionally 12 pitch|
00000700: 20 27 73 75 70 65 72 73 63 72 69 70 74 27 20 28 | 'superscript' (|
00000710: 77 69 74 68 20 6C 69 6E 65 73 70 61 63 69 6E 67 |with linespacing|
00000720: 20 68 61 6E 64 6C 65 64 29 0D 0A 61 6E 64 20 61 | handled)..and a|
00000730: 6E 6F 74 68 65 72 20 74 68 61 74 20 73 70 65 63 |nother that spec|
00000740: 69 66 69 63 61 6C 6C 79 20 73 75 70 70 6F 72 74 |ifically support|
00000750: 73 20 74 68 65 20 70 72 69 6E 74 6F 75 74 20 6F |s the printout o|
00000760: 6E 20 61 6E 20 4F 6B 69 64 61 74 61 20 39 32 20 |n an Okidata 92 |
00000770: 77 69 74 68 0D 0A 31 32 20 70 69 74 63 68 20 65 |with..12 pitch e|
00000780: 6E 68 61 6E 63 65 64 2E 20 20 20 20 20 20 2E 57 |nhanced. .W|
00000790: 61 79 6E 65 20 53 63 68 6D 69 64 74 2E 0D 1A 1A |ayne Schmidt....|
000007A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
000007B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
000007C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
000007D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
000007E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
000007F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000800: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000810: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000820: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000830: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000840: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000850: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000860: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000870: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
-****>>> DDL>ALPH
A.V1 <<<****-.... THIS PROGRAM WAS WRITT
EN BY WAYNE SCHMIDT FOR THE CONVERSION O
F HIRES DOODLE..FILES($5C00-$7FFF) INTO
ALPHANUMERIC TEXT FILES WHICH CAN BE PRI
NTED ON ANY..PRINTER, INCLUDING DAISYWHE
ELS! THE CONVERSION INVOLVES A 4-TO-1 RE
DUCTION..WITH 16 VALUES REPRESENTING THE
AVERAGED DENSITIES. THERE IS AN ACCOMPA
NYING..SCREEN DISPLAY ANALOGOUS TO THE S
EQ FILE BEING WRITTEN TO THE DISK (AS TH
E..CONVERSION TAKES PLACE). IT YIELDS A
16 BLK SEQ FILE, NAMED WITH THE FIRST 3.
.CHAR.(FOLLOWING 'DD') & AN ADDED SUFFIX
'.ALF'. INCLUDE 'DD' WITH THE PROMPT..F
OR FILENAME. WHEN THE SCREEN DISPLAY IS
COMPLETE (AND THE DISK LIGHT OUT) ANY..K
EY WILL RETURN YOU TO 'READY'. I FIND TH
AT THE BEST PROPORTIONS ARE OBTAINED..BY
SETTING THE PRINTER TO 12 PITCH (12CPI)
WITH 7/72" (14/144) LINESPACING...ON TH
E STAR GEMINI/DELTA 10 (EPSON-COMPATIBLE
S) WITH MW-350 (OR EASYPRINT)..INTERFACE
, I TURN OFF THE 'WRAP-AROUND' (FORCED 8
0-COL EMULATION OF THE 1525../RIGHT MARG
IN) WITH OPEN 4,4:PRINT#4,CHR$(27)"R"CHR
$(0):CLOSE 4. THEN, USING..TRANSPARENT S
ECONDARY ADDRESS OF '5' (SAME AS CARDCO
STANDARD), OPEN 4,4,5:..PRINT#4,CHR$(27
)"B"CHR$(2);CHR$(27)"1":PRINT#4,CHR$(27)
"M"CHR$(8):CLOSE 4...THIS SETS: 12 PITCH
, 7/72" LINESPACE, AND 8 CHAR. LEFT MARG
IN (TO CENTER)...EQUIVALENT ON A OKI 92
WITH MW-350: TURN OFF 'WRAP-AROUND', THE
N OPEN 4,4,5:..PRINT#4,CHR$(28):PRINT#4,
CHR$(27)"%9"CHR$(14):PRINT#4,CHR$(27)"%C
090":CLOSE4...AFTER SETTING THE PRINTER,
YOU CAN USE ANY WORDPROCESSOR (SUPPORTI
NG SEQ) OR..SEQUENTIAL FILE PRINTER. IT
IS RECOMMENDED THAT YOU ADDRESS THE PRIN
TER IN..TRANSPARENT MODE AND OUPUT AS AS
CII TEXT (THE NATURE OF THE FILE). I HAV
E..UPLOADED A PRG THAT SPECIFICALLY SUPP
ORTS THE PRINTOUT ON GEMINI/EPSON IN..12
PITCH AND ADDITIONALLY 12 PITCH 'SUPERS
CRIPT' (WITH LINESPACING HANDLED)..AND A
NOTHER THAT SPECIFICALLY SUPPORTS THE PR
INTOUT ON AN OKIDATA 92 WITH..12 PITCH E
NHANCED. .WAYNE SCHMIDT............
........................................
........................................
........................................
........................................
........................................
................
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL