PRINT USING 1
FILE INFORMATION
FILENAME(S): PRINT USING 1
FILE TYPE(S): PRG
FILE SIZE: 812b
FIRST SEEN: 2025-11-30 21:11:25
APPEARS ON: 1 disk(s)
FILE HASH
02e27ad450866e95f4ef55e728183eea2151a910d300ae6afdb0098e55de040b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LEEG | PRINT USING 1 | PRG | DuncanTwain | 12 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1D 04 0A 00 8F 20 50 52 4F 47 52 41 4D 4D |....... PROGRAMM|
00000010: 41 20 24 43 39 30 30 2D 24 43 39 41 38 00 3C 04 |A $C900-$C9A8.<.|
00000020: 14 00 99 22 20 20 47 45 42 52 55 49 4B 20 4F 50 |..." GEBRUIK OP|
00000030: 20 44 45 5A 45 20 57 49 4A 5A 45 3A 00 79 04 28 | DEZE WIJZE:.y.(|
00000040: 00 99 22 20 20 41 44 3D 53 54 41 52 54 20 52 4F |.." AD=START RO|
00000050: 55 54 49 4E 45 20 20 20 20 20 20 20 20 20 20 20 |UTINE |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 3D | X=|
00000070: 56 41 52 49 41 42 45 4C 45 00 8A 04 32 00 99 22 |VARIABELE...2.."|
00000080: 20 20 53 59 53 28 41 44 29 58 00 D3 04 3C 00 99 | SYS(AD)X...<..|
00000090: 22 20 20 35 31 34 35 36 20 4E 55 4D 4D 45 52 55 |" 51456 NUMMERU|
000000A0: 49 54 44 52 55 4B 4B 49 4E 47 20 4F 50 48 41 4C |ITDRUKKING OPHAL|
000000B0: 45 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |EN |
000000C0: 20 28 4A 53 52 20 24 41 44 38 41 20 46 52 4D 4E | (JSR $AD8A FRMN|
000000D0: 55 4D 29 00 1B 05 41 00 99 22 20 20 35 31 34 35 |UM)...A.." 5145|
000000E0: 39 20 49 4E 20 41 53 43 49 49 20 20 20 20 20 20 |9 IN ASCII |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 20 28 4A 53 52 20 24 | (JSR $|
00000110: 42 44 44 44 20 41 53 43 49 49 29 00 5D 05 46 00 |BDDD ASCII).].F.|
00000120: 99 22 20 20 35 31 34 36 31 20 55 53 49 4E 47 20 |." 51461 USING |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 28 4A 53 52 20 24 43 39 30 44 29 00 71 05 | (JSR $C90D).q.|
00000160: 4B 00 99 22 20 20 50 41 52 41 4D 45 54 45 52 3A |K.." PARAMETER:|
00000170: 22 00 BD 05 50 00 99 22 20 20 20 20 50 4F 4B 45 |"...P.." POKE|
00000180: 20 35 31 36 31 32 2C 58 20 20 20 30 3D 48 45 45 | 51612,X 0=HEE|
00000190: 4C 20 47 45 54 41 4C 2C 20 31 3D 47 45 54 41 4C |L GETAL, 1=GETAL|
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 54 20 | MET |
000001B0: 44 45 43 49 4D 41 41 4C 50 55 4E 54 22 00 EC 05 |DECIMAALPUNT"...|
000001C0: 55 00 99 22 20 20 20 20 50 4F 4B 45 20 35 31 36 |U.." POKE 516|
000001D0: 31 33 2C 4C 20 20 20 30 2D 31 30 20 54 4F 54 41 |13,L 0-10 TOTA|
000001E0: 4C 45 20 4C 45 4E 47 54 45 2D 31 22 00 19 06 5A |LE LENGTE-1"...Z|
000001F0: 00 99 22 20 20 20 20 50 4F 4B 45 20 35 31 36 31 |.." POKE 5161|
00000200: 34 2C 4E 20 20 20 41 41 4E 54 41 4C 20 4E 41 20 |4,N AANTAL NA |
00000210: 44 45 20 4B 4F 4D 4D 41 22 00 62 06 5F 00 99 22 |DE KOMMA".b._.."|
00000220: 20 20 20 20 50 4F 4B 45 20 35 31 36 31 35 2C 41 | POKE 51615,A|
00000230: 53 43 28 22 C7 28 33 34 29 22 20 22 C7 28 33 34 |SC(".(34)" ".(34|
00000240: 29 22 29 20 20 20 20 20 20 20 20 20 20 56 55 4C |)") VUL|
00000250: 54 45 4B 45 4E 53 20 56 4F 4F 52 20 47 45 54 41 |TEKENS VOOR GETA|
00000260: 4C 22 00 AB 06 64 00 99 22 20 20 20 20 50 4F 4B |L"...d.." POK|
00000270: 45 20 35 31 35 34 39 2C 41 53 43 28 22 C7 28 33 |E 51549,ASC(".(3|
00000280: 34 29 22 20 22 C7 28 33 34 29 22 29 20 20 20 20 |4)" ".(34)") |
00000290: 20 20 20 20 20 20 56 4F 45 52 54 45 4B 45 4E 20 | VOERTEKEN |
000002A0: 56 4F 4F 52 20 47 45 54 41 4C 22 00 DB 06 6E 00 |VOOR GETAL"...n.|
000002B0: 99 22 9E 44 52 55 4B 20 54 4F 45 54 53 20 41 4C |.".DRUK TOETS AL|
000002C0: 53 20 55 20 44 45 20 52 4F 55 54 49 4E 45 20 57 |S U DE ROUTINE W|
000002D0: 49 4C 54 20 4C 41 44 45 4E 3F 22 00 EE 06 78 00 |ILT LADEN?"...x.|
000002E0: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 32 30 00 FC |.A$:.A$."".120..|
000002F0: 06 7D 00 8B 20 46 B2 31 A7 31 34 30 00 23 07 82 |.}.. F.1.140.#..|
00000300: 00 46 B2 31 3A 97 35 33 32 36 35 2C 31 31 3A 93 |.F.1:.53265,11:.|
00000310: 22 50 52 49 4E 54 20 55 53 49 4E 47 20 32 22 2C |"PRINT USING 2",|
00000320: 38 2C 31 00 29 07 8C 00 80 00 00 00 |8,1.)....... |
....... PROGRAMMA $C900-$C9A8.<...." GE
BRUIK OP DEZE WIJZE:.Y.(.." AD=START RO
UTINE X=VARIABEL
E...2.." SYS(AD)X.S.<.." 51456 NUMMERU
ITDRUKKING OPHALEN (JSR $A
D8A FRMNUM)...A.." 51459 IN ASCII
(JSR $BDDD ASC
II).].F.." 51461 USING
(JSR $C90D).Q.K.." PA
RAMETER:"...P.." POKE 51612,X 0=HEE
L GETAL, 1=GETAL MET DECIMAAL
PUNT"...U.." POKE 51613,L 0-10 TOTA
LE LENGTE-1"...Z.." POKE 51614,N AA
NTAL NA DE KOMMA".B._.." POKE 51615,A
SC("G(34)" "G(34)") VULTEKENS V
OOR GETAL"...D.." POKE 51549,ASC("G(3
4)" "G(34)") VOERTEKEN VOOR GET
AL"...N..".DRUK TOETS ALS U DE ROUTINE W
ILT LADEN?"...X..A$:.A$."".120...}.. F.1
.140.#...F.1:.53265,11:."PRINT USING 2",
8,1.).......
> CLICK IMAGE PREVIEW FOR FULL MODAL