PRINT-USING
FILE INFORMATION
FILENAME(S): PRINT-USING
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 21:25:36
APPEARS ON: 2 disk(s)
FILE HASH
05c46bbef8f26d129ac1ea6f4ebc30aaf734a03173fdfa7977ddf9ae8b0dc4a4
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C INFO LISTBOEK | PRINT-USING | PRG | DuncanTwain | 13 | 11 | DOWNLOAD FILE |
| C INFO LISTBOEK | PRINT-USING | PRG | DuncanTwain | 13 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 44 08 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 08 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 08 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 08 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 08 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 09 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 09 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 09 46 00 |***********.q.F.|
00000170: 8F 00 91 09 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 09 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 09 6E 00 81 20 4A B2 31 20 A4 20 |":....n.. J.1 . |
000001D0: 32 30 00 0B 0A 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 0A 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 0A 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 0A 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 0A 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 0A AA 00 82 00 F2 0A B4 | GETAL..........|
000002F0: 00 80 00 31 0B 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 0B 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 0B 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 0B 06 04 3A 00 AF 0B 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 0B 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 0C 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 0C 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 0C 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 0C 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 0C 51 04 49 31 B2 49 |.(.(X))...Q.I1.I|
00000490: AA 32 3A 49 32 B2 49 AA 44 AA 31 00 BA 0C 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 0C 60 04 8B |.X$,I.1.D)...`..|
000004C0: 44 B3 31 A7 31 31 36 30 00 EA 0C 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 0C 74 04 5A |Y)..(48).....t.Z|
000004F0: B2 59 AB 49 AB 31 00 24 0D 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 0D 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 0D 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 0D |(G).X$..(160)...|
00000590: 97 04 47 54 24 B2 47 54 24 AA 58 24 00 AB 0D 9C |..GT$.GT$.X$....|
000005A0: 04 99 47 54 24 3B 22 20 20 22 3B 00 B1 0D A6 04 |..GT$;" ";.....|
000005B0: 8E 00 00 00 |.... |
..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