PR.USING RUTINE
FILE INFORMATION
FILENAME(S): PR.USING RUTINE
FILE TYPE(S): PRG
FILE SIZE: 921b
FIRST SEEN: 2025-11-30 19:35:19
APPEARS ON: 1 disk(s)
FILE HASH
5c8fe54dff2a8d439b780520de24c3d8303c1878eef5f6c67082f6611df4283f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KIMSA S TEAM | PR.USING RUTINE | PRG | Curtcool, bitbear | 26 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 0C C6 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. ....*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 00 41 08 16 C6 8F 2A 2A 20 20 50 52 49 4E 54 20 |.A....** PRINT | 00000030: 55 53 49 4E 47 20 52 55 54 49 4E 45 20 20 20 2A |USING RUTINE *| 00000040: 2A 00 60 08 20 C6 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.`. ..*********| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 00 75 08 2A C6 8F 20 56 41 52 49 41 42 4C 45 52 |.u.*.. VARIABLER| 00000070: 20 49 4E 4E 3A 00 95 08 34 C6 8F 20 50 52 20 20 | INN:...4.. PR | 00000080: 3D 54 41 4C 4C 20 49 4E 4E 3A 50 52 24 3D 54 41 |=TALL INN:PR$=TA| 00000090: 4C 4C 20 55 54 00 BF 08 3E C6 8F 20 48 45 20 20 |LL UT...>.. HE | 000000A0: 3D 41 4E 54 41 4C 20 48 45 4C 54 41 4C 4C 20 20 |=ANTAL HELTALL | 000000B0: 20 20 28 20 46 30 52 20 4B 4F 4D 4D 41 20 29 00 | ( F0R KOMMA ).| 000000C0: E9 08 48 C6 8F 20 44 45 20 20 3D 41 4E 54 41 4C |..H.. DE =ANTAL| 000000D0: 20 44 45 53 49 4D 41 4C 54 41 4C 4C 28 45 54 54 | DESIMALTALL(ETT| 000000E0: 45 52 20 4B 4F 4D 4D 41 29 00 FD 08 52 C6 8F 20 |ER KOMMA)...R.. | 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 16 09 |*************...| 00000100: 5C C6 8F 20 49 4E 54 45 52 4E 45 20 56 41 52 49 |\.. INTERNE VARI| 00000110: 41 42 4C 45 52 3A 00 20 09 66 C6 8F 20 50 39 24 |ABLER:. .f.. P9$| 00000120: 00 2A 09 70 C6 8F 20 50 38 24 00 33 09 7A C6 8F |.*.p.. P8$.3.z..| 00000130: 20 50 39 00 3C 09 84 C6 8F 20 50 38 00 45 09 8E | P9.<.... P8.E..| 00000140: C6 8F 20 50 37 00 57 09 98 C6 8F 20 50 52 24 3D |.. P7.W.... PR$=| 00000150: 56 41 4C 28 50 52 29 00 67 09 A2 C6 8F 20 46 39 |VAL(PR).g.... F9| 00000160: 20 3D 46 4C 41 47 47 00 6D 09 AC C6 8F 00 76 09 | =FLAGG.m.....v.| 00000170: AD C6 46 39 B2 30 00 92 09 AE C6 8B 20 50 52 B3 |..F9.0...... PR.| 00000180: 30 20 A7 20 46 39 B2 31 3A 50 52 B2 20 B6 28 50 |0 . F9.1:PR. .(P| 00000190: 52 29 00 B8 09 B6 C6 50 39 24 B2 22 30 30 30 30 |R).....P9$."0000| 000001A0: 30 30 30 30 30 30 22 3A 50 38 24 B2 22 20 20 20 |000000":P8$." | 000001B0: 20 20 20 20 20 20 20 22 00 D8 09 C0 C6 50 52 B2 | ".....PR.| 000001C0: B5 28 31 30 AE 44 45 AC 50 52 AA 30 2E 35 29 AD |.(10.DE.PR.0.5).| 000001D0: B5 28 31 30 AE 44 45 29 00 E6 09 CA C6 50 52 24 |.(10.DE).....PR$| 000001E0: B2 C4 28 50 52 29 00 08 0A D4 C6 8B 50 52 B3 31 |..(PR)......PR.1| 000001F0: A7 50 52 24 B2 22 30 22 AA C9 28 50 52 24 2C C3 |.PR$."0"..(PR$,.| 00000200: 28 50 52 24 29 AB 31 29 00 27 0A D9 C6 8F 20 2A |(PR$).1).'.... *| 00000210: 2A 2A 20 56 45 4C 47 3A 20 58 2E 2D 20 2F 20 58 |** VELG: X.- / X| 00000220: 2E 30 30 20 2A 2A 2A 00 5D 0A DE C6 8F 20 2A 2A |.00 ***.].... **| 00000230: 2A 2A 49 46 50 52 3D 49 4E 54 28 50 52 29 54 48 |**IFPR=INT(PR)TH| 00000240: 45 4E 50 52 24 3D 53 54 52 24 28 50 52 29 2B 22 |ENPR$=STR$(PR)+"| 00000250: 2E 2D 22 3A 47 4F 54 4F 35 30 39 38 30 00 8A 0A |.-":GOTO50980...| 00000260: E8 C6 8B 50 52 B2 B5 28 50 52 29 A7 50 52 24 B2 |...PR..(PR).PR$.| 00000270: C4 28 50 52 29 AA 22 2E 22 AA C8 28 50 39 24 2C |.(PR)."."..(P9$,| 00000280: 44 45 29 3A 89 35 30 39 38 30 00 A6 0A F2 C6 50 |DE):.50980.....P| 00000290: 39 B2 C3 28 50 52 24 29 AB C3 28 C4 28 B5 28 50 |9..(PR$)..(.(.(P| 000002A0: 52 29 29 29 AB 31 00 B8 0A FC C6 8B 50 52 B3 31 |R))).1......PR.1| 000002B0: A7 50 39 B2 50 39 AA 31 00 C5 0A 06 C7 50 38 B2 |.P9.P9.1.....P8.| 000002C0: 44 45 AB 50 39 00 D5 0A 10 C7 8B 50 38 B3 31 A7 |DE.P9......P8.1.| 000002D0: 35 30 39 38 30 00 EB 0A 1A C7 50 52 24 B2 50 52 |50980.....PR$.PR| 000002E0: 24 AA C8 28 50 39 24 2C 50 38 29 00 13 0B 24 C7 |$..(P9$,P8)...$.| 000002F0: 50 37 B2 B5 28 C5 28 50 52 24 29 29 3A 50 37 B2 |P7..(.(PR$)):P7.| 00000300: C3 28 C4 28 50 37 29 29 AB 31 3A 50 37 B2 48 45 |.(.(P7)).1:P7.HE| 00000310: AB 50 37 00 24 0B 2E C7 8B 50 37 B3 31 20 A7 35 |.P7.$....P7.1 .5| 00000320: 31 30 32 30 00 36 0B 38 C7 8B 50 52 B3 31 A7 50 |1020.6.8..PR.1.P| 00000330: 37 B2 50 37 AA 31 00 4C 0B 42 C7 50 52 24 B2 C8 |7.P7.1.L.B.PR$..| 00000340: 28 50 38 24 2C 50 37 29 AA 50 52 24 00 6C 0B 4C |(P8$,P7).PR$.l.L| 00000350: C7 8B 50 52 B3 B2 30 A7 20 50 52 24 B2 C9 28 50 |..PR..0. PR$..(P| 00000360: 52 24 2C C3 28 50 52 24 29 AB 31 29 00 90 0B 51 |R$,.(PR$).1)...Q| 00000370: C7 8B 20 46 39 B2 31 A7 20 50 52 24 B2 22 2D 22 |.. F9.1. PR$."-"| 00000380: AA C9 28 50 52 24 2C C3 28 50 52 24 29 AB 31 29 |..(PR$,.(PR$).1)| 00000390: 00 96 0B 56 C7 8E 00 00 00 |...V..... |
.. ..F.*************************.A..F.** PRINT USING RUTINE **.`. F.********* ****************.U.*F. VARIABLER INN:... 4F. PR =TALL INN:PR$=TALL UT...>F. HE =ANTAL HELTALL ( F0R KOMMA )...HF. DE =ANTAL DESIMALTALL(ETTER KOMMA)...RF. *************...\F. INTERNE VARIABLER:. .FF. P9$.*.PF. P8$.3.ZF. P9.<..F. P8.E.. F. P7.W..F. PR$=VAL(PR).G..F. F9 =FLAGG. M..F..V..FF9.0....F. PR.0 . F9.1:PR. .(P R)....FP9$."0000000000":P8$." " .X..FPR..(10.DE.PR.0.5)..(10.DE)...JFPR$ .D(PR)...TF.PR.1.PR$."0".I(PR$,C(PR$).1) .'.YF. *** VELG: X.- / X.00 ***.]..F. ** **IFPR=INT(PR)THENPR$=STR$(PR)+".-":GOTO 50980....F.PR..(PR).PR$.D(PR).".".H(P9$, DE):.50980....FP9.C(PR$).C(D(.(PR))).1.. ..F.PR.1.P9.P9.1.E..GP8.DE.P9.U..G.P8.1. 50980....GPR$.PR$.H(P9$,P8)...$GP7..(E(P R$)):P7.C(D(P7)).1:P7.HE.P7.$..G.P7.1 .5 1020.6.8G.PR.1.P7.P7.1.L.BGPR$.H(P8$,P7) .PR$.L.LG.PR..0. PR$.I(PR$,C(PR$).1)...Q G. F9.1. PR$."-".I(PR$,C(PR$).1)...VG... .
> CLICK IMAGE PREVIEW FOR FULL MODAL