DJDIRCAT
FILE INFORMATION
FILENAME(S): DJDIRCAT
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-12-01 13:47:46
APPEARS ON: 1 disk(s)
FILE HASH
e0ed8486a556717d55d384c85ea6eb5d6d6167d6e41aec78a1d21546f549e88c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 46 | DJDIRCAT | PRG | hedning, Zeta | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3D 08 00 00 8B 43 B2 30 A7 43 B2 31 3A 86 |..=....C.0.C.1:.| 00000010: 41 24 28 31 33 30 30 29 3A 86 4B 4C 24 28 35 30 |A$(1300):.KL$(50| 00000020: 30 29 3A 5A B2 30 3A 44 24 B2 22 20 20 20 20 20 |0):Z.0:D$." | 00000030: 22 3A 41 B2 30 3A 4E 24 B2 C7 28 30 29 00 67 08 |":A.0:N$..(0).g.| 00000040: 01 00 8B C2 28 32 29 B3 B1 31 38 A7 97 32 2C 31 |....(2)..18..2,1| 00000050: 38 3A 44 53 B2 31 3A 93 22 55 4C 54 52 41 53 4F |8:DS.1:."ULTRASO| 00000060: 52 54 22 2C 38 2C 31 00 B8 08 05 00 52 24 B2 22 |RT",8,1.....R$."| 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 22 3A 43 31 24 B2 22 20 20 | ":C1$." | 000000A0: 20 20 20 20 20 22 3A 41 31 B2 30 3A 44 4A B2 44 | ":A1.0:DJ.D| 000000B0: 4A AA 31 3A 51 57 B2 41 00 C2 08 08 00 89 35 30 |J.1:QW.A......50| 000000C0: 30 30 00 CC 08 09 00 89 34 30 30 30 00 EA 08 0A |00......4000....| 000000D0: 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |..53280,0:.53281| 000000E0: 2C 31 32 3A 97 36 34 36 2C 30 00 F5 08 23 00 99 |,12:.646,0...#..| 000000F0: 22 93 22 52 24 00 1C 09 28 00 99 22 53 54 4F 50 |"."R$...(.."STOP| 00000100: 50 41 20 49 4E 20 44 49 53 4B 45 54 54 20 46 5C |PA IN DISKETT F\| 00000110: 52 20 41 56 4C 5B 53 4E 49 4E 47 22 00 32 09 2D |R AVL[SNING".2.-| 00000120: 00 99 22 54 52 59 43 4B 20 3E 52 45 54 55 52 4E |.."TRYCK >RETURN| 00000130: 3C 22 00 48 09 2E 00 A1 45 24 3A 8B 45 24 B3 B1 |<".H....E$:.E$..| 00000140: C7 28 31 33 29 A7 34 36 00 60 09 2F 00 99 22 91 |.(13).46.`./..".| 00000150: 91 22 52 24 3A 99 52 24 3A 99 22 13 11 11 11 22 |."R$:.R$:."...."| 00000160: 00 7A 09 32 00 9F 31 2C 38 2C 30 2C 22 24 30 22 |.z.2..1,8,0,"$0"| 00000170: 3A A1 23 31 2C 41 24 2C 41 24 00 9A 09 3C 00 41 |:.#1,A$,A$...<.A| 00000180: 32 24 B2 22 22 3A A1 23 31 2C 41 24 2C 41 24 3A |2$."":.#1,A$,A$:| 00000190: 8B 41 24 B2 22 22 A7 31 38 30 00 C1 09 46 00 A1 |.A$."".180...F..| 000001A0: 23 31 2C 41 24 2C 42 24 3A 41 32 B2 C6 28 41 24 |#1,A$,B$:A2..(A$| 000001B0: AA 4E 24 29 AA C6 28 42 24 AA 4E 24 29 AC 32 35 |.N$)..(B$.N$).25| 000001C0: 36 00 DC 09 50 00 A1 23 31 2C 41 24 3A 8B 41 24 |6...P..#1,A$:.A$| 000001D0: B2 22 22 A7 8B 5A B2 31 A7 31 34 30 00 EB 09 5A |.""..Z.1.140...Z| 000001E0: 00 8B 41 24 B2 22 22 A7 31 32 30 00 FC 09 64 00 |..A$."".120...d.| 000001F0: 8B 41 24 B2 C7 28 33 34 29 A7 38 30 00 0F 0A 6E |.A$..(34).80...n| 00000200: 00 41 32 24 B2 41 32 24 AA 41 24 3A 89 38 30 00 |.A2$.A2$.A$:.80.| 00000210: 32 0A 78 00 5A B2 31 3A 81 49 B2 32 A4 32 30 3A |2.x.Z.1:.I.2.20:| 00000220: 43 24 B2 43 24 AA CA 28 41 32 24 2C 49 2C 31 29 |C$.C$..(A2$,I,1)| 00000230: 3A 82 00 57 0A 82 00 99 22 4C 5B 53 45 52 20 41 |:..W...."L[SER A| 00000240: 56 20 44 49 53 4B 45 54 54 20 12 20 22 43 24 22 |V DISKETT . "C$"| 00000250: 20 92 22 3A 89 36 30 00 78 0A 8C 00 8B C8 28 41 | .":.60.x.....(A| 00000260: 32 24 2C 31 32 29 B2 22 42 4C 4F 43 4B 53 20 46 |2$,12)."BLOCKS F| 00000270: 52 45 45 2E 22 A7 36 30 00 8F 0A 91 00 41 31 24 |REE.".60.....A1$| 00000280: B2 C4 28 41 32 29 3A 41 31 B2 41 31 AA 41 32 00 |..(A2):A1.A1.A2.| 00000290: BB 0A 96 00 41 B2 41 AA 31 3A 46 B2 46 AA 31 3A |....A.A.1:F.F.1:| 000002A0: 81 49 B2 31 A4 35 3A 8B CA 28 41 32 24 2C 49 2C |.I.1.5:..(A2$,I,| 000002B0: 31 29 B3 B1 22 20 22 A7 31 37 30 00 C1 0A A0 00 |1).." ".170.....| 000002C0: 82 00 FC 0A AA 00 41 24 28 41 29 B2 CA 28 41 32 |......A$(A)..(A2| 000002D0: 24 2C 49 2C 32 30 29 AA C8 28 43 31 24 2C 37 AB |$,I,20)..(C1$,7.| 000002E0: C3 28 41 31 24 29 29 AA 41 31 24 AA 22 20 20 20 |.(A1$)).A1$." | 000002F0: 20 20 20 20 22 AA 43 24 3A 89 36 30 00 09 0B B4 | ".C$:.60....| 00000300: 00 A0 31 3A 8D 31 30 30 30 00 32 0B B9 00 99 22 |..1:.1000.2...."| 00000310: 93 11 53 5B 54 54 20 49 4E 20 4E 5B 53 54 41 20 |..S[TT IN N[STA | 00000320: 44 49 53 4B 45 54 54 20 4F 43 48 20 54 52 59 43 |DISKETT OCH TRYC| 00000330: 4B 22 00 5A 0B BE 00 99 22 3E 52 45 54 55 52 4E |K".Z....">RETURN| 00000340: 3C 2E 4F 4D 20 44 55 20 5B 52 20 4B 4C 41 52 20 |<.OM DU [R KLAR | 00000350: 54 52 59 43 4B 20 27 4B 27 22 00 79 0B C8 00 A1 |TRYCK 'K'".y....| 00000360: 45 24 3A 8B 45 24 B3 B1 22 4B 22 AF 45 24 B3 B1 |E$:.E$.."K".E$..| 00000370: C7 28 31 33 29 A7 32 30 30 00 91 0B D2 00 99 22 |.(13).200......"| 00000380: 91 91 22 52 24 3A 99 52 24 3A 99 22 91 91 91 91 |.."R$:.R$:."....| 00000390: 22 00 A8 0B DC 00 8B 45 24 B2 22 4B 22 A7 8D 33 |"......E$."K"..3| 000003A0: 30 30 30 3A 89 32 34 30 00 BA 0B E6 00 5A B2 30 |000:.240.....Z.0| 000003B0: 3A 43 24 B2 22 22 3A 89 35 30 00 CF 0B F0 00 9E |:C$."":.50......| 000003C0: 34 39 31 35 32 2C 44 4A 2C 4B 4C 24 28 31 29 00 |49152,DJ,KL$(1).| 000003D0: 05 0C FA 00 99 3A 99 44 4A 22 53 54 2E 20 54 49 |.....:.DJ"ST. TI| 000003E0: 54 4C 41 52 20 53 4F 52 54 45 52 41 44 45 22 3A |TLAR SORTERADE":| 000003F0: 99 22 4B 4C 41 52 54 20 46 5C 52 20 55 54 53 4B |."KLART F\R UTSK| 00000400: 52 49 46 54 22 00 43 0C 04 01 85 22 11 5C 56 45 |RIFT".C....".\VE| 00000410: 52 53 4B 52 49 46 54 22 3B 45 24 3A 9F 32 2C 34 |RSKRIFT";E$:.2,4| 00000420: 3A 98 32 2C C7 28 31 29 2C 22 28 43 29 2D 38 34 |:.2,.(1),"(C)-84| 00000430: 20 42 59 20 44 4A 2D 53 4F 46 54 22 C7 28 31 32 | BY DJ-SOFT".(12| 00000440: 39 29 3B 00 80 0C 0E 01 98 32 2C 22 20 20 22 3B |9);......2," ";| 00000450: 45 24 3A 98 32 3A 98 32 2C 22 20 20 20 20 20 20 |E$:.2:.2," | 00000460: 20 50 52 4F 47 52 41 4D 4E 41 4D 4E 20 20 20 20 | PROGRAMNAMN | 00000470: 20 20 54 59 50 20 20 20 20 42 4C 4F 43 4B 22 3B | TYP BLOCK";| 00000480: 00 9B 0C 13 01 98 32 2C 22 20 20 20 20 20 20 44 |......2," D| 00000490: 49 53 4B 45 54 54 4E 41 4D 4E 22 00 D0 0C 18 01 |ISKETTNAMN".....| 000004A0: 98 32 2C 22 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 |.2," .....| 000004B0: A3 A3 A3 A3 A3 A3 20 20 20 20 20 20 A3 A3 A3 20 |...... ... | 000004C0: 20 20 20 A3 A3 A3 A3 A3 20 20 20 20 20 20 22 3B | ..... ";| 000004D0: 00 00 0D 22 01 98 32 2C 22 A3 A3 A3 A3 A3 A3 A3 |..."..2,".......| 000004E0: A3 A3 A3 A3 22 3A 81 49 B2 31 A4 44 4A 3A 98 32 |....":.I.1.DJ:.2| 000004F0: 2C 22 20 20 20 20 20 20 20 22 4B 4C 24 28 49 29 |," "KL$(I)| 00000500: 00 34 0D 2C 01 82 3A 98 32 2C 22 20 20 20 20 20 |.4.,..:.2," | 00000510: 20 20 20 20 20 54 4F 54 41 4C 54 22 44 4A 22 53 | TOTALT"DJ"S| 00000520: 54 59 43 4B 45 4E 20 50 52 4F 47 52 41 4D 22 3A |TYCKEN PROGRAM":| 00000530: A0 32 3A 80 00 3D 0D E8 03 99 22 93 22 00 6D 0D |.2:..=....".".m.| 00000540: F2 03 99 22 11 11 11 1D 1D 56 49 4C 4B 41 20 50 |...".....VILKA P| 00000550: 52 4F 47 52 41 4D 4E 41 4D 4E 20 53 4B 41 4C 4C |ROGRAMNAMN SKALL| 00000560: 20 50 52 49 4E 54 41 53 20 55 54 3F 22 00 7E 0D | PRINTAS UT?".~.| 00000570: FC 03 81 54 B2 51 57 AA 31 A4 51 57 AA 46 00 A8 |...T.QW.1.QW.F..| 00000580: 0D 06 04 99 22 11 11 22 3B A3 33 29 3B CA 28 41 |...."..";.3);.(A| 00000590: 24 28 54 29 2C 31 2C 31 37 29 3B A3 32 30 29 3B |$(T),1,17);.20);| 000005A0: 22 20 28 59 2F 4E 29 22 00 C9 0D 10 04 A1 50 4C |" (Y/N)"......PL| 000005B0: 24 3A 8B 50 4C 24 B3 B1 22 59 22 AF 50 4C 24 B3 |$:.PL$.."Y".PL$.| 000005C0: B1 22 4E 22 A7 31 30 34 30 00 EC 0D 1A 04 8B 50 |."N".1040......P| 000005D0: 4C 24 B2 22 59 22 A7 4B 4C 24 28 44 4A 29 B2 41 |L$."Y".KL$(DJ).A| 000005E0: 24 28 54 29 3A 44 4A B2 44 4A AA 31 00 FC 0D 24 |$(T):DJ.DJ.1...$| 000005F0: 04 82 54 3A 46 B2 30 3A 51 57 B2 41 00 02 0E 2E |..T:F.0:QW.A....| 00000600: 04 8E 00 28 0E C6 07 99 22 93 11 11 11 1D 1D 1D |...(....".......| 00000610: 4E 55 20 53 50 41 52 41 52 20 4A 41 47 20 44 49 |NU SPARAR JAG DI| 00000620: 4E 20 4C 49 53 54 41 22 00 4A 0E D0 07 9F 31 32 |N LISTA".J....12| 00000630: 2C 38 2C 31 32 2C 22 40 30 3A 44 4A 20 50 52 47 |,8,12,"@0:DJ PRG| 00000640: 20 46 49 4C 45 2C 53 2C 57 22 00 55 0E DA 07 98 | FILE,S,W".U....| 00000650: 31 32 2C 44 4A 00 61 0E E4 07 81 59 B2 31 A4 44 |12,DJ.a....Y.1.D| 00000660: 4A 00 70 0E EE 07 98 31 32 2C 4B 4C 24 28 59 29 |J.p....12,KL$(Y)| 00000670: 00 77 0E F8 07 82 59 00 7F 0E 02 08 A0 31 32 00 |.w....Y......12.| 00000680: 85 0E 0C 08 8E 00 B7 0E B8 0B 99 22 93 11 11 1D |..........."....| 00000690: 1D 56 49 4C 4C 20 44 55 20 53 50 41 52 41 20 44 |.VILL DU SPARA D| 000006A0: 49 4E 20 4C 49 53 54 41 20 50 5D 20 44 49 53 4B |IN LISTA P] DISK| 000006B0: 20 28 59 2F 4E 29 22 00 D8 0E C2 0B A1 45 52 24 | (Y/N)"......ER$| 000006C0: 3A 8B 45 52 24 B3 B1 22 59 22 AF 45 52 24 B3 B1 |:.ER$.."Y".ER$..| 000006D0: 22 4E 22 A7 33 30 31 30 00 E7 0E CC 0B 8B 45 52 |"N".3010......ER| 000006E0: 24 B2 22 4E 22 A7 8E 00 19 0F D6 0B 99 22 93 11 |$."N"........"..| 000006F0: 11 11 1D 1D 53 5B 54 54 20 49 4E 20 45 4E 20 44 |....S[TT IN EN D| 00000700: 49 53 4B 20 46 5C 52 20 4C 49 53 54 4E 45 44 53 |ISK F\R LISTNEDS| 00000710: 4B 52 49 56 4E 49 4E 47 22 00 3C 0F E0 0B 99 22 |KRIVNING".<...."| 00000720: 11 11 1D 1D 4F 43 48 20 54 52 59 43 4B 20 50 5D |....OCH TRYCK P]| 00000730: 20 4D 45 4C 4C 41 4E 53 4C 41 47 22 00 54 0F EA | MELLANSLAG".T..| 00000740: 0B A1 57 45 24 3A 8B 57 45 24 B3 B1 22 20 22 A7 |..WE$:.WE$.." ".| 00000750: 33 30 35 30 00 5E 0F F4 0B 8D 31 39 39 30 00 86 |3050.^....1990..| 00000760: 0F FE 0B 99 22 4E 55 20 5B 52 20 44 45 54 20 46 |...."NU [R DET F| 00000770: 5B 52 44 49 47 54 21 21 21 22 3A 81 55 B2 31 A4 |[RDIGT!!!":.U.1.| 00000780: 31 30 30 30 3A 82 00 8C 0F 08 0C 8E 00 AA 0F A0 |1000:...........| 00000790: 0F 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |..53280,0:.53281| 000007A0: 2C 31 32 3A 97 36 34 36 2C 30 00 DC 0F A9 0F 99 |,12:.646,0......| 000007B0: 22 11 11 11 1D 1D 56 49 4C 4C 20 44 55 20 4C 5B |".....VILL DU L[| 000007C0: 53 41 20 49 4E 20 45 4E 20 53 50 41 52 41 44 20 |SA IN EN SPARAD | 000007D0: 4C 49 53 54 41 20 28 59 2F 4E 29 22 00 FD 0F AA |LISTA (Y/N)"....| 000007E0: 0F A1 53 41 24 3A 8B 53 41 24 B3 B1 22 59 22 AF |..SA$:.SA$.."Y".| 000007F0: 53 41 24 B3 B1 22 4E 22 A7 34 30 31 30 00 0F 10 |SA$.."N".4010...| 00000800: B4 0F 8B 53 41 24 B2 22 4E 22 A7 20 89 31 30 00 |...SA$."N". .10.| 00000810: 38 10 BE 0F 99 22 93 11 11 1D 1D 53 5B 54 54 20 |8....".....S[TT | 00000820: 49 4E 20 44 49 53 4B 45 4E 20 4D 45 44 20 4C 49 |IN DISKEN MED LI| 00000830: 53 54 41 4E 20 50 5D 22 00 5B 10 C8 0F 99 22 11 |STAN P]".[....".| 00000840: 11 1D 1D 4F 43 48 20 54 52 59 43 4B 20 50 5D 20 |...OCH TRYCK P] | 00000850: 4D 45 4C 4C 41 4E 53 4C 41 47 22 00 73 10 D2 0F |MELLANSLAG".s...| 00000860: A1 59 54 24 3A 8B 59 54 24 B3 B1 22 20 22 A7 34 |.YT$:.YT$.." ".4| 00000870: 30 35 30 00 8C 10 DC 0F 99 22 93 11 11 1D 1D 4E |050......".....N| 00000880: 55 20 4C 5B 53 45 52 20 4A 41 47 22 00 AB 10 E6 |U L[SER JAG"....| 00000890: 0F 9F 31 31 2C 38 2C 31 31 2C 22 44 4A 20 50 52 |..11,8,11,"DJ PR| 000008A0: 47 20 46 49 4C 45 2C 53 2C 52 22 00 BB 10 F0 0F |G FILE,S,R".....| 000008B0: 84 31 31 2C 44 4A 3A 41 B2 44 4A 00 C9 10 FA 0F |.11,DJ:A.DJ.....| 000008C0: 81 4B B2 31 A4 44 4A AB 31 00 D8 10 04 10 84 31 |.K.1.DJ.1......1| 000008D0: 31 2C 4B 4C 24 28 4B 29 00 DF 10 0E 10 82 4B 00 |1,KL$(K)......K.| 000008E0: E7 10 18 10 A0 31 31 00 08 11 22 10 99 22 93 11 |.....11...".."..| 000008F0: 11 11 1D 1D 4E 55 20 5B 52 20 4A 41 47 20 46 5B |....NU [R JAG F[| 00000900: 52 44 49 47 21 21 21 22 00 17 11 2C 10 81 47 B2 |RDIG!!!"...,..G.| 00000910: 30 A4 32 35 30 3A 82 00 23 11 36 10 81 45 B2 31 |0.250:..#.6..E.1| 00000920: A4 44 4A 00 34 11 40 10 41 24 28 45 29 B2 4B 4C |.DJ.4.@.A$(E).KL| 00000930: 24 28 45 29 00 3B 11 4A 10 82 45 00 44 11 54 10 |$(E).;.J..E.D.T.| 00000940: 41 B2 44 4A 00 6C 11 5E 10 99 22 93 11 11 1D 1D |A.DJ.l.^..".....| 00000950: 48 41 52 20 44 55 20 46 4C 45 52 20 44 49 53 4B |HAR DU FLER DISK| 00000960: 45 54 54 45 52 20 28 59 2F 4E 29 22 00 8D 11 68 |ETTER (Y/N)"...h| 00000970: 10 A1 52 54 24 3A 8B 52 54 24 B3 B1 22 59 22 AF |..RT$:.RT$.."Y".| 00000980: 52 54 24 B3 B1 22 4E 22 A7 34 32 30 30 00 9F 11 |RT$.."N".4200...| 00000990: 72 10 8B 52 54 24 B2 22 4E 22 A7 89 32 34 30 00 |r..RT$."N"..240.| 000009A0: A7 11 7C 10 89 31 30 00 C5 11 88 13 97 35 33 32 |..|..10......532| 000009B0: 38 30 2C 30 3A 97 35 33 32 38 31 2C 31 32 3A 97 |80,0:.53281,12:.| 000009C0: 36 34 36 2C 30 00 E3 11 92 13 99 22 93 11 11 11 |646,0......"....| 000009D0: 1D 1D 1D 43 4F 50 59 52 49 47 48 54 20 31 39 38 |...COPYRIGHT 198| 000009E0: 34 20 22 00 0A 12 9C 13 99 22 11 11 1D 1D 1D 50 |4 "......".....P| 000009F0: 52 4F 47 52 41 4D 20 42 59 20 44 41 4E 49 45 4C |ROGRAM BY DANIEL| 00000A00: 20 4A 4F 48 4E 53 53 4F 4E 22 00 1B 12 A6 13 81 | JOHNSSON"......| 00000A10: 48 47 B2 31 A4 31 30 30 30 3A 82 00 22 12 B0 13 |HG.1.1000:.."...| 00000A20: 89 39 00 00 00 00 00 DC 20 FF |.9...... . |
..=....C.0.C.1:.A$(1300):.KL$(500):Z.0:D
$." ":A.0:N$.G(0).G....B(2)..18..2,1
8:DS.1:."ULTRASORT",8,1.....R$."
":C1$."
":A1.0:DJ.DJ.1:QW.A.B....5000.L....
4000......53280,0:.53281,12:.646,0...#..
"."R$...(.."STOPPA IN DISKETT F\R AVL[SN
ING".2.-.."TRYCK >RETURN<".H....E$:.E$..
G(13).46.`./..".."R$:.R$:."....".Z.2..1,
8,0,"$0":.#1,A$,A$...<.A2$."":.#1,A$,A$:
.A$."".180.A.F..#1,A$,B$:A2.F(A$.N$).F(B
$.N$).256...P..#1,A$:.A$.""..Z.1.140...Z
..A$."".120...D..A$.G(34).80...N.A2$.A2$
.A$:.80.2.X.Z.1:.I.2.20:C$.C$.J(A2$,I,1)
:..W...."L[SER AV DISKETT . "C$" .":.60.
X....H(A2$,12)."BLOCKS FREE.".60.....A1$
.D(A2):A1.A1.A2.....A.A.1:F.F.1:.I.1.5:.
J(A2$,I,1).." ".170.A. .......A$(A).J(A2
$,I,20).H(C1$,7.C(A1$)).A1$." ".C$
:.60..... 1:.1000.2...."..S[TT IN N[STA
DISKETT OCH TRYCK".Z....">RETURN<.OM DU
[R KLAR TRYCK 'K'".Y.H..E$:.E$.."K".E$..
G(13).200...R..".."R$:.R$:."...."......E
$."K"..3000:.240.....Z.0:C$."":.50.O....
49152,DJ,KL$(1)......:.DJ"ST. TITLAR SOR
TERADE":."KLART F\R UTSKRIFT".C....".\VE
RSKRIFT";E$:.2,4:.2,G(1),"(C)-84 BY DJ-S
OFT"G(129);......2," ";E$:.2:.2,"
PROGRAMNAMN TYP BLOCK";......2,
" DISKETTNAMN".P....2," .....
...... ... ..... ";..."..2,
"...........":.I.1.DJ:.2," "KL$(I)
.4.,..:.2," TOTALT"DJ"STYCKEN P
ROGRAM": 2:..=....".".M....".....VILKA P
ROGRAMNAMN SKALL PRINTAS UT?".~....T.QW.
1.QW.F......"..";.3);J(A$(T),1,17);.20);
" (Y/N)".I....PL$:.PL$.."Y".PL$.."N".104
0......PL$."Y".KL$(DJ).A$(T):DJ.DJ.1...$
..T:F.0:QW.A.......(.F..".......NU SPARA
R JAG DIN LISTA".J.P..12,8,12,"@0:DJ PRG
FILE,S,W".U.Z..12,DJ.A....Y.1.DJ.P....1
2,KL$(Y).W....Y.... 12............"....
.VILL DU SPARA DIN LISTA P] DISK (Y/N)".
X.B..ER$:.ER$.."Y".ER$.."N".3010...L..ER
$."N".....V.."......S[TT IN EN DISK F\R
LISTNEDSKRIVNING".<...."....OCH TRYCK P]
MELLANSLAG".T....WE$:.WE$.." ".3050.^..
..1990......"NU [R DET F[RDIGT!!!":.U.1.
1000:.......... ..53280,0:.53281,12:.646
,0......".....VILL DU L[SA IN EN SPARAD
LISTA (Y/N)"......SA$:.SA$.."Y".SA$.."N"
.4010......SA$."N". .10.8....".....S[TT
IN DISKEN MED LISTAN P]".[.H.."....OCH T
RYCK P] MELLANSLAG".S.R..YT$:.YT$.." ".4
050......".....NU L[SER JAG"......11,8,1
1,"DJ PRG FILE,S,R"......11,DJ:A.DJ.I...
.K.1.DJ.1.X....11,KL$(K)......K..... 11.
..".."......NU [R JAG F[RDIG!!!"...,..G.
0.250:..#.6..E.1.DJ.4.@.A$(E).KL$(E).;.J
..E.D.T.A.DJ.L.^..".....HAR DU FLER DISK
ETTER (Y/N)"...H..RT$:.RT$.."Y".RT$.."N"
.4200...R..RT$."N"..240...|..10.E....532
80,0:.53281,12:.646,0......".......COPYR
IGHT 1984 "......".....PROGRAM BY DANIEL
JOHNSSON"......HG.1.1000:.."....9......
.
> CLICK IMAGE PREVIEW FOR FULL MODAL