T-PUG
FILE INFORMATION
FILENAME(S): T-PUG
FILE TYPE(S): DEL
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 18:13:13
APPEARS ON: 1 disk(s)
FILE HASH
8cabf4bd8723b9772a43978c41ef49c813b658e8815ae1b1bc74d2f16ded4dd0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG JAN 84 C | T-PUG | DEL | Sailor, Ganheden | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 2F 08 0A 00 97 35 33 32 38 30 2C 36 3A 97 |../....53280,6:.|
00000010: 35 33 32 38 31 2C 36 3A 86 54 42 24 28 31 35 30 |53281,6:.TB$(150|
00000020: 29 3A 99 22 93 22 3A 44 49 B2 38 3A 43 B2 31 00 |):.".":DI.8:C.1.|
00000030: 6C 08 14 00 9F 38 2C 44 49 2C 38 2C 22 3A 20 20 |l....8,DI,8,": |
00000040: 20 44 49 52 45 43 54 4F 52 59 20 20 20 22 3A 9F | DIRECTORY ":.|
00000050: 31 35 2C 44 49 2C 31 35 3A 84 31 35 2C 45 4E 24 |15,DI,15:.15,EN$|
00000060: 2C 45 44 24 2C 45 54 24 2C 45 53 24 00 8E 08 1E |,ED$,ET$,ES$....|
00000070: 00 84 38 2C 44 4E 24 3A 8B 45 4E 24 B3 B1 22 30 |..8,DN$:.EN$.."0|
00000080: 30 22 A7 A0 38 3A A0 31 35 3A 89 33 31 30 00 A6 |0"..8:.15:.310..|
00000090: 08 28 00 84 38 2C 54 42 24 28 43 29 3A 8B 53 54 |.(..8,TB$(C):.ST|
000000A0: B2 36 36 A7 37 30 00 DE 08 32 00 8B C6 28 C8 28 |.66.70...2...(.(|
000000B0: 54 42 24 28 43 29 2C 31 29 29 B2 31 30 A7 54 42 |TB$(C),1)).10.TB|
000000C0: 24 28 43 29 B2 C9 28 54 42 24 28 43 29 2C C3 28 |$(C)..(TB$(C),.(|
000000D0: 54 42 24 28 43 29 29 AB 31 29 3A 89 35 30 00 EC |TB$(C)).1):.50..|
000000E0: 08 3C 00 43 B2 43 AA 31 3A 89 34 30 00 25 09 46 |.<.C.C.1:.40.%.F|
000000F0: 00 A0 38 3A A0 31 35 3A 4D B2 43 AB 31 3A 54 42 |..8:.15:M.C.1:TB|
00000100: 24 28 43 29 B2 22 22 3A 4C 31 24 B2 22 12 22 3A |$(C)."":L1$.".":|
00000110: 81 43 B2 31 A4 34 30 3A 4C 31 24 B2 4C 31 24 AA |.C.1.40:L1$.L1$.|
00000120: 22 20 22 3A 82 00 39 09 50 00 4C 31 24 B2 4C 31 |" ":..9.P.L1$.L1|
00000130: 24 AA 22 92 22 3A 41 B2 31 00 6C 09 5A 00 97 35 |$.".":A.1.l.Z..5|
00000140: 33 32 38 31 2C 31 3A 99 22 93 1F 22 3B 3A 81 43 |3281,1:."..";:.C|
00000150: B2 31 A4 34 3A 99 4C 31 24 3B 3A 82 3A 81 43 B2 |.1.4:.L1$;:.:.C.|
00000160: 31 A4 32 3A 99 22 1F 22 4C 31 24 3B 00 78 09 5F |1.2:."."L1$;.x._|
00000170: 00 82 3A 99 22 13 22 3B 00 BE 09 64 00 99 A6 38 |..:.".";...d...8|
00000180: 29 22 1F 44 49 52 45 43 54 4F 52 59 20 41 53 53 |)".DIRECTORY ASS|
00000190: 49 53 54 41 4E 43 45 20 56 36 34 22 A6 31 30 29 |ISTANCE V64".10)|
000001A0: 22 1C 12 28 43 29 31 39 38 32 20 20 43 4F 4D 4D |"..(C)1982 COMM|
000001B0: 4F 44 4F 52 45 20 42 55 53 49 4E 45 22 3B 00 01 |ODORE BUSINE";..|
000001C0: 0A 69 00 99 22 12 53 53 A0 4D 41 43 48 49 4E 45 |.i..".SS.MACHINE|
000001D0: 53 92 1F 22 A6 31 31 29 22 41 55 54 48 4F 52 3A |S..".11)"AUTHOR:|
000001E0: 20 4D 49 43 48 41 45 4C 20 53 43 48 41 46 46 22 | MICHAEL SCHAFF"|
000001F0: A6 35 37 29 22 1C 22 44 4E 24 A6 38 29 4C 31 24 |.57)"."DN$.8)L1$|
00000200: 3B 00 3E 0A 78 00 81 43 B2 41 A4 41 AA 31 34 3A |;.>.x..C.A.A.14:|
00000210: 99 22 12 22 C9 28 22 20 20 20 20 22 AA C4 28 43 |.".".(" "..(C|
00000220: 29 2C 35 29 22 92 20 1F 22 54 42 24 28 43 29 A6 |),5)". ."TB$(C).|
00000230: 32 39 AB C3 28 54 42 24 28 43 29 29 29 3B 00 5F |29..(TB$(C)));._|
00000240: 0A 82 00 99 C7 28 31 34 32 29 3B 3A 99 22 1C 12 |.....(142);:."..|
00000250: 20 20 20 20 20 22 3B 3A 82 3A 99 4C 31 24 3B 00 | ";:.:.L1$;.|
00000260: 83 0A 87 00 81 41 B2 31 A4 32 3A 99 22 1F 22 4C |.....A.1.2:."."L|
00000270: 31 24 3B 3A 82 3A 99 C8 28 4C 31 24 2C 34 30 29 |1$;:.:..(L1$,40)|
00000280: 22 91 22 00 C2 0A 8C 00 99 A6 39 29 22 12 91 91 |".".......9)"...|
00000290: 46 31 20 3D 20 43 4F 4E 54 49 4E 55 45 20 4C 49 |F1 = CONTINUE LI|
000002A0: 53 54 49 4E 47 22 A6 31 39 29 22 46 33 20 3D 20 |STING".19)"F3 = |
000002B0: 43 52 45 41 54 45 20 44 49 52 45 43 54 4F 52 59 |CREATE DIRECTORY|
000002C0: 22 3B 00 01 0B 96 00 99 A6 31 39 29 22 46 35 20 |";.......19)"F5 |
000002D0: 3D 20 45 58 49 54 20 50 52 4F 47 52 41 4D 1F 13 |= EXIT PROGRAM..|
000002E0: 22 3A 97 32 30 32 33 2C 31 36 30 3A 97 35 36 32 |":.2023,160:.562|
000002F0: 39 35 2C 36 3A 97 31 39 38 2C 30 3A 42 24 B2 22 |95,6:.198,0:B$."|
00000300: 22 00 14 0B A0 00 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""|
00000310: A7 31 36 30 00 26 0B AA 00 8B C6 28 41 24 29 B2 |.160.&.....(A$).|
00000320: 31 33 A7 32 36 30 00 43 0B B4 00 8B 41 24 B2 22 |13.260.C....A$."|
00000330: 85 22 A7 32 34 30 3A 8F 22 20 46 31 20 2A 2A 2A |.".240:." F1 ***|
00000340: 2A 2A 2A 00 60 0B BE 00 8B 41 24 B2 22 86 22 A7 |***.`....A$.".".|
00000350: 33 30 30 3A 8F 22 20 46 33 20 2A 2A 2A 2A 2A 2A |300:." F3 ******|
00000360: 00 91 0B C8 00 8B 41 24 B2 22 87 22 A7 97 35 33 |......A$."."..53|
00000370: 32 38 30 2C 33 3A 99 22 93 11 11 11 1F 52 55 4E |280,3:.".....RUN|
00000380: 13 22 3A 80 3A 8F 22 20 46 35 20 2A 2A 2A 2A 2A |.":.:." F5 *****|
00000390: 2A 00 BF 0B D2 00 8B C6 28 41 24 29 B2 32 30 A7 |*.......(A$).20.|
000003A0: 42 24 B2 22 22 3A 99 22 13 11 11 11 11 1C 12 20 |B$."":."....... |
000003B0: 20 20 92 22 3A 42 24 B2 22 22 3A 89 31 36 30 00 | .":B$."":.160.|
000003C0: DE 0B DC 00 8B 41 24 B3 22 30 22 B0 41 24 B1 22 |.....A$."0".A$."|
000003D0: 39 22 B0 C3 28 42 24 29 B2 33 A7 31 36 30 00 FC |9"..(B$).3.160..|
000003E0: 0B E6 00 42 24 B2 42 24 AA 41 24 3A 99 22 13 11 |...B$.B$.A$:."..|
000003F0: 11 11 11 1F 22 42 24 3A 89 31 36 30 00 0D 0C F0 |...."B$:.160....|
00000400: 00 8B 43 B1 4D A7 41 B2 31 3A 89 39 30 00 19 0C |..C.M.A.1:.90...|
00000410: FA 00 41 B2 43 3A 89 39 30 00 4D 0C 04 01 8B C5 |..A.C:.90.M.....|
00000420: 28 42 24 29 B1 4D A7 99 22 13 11 11 11 11 1F 3F |(B$).M.."......?|
00000430: 3F 3F 22 3A 81 43 B2 31 A4 31 35 30 30 3A 82 3A |??":.C.1.1500:.:|
00000440: 41 24 B2 C7 28 32 30 29 3A 89 32 31 30 00 8C 0C |A$..(20):.210...|
00000450: 0E 01 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |...53281,6:.5328|
00000460: 30 2C 31 34 3A 99 22 92 93 11 11 11 05 4C 4F 41 |0,14:."......LOA|
00000470: 44 22 C7 28 33 34 29 54 42 24 28 C5 28 42 24 29 |D".(34)TB$(.(B$)|
00000480: 29 C7 28 33 34 29 22 2C 38 2C 31 22 00 BA 0C 18 |).(34)",8,1"....|
00000490: 01 8F 20 20 20 50 52 49 4E 54 52 49 47 48 54 24 |.. PRINTRIGHT$|
000004A0: 28 53 54 52 24 28 44 49 29 2C 4C 45 4E 28 53 54 |(STR$(DI),LEN(ST|
000004B0: 52 24 28 44 49 29 29 2D 31 29 00 ED 0C 22 01 99 |R$(DI))-1)..."..|
000004C0: 22 13 22 3A 97 31 39 38 2C 34 3A 97 36 33 31 2C |".":.198,4:.631,|
000004D0: 31 33 3A 97 36 33 32 2C 38 32 3A 97 36 33 33 2C |13:.632,82:.633,|
000004E0: 32 31 33 3A 97 36 33 34 2C 31 33 3A 80 00 FF 0C |213:.634,13:....|
000004F0: 2C 01 99 22 13 11 11 11 11 1F 57 41 49 54 22 00 |,.."......WAIT".|
00000500: 33 0D 36 01 9F 38 2C 44 49 2C 30 2C 22 24 30 22 |3.6..8,DI,0,"$0"|
00000510: 3A 81 43 B2 31 A4 38 3A A1 23 38 2C 41 24 3A 82 |:.C.1.8:.#8,A$:.|
00000520: 3A 43 B2 31 3A 44 4E 24 B2 22 22 3A 81 43 B2 31 |:C.1:DN$."":.C.1|
00000530: A4 31 36 00 6D 0D 40 01 A1 23 38 2C 41 24 3A 44 |.16.m.@..#8,A$:D|
00000540: 4E 24 B2 44 4E 24 AA 41 24 3A 82 3A A1 23 38 2C |N$.DN$.A$:.:.#8,|
00000550: 41 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E |A$:.#8,A$:DN$.DN|
00000560: 24 AA 22 20 20 22 3A A1 23 38 2C 41 24 00 AC 0D |$." ":.#8,A$...|
00000570: 4A 01 44 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 38 |J.DN$.DN$.A$:.#8|
00000580: 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A A1 |,A$:DN$.DN$.A$:.|
00000590: 23 38 2C 41 24 3A A1 23 38 2C 41 24 3A 44 4E 24 |#8,A$:.#8,A$:DN$|
000005A0: B2 44 4E 24 AA 22 20 20 22 AA 41 24 00 CD 0D 54 |.DN$." ".A$...T|
000005B0: 01 A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA |..#8,A$:DN$.DN$.|
000005C0: 41 24 3A A1 23 38 2C 41 24 3A 43 B2 31 00 EF 0D |A$:.#8,A$:C.1...|
000005D0: 5E 01 81 41 B2 31 A4 34 3A A1 23 38 2C 41 24 3A |^..A.1.4:.#8,A$:|
000005E0: 82 3A 50 4E 24 B2 22 22 3A 54 59 24 B2 22 22 00 |.:PN$."":TY$."".|
000005F0: 05 0E 68 01 A1 23 38 2C 41 24 3A 8B 53 54 B3 B1 |..h..#8,A$:.ST..|
00000600: 30 A7 34 35 30 00 14 0E 72 01 8B 41 24 B2 22 22 |0.450...r..A$.""|
00000610: A7 34 35 30 00 27 0E 7C 01 8B C6 28 41 24 29 B3 |.450.'.|...(A$).|
00000620: B1 33 34 A7 33 36 30 00 4D 0E 86 01 A1 23 38 2C |.34.360.M....#8,|
00000630: 41 24 3A 8B C6 28 41 24 29 B3 B1 33 34 A7 50 4E |A$:..(A$)..34.PN|
00000640: 24 B2 50 4E 24 AA 41 24 3A 89 33 39 30 00 66 0E |$.PN$.A$:.390.f.|
00000650: 90 01 A1 23 38 2C 41 24 3A 8B C6 28 41 24 29 B2 |...#8,A$:..(A$).|
00000660: 33 32 A7 34 30 30 00 88 0E 9A 01 54 59 24 B2 54 |32.400.....TY$.T|
00000670: 59 24 AA 41 24 3A A1 23 38 2C 41 24 3A 8B 41 24 |Y$.A$:.#8,A$:.A$|
00000680: B3 B1 22 22 A7 34 31 30 00 A1 0E A4 01 8B C8 28 |.."".410.......(|
00000690: 54 59 24 2C 33 29 B3 B1 22 50 52 47 22 A7 33 35 |TY$,3).."PRG".35|
000006A0: 30 00 B7 0E AE 01 8B C8 28 50 4E 24 24 31 29 B2 |0.......(PN$$1).|
000006B0: 22 20 22 A7 33 35 30 00 D6 0E B8 01 54 42 24 28 |" ".350.....TB$(|
000006C0: 43 29 B2 50 4E 24 3A 43 B2 43 AA 31 3A 8B 53 54 |C).PN$:C.C.1:.ST|
000006D0: B2 30 A7 33 35 30 00 FF 0E C2 01 A0 38 3A 9F 31 |.0.350......8:.1|
000006E0: 35 2C 44 49 2C 31 35 2C 22 53 3A 20 20 20 44 49 |5,DI,15,"S: DI|
000006F0: 52 45 43 54 4F 52 59 20 20 20 22 3A A0 31 35 00 |RECTORY ":.15.|
00000700: 3F 0F CC 01 5A 24 B2 22 DA DA DA DA DA DA DA DA |?...Z$."........|
00000710: DA DA DA DA DA DA DA DA 22 3A 9F 38 2C 44 49 2C |........":.8,DI,|
00000720: 38 2C 22 3A 20 20 20 44 49 52 45 43 54 4F 52 59 |8,": DIRECTORY|
00000730: 20 20 20 2C 53 2C 57 22 3A 98 38 2C 44 4E 24 00 | ,S,W":.8,DN$.|
00000740: 6A 0F D6 01 81 41 B2 31 A4 43 AB 31 3A 43 24 B2 |j....A.1.C.1:C$.|
00000750: 5A 24 3A 81 42 B2 31 A4 43 AB 31 3A 8B 43 24 B3 |Z$:.B.1.C.1:.C$.|
00000760: 54 42 24 28 42 29 A7 34 39 30 00 7C 0F E0 01 43 |TB$(B).490.|...C|
00000770: 24 B2 54 42 24 28 42 29 3A 44 B2 42 00 9D 0F EA |$.TB$(B):D.B....|
00000780: 01 82 3A 98 38 2C 43 24 3A 54 42 24 28 44 29 B2 |..:.8,C$:TB$(D).|
00000790: 5A 24 3A 82 3A A0 38 3A 9C 3A 89 31 30 00 00 00 |Z$:.:.8:.:.10...|
../....53280,6:.53281,6:.TB$(150):.".":D
I.8:C.1.L....8,DI,8,": DIRECTORY ":.
15,DI,15:.15,EN$,ED$,ET$,ES$......8,DN$:
.EN$.."00". 8: 15:.310...(..8,TB$(C):.ST
.66.70...2..F(H(TB$(C),1)).10.TB$(C).I(T
B$(C),C(TB$(C)).1):.50...<.C.C.1:.40.%.F
. 8: 15:M.C.1:TB$(C)."":L1$.".":.C.1.40:
L1$.L1$." ":..9.P.L1$.L1$.".":A.1.L.Z..5
3281,1:."..";:.C.1.4:.L1$;:.:.C.1.2:."."
L1$;.X._..:.".";...D...8)".DIRECTORY ASS
ISTANCE V64".10)"..(C)1982 COMMODORE BU
SINE";...I..".SS MACHINES..".11)"AUTHOR:
MICHAEL SCHAFF".57)"."DN$.8)L1$;.>.X..C
.A.A.14:."."I(" ".D(C),5)". ."TB$(C).
29.C(TB$(C)));._....G(142);:.".. ";:
.:.L1$;......A.1.2:."."L1$;:.:.H(L1$,40)
".".B.....9)"...F1 = CONTINUE LISTING".1
9)"F3 = CREATE DIRECTORY";.......19)"F5
= EXIT PROGRAM..":.2023,160:.56295,6:.19
8,0:B$.""... ..A$:.A$."".160.&....F(A$).
13.260.C....A$.".".240:." F1 ******.`...
.A$.".".300:." F3 ******...H..A$."."..53
280,3:.".....RUN.":.:." F5 ******...R..F
(A$).20.B$."":."....... .":B$."":.160.
.....A$."0".A$."9".C(B$).3.160.....B$.B$
.A$:."......"B$:.160......C.M.A.1:.90...
..A.C:.90.M....E(B$).M.."......???":.C.1
.1500:.:A$.G(20):.210......53281,6:.5328
0,14:."......LOAD"G(34)TB$(E(B$))G(34)",
8,1"...... PRINTRIGHT$(STR$(DI),LEN(ST
R$(DI))-1)..."..".":.198,4:.631,13:.632,
82:.633,213:.634,13:....,.."......WAIT".
3.6..8,DI,0,"$0":.C.1.8:.#8,A$:.:C.1:DN$
."":.C.1.16.M.@..#8,A$:DN$.DN$.A$:.:.#8,
A$:.#8,A$:DN$.DN$." ":.#8,A$...J.DN$.DN
$.A$:.#8,A$:DN$.DN$.A$:.#8,A$:.#8,A$:DN$
.DN$." ".A$.M.T..#8,A$:DN$.DN$.A$:.#8,A
$:C.1...^..A.1.4:.#8,A$:.:PN$."":TY$."".
..H..#8,A$:.ST..0.450...R..A$."".450.'.|
..F(A$)..34.360.M....#8,A$:.F(A$)..34.PN
$.PN$.A$:.390.F....#8,A$:.F(A$).32.400..
...TY$.TY$.A$:.#8,A$:.A$.."".410......H(
TY$,3).."PRG".350......H(PN$$1)." ".350.
V...TB$(C).PN$:C.C.1:.ST.0.350...B. 8:.1
5,DI,15,"S: DIRECTORY ": 15.?.L.Z$."
ZZZZZZZZZZZZZZZZ":.8,DI,8,": DIRECTORY
,S,W":.8,DN$.J.V..A.1.C.1:C$.Z$:.B.1.
C.1:.C$.TB$(B).490.|...C$.TB$(B):D.B....
..:.8,C$:TB$(D).Z$:.: 8:.:.10...
> CLICK IMAGE PREVIEW FOR FULL MODAL