PRINT-USING
FILE INFORMATION
FILENAME(S): PRINT-USING
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 21:22:56
APPEARS ON: 1 disk(s)
FILE HASH
c4438946f2c50ab297847801e4f4b710d241c23c9540d4678ca7fe22ae7905d2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 50 1 | PRINT-USING | PRG | DuncanTwain | 13 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 44 04 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..D.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 00 79 04 14 00 8F 20 22 D2 4F 55 54 |****.y.... ".OUT|
00000050: 49 4E 45 20 56 41 4E 20 27 D0 D2 C9 CE D4 2D D5 |INE VAN '.....-.|
00000060: D3 C9 CE C7 27 20 49 4E 20 42 41 53 49 43 20 54 |....' IN BASIC T|
00000070: 4F 45 50 41 53 53 49 4E 47 00 A1 04 19 00 8F 20 |OEPASSING...... |
00000080: 20 20 20 20 20 20 20 20 20 20 20 56 49 41 20 53 | VIA S|
00000090: 54 52 49 4E 47 2D 4D 41 4E 49 50 55 4C 41 54 49 |TRING-MANIPULATI|
000000A0: 45 00 CC 04 1E 00 8F 20 20 47 45 53 43 48 49 4B |E...... GESCHIK|
000000B0: 54 20 56 4F 4F 52 20 4E 55 4D 45 52 49 45 4B 45 |T VOOR NUMERIEKE|
000000C0: 20 56 41 52 49 41 42 45 4C 45 4E 2E 00 FA 04 28 | VARIABELEN....(|
000000D0: 00 8F 20 20 4F 4E 54 57 49 4B 4B 45 4C 44 20 44 |.. ONTWIKKELD D|
000000E0: 4F 4F 52 20 4A 41 4E 20 42 4F 44 5A 49 4E 47 41 |OOR JAN BODZINGA|
000000F0: 2C 20 42 4C 41 52 49 43 55 4D 00 28 05 32 00 8F |, BLARICUM.(.2..|
00000100: 20 22 56 4F 4F 52 20 C3 C2 CD 20 2D 43 4F 4D 50 | "VOOR ... -COMP|
00000110: 55 54 45 52 53 20 26 20 20 C3 2F 36 34 20 20 2D |UTERS & ./64 -|
00000120: A0 20 D6 C9 C3 2D 32 30 00 6B 05 3C 00 8F 20 2A |. ...-20.k.<.. *|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 71 05 46 00 |***********.q.F.|
00000170: 8F 00 91 05 64 00 8F 20 44 45 4D 4F 20 50 52 4F |....d.. DEMO PRO|
00000180: 47 52 41 4D 4D 41 20 28 23 31 30 30 2D 31 38 30 |GRAMMA (#100-180|
00000190: 29 00 C3 05 69 00 99 22 93 D0 52 49 4E 54 20 D5 |)...i.."..RINT .|
000001A0: 53 49 4E 47 20 28 4D 4F 47 45 4C 49 4A 4B 48 45 |SING (MOGELIJKHE|
000001B0: 44 45 4E 29 20 20 20 4F 52 49 47 49 4E 45 45 4C |DEN) ORIGINEEL|
000001C0: 22 3A 99 00 D2 05 6E 00 81 20 4A B2 31 20 A4 20 |":....n.. J.1 . |
000001D0: 32 30 00 0B 06 78 00 47 B2 28 C0 28 BB 28 30 29 |20...x.G.(.(.(0)|
000001E0: 29 AA 2E 37 31 29 AE 35 AC 32 33 AB 31 32 20 20 |)..71).5.23.12 |
000001F0: 20 20 20 3A 8F 20 52 41 4E 44 4F 4D 47 45 4E 45 | :. RANDOMGENE|
00000200: 52 41 54 49 45 20 47 45 54 41 4C 00 43 06 82 00 |RATIE GETAL.C...|
00000210: 49 B2 33 3A 44 B2 30 3A 8D 20 31 31 30 30 20 20 |I.3:D.0:. 1100 |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 3C | :. <|
00000230: 20 31 30 30 30 20 2B 20 30 20 44 45 43 49 4D 41 | 1000 + 0 DECIMA|
00000240: 4C 45 4E 00 7B 06 8C 00 49 B2 34 3A 44 B2 32 3A |LEN.{...I.4:D.2:|
00000250: 8D 20 31 31 30 30 20 20 20 20 20 20 20 20 20 20 |. 1100 |
00000260: 20 20 20 20 3A 8F 20 3C 31 30 30 30 30 20 2B 20 | :. <10000 + |
00000270: 32 20 44 45 43 49 4D 41 4C 45 4E 00 B3 06 96 00 |2 DECIMALEN.....|
00000280: 49 B2 33 3A 44 B2 35 3A 8D 20 31 31 30 30 20 20 |I.3:D.5:. 1100 |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 3C | :. <|
000002A0: 20 31 30 30 30 20 2B 20 35 20 44 45 43 49 4D 41 | 1000 + 5 DECIMA|
000002B0: 4C 45 4E 00 E6 06 A0 00 99 22 20 22 47 20 20 20 |LEN......" "G |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 20 3A 8F 20 4F 52 49 47 49 4E 45 45 4C | :. ORIGINEEL|
000002E0: 20 47 45 54 41 4C 00 EC 06 AA 00 82 00 F2 06 B4 | GETAL..........|
000002F0: 00 80 00 31 07 E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A |...1.... *******|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000330: 2A 00 63 07 F2 03 8F 20 22 D2 4F 55 54 49 4E 45 |*.c.... ".OUTINE|
00000340: 20 4F 4D 20 47 45 54 41 4C 4C 45 4E 20 49 4E 20 | OM GETALLEN IN |
00000350: 4B 4F 4C 4F 4D 4D 45 4E 20 54 45 20 50 52 49 4E |KOLOMMEN TE PRIN|
00000360: 54 45 4E 00 80 07 FC 03 8F 20 20 4F 50 20 53 43 |TEN...... OP SC|
00000370: 48 45 52 4D 20 4F 46 20 50 52 49 4E 54 45 52 2E |HERM OF PRINTER.|
00000380: 00 86 07 06 04 3A 00 AF 07 10 04 8F 20 47 20 3D |.....:...... G =|
00000390: 20 54 45 20 46 4F 52 4D 41 54 45 52 45 4E 20 4E | TE FORMATEREN N|
000003A0: 55 4D 45 52 49 45 4B 45 20 57 41 41 52 44 45 00 |UMERIEKE WAARDE.|
000003B0: DA 07 1A 04 8F 20 49 20 3D 20 20 2D 2D 2D 2D 2D |..... I = -----|
000003C0: 2D 2D 20 20 20 20 41 41 4E 54 41 4C 20 56 4F 4F |-- AANTAL VOO|
000003D0: 52 20 44 45 20 4B 4F 4D 4D 41 00 01 08 24 04 8F |R DE KOMMA...$..|
000003E0: 20 44 20 3D 20 20 2D 2D 2D 2D 2D 2D 2D 20 20 20 | D = ------- |
000003F0: 20 41 41 4E 54 41 4C 20 44 45 43 49 4D 41 4C 45 | AANTAL DECIMALE|
00000400: 4E 00 2A 08 2E 04 8F 20 47 54 24 3D 20 47 45 46 |N.*.... GT$= GEF|
00000410: 4F 52 4D 41 54 45 45 52 44 45 20 53 54 52 49 4E |ORMATEERDE STRIN|
00000420: 47 56 41 52 49 41 42 45 4C 45 00 69 08 38 04 8F |GVARIABELE.i.8..|
00000430: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 87 08 4C 04 58 B2 |*********...L.X.|
00000470: B5 28 47 AC 31 30 AE 44 AA 2E 35 29 3A 58 24 B2 |.(G.10.D..5):X$.|
00000480: C4 28 B6 28 58 29 29 00 9B 08 51 04 49 31 B2 49 |.(.(X))...Q.I1.I|
00000490: AA 32 3A 49 32 B2 49 AA 44 AA 31 00 BA 08 56 04 |.2:I2.I.D.1...V.|
000004A0: 47 54 24 B2 C9 28 22 20 20 20 20 20 20 20 20 22 |GT$..(" "|
000004B0: AA 58 24 2C 49 AA 31 AA 44 29 00 C8 08 60 04 8B |.X$,I.1.D)...`..|
000004C0: 44 B3 31 A7 31 31 36 30 00 EA 08 6A 04 81 59 B2 |D.1.1160...j..Y.|
000004D0: 49 31 20 A4 20 49 32 3A 8B 20 CA 28 47 54 24 2C |I1 . I2:. .(GT$,|
000004E0: 59 29 B3 C7 28 34 38 29 A7 82 00 F6 08 74 04 5A |Y)..(48).....t.Z|
000004F0: B2 59 AB 49 AB 31 00 24 09 7E 04 47 54 24 B2 CA |.Y.I.1.$.~.GT$..|
00000500: 28 47 54 24 2C 5A 2C 49 AA 31 29 AA C8 28 22 2E |(GT$,Z,I.1)..(".|
00000510: 30 30 30 30 30 30 30 22 2C 5A 29 AA CA 28 47 54 |0000000",Z)..(GT|
00000520: 24 2C 59 29 00 64 09 88 04 8B C6 28 47 54 24 29 |$,Y).d.....(GT$)|
00000530: B3 B1 33 32 A7 20 47 54 24 B2 C8 28 22 2A 2A 2A |..32. GT$..("***|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 2C 49 AA |************",I.|
00000550: 44 AA 31 AA 28 44 B2 30 29 29 AA 22 20 22 3A 89 |D.1.(D.0))." ":.|
00000560: 31 31 38 30 00 8D 09 92 04 47 54 24 B2 CA 28 47 |1180.....GT$..(G|
00000570: 54 24 2C 32 29 3A 58 24 B2 22 2D 22 3A 8B A8 B4 |T$,2):X$."-":...|
00000580: 28 47 29 A7 58 24 B2 C7 28 31 36 30 29 00 9C 09 |(G).X$..(160)...|
00000590: 97 04 47 54 24 B2 47 54 24 AA 58 24 00 AB 09 9C |..GT$.GT$.X$....|
000005A0: 04 99 47 54 24 3B 22 20 20 22 3B 00 B1 09 A6 04 |..GT$;" ";.....|
000005B0: 8E 00 00 00 FB A5 |...... |
..D.... ********************************
****************************.Y.... "ROUT
INE VAN 'PRINT-USING' IN BASIC TOEPASSIN
G...... VIA STRING-MANIPULATI
E.L.... GESCHIKT VOOR NUMERIEKE VARIABE
LEN....(.. ONTWIKKELD DOOR JAN BODZINGA
, BLARICUM.(.2.. "VOOR CBM -COMPUTERS &
C/64 - VIC-20.K.<.. *****************
****************************************
***.Q.F.....D.. DEMO PROGRAMMA (#100-180
).C.I..".PRINT USING (MOGELIJKHEDEN) O
RIGINEEL":..R.N.. J.1 . 20...X.G.(.(.(0)
)..71).5.23.12 :. RANDOMGENERATIE GE
TAL.C...I.3:D.0:. 1100 :. <
1000 + 0 DECIMALEN.{...I.4:D.2:. 1100
:. <10000 + 2 DECIMALEN.....
I.3:D.5:. 1100 :. < 1000 +
5 DECIMALEN... .." "G
:. ORIGINEEL GETAL.............1....
***************************************
*****************.C.... "ROUTINE OM GETA
LLEN IN KOLOMMEN TE PRINTEN...... OP SC
HERM OF PRINTER......:...... G = TE FORM
ATEREN NUMERIEKE WAARDE.Z.... I = -----
-- AANTAL VOOR DE KOMMA...$.. D = --
----- AANTAL DECIMALEN.*.... GT$= GEF
ORMATEERDE STRINGVARIABELE.I.8.. *******
****************************************
*********...L.X..(G.10.D..5):X$.D(.(X)).
..Q.I1.I.2:I2.I.D.1...V.GT$.I(" "
.X$,I.1.D).H.`..D.1.1160...J..Y.I1 . I2:
. J(GT$,Y).G(48).....T.Z.Y.I.1.$.~.GT$.J
(GT$,Z,I.1).H(".0000000",Z).J(GT$,Y).D..
..F(GT$)..32. GT$.H("***************",I.
D.1.(D.0))." ":.1180.....GT$.J(GT$,2):X$
."-":...(G).X$.G(160).....GT$.GT$.X$....
..GT$;" ";...........
> CLICK IMAGE PREVIEW FOR FULL MODAL