CURRAH SPEECH
FILE INFORMATION
FILENAME(S): CURRAH SPEECH
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 16:57:25
APPEARS ON: 1 disk(s)
FILE HASH
be654e9f7056325f7e89db2864b8d57716cb88719dcaf3072a827f15e53fc5ff
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREDDY BANANA | CURRAH SPEECH | PRG | High Voltage Complete C64 Collection, Markus Merz | 7 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 4F C3 80 00 32 08 50 C3 8F 20 50 52 |....O...2.P.. PR|
00000010: 4F 47 52 41 4D 20 46 4F 52 20 54 48 45 20 43 55 |OGRAM FOR THE CU|
00000020: 52 52 41 48 20 53 50 45 45 43 48 20 53 49 4E 54 |RRAH SPEECH SINT|
00000030: 48 2E 00 38 08 51 C3 8F 00 57 08 52 C3 8F 20 57 |H..8.Q...W.R.. W|
00000040: 52 49 54 54 45 4E 20 42 59 20 4D 49 4B 45 20 48 |RITTEN BY MIKE H|
00000050: 4F 52 4F 53 5A 4B 4F 00 7A 08 53 C3 8F 20 50 52 |OROSZKO.z.S.. PR|
00000060: 4F 47 52 41 4D 4D 45 44 20 42 59 20 44 41 56 49 |OGRAMMED BY DAVI|
00000070: 44 20 57 49 4C 4C 49 41 4D 53 00 92 08 54 C3 8F |D WILLIAMS...T..|
00000080: 20 57 52 49 54 54 45 4E 20 31 35 3A 34 3A 31 39 | WRITTEN 15:4:19|
00000090: 38 35 00 98 08 55 C3 8F 00 A6 08 56 C3 86 52 45 |85...U.....V..RE|
000000A0: 24 28 31 32 38 29 00 BB 08 57 C3 52 45 24 28 31 |$(128)...W.RE$(1|
000000B0: 32 38 29 B2 22 27 50 49 45 2E 22 00 C9 08 58 C3 |28)."'PIE."...X.|
000000C0: 58 B2 34 33 3A 49 4E 49 54 00 E4 08 59 C3 96 A5 |X.43:INIT...Y...|
000000D0: 41 28 58 29 B2 C2 28 58 AA 31 29 AC 32 35 36 AA |A(X)..(X.1).256.|
000000E0: C2 28 58 29 00 F1 08 5A C3 4C 41 B2 A5 41 28 58 |.(X)...Z.LA..A(X|
000000F0: 29 00 01 09 5B C3 4C 4E B2 A5 41 28 4C 41 AA 32 |)...[.LN..A(LA.2|
00000100: 29 00 0D 09 5C C3 81 5A B2 31 A4 39 30 00 19 09 |)...\..Z.1.90...|
00000110: 5D C3 87 52 45 24 28 5A 29 00 1F 09 5E C3 82 00 |]..RE$(Z)...^...|
00000120: 33 09 5F C3 41 B2 30 3A 42 B2 34 39 39 39 39 3A |3._.A.0:B.49999:|
00000130: 5A B2 30 00 3D 09 60 C3 53 24 B2 22 22 00 4B 09 |Z.0.=.`.S$."".K.|
00000140: 61 C3 53 41 59 22 4C 49 53 54 22 00 5A 09 62 C3 |a.SAY"LIST".Z.b.|
00000150: 81 4E B2 31 A4 32 35 30 3A 82 00 83 09 63 C3 53 |.N.1.250:....c.S|
00000160: 41 59 22 54 59 50 45 20 49 4E 20 4C 49 4E 45 20 |AY"TYPE IN LINE |
00000170: 4E 55 4D 42 45 52 53 20 4F 52 20 52 45 45 54 45 |NUMBERS OR REETE|
00000180: 52 4E 22 00 98 09 64 C3 A1 41 24 3A 8B 41 24 B2 |RN"...d..A$:.A$.|
00000190: 22 22 A7 35 30 30 32 30 00 B4 09 65 C3 8B 41 24 |"".50020...e..A$|
000001A0: B2 C7 28 31 33 29 A7 8D 35 30 30 37 35 3A 89 35 |..(13)..50075:.5|
000001B0: 30 30 32 39 00 C6 09 66 C3 8B 41 24 B2 22 2D 22 |0029...f..A$."-"|
000001C0: A7 5A B2 5A AA 31 00 E1 09 67 C3 8B 5A B1 31 A7 |.Z.Z.1...g..Z.1.|
000001D0: 8D 35 30 30 38 33 3A 5A B2 31 3A 89 35 30 30 32 |.50083:Z.1:.5002|
000001E0: 30 00 13 0A 68 C3 8B 28 28 41 24 B1 B2 22 30 22 |0...h..((A$.."0"|
000001F0: 29 AF 28 41 24 B3 B2 22 39 22 29 29 B0 41 24 B2 |).(A$.."9")).A$.|
00000200: 22 2D 22 B0 41 24 B2 C7 28 32 30 29 A7 89 35 30 |"-".A$..(20)..50|
00000210: 30 32 36 00 25 0A 69 C3 8D 35 30 30 38 33 3A 89 |026.%.i..50083:.|
00000220: 35 30 30 32 30 00 4B 0A 6A C3 8B 41 24 B3 B1 C7 |50020.K.j..A$...|
00000230: 28 32 30 29 A7 53 24 B2 53 24 AA 41 24 3A 8D 35 |(20).S$.S$.A$:.5|
00000240: 30 30 37 37 3A 89 35 30 30 32 30 00 5E 0A 6B C3 |0077:.50020.^.k.|
00000250: 8B C3 28 53 24 29 B2 30 A7 35 30 30 32 30 00 93 |..(S$).0.50020..|
00000260: 0A 6C C3 5A 24 B2 C9 28 53 24 2C 31 29 3A 8D 35 |.l.Z$..(S$,1):.5|
00000270: 30 30 37 39 3A 8D 35 30 30 38 31 3A 53 24 B2 C8 |0079:.50081:S$..|
00000280: 28 53 24 2C C3 28 53 24 29 AB 31 29 3A 89 35 30 |(S$,.(S$).1):.50|
00000290: 30 32 30 00 9F 0A 6D C3 41 B2 C5 28 53 24 29 00 |020...m.A..(S$).|
000002A0: B8 0A 6E C3 53 4C B2 C3 28 53 24 29 3A 8B 53 4C |..n.SL..(S$):.SL|
000002B0: B2 30 A7 35 30 30 34 30 00 C4 0A 6F C3 81 49 B2 |.0.50040...o..I.|
000002C0: 31 A4 53 4C 00 DC 0A 70 C3 8B CA 28 53 24 2C 49 |1.SL...p...(S$,I|
000002D0: 2C 31 29 B2 22 2D 22 A7 53 4E B2 49 00 E2 0A 71 |,1)."-".SN.I...q|
000002E0: C3 82 00 F7 0A 72 C3 8B 53 4E B2 30 A7 42 B2 41 |.....r..SN.0.B.A|
000002F0: 3A 89 35 30 30 34 30 00 18 0B 73 C3 8B 53 4E B2 |:.50040...s..SN.|
00000300: 31 A7 42 B2 C5 28 C9 28 53 24 2C 53 4C AB 31 29 |1.B..(.(S$,SL.1)|
00000310: 29 3A 89 35 30 30 34 30 00 29 0B 74 C3 8B 53 4E |):.50040.).t..SN|
00000320: B2 53 4C A7 35 30 30 34 30 00 3E 0B 75 C3 42 B2 |.SL.50040.>.u.B.|
00000330: C5 28 C9 28 53 24 2C 53 4C AB 53 4E 29 29 00 55 |.(.(S$,SL.SN)).U|
00000340: 0B 76 C3 8B 41 B1 42 A7 8D 35 30 30 38 33 3A 89 |.v..A.B..50083:.|
00000350: 35 30 30 31 35 00 66 0B 78 C3 8B 4C 4E B1 B2 41 |50015.f.x..LN..A|
00000360: A7 35 30 30 34 32 00 87 0B 79 C3 4C 41 B2 A5 41 |.50042...y.LA..A|
00000370: 28 4C 41 29 3A 4C 4E B2 A5 41 28 4C 41 AA 32 29 |(LA):LN..A(LA.2)|
00000380: 3A 89 35 30 30 34 30 00 A2 0B 7A C3 54 B2 4C 41 |:.50040...z.T.LA|
00000390: AA 33 3A 54 45 58 54 24 B2 C4 28 4C 4E 29 AA 22 |.3:TEXT$..(LN)."|
000003A0: 20 22 00 BE 0B 7B C3 56 B2 C2 28 54 29 3A 8B 56 | "...{.V..(T):.V|
000003B0: B3 2E 31 39 AF 56 B3 33 32 A7 56 B2 33 32 00 E7 |..19.V.32.V.32..|
000003C0: 0B 7C C3 8B 56 B1 31 32 37 A7 54 45 58 54 24 B2 |.|..V.127.TEXT$.|
000003D0: 54 45 58 54 24 AA 52 45 24 28 56 AB 31 32 37 29 |TEXT$.RE$(V.127)|
000003E0: 3A 89 35 30 30 36 33 00 F3 0B 7D C3 43 24 B2 C7 |:.50063...}.C$..|
000003F0: 28 56 29 00 12 0C 7E C3 8B 43 24 B2 22 3F 22 A7 |(V)...~..C$."?".|
00000400: 43 24 B2 22 20 27 51 55 45 53 54 43 48 4F 4E 2E |C$." 'QUESTCHON.|
00000410: 20 22 00 32 0C 7F C3 8B 43 24 B2 22 5F 22 A7 43 | ".2....C$."_".C|
00000420: 24 B2 22 20 27 41 52 52 4F 57 20 4C 45 46 54 2E |$." 'ARROW LEFT.|
00000430: 20 22 00 55 0C 80 C3 8B 43 24 B2 22 21 22 A7 43 | ".U....C$."!".C|
00000440: 24 B2 22 20 27 45 58 4B 4C 45 4D 4D 41 49 53 48 |$." 'EXKLEMMAISH|
00000450: 4F 4E 2E 20 22 00 72 0C 81 C3 8B 43 24 B2 C7 28 |ON. ".r....C$..(|
00000460: 33 34 29 A7 43 24 B2 22 20 27 51 55 4F 54 45 2E |34).C$." 'QUOTE.|
00000470: 20 22 00 8D 0C 82 C3 8B 43 24 B2 22 5C 22 A7 43 | "......C$."\".C|
00000480: 24 B2 22 20 27 50 4F 55 4E 44 2E 20 22 00 B2 0C |$." 'POUND. "...|
00000490: 83 C3 8B 43 24 B2 22 3B 22 A7 43 24 B2 22 20 27 |...C$.";".C$." '|
000004A0: 53 45 4D 4D 45 20 5B 43 28 4F 4F 29 4C 4F 4E 5D |SEMME [C(OO)LON]|
000004B0: 20 22 00 D1 0C 84 C3 8B 43 24 B2 22 3A 22 A7 43 | "......C$.":".C|
000004C0: 24 B2 22 20 27 5B 43 28 4F 4F 29 4C 4F 4E 5D 20 |$." '[C(OO)LON] |
000004D0: 22 00 EB 0C 85 C3 8B 43 24 B2 22 13 22 A7 43 24 |"......C$.".".C$|
000004E0: B2 22 20 27 48 4F 4D 45 2E 20 22 00 0C 0D 86 C3 |." 'HOME. ".....|
000004F0: 8B 43 24 B2 22 27 22 A7 43 24 B2 22 20 27 41 50 |.C$."'".C$." 'AP|
00000500: 4F 53 54 4F 4F 4F 46 45 45 2E 20 22 00 27 0D 87 |OSTOOOFEE. ".'..|
00000510: C3 8B 43 24 B2 22 20 22 A7 43 24 B2 22 20 27 53 |..C$." ".C$." 'S|
00000520: 50 41 43 45 2E 20 22 00 43 0D 88 C3 8B 43 24 B2 |PACE. ".C....C$.|
00000530: 22 2C 22 A7 43 24 B2 22 20 27 43 4F 4D 4D 45 52 |",".C$." 'COMMER|
00000540: 2E 20 22 00 5E 0D 89 C3 8B 43 24 B2 22 2E 22 A7 |. ".^....C$.".".|
00000550: 43 24 B2 22 20 27 50 4F 49 4E 54 2E 20 22 00 80 |C$." 'POINT. "..|
00000560: 0D 8A C3 8B 43 24 B2 22 28 22 A7 43 24 B2 22 20 |....C$."(".C$." |
00000570: 27 4F 50 45 4E 20 42 52 41 43 4B 45 54 2E 20 22 |'OPEN BRACKET. "|
00000580: 00 A3 0D 8B C3 8B 43 24 B2 22 29 22 A7 43 24 B2 |......C$.")".C$.|
00000590: 22 20 27 43 4C 4F 53 45 20 42 52 41 43 4B 45 54 |" 'CLOSE BRACKET|
000005A0: 2E 20 22 00 CC 0D 8C C3 8B 43 24 B2 22 5B 22 A7 |. "......C$."[".|
000005B0: 43 24 B2 22 20 27 4F 50 45 4E 20 53 51 55 45 52 |C$." 'OPEN SQUER|
000005C0: 45 20 42 52 41 43 4B 45 54 2E 20 22 00 F6 0D 8D |E BRACKET. "....|
000005D0: C3 8B 43 24 B2 22 5D 22 A7 43 24 B2 22 20 27 43 |..C$."]".C$." 'C|
000005E0: 4C 4F 53 45 20 53 51 55 45 52 45 20 42 52 41 43 |LOSE SQUERE BRAC|
000005F0: 4B 45 54 2E 20 22 00 09 0E 8E C3 54 45 58 54 24 |KET. ".....TEXT$|
00000600: B2 54 45 58 54 24 AA 43 24 00 1A 0E 8F C3 54 B2 |.TEXT$.C$.....T.|
00000610: 54 AA 31 3A 56 B2 C2 28 54 29 00 2A 0E 90 C3 8B |T.1:V..(T).*....|
00000620: 56 B3 B1 30 A7 35 30 30 34 34 00 3D 0E 91 C3 8B |V..0.50044.=....|
00000630: 53 50 25 B3 32 30 30 A7 35 30 30 36 35 00 4A 0E |SP%.200.50065.J.|
00000640: 92 C3 53 41 59 54 45 58 54 24 00 5F 0E 93 C3 A1 |..SAYTEXT$._....|
00000650: 5A 24 3A 8B 5A 24 B2 22 22 A7 35 30 30 36 37 00 |Z$:.Z$."".50067.|
00000660: 6F 0E 94 C3 8B 5A 24 B2 C7 28 31 33 29 A7 80 00 |o....Z$..(13)...|
00000670: 83 0E 95 C3 8B 5A 24 B2 C7 28 33 32 29 A7 35 30 |.....Z$..(32).50|
00000680: 30 36 36 00 91 0E 96 C3 4C 41 B2 A5 41 28 4C 41 |066.....LA..A(LA|
00000690: 29 00 A1 0E 97 C3 4C 4E B2 A5 41 28 4C 41 AA 32 |).....LN..A(LA.2|
000006A0: 29 00 B6 0E 98 C3 8B 4C 4E B1 42 B0 4C 4E B1 34 |)......LN.B.LN.4|
000006B0: 39 39 39 39 A7 80 00 C1 0E 99 C3 89 35 30 30 34 |9999........5004|
000006C0: 32 00 D2 0E 9B C3 53 41 59 22 52 45 45 54 45 52 |2.....SAY"REETER|
000006D0: 4E 22 00 D8 0E 9C C3 8E 00 E2 0E 9D C3 53 41 59 |N"...........SAY|
000006E0: 41 24 00 E8 0E 9E C3 8E 00 F2 0E 9F C3 53 41 59 |A$...........SAY|
000006F0: 5A 24 00 F8 0E A0 C3 8E 00 0A 0F A1 C3 53 41 59 |Z$...........SAY|
00000700: 22 44 45 4C 45 41 54 45 44 22 00 10 0F A2 C3 8E |"DELEATED"......|
00000710: 00 37 0F A3 C3 53 41 59 22 59 4F 55 20 48 41 56 |.7...SAY"YOU HAV|
00000720: 45 20 45 52 52 4F 52 44 20 54 59 50 45 20 49 4E |E ERRORD TYPE IN|
00000730: 20 41 47 41 49 4E 22 00 3D 0F A4 C3 8E 00 49 0F | AGAIN".=.....I.|
00000740: A5 C3 83 20 27 45 4E 44 2E 00 55 0F A6 C3 83 20 |... 'END..U.... |
00000750: 27 46 4F 52 2E 00 62 0F A7 C3 83 20 27 4E 45 58 |'FOR..b.... 'NEX|
00000760: 54 2E 00 70 0F A8 C3 83 20 27 44 41 49 54 41 2E |T..p.... 'DAITA.|
00000770: 00 80 0F A9 C3 83 20 27 49 4E 50 55 54 20 23 2E |...... 'INPUT #.|
00000780: 00 8E 0F AA C3 83 20 27 49 4E 50 55 54 2E 00 A0 |...... 'INPUT...|
00000790: 0F AB C3 83 20 27 44 49 4D 45 4E 54 49 4F 4E 2E |.... 'DIMENTION.|
000007A0: 00 AD 0F AC C3 83 20 27 52 45 45 44 2E 00 B9 0F |...... 'REED....|
000007B0: AD C3 83 20 27 4C 45 54 2E 00 C7 0F AE C3 83 20 |... 'LET....... |
000007C0: 27 47 4F 20 54 55 2E 00 D3 0F AF C3 83 20 27 52 |'GO TU....... 'R|
000007D0: 55 4E 2E 00 DE 0F B0 C3 83 20 27 49 46 2E 00 EF |UN....... 'IF...|
000007E0: 0F B1 C3 83 20 27 52 45 45 53 54 4F 52 45 2E 00 |.... 'REESTORE..|
000007F0: 04 10 B2 C3 83 20 27 47 4F 20 5B 53 53 55 55 28 |..... 'GO [SSUU(|
00000800: 42 29 5D 27 00 14 10 B3 C3 83 20 27 52 45 45 54 |B)]'...... 'REET|
00000810: 45 52 4E 2E 00 25 10 B4 C3 83 20 27 5B 52 28 45 |ERN..%.... '[R(E|
00000820: 48 29 4D 5D 27 00 32 10 B5 C3 83 20 27 53 54 4F |H)M]'.2.... 'STO|
00000830: 50 2E 00 3D 10 B6 C3 83 20 27 4F 4E 2E 00 4A 10 |P..=.... 'ON..J.|
00000840: B7 C3 83 20 27 57 41 49 54 2E 00 5F 10 B8 C3 83 |... 'WAIT.._....|
00000850: 20 27 43 4C 45 41 52 20 53 4B 52 45 45 4E 2E 00 | 'CLEAR SKREEN..|
00000860: 6C 10 B9 C3 83 20 27 53 41 56 45 2E 00 82 10 BA |l.... 'SAVE.....|
00000870: C3 83 20 27 5B 56 28 49 29 52 49 46 28 49 49 29 |.. '[V(I)RIF(II)|
00000880: 5D 27 00 92 10 BB C3 83 20 27 44 45 45 46 49 4E |]'...... 'DEEFIN|
00000890: 45 2E 00 9F 10 BC C3 83 20 27 50 4F 4B 45 2E 00 |E....... 'POKE..|
000008A0: AF 10 BD C3 83 20 27 50 52 49 4E 54 20 23 2E 00 |..... 'PRINT #..|
000008B0: BD 10 BE C3 83 20 27 50 52 49 4E 54 2E 00 CE 10 |..... 'PRINT....|
000008C0: BF C3 83 20 27 43 4F 4E 54 49 4E 55 45 2E 00 DB |... 'CONTINUE...|
000008D0: 10 C0 C3 83 20 27 4C 49 53 54 2E 00 F1 10 C1 C3 |.... 'LIST......|
000008E0: 83 20 27 43 4C 45 41 52 20 56 45 52 49 42 55 4C |. 'CLEAR VERIBUL|
000008F0: 2E 00 00 11 C2 C3 83 20 27 43 4F 4D 41 4E 44 2E |....... 'COMAND.|
00000900: 00 0F 11 C3 C3 83 20 27 53 59 53 54 45 4D 2E 00 |...... 'SYSTEM..|
00000910: 1C 11 C4 C3 83 20 27 4F 50 45 4E 2E 00 2A 11 C5 |..... 'OPEN..*..|
00000920: C3 83 20 27 43 4C 4F 53 45 2E 00 3F 11 C6 C3 83 |.. 'CLOSE..?....|
00000930: 20 27 5B 28 47 47 47 29 45 28 54 54 29 5D 27 00 | '[(GGG)E(TT)]'.|
00000940: 4B 11 C7 C3 83 20 27 4E 45 57 2E 00 64 11 C8 C3 |K.... 'NEW..d...|
00000950: 83 20 27 54 41 56 2E 4F 50 45 4E 20 42 52 41 43 |. 'TAV.OPEN BRAC|
00000960: 4B 45 54 2E 00 6F 11 C9 C3 83 20 27 54 55 2E 00 |KET..o.... 'TU..|
00000970: 80 11 CA C3 83 20 27 46 55 4E 43 54 49 4F 4E 2E |..... 'FUNCTION.|
00000980: 00 9C 11 CB C3 83 20 27 53 50 41 43 45 2E 20 4F |...... 'SPACE. O|
00000990: 50 45 4E 20 42 52 41 43 4B 45 54 2E 00 A9 11 CC |PEN BRACKET.....|
000009A0: C3 83 20 27 54 48 45 4E 2E 00 B5 11 CD C3 83 20 |.. 'THEN....... |
000009B0: 27 4E 4F 54 2E 00 C2 11 CE C3 83 20 27 53 54 45 |'NOT....... 'STE|
000009C0: 50 2E 00 CF 11 CF C3 83 20 27 50 4C 55 53 2E 00 |P....... 'PLUS..|
000009D0: DD 11 D0 C3 83 20 27 4D 59 4E 55 53 2E 00 F1 11 |..... 'MYNUS....|
000009E0: D1 C3 83 20 27 4D 55 4C 54 59 50 4C 59 20 42 59 |... 'MULTYPLY BY|
000009F0: 2E 00 04 12 D2 C3 83 20 27 44 45 56 49 44 45 44 |....... 'DEVIDED|
00000A00: 20 42 59 2E 00 15 12 D3 C3 83 20 27 41 52 52 4F | BY....... 'ARRO|
00000A10: 57 20 55 50 2E 00 21 12 D4 C3 83 20 27 41 4E 44 |W UP..!.... 'AND|
00000A20: 2E 00 2C 12 D5 C3 83 20 27 4F 52 2E 00 41 12 D6 |..,.... 'OR..A..|
00000A30: C3 83 20 27 47 52 45 41 54 45 52 20 54 48 41 4E |.. 'GREATER THAN|
00000A40: 2E 00 51 12 D7 C3 83 20 27 45 45 51 55 55 4C 53 |..Q.... 'EEQUULS|
00000A50: 2E 00 63 12 D8 C3 83 20 27 4C 45 53 53 20 54 48 |..c.... 'LESS TH|
00000A60: 41 4E 2E 00 71 12 D9 C3 83 20 27 53 20 47 20 4E |AN..q.... 'S G N|
00000A70: 27 00 82 12 DA C3 83 20 27 49 4E 54 45 52 4A 45 |'...... 'INTERJE|
00000A80: 52 2E 00 93 12 DB C3 83 20 27 41 42 53 4F 4C 55 |R....... 'ABSOLU|
00000A90: 54 45 2E 00 A7 12 DC C3 83 20 27 5B 28 4F 55 29 |TE....... '[(OU)|
00000AA0: 53 28 45 52 29 5D 27 00 B4 12 DD C3 83 20 27 46 |S(ER)]'...... 'F|
00000AB0: 52 45 45 2E 00 C5 12 DE C3 83 20 27 50 4F 53 49 |REE....... 'POSI|
00000AC0: 54 49 4F 4E 2E 00 D9 12 DF C3 83 20 27 53 51 52 |TION....... 'SQR|
00000AD0: 45 52 45 20 52 4F 4F 54 2E 00 E8 12 E0 C3 83 20 |ERE ROOT....... |
00000AE0: 27 52 41 4E 44 55 4D 2E 00 FA 12 E1 C3 83 20 27 |'RANDUM....... '|
00000AF0: 5B 4C 4F 28 47 47 47 29 5D 27 00 0E 13 E2 C3 83 |[LO(GGG)]'......|
00000B00: 20 27 45 58 50 4F 4E 45 4E 53 48 41 4C 2E 00 1D | 'EXPONENSHAL...|
00000B10: 13 E3 C3 83 20 27 43 4F 53 49 4E 45 2E 00 2A 13 |.... 'COSINE..*.|
00000B20: E4 C3 83 20 27 53 49 4E 45 2E 00 3A 13 E5 C3 83 |... 'SINE..:....|
00000B30: 20 27 54 41 4E 4A 55 4E 54 2E 00 4E 13 E6 C3 83 | 'TANJUNT..N....|
00000B40: 20 27 41 52 43 2E 54 41 4E 4A 55 4E 54 2E 00 5B | 'ARC.TANJUNT..[|
00000B50: 13 E7 C3 83 20 27 50 45 45 4B 2E 00 69 13 E8 C3 |.... 'PEEK..i...|
00000B60: 83 20 27 4C 45 4E 54 48 2E 00 79 13 E9 C3 83 20 |. 'LENTH..y.... |
00000B70: 27 53 20 54 20 52 20 24 27 00 87 13 EA C3 83 20 |'S T R $'...... |
00000B80: 27 56 41 4C 55 45 2E 00 95 13 EB C3 83 20 27 41 |'VALUE....... 'A|
00000B90: 53 4B 45 59 2E 00 A5 13 EC C3 83 20 27 43 20 48 |SKEY....... 'C H|
00000BA0: 20 52 20 24 27 00 B3 13 ED C3 83 20 27 4C 45 46 | R $'...... 'LEF|
00000BB0: 54 24 27 00 C2 13 EE C3 83 20 27 52 49 47 48 54 |T$'...... 'RIGHT|
00000BC0: 24 27 00 CF 13 EF C3 83 20 27 4D 49 44 24 27 00 |$'...... 'MID$'.|
00000BD0: DC 13 F0 C3 83 20 27 43 52 41 50 2E 00 EB 13 F1 |..... 'CRAP.....|
00000BE0: C3 83 20 27 44 20 4F 50 45 4E 2E 00 FB 13 F2 C3 |.. 'D OPEN......|
00000BF0: 83 20 27 44 20 43 4C 4F 53 45 2E 00 0B 14 F3 C3 |. 'D CLOSE......|
00000C00: 83 20 27 52 45 45 43 4F 52 44 2E 00 1B 14 F4 C3 |. 'REECORD......|
00000C10: 83 20 27 48 48 45 44 44 45 52 2E 00 2B 14 F5 C3 |. 'HHEDDER..+...|
00000C20: 83 20 27 43 4F 4C 4C 45 43 54 2E 00 3A 14 F6 C3 |. 'COLLECT..:...|
00000C30: 83 20 27 42 41 43 4B 55 50 2E 00 47 14 F7 C3 83 |. 'BACKUP..G....|
00000C40: 20 27 43 4F 50 59 2E 00 56 14 F8 C3 83 20 27 41 | 'COPY..V.... 'A|
00000C50: 48 50 45 4E 44 2E 00 65 14 F9 C3 83 20 27 44 20 |HPEND..e.... 'D |
00000C60: 53 41 56 45 2E 00 74 14 FA C3 83 20 27 44 20 4C |SAVE..t.... 'D L|
00000C70: 4F 41 44 2E 00 84 14 FB C3 83 20 27 43 41 54 41 |OAD....... 'CATA|
00000C80: 4C 4F 47 2E 00 93 14 FC C3 83 20 27 52 45 4E 41 |LOG....... 'RENA|
00000C90: 4D 45 2E 00 A3 14 FD C3 83 20 27 53 43 52 41 54 |ME....... 'SCRAT|
00000CA0: 43 48 2E 00 B6 14 FE C3 83 20 27 44 49 52 45 43 |CH....... 'DIREC|
00000CB0: 54 4F 52 45 45 2E 00 00 00 |TOREE.... |
....OC..2.PC. PROGRAM FOR THE CURRAH SPE
ECH SINTH..8.QC..W.RC. WRITTEN BY MIKE H
OROSZKO.Z.SC. PROGRAMMED BY DAVID WILLIA
MS...TC. WRITTEN 15:4:1985...UC....VC.RE
$(128)...WCRE$(128)."'PIE.".I.XCX.43:INI
T...YC..A(X).B(X.1).256.B(X)...ZCLA..A(X
)...[CLN..A(LA.2)...\C.Z.1.90...]C.RE$(Z
)...^C..3._CA.0:B.49999:Z.0.=.`CS$."".K.
ACSAY"LIST".Z.BC.N.1.250:....CCSAY"TYPE
IN LINE NUMBERS OR REETERN"...DC.A$:.A$.
"".50020...EC.A$.G(13)..50075:.50029.F.F
C.A$."-".Z.Z.1...GC.Z.1..50083:Z.1:.5002
0...HC.((A$.."0").(A$.."9")).A$."-".A$.G
(20)..50026.%.IC.50083:.50020.K.JC.A$..G
(20).S$.S$.A$:.50077:.50020.^.KC.C(S$).0
.50020...LCZ$.I(S$,1):.50079:.50081:S$.H
(S$,C(S$).1):.50020...MCA.E(S$)...NCSL.C
(S$):.SL.0.50040.D.OC.I.1.SL...PC.J(S$,I
,1)."-".SN.I...QC....RC.SN.0.B.A:.50040.
..SC.SN.1.B.E(I(S$,SL.1)):.50040.).TC.SN
.SL.50040.>.UCB.E(I(S$,SL.SN)).U.VC.A.B.
.50083:.50015.F.XC.LN..A.50042...YCLA..A
(LA):LN..A(LA.2):.50040...ZCT.LA.3:TEXT$
.D(LN)." "...{CV.B(T):.V..19.V.32.V.32..
.|C.V.127.TEXT$.TEXT$.RE$(V.127):.50063.
..}CC$.G(V)...~C.C$."?".C$." 'QUESTCHON.
".2.C.C$."_".C$." 'ARROW LEFT. ".U..C.
C$."!".C$." 'EXKLEMMAISHON. ".R..C.C$.G(
34).C$." 'QUOTE. "....C.C$."\".C$." 'POU
ND. "....C.C$.";".C$." 'SEMME [C(OO)LON]
".Q..C.C$.":".C$." '[C(OO)LON] "....C.C
$.".".C$." 'HOME. "....C.C$."'".C$." 'AP
OSTOOOFEE. ".'..C.C$." ".C$." 'SPACE. ".
C..C.C$.",".C$." 'COMMER. ".^..C.C$.".".
C$." 'POINT. "....C.C$."(".C$." 'OPEN BR
ACKET. "....C.C$.")".C$." 'CLOSE BRACKET
. ".L..C.C$."[".C$." 'OPEN SQUERE BRACKE
T. "....C.C$."]".C$." 'CLOSE SQUERE BRAC
KET. "....CTEXT$.TEXT$.C$....CT.T.1:V.B(
T).*..C.V..0.50044.=..C.SP%.200.50065.J.
.CSAYTEXT$._..C.Z$:.Z$."".50067.O..C.Z$.
G(13)......C.Z$.G(32).50066....CLA..A(LA
)....CLN..A(LA.2)....C.LN.B.LN.49999...A
..C.50042.R..CSAY"REETERN".X..C.....CSAY
A$....C.....CSAYZ$... C.....CSAY"DELEATE
D"....C..7..CSAY"YOU HAVE ERRORD TYPE IN
AGAIN".=..C..I..C. 'END..U..C. 'FOR..B.
.C. 'NEXT..P..C. 'DAITA.....C. 'INPUT #.
....C. 'INPUT.. ..C. 'DIMENTION.....C. '
REED.....C. 'LET..G..C. 'GO TU..S..C. 'R
UN.....C. 'IF.....C. 'REESTORE.....C. 'G
O [SSUU(B)]'....C. 'REETERN..%..C. '[R(E
H)M]'.2..C. 'STOP..=..C. 'ON..J..C. 'WAI
T.._..C. 'CLEAR SKREEN..L..C. 'SAVE.....
C. '[V(I)RIF(II)]'....C. 'DEEFINE.....C.
'POKE.....C. 'PRINT #.....C. 'PRINT..N.
.C. 'CONTINUE.....C. 'LIST....AC. 'CLEAR
VERIBUL....BC. 'COMAND....CC. 'SYSTEM..
..DC. 'OPEN..*.EC. 'CLOSE..?.FC. '[(GGG)
E(TT)]'.K.GC. 'NEW..D.HC. 'TAV.OPEN BRAC
KET..O.IC. 'TU....JC. 'FUNCTION....KC. '
SPACE. OPEN BRACKET....LC. 'THEN....MC.
'NOT..B.NC. 'STEP..O.OC. 'PLUS....PC. 'M
YNUS....QC. 'MULTYPLY BY....RC. 'DEVIDED
BY....SC. 'ARROW UP..!.TC. 'AND..,.UC.
'OR..A.VC. 'GREATER THAN..Q.WC. 'EEQUULS
..C.XC. 'LESS THAN..Q.YC. 'S G N'...ZC.
'INTERJER.....C. 'ABSOLUTE.....C. '[(OU)
S(ER)]'....C. 'FREE..E..C. 'POSITION..Y.
.C. 'SQRERE ROOT.....C. 'RANDUM.....C. '
[LO(GGG)]'....C. 'EXPONENSHAL.....C. 'CO
SINE..*..C. 'SINE..:..C. 'TANJUNT..N..C.
'ARC.TANJUNT..[..C. 'PEEK..I..C. 'LENTH
..Y..C. 'S T R $'....C. 'VALUE.....C. 'A
SKEY.....C. 'C H R $'....C. 'LEFT$'.B..C
. 'RIGHT$'.O..C. 'MID$'....C. 'CRAP.....
C. 'D OPEN.....C. 'D CLOSE.....C. 'REECO
RD.....C. 'HHEDDER..+..C. 'COLLECT..:..C
. 'BACKUP..G..C. 'COPY..V..C. 'AHPEND..E
..C. 'D SAVE..T..C. 'D LOAD.....C. 'CATA
LOG.....C. 'RENAME.....C. 'SCRATCH.....C
. 'DIRECTOREE....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL