HIRN 64
FILE INFORMATION
FILENAME(S): HIRN 64
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 01:12:43
APPEARS ON: 2 disk(s)
FILE HASH
eb0b1a3b2dd10546761583d4763fe45f858c415ed6045260dfe235da94bb96a7
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10708 SEITE 1 | HIRN 64 | PRG | C64er | 19 | 0 | DOWNLOAD FILE |
| 10708 SEITE 1 | HIRN 64 | PRG | earthshaker | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 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: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 01 00 8F 20 |*********.Q.... | 00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 2A 00 79 08 02 00 8F 20 2A 20 20 20 20 20 20 20 |*.y.... * | 00000060: 2A 2A 20 20 48 49 52 4E 20 36 34 20 20 2A 2A 20 |** HIRN 64 ** | 00000070: 20 20 20 20 20 20 20 20 2A 00 A1 08 03 00 8F 20 | *...... | 00000080: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 2A 00 C9 08 04 00 8F 20 2A 20 20 20 20 20 20 20 |*...... * | 000000B0: 20 20 20 20 31 39 38 36 20 42 59 20 20 20 20 20 | 1986 BY | 000000C0: 20 20 20 20 20 20 20 20 2A 00 F1 08 05 00 8F 20 | *...... | 000000D0: 2A 20 20 20 20 20 20 20 20 57 49 4C 48 45 4C 4D |* WILHELM| 000000E0: 20 54 4F 44 54 45 52 20 20 20 20 20 20 20 20 20 | TODTER | 000000F0: 2A 00 19 09 06 00 8F 20 2A 20 20 20 20 20 20 20 |*...... * | 00000100: 45 49 53 45 4E 48 41 4E 44 53 54 52 2E 20 32 33 |EISENHANDSTR. 23| 00000110: 20 20 20 20 20 20 20 20 2A 00 41 09 07 00 8F 20 | *.A.... | 00000120: 2A 20 20 20 20 20 20 20 20 20 41 2D 34 30 32 30 |* A-4020| 00000130: 20 4C 49 4E 5A 20 20 20 20 20 20 20 20 20 20 20 | LINZ | 00000140: 2A 00 69 09 08 00 8F 20 2A 20 20 20 20 20 20 20 |*.i.... * | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000160: 20 20 20 20 20 20 20 20 2A 00 91 09 09 00 8F 20 | *...... | 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000190: 2A 00 97 09 0A 00 8F 00 E3 09 0B 00 8F 20 2A 20 |*............ * | 000001A0: 20 20 20 20 20 48 59 50 52 41 2D 42 41 53 49 43 | HYPRA-BASIC| 000001B0: 20 4D 4F 44 55 4C 45 3A 20 20 20 20 20 20 20 20 | MODULE: | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 32 2C 20 33 2C | 2, 3,| 000001D0: 20 32 31 2C 20 33 31 2C 20 33 34 2C 20 3F 3F 37 | 21, 31, 34, ??7| 000001E0: 31 3F 3F 00 E9 09 0C 00 8F 00 17 0A 64 00 97 35 |1??.........d..5| 000001F0: 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C 36 3A |3280,6:.53281,6:| 00000200: 97 36 34 36 2C 37 3A 41 57 B2 BB 28 AB 54 49 29 |.646,7:AW..(.TI)| 00000210: 3A 99 C7 28 31 34 29 00 3D 0A 6D 00 8F 20 2A 20 |:..(14).=.m.. * | 00000220: 45 52 57 45 49 54 45 52 55 4E 47 20 4C 41 44 45 |ERWEITERUNG LADE| 00000230: 4E 20 55 4E 44 20 53 54 41 52 54 45 4E 00 77 0A |N UND STARTEN.w.| 00000240: 6E 00 8B C2 28 34 39 31 35 32 29 B2 31 36 39 AF |n...(49152).169.| 00000250: C2 28 34 39 31 35 33 29 B2 31 31 AF C2 28 34 39 |.(49153).11..(49| 00000260: 31 35 34 29 B2 31 34 31 AF C2 28 34 39 31 35 35 |154).141..(49155| 00000270: 29 B2 38 A7 31 33 30 00 BC 0A 78 00 99 C7 28 31 |).8.130...x...(1| 00000280: 34 37 29 3B 22 11 11 11 11 11 11 11 11 11 11 11 |47);"...........| 00000290: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000002A0: CC 4F 41 44 49 4E 47 20 2E 2E 2E 22 3A 93 22 48 |.OADING ...":."H| 000002B0: 49 52 4E 2E 45 52 57 22 2C 38 2C 31 00 DB 0A 81 |IRN.ERW",8,1....| 000002C0: 00 8F 20 2A 20 56 41 52 49 41 42 4C 45 20 56 4F |.. * VARIABLE VO| 000002D0: 52 44 45 46 49 4E 49 45 52 45 4E 00 17 0B 82 00 |RDEFINIEREN.....| 000002E0: 9E 34 39 31 35 32 3A 4A 4F B2 35 36 33 32 30 3A |.49152:JO.56320:| 000002F0: 53 50 B2 31 34 3A 5A 4C B2 32 32 3A 46 45 B2 30 |SP.14:ZL.22:FE.0| 00000300: 3A 46 42 B2 38 3A 46 41 B2 31 3A 86 46 41 28 36 |:FB.8:FA.1:.FA(6| 00000310: 29 2C 46 45 28 34 29 00 44 0B 84 00 50 31 24 B2 |),FE(4).D...P1$.| 00000320: C7 28 35 29 AA 22 5E 22 3A 50 32 24 B2 C7 28 35 |.(5)."^":P2$..(5| 00000330: 29 AA 22 5F 22 3A 4C 49 24 B2 C7 28 31 35 35 29 |)."_":LI$..(155)| 00000340: AA 22 C0 22 00 58 0B 8C 00 81 49 B2 31 A4 36 3A |.".".X....I.1.6:| 00000350: 87 46 41 28 49 29 3A 82 00 6B 0B 8D 00 83 20 37 |.FA(I):..k.... 7| 00000360: 2C 32 2C 34 2C 31 34 2C 33 2C 35 00 A8 0B 96 00 |,2,4,14,3,5.....| 00000370: 54 31 24 B2 22 9E 2A 1C C8 9C C9 9A D2 9F CE 1E |T1$.".*.........| 00000380: 2A 22 3A 54 32 24 B2 22 1E 2A 9F 2B 9A 36 9C 34 |*":T2$.".*.+.6.4| 00000390: 1C 2B 9E 2A 22 3A 54 33 24 B2 22 9E 2A 1C 48 9C |.+.*":T3$.".*.H.| 000003A0: 49 9A 52 9F 4E 1E 2A 22 00 DA 0B A0 00 4C 45 24 |I.R.N.*".....LE$| 000003B0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." | 000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003D0: 20 20 20 20 20 20 20 20 20 22 00 EC 0B C7 00 8F | "......| 000003E0: 20 2A 20 54 49 54 45 4C 42 49 4C 44 00 31 0C C8 | * TITELBILD.1..| 000003F0: 00 99 C7 28 31 34 37 29 3A 46 52 41 4D 45 30 3A |...(147):FRAME0:| 00000400: 42 41 43 4B 30 3A 50 45 4E 31 35 3A 52 45 43 4C |BACK0:PEN15:RECL| 00000410: 4F 57 30 2C 30 2C 34 30 2C 32 35 2C 31 35 3A 52 |OW0,0,40,25,15:R| 00000420: 45 43 4C 4F 57 31 2C 31 2C 33 38 2C 32 33 2C 31 |ECLOW1,1,38,23,1| 00000430: 35 00 7D 0C D2 00 42 49 47 34 2C 38 2C 54 31 24 |5.}...BIG4,8,T1$| 00000440: 3A 42 49 47 39 2C 38 2C 54 32 24 3A 53 45 54 39 |:BIG9,8,T2$:SET9| 00000450: 2C 31 35 2C 22 31 39 38 36 20 42 59 20 D7 49 4C |,15,"1986 BY .IL| 00000460: 48 45 4C 4D 20 D4 4F 44 54 45 52 22 3A 49 4E 56 |HELM .ODTER":INV| 00000470: 45 52 53 31 34 2C 38 2C 31 36 2C 33 31 00 B9 0C |ERS14,8,16,31...| 00000480: DC 00 53 45 54 38 2C 31 39 2C 22 D0 52 45 53 53 |..SET8,19,".RESS| 00000490: 20 3C D2 C5 D4 D5 D2 CE 3E 20 54 4F 20 53 54 41 | <......> TO STA| 000004A0: 52 54 22 3A 42 4C 49 4E 4B 20 31 39 2C 31 34 2C |RT":BLINK 19,14,| 000004B0: 31 39 2C 32 31 2C 32 30 30 00 D0 0C E6 00 A1 49 |19,21,200......I| 000004C0: 24 3A 8B 49 24 B3 B1 C7 28 31 33 29 A7 32 32 30 |$:.I$...(13).220| 000004D0: 00 E8 0C 2B 01 8F 20 2A 20 53 50 49 45 4C 46 45 |...+.. * SPIELFE| 000004E0: 4C 44 41 55 46 42 41 55 00 01 0D 2C 01 99 C7 28 |LDAUFBAU...,...(| 000004F0: 31 34 32 29 3B C7 28 31 34 37 29 3A 50 45 4E 31 |142);.(147):PEN1| 00000500: 35 00 35 0D 36 01 53 45 54 31 35 2C 30 2C 22 B0 |5.5.6.SET15,0,".| 00000510: C0 B2 C0 B2 C0 B2 C0 AE 22 3A 53 45 54 31 35 2C |........":SET15,| 00000520: 31 2C 22 DD 05 3F 9B DD 05 3F 9B DD 05 3F 9B DD |1,"..?...?...?..| 00000530: 05 3F 9B DD 22 00 6F 0D 40 01 81 49 B2 32 A4 32 |.?..".o.@..I.2.2| 00000540: 30 A9 32 3A 53 45 54 31 35 2C 49 2C 22 AB C0 DB |0.2:SET15,I,"...| 00000550: C0 DB C0 DB C0 B3 22 3A 53 45 54 31 35 2C 49 AA |......":SET15,I.| 00000560: 31 2C 22 DD D7 DD D7 DD D7 DD D7 DD 22 3A 82 00 |1,".........":..| 00000570: AC 0D 4A 01 53 45 54 31 35 2C 32 32 2C 22 AD C0 |..J.SET15,22,"..| 00000580: B1 C0 B1 C0 B1 C0 BD 22 3A 50 45 4E 31 3A 53 45 |.......":PEN1:SE| 00000590: 54 36 2C 31 2C 22 2A 57 54 2A 22 3B 3A 53 45 54 |T6,1,"*WT*";:SET| 000005A0: 33 30 2C 31 2C 22 2A 38 36 2A 22 3B 00 EA 0D 54 |30,1,"*86*";...T| 000005B0: 01 81 49 B2 30 A4 35 3A 42 49 47 49 AC 34 2C 30 |..I.0.5:BIGI.4,0| 000005C0: 2C CA 28 54 33 24 2C 32 AC 49 AA 31 2C 32 29 3A |,.(T3$,2.I.1,2):| 000005D0: 42 49 47 49 AC 34 2C 33 36 2C CA 28 54 32 24 2C |BIGI.4,36,.(T2$,| 000005E0: 32 AC 49 AA 31 2C 32 29 3A 82 00 21 0E 5E 01 81 |2.I.1,2):..!.^..| 000005F0: 49 B2 30 A4 35 3A 50 45 4E 46 41 28 49 AA 31 29 |I.0.5:PENFA(I.1)| 00000600: 3A 53 45 54 38 2C 38 AA 49 2C C7 28 31 37 35 29 |:SET8,8.I,.(175)| 00000610: 3A 82 3A 49 4E 56 45 52 53 38 2C 38 2C 31 33 2C |:.:INVERS8,8,13,| 00000620: 38 00 49 0E 68 01 50 45 4E 31 3A 53 45 54 53 50 |8.I.h.PEN1:SETSP| 00000630: 2C 5A 4C 2C 22 5E 22 3A 53 45 54 39 2C 46 42 2C |,ZL,"^":SET9,FB,| 00000640: 22 5F 22 3A 50 45 4E 31 35 00 8D 0E 6A 01 53 45 |"_":PEN15...j.SE| 00000650: 24 B2 22 2A 4C 4F 45 53 43 48 45 4E 2A 22 3A 81 |$."*LOESCHEN*":.| 00000660: 49 B2 31 A4 31 30 3A 53 45 54 31 33 2C 32 AC 49 |I.1.10:SET13,2.I| 00000670: 2C CA 28 53 45 24 2C 49 2C 31 29 3A 82 3A 53 4C |,.(SE$,I,1):.:SL| 00000680: 49 4E 45 31 2C 31 32 2C 32 31 2C 31 35 00 D1 0E |INE1,12,21,15...| 00000690: 6C 01 53 45 24 B2 22 2A 42 45 57 45 52 54 45 4E |l.SE$."*BEWERTEN| 000006A0: 2A 22 3A 81 49 B2 31 A4 31 30 3A 53 45 54 32 35 |*":.I.1.10:SET25| 000006B0: 2C 32 AC 49 2C CA 28 53 45 24 2C 49 2C 31 29 3A |,2.I,.(SE$,I,1):| 000006C0: 82 3A 53 4C 49 4E 45 31 2C 32 36 2C 32 31 2C 31 |.:SLINE1,26,21,1| 000006D0: 35 00 F6 0E 71 01 8F 20 2A 20 46 41 52 42 43 4F |5...q.. * FARBCO| 000006E0: 44 45 20 44 55 52 43 48 20 5A 55 46 41 4C 4C 53 |DE DURCH ZUFALLS| 000006F0: 5A 41 48 4C 45 4E 00 22 0F 72 01 53 45 24 B2 22 |ZAHLEN.".r.SE$."| 00000700: 2A 20 49 43 48 20 4C 4F 53 45 20 44 49 45 20 46 |* ICH LOSE DIE F| 00000710: 41 52 42 45 4E 20 41 55 53 20 2A 22 3A 8D 31 30 |ARBEN AUS *":.10| 00000720: 30 30 00 45 0F 7C 01 81 49 B2 31 A4 34 3A 43 4F |00.E.|..I.1.4:CO| 00000730: 28 49 29 B2 46 41 28 B5 28 36 AC BB 28 31 29 29 |(I).FA(.(6..(1))| 00000740: AA 31 29 3A 82 00 6B 0F 90 01 50 45 4E 31 35 3A |.1):..k...PEN15:| 00000750: 53 45 24 B2 22 2A 20 41 55 46 20 47 45 48 54 27 |SE$."* AUF GEHT'| 00000760: 53 21 20 2A 22 3A 8D 31 30 30 30 00 83 0F 99 01 |S! *":.1000.....| 00000770: 8F 20 2A 20 45 49 4E 47 41 42 45 53 43 48 4C 45 |. * EINGABESCHLE| 00000780: 49 46 45 00 B0 0F 9A 01 44 4F 3A 4A 59 B2 C2 28 |IFE.....DO:JY..(| 00000790: 4A 4F 29 3A A1 53 45 24 3A 8B 53 50 B3 B1 32 34 |JO):.SE$:.SP..24| 000007A0: A7 3A 53 45 54 32 34 2C 5A 4C 2C C7 28 33 32 29 |.:SET24,ZL,.(32)| 000007B0: 00 CC 0F 9C 01 8B 53 50 B3 B1 31 34 A7 3A 53 45 |......SP..14.:SE| 000007C0: 54 31 34 2C 5A 4C 2C C7 28 33 32 29 00 E0 0F A3 |T14,ZL,.(32)....| 000007D0: 01 8F 20 2A 20 46 45 4C 44 41 55 53 57 41 48 4C |.. * FELDAUSWAHL| 000007E0: 00 26 10 A4 01 8B 4A 59 B2 31 32 33 AF 53 50 B1 |.&....JY.123.SP.| 000007F0: 31 34 A7 53 50 B2 53 50 AB 32 3A 53 45 54 53 50 |14.SP.SP.2:SETSP| 00000800: 2C 5A 4C 2C 50 31 24 3A 46 45 B2 46 45 AB 31 3A |,ZL,P1$:FE.FE.1:| 00000810: 8B 53 50 B3 32 32 A7 3A 53 45 54 53 50 AA 32 2C |.SP.22.:SETSP.2,| 00000820: 5A 4C 2C 4C 49 24 00 6C 10 AE 01 8B 4A 59 B2 31 |ZL,LI$.l....JY.1| 00000830: 31 39 AF 53 50 B3 32 34 A7 53 50 B2 53 50 AA 32 |19.SP.24.SP.SP.2| 00000840: 3A 53 45 54 53 50 2C 5A 4C 2C 50 31 24 3A 46 45 |:SETSP,ZL,P1$:FE| 00000850: B2 46 45 AA 31 3A 8B 53 50 B1 31 36 A7 3A 53 45 |.FE.1:.SP.16.:SE| 00000860: 54 53 50 AB 32 2C 5A 4C 2C 4C 49 24 00 80 10 B7 |TSP.2,ZL,LI$....| 00000870: 01 8F 20 2A 20 46 41 52 42 41 55 53 57 41 48 4C |.. * FARBAUSWAHL| 00000880: 00 BD 10 B8 01 8B 4A 59 B2 31 32 36 AF 46 42 B1 |......JY.126.FB.| 00000890: 38 A7 46 42 B2 46 42 AB 31 3A 53 45 54 39 2C 46 |8.FB.FB.1:SET9,F| 000008A0: 42 2C 50 32 24 3A 53 45 54 39 2C 46 42 AA 31 2C |B,P2$:SET9,FB.1,| 000008B0: C7 28 33 32 29 3A 46 41 B2 46 41 AB 31 00 FB 10 |.(32):FA.FA.1...| 000008C0: C2 01 8B 4A 59 B2 31 32 35 AF 46 42 B3 31 33 A7 |...JY.125.FB.13.| 000008D0: 46 42 B2 46 42 AA 31 3A 53 45 54 39 2C 46 42 2C |FB.FB.1:SET9,FB,| 000008E0: 50 32 24 3A 53 45 54 39 2C 46 42 AB 31 2C C7 28 |P2$:SET9,FB.1,.(| 000008F0: 33 32 29 3A 46 41 B2 46 41 AA 31 00 1C 11 CC 01 |32):FA.FA.1.....| 00000900: 4C 4F 4F 50 20 55 4E 54 49 4C 20 4A 59 B3 31 31 |LOOP UNTIL JY.11| 00000910: 39 B0 53 45 24 B2 C7 28 31 33 33 29 00 31 11 D0 |9.SE$..(133).1..| 00000920: 01 8F 20 2A 20 46 31 20 3D 20 41 55 46 47 41 42 |.. * F1 = AUFGAB| 00000930: 45 00 45 11 D1 01 8B 53 45 24 B2 C7 28 31 33 33 |E.E....SE$..(133| 00000940: 29 A7 38 30 30 00 5A 11 D5 01 8F 20 2A 20 46 41 |).800.Z.... * FA| 00000950: 52 42 45 20 53 45 54 5A 45 4E 00 99 11 D6 01 8B |RBE SETZEN......| 00000960: 53 50 B1 31 34 AF 53 50 B3 32 34 A7 3A 50 45 4E |SP.14.SP.24.:PEN| 00000970: 46 41 28 46 41 29 3A 53 45 54 53 50 2C 5A 4C AB |FA(FA):SETSP,ZL.| 00000980: 31 2C 22 D1 22 3B 3A 46 45 28 46 45 29 B2 46 41 |1,".";:FE(FE).FA| 00000990: 28 46 41 29 3A 89 34 31 30 00 D6 11 E0 01 8B 53 |(FA):.410......S| 000009A0: 50 B2 31 34 A7 3A 50 45 4E 31 35 3A 53 45 54 31 |P.14.:PEN15:SET1| 000009B0: 36 2C 5A 4C AB 31 2C 22 D7 1D D7 1D D7 1D D7 22 |6,ZL.1,"......."| 000009C0: 3A 81 49 B2 31 A4 34 3A 46 45 28 49 29 B2 30 3A |:.I.1.4:FE(I).0:| 000009D0: 82 3A 89 34 31 30 00 F5 11 F3 01 8F 20 2A 20 41 |.:.410...... * A| 000009E0: 55 53 57 45 52 54 55 4E 47 20 45 49 4E 45 52 20 |USWERTUNG EINER | 000009F0: 5A 45 49 4C 45 00 17 12 F4 01 53 45 24 B2 22 2A |ZEILE.....SE$."*| 00000A00: 20 4D 41 4C 20 53 45 48 45 4E 20 2E 2E 2E 20 2A | MAL SEHEN ... *| 00000A10: 22 3A 8D 31 30 30 30 00 39 12 FD 01 8F 20 2A 20 |":.1000.9.... * | 00000A20: 4E 49 43 48 54 20 41 4C 4C 45 20 46 45 4C 44 45 |NICHT ALLE FELDE| 00000A30: 52 20 47 45 53 45 54 5A 54 00 57 12 FE 01 46 4C |R GESETZT.W...FL| 00000A40: B2 30 3A 81 49 B2 31 A4 34 3A 8B 46 45 28 49 29 |.0:.I.1.4:.FE(I)| 00000A50: B2 30 A7 46 4C B2 31 00 89 12 08 02 82 3A 8B 46 |.0.FL.1......:.F| 00000A60: 4C B2 31 A7 3A 53 45 24 B2 22 2A 20 53 4F 20 41 |L.1.:SE$."* SO A| 00000A70: 42 45 52 20 4E 49 43 48 54 21 21 20 2A 22 3A 8D |BER NICHT!! *":.| 00000A80: 31 30 30 30 3A 89 34 30 30 00 A4 12 11 02 8F 20 |1000:.400...... | 00000A90: 2A 20 43 4F 44 45 5A 45 49 4C 45 20 4B 4F 50 49 |* CODEZEILE KOPI| 00000AA0: 45 52 45 4E 00 BD 12 12 02 81 49 B2 31 A4 34 3A |EREN......I.1.4:| 00000AB0: 46 56 28 49 29 B2 43 4F 28 49 29 3A 82 00 E0 12 |FV(I).CO(I):....| 00000AC0: 1B 02 8F 20 2A 20 46 41 52 42 45 20 55 4E 44 20 |... * FARBE UND | 00000AD0: 50 4F 53 49 54 49 4F 4E 20 52 49 43 48 54 49 47 |POSITION RICHTIG| 00000AE0: 00 16 13 1C 02 46 57 B2 30 3A 81 49 B2 31 A4 34 |.....FW.0:.I.1.4| 00000AF0: 3A 8B 46 45 28 49 29 B2 46 56 28 49 29 A7 46 57 |:.FE(I).FV(I).FW| 00000B00: B2 46 57 AA 31 3A 46 45 28 49 29 B2 30 3A 46 56 |.FW.1:FE(I).0:FV| 00000B10: 28 49 29 B2 AB 31 00 43 13 1E 02 82 3A 8B 46 57 |(I)..1.C....:.FW| 00000B20: B1 30 A7 3A 50 45 4E 31 3A 81 49 B2 31 A4 46 57 |.0.:PEN1:.I.1.FW| 00000B30: 3A 53 45 54 32 38 AA 49 2C 5A 4C AB 31 2C 22 2A |:SET28.I,ZL.1,"*| 00000B40: 22 3A 82 00 5D 13 25 02 8F 20 2A 20 4E 55 52 20 |":..].%.. * NUR | 00000B50: 46 41 52 42 45 20 52 49 43 48 54 49 47 00 9A 13 |FARBE RICHTIG...| 00000B60: 26 02 46 47 B2 30 3A 81 49 B2 31 A4 34 3A 81 4A |&.FG.0:.I.1.4:.J| 00000B70: B2 31 A4 34 3A 8B 46 45 28 49 29 B2 46 56 28 4A |.1.4:.FE(I).FV(J| 00000B80: 29 A7 46 47 B2 46 47 AA 31 3A 46 45 28 49 29 B2 |).FG.FG.1:FE(I).| 00000B90: 30 3A 46 56 28 4A 29 B2 AB 31 00 CD 13 28 02 82 |0:FV(J)..1...(..| 00000BA0: 3A 82 3A 8B 46 47 B1 30 A7 3A 50 45 4E 31 35 3A |:.:.FG.0.:PEN15:| 00000BB0: 81 49 B2 31 A4 46 47 3A 53 45 54 32 38 AA 46 57 |.I.1.FG:SET28.FW| 00000BC0: AA 49 2C 5A 4C AB 31 2C 22 2B 22 3A 82 00 FA 13 |.I,ZL.1,"+":....| 00000BD0: 30 02 53 50 B2 31 36 3A 5A 4C B2 5A 4C AB 32 3A |0.SP.16:ZL.ZL.2:| 00000BE0: 50 45 4E 31 3A 53 45 54 32 34 2C 5A 4C AA 32 2C |PEN1:SET24,ZL.2,| 00000BF0: C7 28 33 32 29 3A 46 45 B2 31 00 11 14 39 02 8F |.(32):FE.1...9..| 00000C00: 20 2A 20 53 50 49 45 4C 20 42 45 45 4E 44 45 54 | * SPIEL BEENDET| 00000C10: 3F 00 33 14 3A 02 8B 46 57 B3 34 AF 5A 4C B1 32 |?.3.:..FW.4.ZL.2| 00000C20: A7 3A 53 45 54 53 50 2C 5A 4C 2C 22 5E 22 3A 89 |.:SETSP,ZL,"^":.| 00000C30: 34 30 30 00 53 14 43 02 8F 20 2A 20 53 50 49 45 |400.S.C.. * SPIE| 00000C40: 4C 45 4E 44 45 20 2D 20 43 4F 44 45 20 5A 45 49 |LENDE - CODE ZEI| 00000C50: 47 45 4E 00 83 14 44 02 81 49 B2 31 A4 34 3A 50 |GEN...D..I.1.4:P| 00000C60: 45 4E 43 4F 28 49 29 3A 53 45 54 31 34 AA 32 AC |ENCO(I):SET14.2.| 00000C70: 49 2C 31 2C 22 D1 22 3A 82 3A 8B 46 57 B2 34 A7 |I,1,".":.:.FW.4.| 00000C80: 36 30 30 00 94 14 4D 02 8F 20 2A 20 56 45 52 4C |600...M.. * VERL| 00000C90: 4F 52 45 4E 00 D1 14 4E 02 50 45 4E 31 35 3A 53 |OREN...N.PEN15:S| 00000CA0: 45 24 B2 22 2A 20 4D 45 49 4E 20 54 49 50 3A 20 |E$."* MEIN TIP: | 00000CB0: 55 45 42 45 4E 2C 20 55 45 42 45 4E 20 2E 2E 2E |UEBEN, UEBEN ...| 00000CC0: 20 2A 22 3A 8D 31 30 30 30 3A 8D 31 31 30 30 3A | *":.1000:.1100:| 00000CD0: 8A 00 E2 14 57 02 8F 20 2A 20 47 45 57 4F 4E 4E |....W.. * GEWONN| 00000CE0: 45 4E 00 10 15 58 02 50 45 4E 31 35 3A 8B 5A 4C |EN...X.PEN15:.ZL| 00000CF0: B2 32 30 A7 53 45 24 B2 22 2A 20 50 48 21 20 52 |.20.SE$."* PH! R| 00000D00: 45 49 4E 45 52 20 5A 55 46 41 4C 4C 21 20 2A 22 |EINER ZUFALL! *"| 00000D10: 00 40 15 62 02 8B 5A 4C B2 31 38 B0 5A 4C B2 31 |.@.b..ZL.18.ZL.1| 00000D20: 36 A7 53 45 24 B2 22 2A 20 4E 41 20 4A 41 2C 20 |6.SE$."* NA JA, | 00000D30: 4D 49 54 20 47 4C 55 45 43 4B 2E 2E 2E 20 2A 22 |MIT GLUECK... *"| 00000D40: 00 72 15 6C 02 8B 5A 4C B2 31 34 B0 5A 4C B2 31 |.r.l..ZL.14.ZL.1| 00000D50: 32 A7 53 45 24 B2 22 2A 20 42 49 53 54 20 4A 41 |2.SE$."* BIST JA| 00000D60: 20 45 49 4E 20 4D 49 54 44 45 4E 4B 45 52 21 20 | EIN MITDENKER! | 00000D70: 2A 22 00 A1 15 76 02 8B 5A 4C B2 31 30 B0 5A 4C |*"...v..ZL.10.ZL| 00000D80: B2 38 A7 53 45 24 B2 22 2A 20 41 55 43 48 20 4E |.8.SE$."* AUCH N| 00000D90: 49 43 48 54 20 53 43 48 4C 45 43 48 54 21 20 2A |ICHT SCHLECHT! *| 00000DA0: 22 00 D5 15 80 02 8B 5A 4C B2 36 B0 5A 4C B2 34 |"......ZL.6.ZL.4| 00000DB0: B0 5A 4C B2 32 A7 53 45 24 B2 22 2A 20 44 41 53 |.ZL.2.SE$."* DAS| 00000DC0: 20 47 45 48 54 20 4E 4F 43 48 20 42 45 53 53 45 | GEHT NOCH BESSE| 00000DD0: 52 21 20 2A 22 00 E7 15 8A 02 8D 31 30 30 30 3A |R! *"......1000:| 00000DE0: 8D 31 31 30 30 3A 8A 00 FA 15 1F 03 8F 20 2A 20 |.1100:....... * | 00000DF0: 41 55 46 47 45 47 45 42 45 4E 00 20 16 20 03 81 |AUFGEGEBEN. . ..| 00000E00: 49 B2 31 A4 34 3A 50 45 4E 43 4F 28 49 29 3A 53 |I.1.4:PENCO(I):S| 00000E10: 45 54 31 34 AA 32 AC 49 2C 31 2C 22 D1 22 3A 82 |ET14.2.I,1,".":.| 00000E20: 00 4D 16 2A 03 50 45 4E 31 35 3A 53 45 24 B2 22 |.M.*.PEN15:SE$."| 00000E30: 2A 20 41 55 46 47 45 47 45 42 45 4E 20 2A 22 3A |* AUFGEGEBEN *":| 00000E40: 8D 31 30 30 30 3A 8D 31 31 30 30 3A 8A 00 6D 16 |.1000:.1100:..m.| 00000E50: E7 03 8F 20 2A 20 4B 4F 4D 4D 45 4E 54 41 52 5A |... * KOMMENTARZ| 00000E60: 45 49 4C 45 20 41 55 53 47 45 42 45 4E 00 9E 16 |EILE AUSGEBEN...| 00000E70: E8 03 53 45 54 30 2C 32 34 2C 4C 45 24 3B 3A 53 |..SET0,24,LE$;:S| 00000E80: 45 54 32 30 AB C3 28 53 45 24 29 AD 32 2C 32 34 |ET20..(SE$).2,24| 00000E90: 2C 53 45 24 3B 3A 97 31 36 32 2C 32 30 30 00 AF |,SE$;:.162,200..| 00000EA0: 16 F2 03 8B C2 28 31 36 32 29 A7 31 30 31 30 00 |.....(162).1010.| 00000EB0: B5 16 FC 03 8E 00 D4 16 4B 04 8F 20 2A 20 4B 4F |........K.. * KO| 00000EC0: 4D 4D 45 4E 54 41 52 5A 45 49 4C 45 20 42 4C 49 |MMENTARZEILE BLI| 00000ED0: 4E 4B 45 4E 00 01 17 4C 04 42 4C 49 4E 4B 32 34 |NKEN...L.BLINK24| 00000EE0: 2C 31 39 AB C3 28 53 45 24 29 AD 32 2C 32 34 2C |,19..(SE$).2,24,| 00000EF0: 32 31 AA C3 28 53 45 24 29 AD 32 2C 32 30 30 3A |21..(SE$).2,200:| 00000F00: 8E 00 00 00 |.... |
..).... ********************************
*.Q.... *
*.Y.... * ** HIRN 64 **
*...... *
*.I.... * 1986 BY
*...... * WILHELM TODTER
*...... * EISENHANDSTR. 23
*.A.... * A-4020 LINZ
*.I.... *
*...... ********************************
*............ * HYPRA-BASIC MODULE:
2, 3, 21, 31, 34, ??7
1??.........D..53280,6:.53281,6:.646,7:A
W..(.TI):.G(14).=.M.. * ERWEITERUNG LADE
N UND STARTEN.W.N..B(49152).169.B(49153)
.11.B(49154).141.B(49155).8.130...X..G(1
47);"...........................LOADING
...":."HIRN.ERW",8,1...... * VARIABLE VO
RDEFINIEREN......49152:JO.56320:SP.14:ZL
.22:FE.0:FB.8:FA.1:.FA(6),FE(4).D...P1$.
G(5)."^":P2$.G(5)."_":LI$.G(155).".".X..
..I.1.6:.FA(I):..K.... 7,2,4,14,3,5.....
T1$.".*.H.I.R.N.*":T2$.".*.+.6.4.+.*":T3
$.".*.H.I.R.N.*".Z. .LE$."
"...G.. * TITEL
BILD.1.H..G(147):FRAME0:BACK0:PEN15:RECL
OW0,0,40,25,15:RECLOW1,1,38,23,15.}.R.BI
G4,8,T1$:BIG9,8,T2$:SET9,15,"1986 BY WIL
HELM TODTER":INVERS14,8,16,31.....SET8,1
9,"PRESS <RETURN> TO START":BLINK 19,14,
19,21,200.P....I$:.I$..G(13).220...+.. *
SPIELFELDAUFBAU...,..G(142);G(147):PEN1
5.5.6.SET15,0,".........":SET15,1,"..?..
.?...?...?..".O.@..I.2.20.2:SET15,I,"...
......":SET15,I.1,".W.W.W.W.":....J.SET1
5,22,".........":PEN1:SET6,1,"*WT*";:SET
30,1,"*86*";...T..I.0.5:BIGI.4,0,J(T3$,2
.I.1,2):BIGI.4,36,J(T2$,2.I.1,2):..!.^..
I.0.5:PENFA(I.1):SET8,8.I,G(175):.:INVER
S8,8,13,8.I.H.PEN1:SETSP,ZL,"^":SET9,FB,
"_":PEN15...J.SE$."*LOESCHEN*":.I.1.10:S
ET13,2.I,J(SE$,I,1):.:SLINE1,12,21,15.Q.
L.SE$."*BEWERTEN*":.I.1.10:SET25,2.I,J(S
E$,I,1):.:SLINE1,26,21,15...Q.. * FARBCO
DE DURCH ZUFALLSZAHLEN.".R.SE$."* ICH LO
SE DIE FARBEN AUS *":.1000.E.|..I.1.4:CO
(I).FA(.(6..(1)).1):..K...PEN15:SE$."* A
UF GEHT'S! *":.1000...... * EINGABESCHLE
IFE.....DO:JY.B(JO):.SE$:.SP..24.:SET24,
ZL,G(32).L....SP..14.:SET14,ZL,G(32)....
.. * FELDAUSWAHL.&....JY.123.SP.14.SP.SP
.2:SETSP,ZL,P1$:FE.FE.1:.SP.22.:SETSP.2,
ZL,LI$.L....JY.119.SP.24.SP.SP.2:SETSP,Z
L,P1$:FE.FE.1:.SP.16.:SETSP.2,ZL,LI$....
.. * FARBAUSWAHL......JY.126.FB.8.FB.FB.
1:SET9,FB,P2$:SET9,FB.1,G(32):FA.FA.1...
B..JY.125.FB.13.FB.FB.1:SET9,FB,P2$:SET9
,FB.1,G(32):FA.FA.1...L.LOOP UNTIL JY.11
9.SE$.G(133).1.P.. * F1 = AUFGABE.E.Q..S
E$.G(133).800.Z.U.. * FARBE SETZEN...V..
SP.14.SP.24.:PENFA(FA):SETSP,ZL.1,"Q";:F
E(FE).FA(FA):.410.V....SP.14.:PEN15:SET1
6,ZL.1,"W.W.W.W":.I.1.4:FE(I).0:.:.410..
.... * AUSWERTUNG EINER ZEILE.....SE$."*
MAL SEHEN ... *":.1000.9.... * NICHT AL
LE FELDER GESETZT.W...FL.0:.I.1.4:.FE(I)
.0.FL.1......:.FL.1.:SE$."* SO ABER NICH
T!! *":.1000:.400...... * CODEZEILE KOPI
EREN......I.1.4:FV(I).CO(I):....... * FA
RBE UND POSITION RICHTIG.....FW.0:.I.1.4
:.FE(I).FV(I).FW.FW.1:FE(I).0:FV(I)..1.C
....:.FW.0.:PEN1:.I.1.FW:SET28.I,ZL.1,"*
":..].%.. * NUR FARBE RICHTIG...&.FG.0:.
I.1.4:.J.1.4:.FE(I).FV(J).FG.FG.1:FE(I).
0:FV(J)..1.M.(..:.:.FG.0.:PEN15:.I.1.FG:
SET28.FW.I,ZL.1,"+":....0.SP.16:ZL.ZL.2:
PEN1:SET24,ZL.2,G(32):FE.1...9.. * SPIEL
BEENDET?.3.:..FW.4.ZL.2.:SETSP,ZL,"^":.
400.S.C.. * SPIELENDE - CODE ZEIGEN...D.
.I.1.4:PENCO(I):SET14.2.I,1,"Q":.:.FW.4.
600...M.. * VERLOREN.Q.N.PEN15:SE$."* ME
IN TIP: UEBEN, UEBEN ... *":.1000:.1100:
....W.. * GEWONNEN...X.PEN15:.ZL.20.SE$.
"* PH! REINER ZUFALL! *".@.B..ZL.18.ZL.1
6.SE$."* NA JA, MIT GLUECK... *".R.L..ZL
.14.ZL.12.SE$."* BIST JA EIN MITDENKER!
*"...V..ZL.10.ZL.8.SE$."* AUCH NICHT SCH
LECHT! *".U....ZL.6.ZL.4.ZL.2.SE$."* DAS
GEHT NOCH BESSER! *"......1000:.1100:..
..... * AUFGEGEBEN. . ..I.1.4:PENCO(I):S
ET14.2.I,1,"Q":..M.*.PEN15:SE$."* AUFGEG
EBEN *":.1000:.1100:..M.... * KOMMENTARZ
EILE AUSGEBEN.....SET0,24,LE$;:SET20.C(S
E$).2,24,SE$;:.162,200......B(162).1010.
......T.K.. * KOMMENTARZEILE BLINKEN...L
.BLINK24,19.C(SE$).2,24,21.C(SE$).2,200:
....
> CLICK IMAGE PREVIEW FOR FULL MODAL