PRINT FORMAT
FILE INFORMATION
FILENAME(S): PRINT FORMAT
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 17:31:36
APPEARS ON: 1 disk(s)
FILE HASH
ba4df42abe05e14c5361ff0de4331a3c9d51f26a430a427676f36cfd2320a057
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0016UT | PRINT FORMAT | PRG | UK CD | 9 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 52 08 01 00 8F 20 57 52 49 54 54 45 4E 20 |..R.... WRITTEN | 00000010: 20 35 2D 38 2D 37 38 20 20 42 59 20 20 4D 45 4C | 5-8-78 BY MEL| 00000020: 20 5A 41 4E 44 4C 45 52 20 20 20 20 20 20 20 20 | ZANDLER | 00000030: 32 32 33 31 20 42 55 4C 4C 49 4E 47 45 52 2C 20 |2231 BULLINGER, | 00000040: 57 49 43 48 49 54 41 2C 20 4B 53 20 36 37 32 30 |WICHITA, KS 6720| 00000050: 34 01 00 6C 08 02 00 41 B2 20 32 33 2E 33 33 34 |4..l...A. 23.334| 00000060: 35 3A 42 B2 AB 32 35 3A 89 20 31 30 00 9C 08 03 |5:B..25:. 10....| 00000070: 00 99 20 22 93 20 20 41 3D 2E 38 2A 41 20 20 20 |.. ". A=.8*A | 00000080: 42 3D 31 2E 32 35 2A 42 20 20 20 31 30 30 30 2A |B=1.25*B 1000*| 00000090: 41 20 20 20 20 2E 30 30 31 2A 42 22 00 B3 08 04 |A .001*B"....| 000000A0: 00 41 B2 41 AC 2E 38 30 3A 42 B2 42 AC 31 2E 32 |.A.A..80:B.B.1.2| 000000B0: 35 3A 99 00 D3 08 05 00 5A 58 B2 41 3A 5A 31 B2 |5:......ZX.A:Z1.| 000000C0: 33 3A 5A 32 B2 35 3A 5A 33 B2 30 3A 8D 20 35 30 |3:Z2.5:Z3.0:. 50| 000000D0: 30 30 30 00 F4 08 06 00 5A 58 B2 42 3A 5A 31 B2 |000.....ZX.B:Z1.| 000000E0: 34 3A 5A 32 B2 32 3A 5A 33 B2 31 31 3A 8D 20 35 |4:Z2.2:Z3.11:. 5| 000000F0: 30 30 30 30 00 18 09 07 00 5A 58 B2 31 45 33 AC |0000.....ZX.1E3.| 00000100: 41 3A 5A 31 B2 35 3A 5A 32 B2 33 3A 5A 33 B2 32 |A:Z1.5:Z2.3:Z3.2| 00000110: 30 3A 8D 35 30 30 30 30 00 3D 09 08 00 5A 58 B2 |0:.50000.=...ZX.| 00000120: 2E 30 30 31 AC 42 3A 5A 31 B2 33 3A 5A 32 B2 33 |.001.B:Z1.3:Z2.3| 00000130: 3A 5A 33 B2 33 31 3A 8D 35 30 30 30 30 00 45 09 |:Z3.31:.50000.E.| 00000140: 09 00 89 20 34 00 73 09 0A 00 99 20 22 93 54 48 |... 4.s.... ".TH| 00000150: 49 53 20 53 55 42 52 4F 55 54 49 4E 45 20 46 4F |IS SUBROUTINE FO| 00000160: 52 4D 41 54 53 20 50 52 49 4E 54 20 4F 55 54 50 |RMATS PRINT OUTP| 00000170: 55 54 22 00 A4 09 14 00 99 20 22 11 56 41 52 49 |UT"...... ".VARI| 00000180: 41 42 4C 45 53 20 55 53 45 44 20 41 52 45 20 5A |ABLES USED ARE Z| 00000190: 31 2C 5A 32 2C 5A 33 2C 5A 49 2C 5A 4A 2C 5A 58 |1,Z2,Z3,ZI,ZJ,ZX| 000001A0: 2C 5A 59 22 00 D4 09 1E 00 99 20 22 5A 49 2C 20 |,ZY"...... "ZI, | 000001B0: 5A 4A 2C 20 41 4E 44 20 5A 59 20 41 52 45 20 4F |ZJ, AND ZY ARE O| 000001C0: 4E 4C 59 20 55 53 45 44 20 49 4E 54 45 52 4E 41 |NLY USED INTERNA| 000001D0: 4C 4C 59 22 00 16 0A 28 00 99 20 22 11 4C 49 4E |LLY"...(.. ".LIN| 000001E0: 45 20 4E 55 4D 42 45 52 53 20 55 53 45 44 20 41 |E NUMBERS USED A| 000001F0: 52 45 20 35 30 30 30 30 2D 35 30 31 36 30 22 3A |RE 50000-50160":| 00000200: 99 20 22 49 4E 20 4D 55 4C 54 49 50 4C 45 53 20 |. "IN MULTIPLES | 00000210: 4F 46 20 31 30 22 00 3F 0A 32 00 99 20 22 11 46 |OF 10".?.2.. ".F| 00000220: 4F 52 20 46 4F 52 4D 41 54 20 2D 58 58 58 58 58 |OR FORMAT -XXXXX| 00000230: 2E 58 58 58 20 5A 31 3D 36 2C 20 5A 32 3D 33 00 |.XXX Z1=6, Z2=3.| 00000240: 67 0A 3C 00 99 20 22 46 4F 52 20 46 4F 52 4D 41 |g.<.. "FOR FORMA| 00000250: 54 20 2D 58 58 58 2E 58 58 58 58 20 20 5A 31 3D |T -XXX.XXXX Z1=| 00000260: 34 2C 20 5A 32 3D 34 00 94 0A 46 00 99 20 22 11 |4, Z2=4...F.. ".| 00000270: 5A 33 3D 20 54 41 42 20 50 4F 53 49 54 49 4F 4E |Z3= TAB POSITION| 00000280: 20 4F 46 20 46 49 52 53 54 20 43 4F 4C 55 4D 4E | OF FIRST COLUMN| 00000290: 20 4F 46 22 00 E0 0A 50 00 99 22 4E 55 4D 42 45 | OF"...P.."NUMBE| 000002A0: 52 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 20 |R TO BE PRINTED | 000002B0: 28 44 4F 4E 27 54 20 41 4C 4C 4F 57 20 4C 41 53 |(DON'T ALLOW LAS| 000002C0: 54 20 20 50 52 49 4E 54 45 44 20 43 4F 4C 55 4D |T PRINTED COLUM| 000002D0: 4E 20 54 4F 20 45 58 43 45 45 44 20 33 39 29 22 |N TO EXCEED 39)"| 000002E0: 00 0E 0B 5A 00 99 20 22 11 54 4F 20 55 53 45 2C |...Z.. ".TO USE,| 000002F0: 20 53 45 54 20 5A 58 3D 20 4E 55 4D 42 45 52 20 | SET ZX= NUMBER | 00000300: 54 4F 20 42 45 20 50 52 49 4E 54 45 44 22 00 3A |TO BE PRINTED".:| 00000310: 0B 64 00 99 20 22 53 45 54 20 5A 31 2C 20 5A 32 |.d.. "SET Z1, Z2| 00000320: 2C 20 41 4E 44 20 5A 33 20 54 48 45 4E 20 47 4F |, AND Z3 THEN GO| 00000330: 53 55 42 20 35 30 30 30 30 22 00 5F 0B 6E 00 99 |SUB 50000"._.n..| 00000340: 20 22 11 53 41 4D 50 4C 45 20 4F 55 54 50 55 54 | ".SAMPLE OUTPUT| 00000350: 20 46 4F 4C 4C 4F 57 53 20 57 48 45 52 45 22 00 | FOLLOWS WHERE".| 00000360: 89 0B 78 00 99 20 22 5A 31 3D 33 2C 5A 32 3D 35 |..x.. "Z1=3,Z2=5| 00000370: 2C 5A 33 3D 30 30 20 20 20 5A 31 3D 34 2C 5A 32 |,Z3=00 Z1=4,Z2| 00000380: 3D 32 2C 5A 33 3D 31 31 22 00 B3 0B 82 00 99 20 |=2,Z3=11"...... | 00000390: 22 5A 31 3D 35 2C 5A 32 3D 33 2C 5A 33 3D 32 30 |"Z1=5,Z2=3,Z3=20| 000003A0: 20 20 20 5A 31 3D 33 2C 5A 32 3D 33 2C 5A 33 3D | Z1=3,Z2=3,Z3=| 000003B0: 33 31 22 00 DE 0B 8C 00 99 20 22 49 4E 49 54 49 |31"...... "INITI| 000003C0: 41 4C 20 56 41 4C 55 45 53 20 4F 46 20 41 3D 32 |AL VALUES OF A=2| 000003D0: 33 2E 33 33 34 35 2C 20 42 3D 2D 32 35 22 00 0D |3.3345, B=-25"..| 000003E0: 0C 96 00 99 20 22 43 4F 4C 53 20 41 52 45 20 41 |.... "COLS ARE A| 000003F0: 3D 2E 38 41 2C 42 3D 31 2E 32 35 2A 42 2C 31 30 |=.8A,B=1.25*B,10| 00000400: 30 30 2A 41 2C 30 2E 30 30 31 2A 42 22 00 3C 0C |00*A,0.001*B".<.| 00000410: C8 00 99 20 22 11 54 59 50 45 20 41 4E 59 20 4E |... ".TYPE ANY N| 00000420: 55 4D 42 45 52 20 54 4F 20 43 4F 4E 54 49 4E 55 |UMBER TO CONTINU| 00000430: 45 22 3B 3A 85 20 47 47 3A 89 20 33 00 5D 0C 50 |E";:. GG:. 3.].P| 00000440: C3 5A 59 B2 5A 58 AA 28 2E 35 AC 2E 31 AE 5A 32 |.ZY.ZX.(.5..1.Z2| 00000450: 29 AC B4 28 5A 58 AA 31 45 AB 33 35 29 00 7E 0C |)..(ZX.1E.35).~.| 00000460: 5A C3 5A 49 B2 BC 28 B6 28 5A 59 AA 31 45 AB 33 |Z.ZI..(.(ZY.1E.3| 00000470: 35 29 29 AD 32 2E 33 30 32 35 38 35 30 39 00 96 |5)).2.30258509..| 00000480: 0C 64 C3 8B 20 5A 49 B3 5A 31 AB 31 20 A7 20 89 |.d.. ZI.Z1.1 . .| 00000490: 20 35 30 30 36 30 00 B9 0C 6E C3 5A 59 B2 B5 28 | 50060...n.ZY..(| 000004A0: B6 28 5A 59 AC 31 30 AE AB B5 28 5A 49 29 29 AA |.(ZY.10...(ZI)).| 000004B0: 2E 35 29 AC B4 28 5A 59 29 00 D8 0C 78 C3 8B 20 |.5)..(ZY)...x.. | 000004C0: B6 28 5A 59 29 B1 39 A7 5A 59 B2 5A 59 AD 31 30 |.(ZY).9.ZY.ZY.10| 000004D0: 3A 5A 49 B2 5A 49 AA 31 00 F5 0C 82 C3 99 A3 5A |:ZI.ZI.1.......Z| 000004E0: 33 29 22 2A 22 5A 59 3B 22 9D 45 22 3B B5 28 5A |3)"*"ZY;".E";.(Z| 000004F0: 49 29 3B 3A 8E 00 0A 0D 8C C3 8B 20 5A 49 B1 30 |I);:....... ZI.0| 00000500: 20 A7 20 89 20 35 30 31 35 30 00 27 0D 96 C3 8B | . . 50150.'....| 00000510: 20 B5 28 B6 28 5A 59 AC 31 30 AE 5A 32 29 29 B2 | .(.(ZY.10.Z2)).| 00000520: 30 89 35 30 31 30 30 00 37 0D A0 C3 5A 59 B2 5A |0.50100.7...ZY.Z| 00000530: 59 AC 31 30 AE 5A 32 00 5E 0D AA C3 99 20 A3 5A |Y.10.Z2.^.... .Z| 00000540: 33 AA 5A 31 AB 5A 49 29 20 B5 28 B6 28 5A 59 29 |3.Z1.ZI) .(.(ZY)| 00000550: 29 AC B4 28 5A 59 29 3A 99 20 22 91 91 22 00 86 |)..(ZY):. ".."..| 00000560: 0D B4 C3 8B 20 B6 28 5A 58 29 B3 31 20 AF 20 5A |.... .(ZX).1 . Z| 00000570: 58 B3 30 20 A7 20 99 20 A3 5A 33 AA 5A 31 AB 31 |X.0 . . .Z3.Z1.1| 00000580: 29 20 22 2D 22 3B 00 99 0D BE C3 99 20 A3 5A 33 |) "-";...... .Z3| 00000590: AA 5A 31 29 20 22 2E 22 3B 00 A9 0D C8 C3 8B 20 |.Z1) ".";...... | 000005A0: 5A 49 B1 AB 31 20 A7 20 8E 00 C2 0D D2 C3 81 20 |ZI..1 . ....... | 000005B0: 5A 4A B2 31 20 A4 AB 5A 49 3A 8B 5A 4A B1 5A 32 |ZJ.1 ..ZI:.ZJ.Z2| 000005C0: A7 8E 00 D4 0D DC C3 99 20 22 30 22 3B 3A 82 20 |........ "0";:. | 000005D0: 5A 4A 3A 8E 00 FB 0D E6 C3 99 20 A3 5A 33 AA 5A |ZJ:....... .Z3.Z| 000005E0: 31 AB 5A 49 AB 31 29 20 B5 28 B6 28 5A 59 29 29 |1.ZI.1) .(.(ZY))| 000005F0: AC B4 28 5A 59 29 3B 22 9D 22 3B 00 1C 0E F0 C3 |..(ZY);".";.....| 00000600: 5A 59 B2 5A 59 AB B5 28 B6 28 5A 59 29 29 AC B4 |ZY.ZY..(.(ZY))..| 00000610: 28 5A 59 29 3A 89 20 35 30 30 31 30 00 00 00 01 |(ZY):. 50010....|
..R.... WRITTEN 5-8-78 BY MEL ZANDLER
2231 BULLINGER, WICHITA, KS 6720
4..L...A. 23.3345:B..25:. 10...... ". A
=.8*A B=1.25*B 1000*A .001*B"....
.A.A..80:B.B.1.25:..S...ZX.A:Z1.3:Z2.5:Z
3.0:. 50000.....ZX.B:Z1.4:Z2.2:Z3.11:. 5
0000.....ZX.1E3.A:Z1.5:Z2.3:Z3.20:.50000
.=...ZX..001.B:Z1.3:Z2.3:Z3.31:.50000.E.
... 4.S.... ".THIS SUBROUTINE FORMATS PR
INT OUTPUT"...... ".VARIABLES USED ARE Z
1,Z2,Z3,ZI,ZJ,ZX,ZY".T.... "ZI, ZJ, AND
ZY ARE ONLY USED INTERNALLY"...(.. ".LIN
E NUMBERS USED ARE 50000-50160":. "IN MU
LTIPLES OF 10".?.2.. ".FOR FORMAT -XXXXX
.XXX Z1=6, Z2=3.G.<.. "FOR FORMAT -XXX.X
XXX Z1=4, Z2=4...F.. ".Z3= TAB POSITION
OF FIRST COLUMN OF"...P.."NUMBER TO BE
PRINTED (DON'T ALLOW LAST PRINTED COLUM
N TO EXCEED 39)"...Z.. ".TO USE, SET ZX=
NUMBER TO BE PRINTED".:.D.. "SET Z1, Z2
, AND Z3 THEN GOSUB 50000"._.N.. ".SAMPL
E OUTPUT FOLLOWS WHERE"...X.. "Z1=3,Z2=5
,Z3=00 Z1=4,Z2=2,Z3=11"...... "Z1=5,Z2
=3,Z3=20 Z1=3,Z2=3,Z3=31"...... "INITI
AL VALUES OF A=23.3345, B=-25"...... "CO
LS ARE A=.8A,B=1.25*B,1000*A,0.001*B".<.
H.. ".TYPE ANY NUMBER TO CONTINUE";:. GG
:. 3.].PCZY.ZX.(.5..1.Z2)..(ZX.1E.35).~.
ZCZI..(.(ZY.1E.35)).2.30258509...DC. ZI.
Z1.1 . . 50060...NCZY..(.(ZY.10...(ZI)).
.5)..(ZY).X.XC. .(ZY).9.ZY.ZY.10:ZI.ZI.1
....C..Z3)"*"ZY;".E";.(ZI);:.....C. ZI.0
. . 50150.'..C. .(.(ZY.10.Z2)).0.50100.
7. CZY.ZY.10.Z2.^..C. .Z3.Z1.ZI) .(.(ZY)
)..(ZY):. ".."....C. .(ZX).1 . ZX.0 . .
.Z3.Z1.1) "-";....C. .Z3.Z1) ".";...HC.
ZI..1 . ..B.RC. ZJ.1 ..ZI:.ZJ.Z2...T..C.
"0";:. ZJ:.....C. .Z3.Z1.ZI.1) .(.(ZY))
..(ZY);".";....CZY.ZY..(.(ZY))..(ZY):. 5
0010....
> CLICK IMAGE PREVIEW FOR FULL MODAL