USING1

FILE INFORMATION

FILENAME(S): USING1

FILE TYPE(S): PRG

FILE SIZE: 810b

FIRST SEEN: 2025-11-30 21:23:21

APPEARS ON: 1 disk(s)

FILE HASH

a6e78861a5903836ef20c0775cc26bf118b225fc71d0d3327ccb8a61389ec374

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C64 HULP 10 2	USING1	PRG	DuncanTwain	12	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1D 08 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 08  |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 08 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 08 32 00 99 22  |VARIABELE...2.."|
00000080: 20 20 53 59 53 28 41 44  29 58 00 D3 08 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 09 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 09 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 09  |  (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 09 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 09  |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 0A 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 0A 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 0A 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 0A 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 0A 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: 0A 7D 00 8B 20 46 B2 31  A7 31 34 30 00 21 0B 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 22 2C 38 2C  |"PRINT USING",8,|
00000320: 31 00 27 0B 8C 00 80 00  00 00                    |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",8,
1.'.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL