WORM3
FILE INFORMATION
FILENAME(S): WORM3
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-12-01 01:07:07
APPEARS ON: 1 disk(s)
FILE HASH
5ab116e3996049186bf3b6477b317779bae1933bd063a5516a594c292ae2f480
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC RUTINER 1 | WORM3 | PRG | hedning, hedemora | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 20 |..!.... ******* | 00000010: 48 59 50 45 52 20 57 4F 52 4D 20 2A 2A 2A 2A 2A |HYPER WORM *****| 00000020: 2A 00 45 08 02 00 97 35 33 32 38 30 2C 31 34 3A |*.E....53280,14:| 00000030: 97 35 33 32 38 31 2C 31 34 3A 99 22 05 93 3B 3A |.53281,14:."..;:| 00000040: 47 30 54 4F 35 00 86 08 03 00 41 24 B2 C8 28 41 |G0TO5.....A$..(A| 00000050: 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 20 20 20 20 20 20 22 2C 33 39 3A 81 | ",39:.| 00000080: 49 B2 2E A4 33 39 00 AD 08 04 00 99 22 91 22 A3 |I...39......".".| 00000090: 33 39 AB 49 29 4C 45 46 54 28 41 24 2C 49 29 3A |39.I)LEFT(A$,I):| 000000A0: 81 5A B2 2E A4 32 35 3A 82 3A 99 3A 8E 00 D8 08 |.Z...25:.:.:....| 000000B0: 05 00 41 24 B2 22 48 59 50 45 52 20 57 4F 52 4D |..A$."HYPER WORM| 000000C0: 2E 2E 2E 2E 20 28 43 29 20 31 39 39 31 20 41 58 |.... (C) 1991 AX| 000000D0: 49 41 4C 2E 22 3A 8D 33 00 0A 09 06 00 41 24 B2 |IAL.":.3.....A$.| 000000E0: 22 41 20 53 59 53 36 34 20 50 55 42 4C 49 43 20 |"A SYS64 PUBLIC | 000000F0: 44 4F 4D 41 49 4E 2E 2E 2E 20 47 52 45 45 54 49 |DOMAIN... GREETI| 00000100: 4E 47 53 20 54 4F 3A 22 8D 33 00 36 09 07 00 41 |NGS TO:".3.6...A| 00000110: 24 B2 4C 55 46 4F 58 2C 20 52 45 41 4D 49 4E 41 |$.LUFOX, REAMINA| 00000120: A4 52 2C 20 4A 45 52 52 59 2C 20 41 54 4C 45 20 |.R, JERRY, ATLE | 00000130: 22 3A 47 4F D3 33 00 54 09 08 00 41 24 B2 22 41 |":GO.3.T...A$."A| 00000140: 4E 44 20 4B 4A 45 52 20 4F 46 20 48 5A 2E 2E 2E |ND KJER OF HZ...| 00000150: 22 3A 8D 33 00 6A 09 0F 00 81 49 B2 2E A4 32 30 |":.3.j....I...20| 00000160: 30 30 3A 82 3A 99 3A 99 3A 99 00 87 09 14 00 41 |00:.:.:.:......A| 00000170: 24 B2 22 50 4C 45 41 53 45 20 57 41 49 54 2E 2E |$."PLEASE WAIT..| 00000180: 2E 22 3A 8D 33 3A 9C 00 A0 09 15 00 81 4C B2 36 |.":.3:.......L.6| 00000190: 37 39 A4 37 33 30 3A 87 41 3A 97 4C 2C 41 3A 82 |79.730:.A:.L,A:.| 000001A0: 00 B9 09 16 00 9E 36 37 39 3A 97 35 32 2C 31 32 |......679:.52,12| 000001B0: 38 3A 97 35 36 2C 31 32 38 00 E5 09 17 00 97 35 |8:.56,128......5| 000001C0: 36 37 38 2C C2 28 35 36 37 38 28 B0 33 3A 97 35 |678,.(5678(.3:.5| 000001D0: 36 35 37 36 2C 28 C2 28 35 36 35 37 36 29 AF 32 |6576,(.(56576).2| 000001E0: 35 32 29 B0 31 00 14 0A 18 00 97 36 34 38 2C 31 |52).1......648,1| 000001F0: 33 36 3A 97 35 33 37 32 37 2C 33 32 3A 99 22 20 |36:.53727,32:." | 00000200: 93 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |.":.53280,0:.532| 00000210: 38 31 2C 30 00 61 0A 19 00 83 20 31 32 30 2C 31 |81,0.a.... 120,1| 00000220: 36 35 2C 31 2C 34 31 2C 32 35 31 2C 31 33 33 2C |65,1,41,251,133,| 00000230: 31 2C 31 39 36 2C 30 2C 31 33 33 2C 32 35 31 2C |1,196,0,133,251,| 00000240: 31 36 39 2C 32 30 38 2C 31 33 33 2C 32 35 32 2C |169,208,133,252,| 00000250: 31 36 39 2C 30 2C 31 33 33 2C 32 35 33 2C 31 36 |169,0,133,253,16| 00000260: 39 00 AB 0A 1A 00 83 20 31 32 38 2C 31 33 33 2C |9...... 128,133,| 00000270: 31 36 30 2C 30 2C 31 37 37 2C 32 35 31 2C 31 34 |160,0,177,251,14| 00000280: 35 2C 32 35 33 2C 32 30 30 2C 31 39 32 2C 30 2C |5,253,200,192,0,| 00000290: 32 30 38 2C 32 34 37 2C 32 33 30 2C 32 35 32 2C |208,247,230,252,| 000002A0: 32 33 30 2C 32 35 34 2C 31 36 35 00 DB 0A 1B 00 |230,254,165.....| 000002B0: 83 20 32 35 32 2C 32 30 31 2C 32 31 36 2C 32 30 |. 252,201,216,20| 000002C0: 38 2C 32 33 37 2C 31 36 35 2C 31 2C 39 2C 34 2C |8,237,165,1,9,4,| 000002D0: 31 33 33 2C 31 2C 38 38 2C 39 36 00 EC 0A 1C 00 |133,1,88,96.....| 000002E0: 87 43 48 3A 8B 48 43 B3 30 A7 35 35 00 2B 0B 1D |.CH:.HC.0.55.+..| 000002F0: 00 81 42 59 B2 2E A4 37 3A 87 41 3A 97 33 32 37 |..BY...7:.A:.327| 00000300: 36 38 AA 28 43 48 AC 38 29 AA 42 59 2C 41 3A 97 |68.(CH.8).BY,A:.| 00000310: 33 33 37 39 32 AA 28 38 AC 43 48 29 AA 42 59 2C |33792.(8.CH).BY,| 00000320: 32 35 35 AB 41 3A 82 3A 89 32 38 00 54 0B 1E 00 |255.A:.:.28.T...| 00000330: 83 20 38 31 2C 31 32 36 2C 32 35 35 2C 32 35 35 |. 81,126,255,255| 00000340: 2C 31 39 35 2C 31 39 35 2C 32 35 35 2C 32 35 35 |,195,195,255,255| 00000350: 2C 31 32 36 00 7D 0B 1F 00 83 20 38 37 2C 31 32 |,126.}.... 87,12| 00000360: 36 2C 31 35 33 2C 31 35 33 2C 32 35 35 2C 31 39 |6,153,153,255,19| 00000370: 35 2C 32 35 35 2C 32 35 35 2C 31 32 36 00 9E 0B |5,255,255,126...| 00000380: 20 00 83 20 39 30 2C 30 2C 32 34 2C 35 32 2C 31 | .. 90,0,24,52,1| 00000390: 32 32 2C 31 32 36 2C 36 30 2C 32 34 2C 30 00 A7 |22,126,60,24,0..| 000003A0: 0B 32 00 83 20 2D 31 00 C6 0B 37 00 81 49 B2 31 |.2.. -1...7..I.1| 000003B0: A4 35 3A 87 48 49 24 28 49 29 3A 53 43 28 49 29 |.5:.HI$(I):SC(I)| 000003C0: B2 33 30 30 3A 82 00 EA 0B 38 00 4C 45 24 B2 22 |.300:....8.LE$."| 000003D0: 41 22 3A 52 49 24 B2 22 3D 22 3A 53 54 24 B2 22 |A":RI$."=":ST$."| 000003E0: 50 22 3A 51 55 22 3D 22 51 22 00 0E 0C 39 00 47 |P":QU"="Q"...9.G| 000003F0: 24 B2 22 46 41 53 54 22 3A 47 B2 2E 3A 56 49 B2 |$."FAST":G..:VI.| 00000400: 33 34 38 31 36 3A 43 4D B2 35 35 32 39 36 00 3B |34816:CM.55296.;| 00000410: 0C 3A 00 83 20 41 58 49 41 4C 2E 2C 4D 43 48 41 |.:.. AXIAL.,MCHA| 00000420: 43 4B 45 52 53 2C 31 39 39 31 2C 4C 55 46 4F 58 |CKERS,1991,LUFOX| 00000430: 2C 52 45 41 4D 49 4E 41 54 4F 52 00 48 0C 3B 00 |,REAMINATOR.H.;.| 00000440: 86 53 45 28 35 30 30 29 00 69 0C 3C 00 99 22 93 |.SE(500).i.<..".| 00000450: 9E D1 20 20 D1 20 D1 20 20 D1 20 D1 D1 D1 20 20 |.. . . . ... | 00000460: D1 D1 D1 20 20 D1 D1 D1 22 00 88 0C 46 00 99 22 |... ..."...F.."| 00000470: D1 20 20 D1 20 D1 20 D1 20 20 D1 20 20 D1 20 D1 |. . . . . . .| 00000480: 20 20 20 D1 20 20 20 D1 00 A5 0C 50 00 99 22 D1 | . ....P..".| 00000490: D1 D1 D1 A0 D1 D1 A0 A0 A0 D1 D1 D1 A0 A0 D1 D1 |................| 000004A0: A0 A0 D1 D1 D1 00 C4 0C 5A 00 99 22 D1 A0 A0 D1 |........Z.."....| 000004B0: A0 D1 A0 A0 A0 A0 D1 A0 A0 A0 A0 D1 A0 A0 A0 D1 |................| 000004C0: A0 A0 A0 D1 00 E4 0C 64 00 99 22 D1 A0 A0 D1 A0 |.......d..".....| 000004D0: D1 A0 A0 A0 A0 D1 A0 A0 A0 A0 D1 D1 D1 A0 D1 A0 |................| 000004E0: A0 A0 D1 11 00 14 0D 6E 00 99 22 D1 20 20 20 D1 |.......n..". .| 000004F0: 20 D1 D1 D1 D7 20 D1 D1 D1 20 20 D1 20 20 20 D1 | .... ... . .| 00000500: 20 20 20 20 20 20 9A 50 52 4F 47 52 41 4D 45 44 | .PROGRAMED| 00000510: 20 42 59 9E 00 30 0D 78 00 99 22 D1 20 20 20 D1 | BY..0.x..". .| 00000520: 20 D1 20 20 D1 20 D1 20 20 D1 20 D1 D1 20 D1 D1 | . . . . .. ..| 00000530: 00 5D 0D 82 00 99 22 D1 20 20 20 D1 20 D1 20 20 |.]....". . . | 00000540: D1 20 D1 20 20 D1 20 D1 20 D1 20 D1 20 20 20 20 |. . . . . . | 00000550: 20 20 9A 41 58 49 41 4C 2C 20 4F 46 9E 00 79 0D | .AXIAL, OF..y.| 00000560: 8C 00 99 22 D1 20 20 20 D1 20 D1 20 20 D1 20 D1 |...". . . . .| 00000570: 20 D1 20 20 D1 20 20 20 D1 00 A6 0D 96 00 99 22 | . . ......."| 00000580: D1 20 D7 20 D1 20 D1 20 20 D1 20 D1 20 20 D1 20 |. . . . . . . | 00000590: D1 20 20 20 D1 20 20 20 20 20 20 9A 4D 43 48 41 |. . .MCHA| 000005A0: 43 4B 45 52 53 9E 00 C2 0D A0 00 99 22 D1 D1 20 |CKERS.......".. | 000005B0: D1 D1 20 D1 20 20 D1 20 D1 20 20 D1 20 D1 20 20 |.. . . . . . | 000005C0: 20 D1 00 E3 0D AA 00 99 22 D1 20 20 20 D1 20 D1 | .......". . .| 000005D0: D1 D1 D1 20 D1 20 20 D7 20 D1 20 20 20 D1 D1 D1 |... . . . ...| 000005E0: D1 D7 11 00 11 0E B4 00 99 22 20 11 11 11 11 11 |........." .....| 000005F0: 11 11 11 11 11 11 11 11 9F DA DA DA DA DA 20 48 |.............. H| 00000600: 41 4C 4C 20 4F 46 20 46 41 4D 45 20 DA DA DA DA |ALL OF FAME ....| 00000610: DA 00 1C 0E BE 00 81 49 B2 31 A4 35 00 46 0E C8 |.......I.1.5.F..| 00000620: 00 99 22 1C 20 20 20 22 49 22 1E 22 C9 28 C4 28 |..". "I".".(.(| 00000630: 31 45 38 AA 53 43 28 49 29 29 2C 38 29 22 20 22 |1E8.SC(I)),8)" "| 00000640: 48 49 24 28 49 29 00 4C 0E D2 00 82 00 79 0E DC |HI$(I).L.....y..| 00000650: 00 22 11 9A 46 31 20 1F 47 41 4D 45 20 53 50 45 |."..F1 .GAME SPE| 00000660: 45 44 3A 20 1E 22 47 24 2C 22 46 33 20 4B 45 59 |ED: ."G$,"F3 KEY| 00000670: 20 44 45 46 49 4E 49 4F 4E 00 A3 0E F0 00 99 53 | DEFINION......S| 00000680: 54 24 22 20 20 1F 50 41 55 53 45 2F 53 54 41 52 |T$" .PAUSE/STAR| 00000690: 54 9A 22 2C 51 55 24 22 20 20 51 55 49 54 20 47 |T.",QU$" QUIT G| 000006A0: 41 4D 45 00 D0 0E F5 00 99 22 9F D7 D1 D1 D1 D1 |AME......"......| 000006B0: D1 D1 D1 D1 D1 20 9A 22 4C 45 24 20 4C 45 46 54 |..... ."LE$ LEFT| 000006C0: 20 52 49 47 48 54 20 20 22 52 49 24 22 20 22 3B | RIGHT "RI$" ";| 000006D0: 00 E4 0E FA 00 A1 41 24 3A 8B 41 24 B2 22 90 22 |......A$:.A$."."| 000006E0: A7 33 30 30 00 F4 0E 04 01 8B 41 24 B2 22 92 22 |.300......A$."."| 000006F0: A7 34 30 30 00 0E 0F 0E 01 8B 41 24 B2 53 54 24 |.400......A$.ST$| 00000700: A7 97 35 33 32 38 31 2C 31 3A 89 35 30 30 00 17 |..53281,1:.500..| 00000710: 0F 18 01 89 32 35 30 00 2C 0F 22 01 8F 2A 2A 20 |....250.,."..** | 00000720: 47 41 4D 45 20 53 50 45 45 44 2A 2A 00 4E 0F 2C |GAME SPEED**.N.,| 00000730: 01 8B 47 24 B2 22 53 4C 4F 57 22 A7 47 B2 2E 3A |..G$."SLOW".G..:| 00000740: 47 24 B2 22 46 41 53 54 22 3A 89 31 38 30 00 68 |G$."FAST":.180.h| 00000750: 0F 36 01 47 B2 31 30 30 3A 47 24 B2 22 53 4C 4F |.6.G.100:G$."SLO| 00000760: 57 23 5B 47 CF 31 38 30 00 76 0F 86 01 8F 2A 2A |W#[G.180.v....**| 00000770: 4B 45 59 53 2A 2A 00 A0 0F 90 01 99 22 93 D7 D1 |KEYS**......"...| 00000780: D1 D1 D1 20 50 52 45 53 53 20 4B 59 45 20 54 4F |... PRESS KYE TO| 00000790: 20 52 4F 54 41 54 45 20 4C 45 46 54 3A 20 22 3B | ROTATE LEFT: ";| 000007A0: 00 B5 0F 9A 01 A1 4C 45 24 3A 8B 4C 45 24 B2 22 |......LE$:.LE$."| 000007B0: 22 A7 34 31 30 00 CF 0F 9B 01 46 49 4C 45 24 B3 |".410.....FILE$.| 000007C0: 22 21 22 B0 4C 45 24 B1 22 5F 22 A7 34 31 30 00 |"!".LE$."_".410.| 000007D0: D8 0F A4 01 99 4C 45 24 00 0D 10 AE 01 99 22 91 |.....LE$......".| 000007E0: 20 20 20 20 11 9D 9D 9D 9D 9D D1 D1 D1 D1 D7 20 | ........... | 000007F0: 50 52 45 53 53 20 4B 59 45 20 46 4F 52 20 52 4F |PRESS KYE FOR RO| 00000800: 54 41 54 41 20 52 49 47 48 54 3A 22 3B 00 22 10 |TATA RIGHT:";.".| 00000810: B8 01 A1 52 49 24 3A 8B 52 49 24 B2 22 22 A7 34 |...RI$:.RI$."".4| 00000820: 34 30 00 3B 10 B9 01 8B 52 49 24 B3 22 21 22 52 |40.;....RI$."!"R| 00000830: B0 49 24 B1 22 5F 22 A7 34 34 30 00 44 10 C2 01 |.I$."_".440.D...| 00000840: 99 52 49 24 00 79 10 CC 01 99 22 91 20 20 20 20 |.RI$.y....". | 00000850: 11 1D 1D 1D 1D 1D D1 53 54 4F 50 D1 50 52 45 53 |.......STOP.PRES| 00000860: 53 20 4B 45 59 20 46 4F 52 20 50 41 55 53 45 2F |S KEY FOR PAUSE/| 00000870: 53 54 41 52 54 3A 20 22 3B 00 8E 10 D6 01 A1 53 |START: ";......S| 00000880: 54 24 3A 8B 53 54 24 B2 22 22 A7 34 37 30 00 B7 |T$:.ST$."".470..| 00000890: 10 D7 01 8B 53 54 24 B3 22 21 22 B0 53 54 24 B1 |....ST$."!".ST$.| 000008A0: 22 5F 22 B0 53 54 24 B2 52 49 24 B0 53 54 24 B2 |"_".ST$.RI$.ST$.| 000008B0: 4C 45 24 A7 34 37 30 00 C0 10 E0 01 99 53 54 24 |LE$.470......ST$| 000008C0: 00 F7 10 E1 01 99 22 91 20 20 20 20 20 11 1D 1D |......". ...| 000008D0: 1D 1D 1D 1D D1 51 55 49 54 D1 50 52 45 53 53 20 |.....QUIT.PRESS | 000008E0: 4B 45 59 20 46 4F 52 20 51 55 49 54 20 47 41 4D |KEY FOR QUIT GAM| 000008F0: 45 20 20 20 20 22 3B 00 0C 11 E2 01 A1 51 55 24 |E ";......QU$| 00000900: 3A 8B 51 55 24 B2 22 22 A7 34 38 32 00 3D 11 E3 |:.QU$."".482.=..| 00000910: 01 8B 47 55 24 B3 22 21 22 B0 51 55 24 B1 22 5F |..GU$."!".QU$."_| 00000920: 22 B0 51 55 24 B2 4C 45 24 B0 51 55 24 B2 52 49 |".QU$.LE$.QU$.RI| 00000930: 24 B0 51 55 24 B2 53 54 24 A7 34 38 32 00 4A 11 |$.QU$.ST$.482.J.| 00000940: E4 01 99 47 55 24 3A 89 36 30 00 58 11 EA 01 8F |...GU$:.60.X....| 00000950: 2A 2A 47 41 4D 45 2A 2A 00 00 00 |**GAME**... |
..!.... ******* HYPER WORM ******.E....5
3280,14:.53281,14:."..;:G0TO5.....A$.H(A
$."
",39:.I...39......".".39.I)LEFT(A$,I):
.Z...25:.:.:..X...A$."HYPER WORM.... (C)
1991 AXIAL.":.3.....A$."A SYS64 PUBLIC
DOMAIN... GREETINGS TO:".3.6...A$.LUFOX,
REAMINA.R, JERRY, ATLE ":GOS3.T...A$."A
ND KJER OF HZ...":.3.J....I...2000:.:.:.
:......A$."PLEASE WAIT...":.3:.. ....L.6
79.730:.A:.L,A:.......679:.52,128:.56,12
8......5678,B(5678(.3:.56576,(B(56576).2
52).1......648,136:.53727,32:." .":.5328
0,0:.53281,0.A.... 120,165,1,41,251,133,
1,196,0,133,251,169,208,133,252,169,0,13
3,253,169...... 128,133,160,0,177,251,14
5,253,200,192,0,208,247,230,252,230,254,
165...... 252,201,216,208,237,165,1,9,4,
133,1,88,96......CH:.HC.0.55.+....BY...7
:.A:.32768.(CH.8).BY,A:.33792.(8.CH).BY,
255.A:.:.28.T.... 81,126,255,255,195,195
,255,255,126.}.... 87,126,153,153,255,19
5,255,255,126... .. 90,0,24,52,122,126,6
0,24,0...2.. -1.F.7..I.1.5:.HI$(I):SC(I)
.300:....8.LE$."A":RI$."=":ST$."P":QU"="
Q"...9.G$."FAST":G..:VI.34816:CM.55296.;
.:.. AXIAL.,MCHACKERS,1991,LUFOX,REAMINA
TOR.H.;..SE(500).I.<.."..Q Q Q Q QQQ
QQQ QQQ"...F.."Q Q Q Q Q Q Q Q Q
...P.."QQQQ QQ QQQ QQ QQQ.D.Z.."Q Q
Q Q Q Q Q...D.."Q Q Q Q
QQQ Q Q....N.."Q Q QQQW QQQ Q Q
.PROGRAMED BY..0.X.."Q Q Q Q Q
Q QQ QQ.]...."Q Q Q Q Q Q Q Q Q
.AXIAL, OF..Y...."Q Q Q Q Q Q Q
Q......"Q W Q Q Q Q Q Q Q .MCHA
CKERS..B. .."QQ QQ Q Q Q Q Q Q......
"Q Q QQQQ Q W Q QQQQW......." .....
.........ZZZZZ HALL OF FAME ZZZZZ......I
.1.5.F.H..". "I"."I(D(1E8.SC(I)),8)" "
HI$(I).L.R...Y..."..F1 .GAME SPEED: ."G$
,"F3 KEY DEFINION......ST$" .PAUSE/STAR
T.",QU$" QUIT GAME.P....".WQQQQQQQQQ ."
LE$ LEFT RIGHT "RI$" ";......A$:.A$."."
.300......A$.".".400......A$.ST$..53281,
1:.500......250.,."..** GAME SPEED**.N.,
..G$."SLOW".G..:G$."FAST":.180.H.6.G.100
:G$."SLOW#[GO180.V....**KEYS**. ....".WQ
QQQ PRESS KYE TO ROTATE LEFT: ";......LE
$:.LE$."".410.O...FILE$."!".LE$."_".410.
X....LE$......". ......QQQQW PRESS KY
E FOR ROTATA RIGHT:";."....RI$:.RI$."".4
40.;....RI$."!"R.I$."_".440.D.B..RI$.Y.L
..". ......QSTOPQPRESS KEY FOR PAUSE/
START: ";...V..ST$:.ST$."".470...W..ST$.
"!".ST$."_".ST$.RI$.ST$.LE$.470......ST$
......". .......QQUITQPRESS KEY FOR
QUIT GAME ";......QU$:.QU$."".482.=..
..GU$."!".QU$."_".QU$.LE$.QU$.RI$.QU$.ST
$.482.J....GU$:.60.X....**GAME**...
> CLICK IMAGE PREVIEW FOR FULL MODAL