WORM4
FILE INFORMATION
FILENAME(S): WORM4
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-12-01 01:07:07
APPEARS ON: 1 disk(s)
FILE HASH
2d0ee889a275a7752e0eebb19064c1f7b221adf583b2c3e05f41c1e9a31825dc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC RUTINER 1 | WORM4 | PRG | hedning, hedemora | 16 | 1 | 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 43 08 02 00 97 35 33 32 38 30 2C 31 34 3A |*.C....53280,14:| 00000030: 97 35 33 32 38 31 2C 31 34 3A 99 22 05 93 22 3B |.53281,14:."..";| 00000040: 3A 89 35 00 85 08 03 00 41 24 B2 C8 28 41 24 AA |:.5.....A$..(A$.| 00000050: 22 20 20 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 22 2C 33 39 29 3A 81 49 | ",39):.I| 00000080: B2 2E A4 33 39 00 A9 08 04 00 99 22 91 22 A3 33 |...39......".".3| 00000090: 39 AB 49 29 C8 28 41 24 2C 49 29 3A 81 5A B2 2E |9.I).(A$,I):.Z..| 000000A0: A4 32 35 3A 82 3A 99 3A 8E 00 D4 08 05 00 41 24 |.25:.:.:......A$| 000000B0: B2 22 48 59 50 45 52 20 57 4F 52 4D 2E 2E 2E 2E |."HYPER WORM....| 000000C0: 20 28 43 29 20 31 39 39 31 20 41 58 49 41 4C 2E | (C) 1991 AXIAL.| 000000D0: 22 3A 8D 33 00 06 09 06 00 41 24 B2 22 41 20 53 |":.3.....A$."A S| 000000E0: 59 53 36 34 20 50 55 42 4C 49 43 20 44 4F 4D 41 |YS64 PUBLIC DOMA| 000000F0: 49 4E 2E 2E 2E 20 47 52 45 45 54 49 4E 47 53 20 |IN... GREETINGS | 00000100: 54 4F 3A 22 8D 33 00 32 09 07 00 41 24 B2 4C 55 |TO:".3.2...A$.LU| 00000110: 46 4F 58 2C 20 52 45 41 4D 49 4E 41 A4 52 2C 20 |FOX, REAMINA.R, | 00000120: 4A 45 52 52 59 2C 20 41 54 4C 45 20 22 3A 47 4F |JERRY, ATLE ":GO| 00000130: D3 33 00 50 09 08 00 41 24 B2 22 41 4E 44 20 4B |.3.P...A$."AND K| 00000140: 4A 45 52 20 4F 46 20 48 5A 2E 2E 2E 22 3A 8D 33 |JER OF HZ...":.3| 00000150: 00 66 09 0F 00 81 49 B2 2E A4 32 30 30 30 3A 82 |.f....I...2000:.| 00000160: 3A 99 3A 99 3A 99 00 83 09 14 00 41 24 B2 22 50 |:.:.:......A$."P| 00000170: 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 3A 8D |LEASE WAIT...":.| 00000180: 33 3A 9C 00 9C 09 15 00 81 4C B2 36 37 39 A4 37 |3:.......L.679.7| 00000190: 33 30 3A 87 41 3A 97 4C 2C 41 3A 82 00 B5 09 16 |30:.A:.L,A:.....| 000001A0: 00 9E 36 37 39 3A 97 35 32 2C 31 32 38 3A 97 35 |..679:.52,128:.5| 000001B0: 36 2C 31 32 38 00 E1 09 17 00 97 35 36 37 38 2C |6,128......5678,| 000001C0: C2 28 35 36 37 38 28 B0 33 3A 97 35 36 35 37 36 |.(5678(.3:.56576| 000001D0: 2C 28 C2 28 35 36 35 37 36 29 AF 32 35 32 29 B0 |,(.(56576).252).| 000001E0: 31 00 10 0A 18 00 97 36 34 38 2C 31 33 36 3A 97 |1......648,136:.| 000001F0: 35 33 37 32 37 2C 33 32 3A 99 22 20 93 22 3A 97 |53727,32:." .":.| 00000200: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 |53280,0:.53281,0| 00000210: 00 5D 0A 19 00 83 20 31 32 30 2C 31 36 35 2C 31 |.].... 120,165,1| 00000220: 2C 34 31 2C 32 35 31 2C 31 33 33 2C 31 2C 31 39 |,41,251,133,1,19| 00000230: 36 2C 30 2C 31 33 33 2C 32 35 31 2C 31 36 39 2C |6,0,133,251,169,| 00000240: 32 30 38 2C 31 33 33 2C 32 35 32 2C 31 36 39 2C |208,133,252,169,| 00000250: 30 2C 31 33 33 2C 32 35 33 2C 31 36 39 00 A7 0A |0,133,253,169...| 00000260: 1A 00 83 20 31 32 38 2C 31 33 33 2C 31 36 30 2C |... 128,133,160,| 00000270: 30 2C 31 37 37 2C 32 35 31 2C 31 34 35 2C 32 35 |0,177,251,145,25| 00000280: 33 2C 32 30 30 2C 31 39 32 2C 30 2C 32 30 38 2C |3,200,192,0,208,| 00000290: 32 34 37 2C 32 33 30 2C 32 35 32 2C 32 33 30 2C |247,230,252,230,| 000002A0: 32 35 34 2C 31 36 35 00 D7 0A 1B 00 83 20 32 35 |254,165...... 25| 000002B0: 32 2C 32 30 31 2C 32 31 36 2C 32 30 38 2C 32 33 |2,201,216,208,23| 000002C0: 37 2C 31 36 35 2C 31 2C 39 2C 34 2C 31 33 33 2C |7,165,1,9,4,133,| 000002D0: 31 2C 38 38 2C 39 36 00 E8 0A 1C 00 87 43 48 3A |1,88,96......CH:| 000002E0: 8B 48 43 B3 30 A7 35 35 00 27 0B 1D 00 81 42 59 |.HC.0.55.'....BY| 000002F0: B2 2E A4 37 3A 87 41 3A 97 33 32 37 36 38 AA 28 |...7:.A:.32768.(| 00000300: 43 48 AC 38 29 AA 42 59 2C 41 3A 97 33 33 37 39 |CH.8).BY,A:.3379| 00000310: 32 AA 28 38 AC 43 48 29 AA 42 59 2C 32 35 35 AB |2.(8.CH).BY,255.| 00000320: 41 3A 82 3A 89 32 38 00 50 0B 1E 00 83 20 38 31 |A:.:.28.P.... 81| 00000330: 2C 31 32 36 2C 32 35 35 2C 32 35 35 2C 31 39 35 |,126,255,255,195| 00000340: 2C 31 39 35 2C 32 35 35 2C 32 35 35 2C 31 32 36 |,195,255,255,126| 00000350: 00 79 0B 1F 00 83 20 38 37 2C 31 32 36 2C 31 35 |.y.... 87,126,15| 00000360: 33 2C 31 35 33 2C 32 35 35 2C 31 39 35 2C 32 35 |3,153,255,195,25| 00000370: 35 2C 32 35 35 2C 31 32 36 00 9A 0B 20 00 83 20 |5,255,126... .. | 00000380: 39 30 2C 30 2C 32 34 2C 35 32 2C 31 32 32 2C 31 |90,0,24,52,122,1| 00000390: 32 36 2C 36 30 2C 32 34 2C 30 00 A3 0B 32 00 83 |26,60,24,0...2..| 000003A0: 20 2D 31 00 C2 0B 37 00 81 49 B2 31 A4 35 3A 87 | -1...7..I.1.5:.| 000003B0: 48 49 24 28 49 29 3A 53 43 28 49 29 B2 33 30 30 |HI$(I):SC(I).300| 000003C0: 3A 82 00 E6 0B 38 00 4C 45 24 B2 22 41 22 3A 52 |:....8.LE$."A":R| 000003D0: 49 24 B2 22 3D 22 3A 53 54 24 B2 22 50 22 3A 51 |I$."=":ST$."P":Q| 000003E0: 55 22 3D 22 51 22 00 0A 0C 39 00 47 24 B2 22 46 |U"="Q"...9.G$."F| 000003F0: 41 53 54 22 3A 47 B2 2E 3A 56 49 B2 33 34 38 31 |AST":G..:VI.3481| 00000400: 36 3A 43 4D B2 35 35 32 39 36 00 37 0C 3A 00 83 |6:CM.55296.7.:..| 00000410: 20 41 58 49 41 4C 2E 2C 4D 43 48 41 43 4B 45 52 | AXIAL.,MCHACKER| 00000420: 53 2C 31 39 39 31 2C 4C 55 46 4F 58 2C 52 45 41 |S,1991,LUFOX,REA| 00000430: 4D 49 4E 41 54 4F 52 00 44 0C 3B 00 86 53 45 28 |MINATOR.D.;..SE(| 00000440: 35 30 30 29 00 65 0C 3C 00 99 22 93 9E D1 20 20 |500).e.<.."... | 00000450: D1 20 D1 20 20 D1 20 D1 D1 D1 20 20 D1 D1 D1 20 |. . . ... ... | 00000460: 20 D1 D1 D1 22 00 84 0C 46 00 99 22 D1 20 20 D1 | ..."...F..". .| 00000470: 20 D1 20 D1 20 20 D1 20 20 D1 20 D1 20 20 20 D1 | . . . . . .| 00000480: 20 20 20 D1 00 A1 0C 50 00 99 22 D1 D1 D1 D1 A0 | ....P..".....| 00000490: D1 D1 A0 A0 A0 D1 D1 D1 A0 A0 D1 D1 A0 A0 D1 D1 |................| 000004A0: D1 00 C0 0C 5A 00 99 22 D1 A0 A0 D1 A0 D1 A0 A0 |....Z.."........| 000004B0: A0 A0 D1 A0 A0 A0 A0 D1 A0 A0 A0 D1 A0 A0 A0 D1 |................| 000004C0: 00 E0 0C 64 00 99 22 D1 A0 A0 D1 A0 D1 A0 A0 A0 |...d..".........| 000004D0: A0 D1 A0 A0 A0 A0 D1 D1 D1 A0 D1 A0 A0 A0 D1 11 |................| 000004E0: 00 10 0D 6E 00 99 22 D1 20 20 20 D1 20 D1 D1 D1 |...n..". . ...| 000004F0: D7 20 D1 D1 D1 20 20 D1 20 20 20 D1 20 20 20 20 |. ... . . | 00000500: 20 20 9A 50 52 4F 47 52 41 4D 45 44 20 42 59 9E | .PROGRAMED BY.| 00000510: 00 2C 0D 78 00 99 22 D1 20 20 20 D1 20 D1 20 20 |.,.x..". . . | 00000520: D1 20 D1 20 20 D1 20 D1 D1 20 D1 D1 00 59 0D 82 |. . . .. ...Y..| 00000530: 00 99 22 D1 20 20 20 D1 20 D1 20 20 D1 20 D1 20 |..". . . . . | 00000540: 20 D1 20 D1 20 D1 20 D1 20 20 20 20 20 20 9A 41 | . . . . .A| 00000550: 58 49 41 4C 2C 20 4F 46 9E 00 75 0D 8C 00 99 22 |XIAL, OF..u...."| 00000560: D1 20 20 20 D1 20 D1 20 20 D1 20 D1 20 D1 20 20 |. . . . . . | 00000570: D1 20 20 20 D1 00 A2 0D 96 00 99 22 D1 20 D7 20 |. .......". . | 00000580: D1 20 D1 20 20 D1 20 D1 20 20 D1 20 D1 20 20 20 |. . . . . . | 00000590: D1 20 20 20 20 20 20 9A 4D 43 48 41 43 4B 45 52 |. .MCHACKER| 000005A0: 53 9E 00 BE 0D A0 00 99 22 D1 D1 20 D1 D1 20 D1 |S.......".. .. .| 000005B0: 20 20 D1 20 D1 20 20 D1 20 D1 20 20 20 D1 00 DF | . . . . ...| 000005C0: 0D AA 00 99 22 D1 20 20 20 D1 20 D1 D1 D1 D1 20 |....". . .... | 000005D0: D1 20 20 D7 20 D1 20 20 20 D1 D1 D1 D1 D7 11 00 |. . . .......| 000005E0: 0D 0E B4 00 99 22 20 11 11 11 11 11 11 11 11 11 |....." .........| 000005F0: 11 11 11 11 9F DA DA DA DA DA 20 48 41 4C 4C 20 |.......... HALL | 00000600: 4F 46 20 46 41 4D 45 20 DA DA DA DA DA 00 18 0E |OF FAME ........| 00000610: BE 00 81 49 B2 31 A4 35 00 42 0E C8 00 99 22 1C |...I.1.5.B....".| 00000620: 20 20 20 22 49 22 1E 22 C9 28 C4 28 31 45 38 AA | "I".".(.(1E8.| 00000630: 53 43 28 49 29 29 2C 38 29 22 20 22 48 49 24 28 |SC(I)),8)" "HI$(| 00000640: 49 29 00 48 0E D2 00 82 00 75 0E DC 00 22 11 9A |I).H.....u..."..| 00000650: 46 31 20 1F 47 41 4D 45 20 53 50 45 45 44 3A 20 |F1 .GAME SPEED: | 00000660: 1E 22 47 24 2C 22 46 33 20 4B 45 59 20 44 45 46 |."G$,"F3 KEY DEF| 00000670: 49 4E 49 4F 4E 00 9F 0E F0 00 99 53 54 24 22 20 |INION......ST$" | 00000680: 20 1F 50 41 55 53 45 2F 53 54 41 52 54 9A 22 2C | .PAUSE/START.",| 00000690: 51 55 24 22 20 20 51 55 49 54 20 47 41 4D 45 00 |QU$" QUIT GAME.| 000006A0: CC 0E F5 00 99 22 9F D7 D1 D1 D1 D1 D1 D1 D1 D1 |....."..........| 000006B0: D1 20 9A 22 4C 45 24 20 4C 45 46 54 20 52 49 47 |. ."LE$ LEFT RIG| 000006C0: 48 54 20 20 22 52 49 24 22 20 22 3B 00 E0 0E FA |HT "RI$" ";....| 000006D0: 00 A1 41 24 3A 8B 41 24 B2 22 90 22 A7 33 30 30 |..A$:.A$.".".300| 000006E0: 00 F0 0E 04 01 8B 41 24 B2 22 92 22 A7 34 30 30 |......A$.".".400| 000006F0: 00 0A 0F 0E 01 8B 41 24 B2 53 54 24 A7 97 35 33 |......A$.ST$..53| 00000700: 32 38 31 2C 31 3A 89 35 30 30 00 13 0F 18 01 89 |281,1:.500......| 00000710: 32 35 30 00 28 0F 22 01 8F 2A 2A 20 47 41 4D 45 |250.(."..** GAME| 00000720: 20 53 50 45 45 44 2A 2A 00 4A 0F 2C 01 8B 47 24 | SPEED**.J.,..G$| 00000730: B2 22 53 4C 4F 57 22 A7 47 B2 2E 3A 47 24 B2 22 |."SLOW".G..:G$."| 00000740: 46 41 53 54 22 3A 89 31 38 30 00 64 0F 36 01 47 |FAST":.180.d.6.G| 00000750: B2 31 30 30 3A 47 24 B2 22 53 4C 4F 57 23 5B 47 |.100:G$."SLOW#[G| 00000760: CF 31 38 30 00 72 0F 86 01 8F 2A 2A 4B 45 59 53 |.180.r....**KEYS| 00000770: 2A 2A 00 9C 0F 90 01 99 22 93 D7 D1 D1 D1 D1 20 |**......"...... | 00000780: 50 52 45 53 53 20 4B 59 45 20 54 4F 20 52 4F 54 |PRESS KYE TO ROT| 00000790: 41 54 45 20 4C 45 46 54 3A 20 22 3B 00 B1 0F 9A |ATE LEFT: ";....| 000007A0: 01 A1 4C 45 24 3A 8B 4C 45 24 B2 22 22 A7 34 31 |..LE$:.LE$."".41| 000007B0: 30 00 CB 0F 9B 01 46 49 4C 45 24 B3 22 21 22 B0 |0.....FILE$."!".| 000007C0: 4C 45 24 B1 22 5F 22 A7 34 31 30 00 D4 0F A4 01 |LE$."_".410.....| 000007D0: 99 4C 45 24 00 09 10 AE 01 99 22 91 20 20 20 20 |.LE$......". | 000007E0: 11 9D 9D 9D 9D 9D D1 D1 D1 D1 D7 20 50 52 45 53 |........... PRES| 000007F0: 53 20 4B 59 45 20 46 4F 52 20 52 4F 54 41 54 41 |S KYE FOR ROTATA| 00000800: 20 52 49 47 48 54 3A 22 3B 00 1E 10 B8 01 A1 52 | RIGHT:";......R| 00000810: 49 24 3A 8B 52 49 24 B2 22 22 A7 34 34 30 00 37 |I$:.RI$."".440.7| 00000820: 10 B9 01 8B 52 49 24 B3 22 21 22 52 B0 49 24 B1 |....RI$."!"R.I$.| 00000830: 22 5F 22 A7 34 34 30 00 40 10 C2 01 99 52 49 24 |"_".440.@....RI$| 00000840: 00 75 10 CC 01 99 22 91 20 20 20 20 11 1D 1D 1D |.u....". ....| 00000850: 1D 1D D1 53 54 4F 50 D1 50 52 45 53 53 20 4B 45 |...STOP.PRESS KE| 00000860: 59 20 46 4F 52 20 50 41 55 53 45 2F 53 54 41 52 |Y FOR PAUSE/STAR| 00000870: 54 3A 20 22 3B 00 8A 10 D6 01 A1 53 54 24 3A 8B |T: ";......ST$:.| 00000880: 53 54 24 B2 22 22 A7 34 37 30 00 B3 10 D7 01 8B |ST$."".470......| 00000890: 53 54 24 B3 22 21 22 B0 53 54 24 B1 22 5F 22 B0 |ST$."!".ST$."_".| 000008A0: 53 54 24 B2 52 49 24 B0 53 54 24 B2 4C 45 24 A7 |ST$.RI$.ST$.LE$.| 000008B0: 34 37 30 00 BC 10 E0 01 99 53 54 24 00 F3 10 E1 |470......ST$....| 000008C0: 01 99 22 91 20 20 20 20 20 11 1D 1D 1D 1D 1D 1D |..". .......| 000008D0: D1 51 55 49 54 D1 50 52 45 53 53 20 4B 45 59 20 |.QUIT.PRESS KEY | 000008E0: 46 4F 52 20 51 55 49 54 20 47 41 4D 45 20 20 20 |FOR QUIT GAME | 000008F0: 20 22 3B 00 08 11 E2 01 A1 51 55 24 3A 8B 51 55 | ";......QU$:.QU| 00000900: 24 B2 22 22 A7 34 38 32 00 39 11 E3 01 8B 47 55 |$."".482.9....GU| 00000910: 24 B3 22 21 22 B0 51 55 24 B1 22 5F 22 B0 51 55 |$."!".QU$."_".QU| 00000920: 24 B2 4C 45 24 B0 51 55 24 B2 52 49 24 B0 51 55 |$.LE$.QU$.RI$.QU| 00000930: 24 B2 53 54 24 A7 34 38 32 00 46 11 E4 01 99 47 |$.ST$.482.F....G| 00000940: 55 24 3A 89 36 30 00 54 11 EA 01 8F 2A 2A 47 41 |U$:.60.T....**GA| 00000950: 4D 45 2A 2A 00 00 00 |ME**... |
..!.... ******* HYPER WORM ******.C....5
3280,14:.53281,14:."..";:.5.....A$.H(A$.
"
",39):.I...39......".".39.I)H(A$,I):.Z..
.25:.:.:..T...A$."HYPER WORM.... (C) 199
1 AXIAL.":.3.....A$."A SYS64 PUBLIC DOMA
IN... GREETINGS TO:".3.2...A$.LUFOX, REA
MINA.R, JERRY, ATLE ":GOS3.P...A$."AND K
JER OF HZ...":.3.F....I...2000:.:.:.:...
...A$."PLEASE WAIT...":.3:.......L.679.7
30:.A:.L,A:.......679:.52,128:.56,128...
...5678,B(5678(.3:.56576,(B(56576).252).
1......648,136:.53727,32:." .":.53280,0:
.53281,0.].... 120,165,1,41,251,133,1,19
6,0,133,251,169,208,133,252,169,0,133,25
3,169...... 128,133,160,0,177,251,145,25
3,200,192,0,208,247,230,252,230,254,165.
W.... 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.P.... 81,126,255,255,195,195,255
,255,126.Y.... 87,126,153,153,255,195,25
5,255,126... .. 90,0,24,52,122,126,60,24
,0...2.. -1.B.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.7.:..
AXIAL.,MCHACKERS,1991,LUFOX,REAMINATOR.
D.;..SE(500).E.<.."..Q Q Q Q QQQ QQQ
QQQ"...F.."Q Q Q Q Q Q Q Q Q...P
.."QQQQ QQ QQQ QQ QQQ...Z.."Q Q Q
Q Q Q Q...D.."Q Q Q Q QQ
Q Q Q....N.."Q Q QQQW QQQ Q Q
.PROGRAMED BY..,.X.."Q Q Q Q Q Q Q
Q QQ.Y...."Q Q Q Q Q Q Q Q Q .A
XIAL, OF..U...."Q Q Q Q Q Q Q Q...
..."Q W Q Q Q Q Q Q Q .MCHACKER
S.... .."QQ QQ Q Q Q Q Q Q......"Q
Q QQQQ Q W Q QQQQW......." .........
.....ZZZZZ HALL OF FAME ZZZZZ......I.1.5
.B.H..". "I"."I(D(1E8.SC(I)),8)" "HI$(
I).H.R...U..."..F1 .GAME SPEED: ."G$,"F3
KEY DEFINION......ST$" .PAUSE/START.",
QU$" QUIT GAME.L....".WQQQQQQQQQ ."LE$
LEFT RIGHT "RI$" ";......A$:.A$.".".300
......A$.".".400......A$.ST$..53281,1:.5
00......250.(."..** GAME SPEED**.J.,..G$
."SLOW".G..:G$."FAST":.180.D.6.G.100:G$.
"SLOW#[GO180.R....**KEYS**......".WQQQQ
PRESS KYE TO ROTATE LEFT: ";......LE$:.L
E$."".410.K...FILE$."!".LE$."_".410.T...
.LE$......". ......QQQQW PRESS KYE FO
R ROTATA RIGHT:";......RI$:.RI$."".440.7
....RI$."!"R.I$."_".440.@.B..RI$.U.L..".
......QSTOPQPRESS KEY FOR PAUSE/STAR
T: ";...V..ST$:.ST$."".470...W..ST$."!".
ST$."_".ST$.RI$.ST$.LE$.470......ST$....
..". .......QQUITQPRESS KEY FOR QUIT
GAME ";......QU$:.QU$."".482.9....GU
$."!".QU$."_".QU$.LE$.QU$.RI$.QU$.ST$.48
2.F....GU$:.60.T....**GAME**...
> CLICK IMAGE PREVIEW FOR FULL MODAL