ELECTION
FILE INFORMATION
FILENAME(S): ELECTION
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 18:12:16
APPEARS ON: 1 disk(s)
FILE HASH
ad30ee8fa918b05cad016fef662547d2fea47915b6a9672f29b05f23a59ea7d4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 48 S 2 | ELECTION | PRG | Sailor, Ganheden | 12 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 64 00 8D 36 30 31 30 30 3A 99 22 93 |..!.d..60100:.".|
00000010: 22 3A 8F 20 20 54 49 54 4C 45 20 53 43 52 45 45 |":. TITLE SCREE|
00000020: 4E 00 3B 08 6E 00 8F 20 53 41 56 45 22 30 3A 45 |N.;.n.. SAVE"0:E|
00000030: 4C 45 43 54 49 4F 4E 53 22 2C 38 00 60 08 82 00 |LECTIONS",8.`...|
00000040: 8F 20 54 52 41 50 20 37 30 30 20 3A 52 45 4D 20 |. TRAP 700 :REM |
00000050: 2B 34 2C 43 31 36 2C 42 31 32 38 2C 43 31 32 38 |+4,C16,B128,C128|
00000060: 00 75 08 87 00 8F 2D 2D 2D 4D 41 49 4E 20 50 52 |.u....---MAIN PR|
00000070: 4F 47 52 41 4D 00 A5 08 8C 00 4E 50 B2 32 30 3A |OGRAM.....NP.20:|
00000080: 4D B2 39 3A 8F 20 4D 41 58 20 50 4F 53 49 54 49 |M.9:. MAX POSITI|
00000090: 4F 4E 53 2C 43 41 4E 44 49 44 41 54 45 53 2F 4F |ONS,CANDIDATES/O|
000000A0: 46 46 49 43 45 00 D2 08 96 00 86 20 52 24 28 4E |FFICE...... R$(N|
000000B0: 50 29 2C 4D 58 28 4E 50 29 2C 54 43 28 4E 50 29 |P),MX(NP),TC(NP)|
000000C0: 2C 4E 24 28 4E 50 2C 4D 29 2C 54 32 28 4E 50 2C |,N$(NP,M),T2(NP,|
000000D0: 4D 29 00 EB 08 A0 00 8D 20 35 34 30 3A 8F 20 52 |M)...... 540:. R|
000000E0: 45 41 44 20 49 4E 20 44 41 54 41 00 F4 08 AA 00 |EAD IN DATA.....|
000000F0: 4E 56 B2 31 00 32 09 B4 00 99 22 93 20 20 20 20 |NV.1.2....". |
00000100: 20 20 20 20 20 20 20 20 20 9A 56 4F 54 45 52 20 | .VOTER |
00000110: 23 05 22 4E 56 3A 45 46 B2 30 3A 99 22 11 11 11 |#."NV:EF.0:."...|
00000120: 22 3A 8D 20 36 31 30 3A 8B 20 45 46 20 89 20 32 |":. 610:. EF . 2|
00000130: 31 30 00 4A 09 BE 00 56 B2 AB 31 3A 8D 20 32 33 |10.J...V..1:. 23|
00000140: 30 3A 8F 20 56 4F 54 49 4E 47 00 5C 09 C8 00 4E |0:. VOTING.\...N|
00000150: 56 B2 4E 56 AA 31 3A 89 20 31 38 30 00 7B 09 D2 |V.NV.1:. 180.{..|
00000160: 00 56 B2 30 3A 8D 20 32 33 30 3A 3A 8F 20 50 52 |.V.0:. 230::. PR|
00000170: 49 4E 54 20 52 45 53 55 4C 54 53 00 85 09 DC 00 |INT RESULTS.....|
00000180: 89 32 30 30 30 00 A6 09 E1 00 8F 2D 2D 2D 56 4F |.2000......---VO|
00000190: 54 49 4E 47 20 53 43 52 45 45 4E 20 4F 52 20 52 |TING SCREEN OR R|
000001A0: 45 53 55 4C 54 53 00 E0 09 E2 00 8F 20 20 20 49 |ESULTS...... I|
000001B0: 46 20 59 4F 55 20 48 41 56 45 20 27 50 52 49 4E |F YOU HAVE 'PRIN|
000001C0: 54 20 55 53 49 4E 47 27 20 59 4F 55 20 43 41 4E |T USING' YOU CAN|
000001D0: 20 4D 41 4B 45 20 54 48 49 53 20 4E 49 43 45 52 | MAKE THIS NICER|
000001E0: 00 EF 09 E6 00 81 20 49 B2 31 20 A4 20 4E 50 00 |...... I.1 . NP.|
000001F0: 0D 0A E9 00 8B A8 56 A7 99 22 93 13 11 05 52 45 |......V.."....RE|
00000200: 53 55 4C 54 53 11 9F 22 3A 89 32 33 38 00 21 0A |SULTS..":.238.!.|
00000210: EB 00 99 22 93 13 11 05 56 4F 54 49 4E 47 11 9F |..."....VOTING..|
00000220: 22 00 2C 0A EE 00 99 52 24 28 49 29 00 48 0A F0 |".,....R$(I).H..|
00000230: 00 8B 20 56 20 A7 20 99 22 9F 56 4F 54 45 20 46 |.. V . .".VOTE F|
00000240: 4F 52 22 4D 58 28 49 29 00 4E 0A FA 00 99 00 80 |OR"MX(I).N......|
00000250: 0A 04 01 81 20 4A B2 31 20 A4 20 54 43 28 49 29 |.... J.1 . TC(I)|
00000260: 3A 99 20 22 05 22 C9 28 22 20 20 22 AA C4 28 4A |:. ".".(" "..(J|
00000270: 29 2C 32 29 22 20 9A 22 4E 24 28 49 2C 4A 29 3B |),2)" ."N$(I,J);|
00000280: 00 9E 0A 0E 01 8B 20 A8 20 56 20 A7 20 99 20 54 |...... . V . . T|
00000290: 32 28 49 2C 4A 29 22 56 4F 54 45 53 22 3B 00 A4 |2(I,J)"VOTES";..|
000002A0: 0A 18 01 99 00 AC 0A 1D 01 82 20 4A 00 C5 0A 22 |.......... J..."|
000002B0: 01 8B 20 56 20 A7 20 8D 20 33 36 30 3A 8B 20 45 |.. V . . 360:. E|
000002C0: 46 20 A7 20 8E 00 D7 0A 2C 01 8B 20 A8 20 56 20 |F . ....,.. . V |
000002D0: A7 20 8D 20 33 32 30 00 E1 0A 36 01 82 20 49 3A |. . 320...6.. I:|
000002E0: 8E 00 1E 0B 3B 01 8F 2D 2D 2D 41 4E 59 20 4B 45 |....;..---ANY KE|
000002F0: 59 3B 20 49 46 20 59 4F 55 20 48 41 56 45 20 27 |Y; IF YOU HAVE '|
00000300: 47 45 54 20 4B 45 59 27 20 59 4F 55 20 43 41 4E |GET KEY' YOU CAN|
00000310: 20 55 53 45 20 54 48 49 53 20 48 45 52 45 00 36 | USE THIS HERE.6|
00000320: 0B 40 01 99 3A 99 22 50 52 45 53 53 20 41 4E 59 |.@..:."PRESS ANY|
00000330: 20 4B 45 59 22 3B 00 58 0B 4A 01 97 31 39 38 2C | KEY";.X.J..198,|
00000340: 2E 3A 8F 20 45 4D 50 54 59 20 4B 45 59 42 4F 41 |.:. EMPTY KEYBOA|
00000350: 52 44 20 51 55 45 55 45 00 8D 0B 54 01 A1 20 49 |RD QUEUE...T.. I|
00000360: 24 3A 8B 20 49 24 B2 22 22 89 20 33 34 30 3A 8F |$:. I$."". 340:.|
00000370: 20 4E 4F 57 20 57 41 49 54 20 46 4F 52 20 4B 45 | NOW WAIT FOR KE|
00000380: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 00 93 0B |Y TO CONTINUE...|
00000390: 5E 01 8E 00 B3 0B 63 01 8F 2D 2D 2D 41 44 44 20 |^.....c..---ADD |
000003A0: 50 4F 49 4E 54 20 49 46 20 4C 45 47 41 4C 20 56 |POINT IF LEGAL V|
000003B0: 4F 54 45 00 C1 0B 68 01 56 24 B2 22 22 3A 50 B2 |OTE...h.V$."":P.|
000003C0: 30 00 ED 0B 72 01 99 22 11 45 4E 54 45 52 20 41 |0...r..".ENTER A|
000003D0: 20 4E 55 4D 42 45 52 20 41 4E 44 20 52 45 54 55 | NUMBER AND RETU|
000003E0: 52 4E 20 4F 52 20 50 55 53 48 20 2A 22 00 1B 0C |RN OR PUSH *"...|
000003F0: 7C 01 99 22 46 4F 52 20 4E 4F 20 56 4F 54 45 2E ||.."FOR NO VOTE.|
00000400: 20 20 59 4F 55 20 43 41 4E 20 43 48 41 4E 47 45 | YOU CAN CHANGE|
00000410: 20 59 4F 55 52 20 4D 49 4E 44 22 00 56 0C 86 01 | YOUR MIND".V...|
00000420: 99 22 42 45 46 4F 52 45 20 50 55 53 48 49 4E 47 |."BEFORE PUSHING|
00000430: 20 52 45 54 55 52 4E 2E 11 22 3A 8F 20 4D 45 53 | RETURN..":. MES|
00000440: 53 41 47 45 20 46 49 54 53 20 49 4E 20 34 30 43 |SAGE FITS IN 40C|
00000450: 4F 4C 55 4D 4E 53 00 87 0C 8B 01 99 22 11 11 11 |OLUMNS......"...|
00000460: 11 11 9E 50 52 45 53 53 20 46 37 20 54 4F 20 52 |...PRESS F7 TO R|
00000470: 45 54 55 52 4E 20 54 4F 20 4C 4F 41 44 53 54 41 |ETURN TO LOADSTA|
00000480: 52 91 91 91 91 91 22 00 A9 0C 90 01 4F 4B B2 31 |R.....".....OK.1|
00000490: 3A 81 20 4B B2 31 20 A4 20 4D 58 28 49 29 3A 8F |:. K.1 . MX(I):.|
000004A0: 20 47 45 54 20 56 4F 54 45 00 C1 0C 9A 01 8B 20 | GET VOTE...... |
000004B0: 4D 58 28 49 29 B1 31 20 A7 20 99 22 9A 23 22 4B |MX(I).1 . .".#"K|
000004C0: 3B 00 D7 0C A4 01 99 22 9A 59 4F 55 52 20 56 4F |;......".YOUR VO|
000004D0: 54 45 3A 20 05 22 3B 00 EF 0C AE 01 8B 4F 4B B2 |TE: .";......OK.|
000004E0: 31 A7 56 24 B2 56 24 AA C7 28 50 AA 34 38 29 00 |1.V$.V$..(P.48).|
000004F0: 05 0D B8 01 A1 20 49 24 3A 8B 20 49 24 B2 22 22 |..... I$:. I$.""|
00000500: 89 20 34 34 30 00 16 0D BD 01 8B 49 24 B2 22 88 |. 440......I$.".|
00000510: 22 A7 32 30 30 30 00 2F 0D C2 01 41 56 B2 C6 28 |".2000./...AV..(|
00000520: 49 24 29 3A 8B 20 41 56 B2 34 32 20 A7 20 8E 00 |I$):. AV.42 . ..|
00000530: 48 0D CC 01 8B 20 41 56 B2 31 33 20 A7 20 8D 31 |H.... AV.13 . .1|
00000540: 30 30 30 3A 89 34 39 30 00 6C 0D D6 01 41 56 B2 |000:.490.l...AV.|
00000550: 41 56 AB 34 38 3A 8B 20 41 56 B3 31 20 B0 20 41 |AV.48:. AV.1 . A|
00000560: 56 B1 54 43 28 49 29 89 20 34 34 30 00 84 0D E0 |V.TC(I). 440....|
00000570: 01 99 20 49 24 22 20 22 3B 3A 50 B2 41 56 3A 89 |.. I$" ";:P.AV:.|
00000580: 20 34 34 30 00 8E 0D EA 01 82 20 4B 3A 8E 00 B8 | 440...... K:...|
00000590: 0D EF 01 8F 2D 2D 2D 4F 4E 45 20 56 4F 54 45 20 |....---ONE VOTE |
000005A0: 4F 4E 4C 59 2C 20 43 48 45 43 4B 20 4C 45 47 41 |ONLY, CHECK LEGA|
000005B0: 4C 20 4E 55 4D 42 45 52 00 DB 0D F4 01 4F 4B B2 |L NUMBER.....OK.|
000005C0: AB 31 3A 8F 20 43 41 4E 27 54 20 56 4F 54 45 20 |.1:. CAN'T VOTE |
000005D0: 54 57 49 43 45 20 43 48 45 43 4B 00 EA 0D FE 01 |TWICE CHECK.....|
000005E0: 8B 20 56 24 B2 22 22 A7 20 8E 00 01 0E 08 02 4F |. V$."". ......O|
000005F0: 4B B2 31 3A 81 20 4C B2 31 20 A4 20 C3 28 56 24 |K.1:. L.1 . .(V$|
00000600: 29 00 2A 0E 0D 02 8B 20 50 B2 C6 28 CA 28 56 24 |).*.... P..(.(V$|
00000610: 2C 4C 2C 31 29 29 AB 34 38 20 A7 20 4F 4B B2 30 |,L,1)).48 . OK.0|
00000620: 3A 99 22 45 52 52 4F 52 21 22 00 34 0E 12 02 82 |:."ERROR!".4....|
00000630: 20 4C 3A 8E 00 59 0E 17 02 8F 2D 2D 2D 42 55 49 | L:..Y....---BUI|
00000640: 4C 44 20 54 41 42 4C 45 53 20 46 52 4F 4D 20 44 |LD TABLES FROM D|
00000650: 41 54 41 20 4C 49 4E 45 53 00 62 0E 1C 02 4E 50 |ATA LINES.b...NP|
00000660: B2 30 00 8A 0E 26 02 87 20 56 24 3A 8B 20 56 24 |.0...&.. V$:. V$|
00000670: B2 22 2A 22 A7 20 8E 3A 8F 20 41 4C 4C 20 44 41 |."*". .:. ALL DA|
00000680: 54 41 20 52 45 41 44 20 49 4E 00 A9 0E 30 02 4E |TA READ IN...0.N|
00000690: 50 B2 4E 50 AA 31 3A 52 24 28 4E 50 29 B2 56 24 |P.NP.1:R$(NP).V$|
000006A0: 3A 87 20 4D 58 28 4E 50 29 00 B1 0E 3A 02 4D B2 |:. MX(NP)...:.M.|
000006B0: 30 00 E5 0E 44 02 87 20 56 24 3A 8B 56 24 B2 22 |0...D.. V$:.V$."|
000006C0: 2A 22 A7 20 54 43 28 4E 50 29 B2 4D 3A 89 20 36 |*". TC(NP).M:. 6|
000006D0: 30 30 3A 8F 20 53 55 42 47 52 4F 55 50 20 52 45 |00:. SUBGROUP RE|
000006E0: 41 44 20 49 4E 00 28 0F 4E 02 4D B2 4D AA 31 3A |AD IN.(.N.M.M.1:|
000006F0: 4E 24 28 4E 50 2C 4D 29 B2 56 24 3A 54 32 28 4E |N$(NP,M).V$:T2(N|
00000700: 50 2C 4D 29 B2 30 3A 89 20 35 38 30 3A 8F 20 4C |P,M).0:. 580:. L|
00000710: 4F 4F 50 20 46 4F 52 20 4D 4F 52 45 20 49 4E 20 |OOP FOR MORE IN |
00000720: 53 55 42 47 52 4F 55 50 00 4D 0F 58 02 89 20 35 |SUBGROUP.M.X.. 5|
00000730: 35 30 3A 8F 20 41 4C 57 41 59 53 20 4C 4F 4F 50 |50:. ALWAYS LOOP|
00000740: 20 54 49 4C 4C 20 46 49 4E 41 4C 20 2A 00 77 0F | TILL FINAL *.w.|
00000750: 5D 02 8F 2D 2D 2D 56 4F 54 45 20 45 4E 41 42 4C |]..---VOTE ENABL|
00000760: 45 20 43 48 45 43 4B 2C 20 45 4E 44 20 56 4F 54 |E CHECK, END VOT|
00000770: 49 4E 47 20 44 41 59 00 AC 0F 62 02 5A 24 B2 22 |ING DAY...b.Z$."|
00000780: 22 3A 51 24 B2 22 56 4F 54 45 22 3A 8F 20 45 4E |":Q$."VOTE":. EN|
00000790: 41 42 4C 45 20 56 4F 54 49 4E 47 20 42 59 20 34 |ABLE VOTING BY 4|
000007A0: 2D 4C 45 54 54 45 52 20 43 4F 44 45 00 E3 0F 67 |-LETTER CODE...g|
000007B0: 02 99 22 11 11 11 11 11 11 11 11 9E 45 4E 54 45 |..".........ENTE|
000007C0: 52 20 24 20 49 46 20 54 48 45 20 56 4F 54 49 4E |R $ IF THE VOTIN|
000007D0: 47 20 49 53 20 4F 56 45 52 91 91 91 91 91 91 91 |G IS OVER.......|
000007E0: 91 91 22 00 26 10 6C 02 99 22 9A 45 4E 54 45 52 |..".&.l..".ENTER|
000007F0: 20 43 4F 44 45 20 54 4F 20 45 4E 41 42 4C 45 20 | CODE TO ENABLE |
00000800: 56 4F 54 49 4E 47 3A 05 20 20 20 9D 9D 9D 22 3B |VOTING:. ...";|
00000810: 3A 4C 45 B2 34 3A 4E 55 B2 31 3A 41 4C B2 31 3A |:LE.4:NU.1:AL.1:|
00000820: 8D 36 30 35 30 30 00 64 10 80 02 8B 43 24 B2 22 |.60500.d....C$."|
00000830: 24 22 A7 20 45 46 B2 31 3A 8E 3A 8F 20 24 51 55 |$". EF.1:.:. $QU|
00000840: 49 54 53 20 41 4C 4C 20 56 4F 54 49 4E 47 20 2D |ITS ALL VOTING -|
00000850: 20 59 4F 55 20 43 41 4E 20 43 48 41 4E 47 45 20 | YOU CAN CHANGE |
00000860: 54 48 49 53 00 9D 10 8A 02 8F 20 50 52 49 4E 54 |THIS...... PRINT|
00000870: 20 43 24 3B 3A 52 45 4D 20 45 4E 41 42 4C 45 20 | C$;:REM ENABLE |
00000880: 46 4F 52 20 54 45 53 54 49 4E 47 20 42 59 20 52 |FOR TESTING BY R|
00000890: 45 4D 4F 56 49 4E 47 20 27 52 45 4D 27 00 B2 10 |EMOVING 'REM'...|
000008A0: 8F 02 8B 20 43 24 B2 51 24 20 A7 20 99 22 93 22 |... C$.Q$ . ."."|
000008B0: 3A 8E 00 C1 10 94 02 99 22 91 22 3B 3A 89 36 32 |:.......".";:.62|
000008C0: 30 00 F9 10 B7 02 8F 2D 2D 2D 53 54 4F 50 20 44 |0......---STOP D|
000008D0: 49 53 41 42 4C 45 20 2E 2E 2E 20 59 4F 55 20 43 |ISABLE ... YOU C|
000008E0: 41 4E 20 44 4F 20 59 4F 55 52 20 4F 57 4E 20 54 |AN DO YOUR OWN T|
000008F0: 48 49 4E 47 20 48 45 52 45 00 3A 11 BC 02 8F 20 |HING HERE.:.... |
00000900: 49 46 20 45 52 3D 33 30 20 54 48 45 4E 20 52 45 |IF ER=30 THEN RE|
00000910: 53 55 4D 45 3A 52 45 4D 20 53 54 4F 50 20 4B 45 |SUME:REM STOP KE|
00000920: 59 20 44 49 53 41 42 4C 45 20 2B 34 2C 43 31 36 |Y DISABLE +4,C16|
00000930: 2C 42 31 32 38 2C 43 31 32 38 00 7E 11 BD 02 8F |,B128,C128.~....|
00000940: 20 50 52 49 4E 54 22 45 52 52 4F 52 22 20 45 52 | PRINT"ERROR" ER|
00000950: 2C 45 52 52 24 28 45 52 29 22 20 49 4E 20 4C 49 |,ERR$(ER)" IN LI|
00000960: 4E 45 22 45 4C 3A 45 4E 44 3A 52 45 4D 20 2B 34 |NE"EL:END:REM +4|
00000970: 2C 43 31 36 2C 42 31 32 38 2C 43 31 32 38 00 A8 |,C16,B128,C128..|
00000980: 11 C5 02 8F 2D 2D 2D 53 54 52 55 43 54 55 52 45 |....---STRUCTURE|
00000990: 20 4F 46 20 44 41 54 41 20 59 4F 55 20 43 41 4E | OF DATA YOU CAN|
000009A0: 20 46 49 4C 4C 20 49 4E 00 E7 11 C6 02 8F 20 57 | FILL IN...... W|
000009B0: 48 4F 2C 56 4F 54 45 20 46 4F 52 20 48 4F 57 20 |HO,VOTE FOR HOW |
000009C0: 4D 41 4E 59 2C 4C 49 53 54 20 4F 46 20 4E 41 4D |MANY,LIST OF NAM|
000009D0: 45 53 2C 53 54 41 52 2C 53 54 41 52 20 41 54 20 |ES,STAR,STAR AT |
000009E0: 54 48 45 20 45 4E 44 00 F9 11 D0 02 83 20 50 52 |THE END...... PR|
000009F0: 45 53 49 44 45 4E 54 2C 31 00 1F 12 DA 02 83 20 |ESIDENT,1...... |
00000A00: 50 52 45 53 31 2C 50 52 45 53 32 2C 50 52 45 53 |PRES1,PRES2,PRES|
00000A10: 33 2C 22 50 52 45 53 34 2C 20 4D 44 22 2C 2A 00 |3,"PRES4, MD",*.|
00000A20: 36 12 E4 02 83 20 56 49 43 45 20 50 52 45 53 49 |6.... VICE PRESI|
00000A30: 44 45 4E 54 2C 31 00 4E 12 EE 02 83 20 56 50 31 |DENT,1.N.... VP1|
00000A40: 2C 56 50 32 2C 56 50 33 2C 56 50 34 2C 2A 00 60 |,VP2,VP3,VP4,*.`|
00000A50: 12 F8 02 83 20 53 45 43 52 45 54 41 52 59 2C 31 |.... SECRETARY,1|
00000A60: 00 77 12 02 03 83 20 53 45 43 31 2C 53 45 43 32 |.w.... SEC1,SEC2|
00000A70: 2C 53 45 43 33 2C 2A 00 89 12 0C 03 83 20 54 52 |,SEC3,*...... TR|
00000A80: 45 41 53 55 52 45 52 2C 31 00 B4 12 16 03 83 20 |EASURER,1...... |
00000A90: 54 52 45 41 53 31 2C 54 52 45 41 53 32 2C 54 52 |TREAS1,TREAS2,TR|
00000AA0: 45 41 53 33 2C 54 52 45 41 53 34 2C 54 52 45 41 |EAS3,TREAS4,TREA|
00000AB0: 53 35 2C 2A 00 CF 12 20 03 83 20 42 4C 41 43 4B |S5,*... .. BLACK|
00000AC0: 42 4F 41 52 44 20 43 4C 45 41 4E 45 52 2C 33 00 |BOARD CLEANER,3.|
00000AD0: EF 12 2A 03 83 20 42 43 31 2C 42 43 32 2C 42 43 |..*.. BC1,BC2,BC|
00000AE0: 33 2C 42 43 34 2C 42 43 35 2C 42 43 36 2C 2A 00 |3,BC4,BC5,BC6,*.|
00000AF0: F7 12 34 03 83 20 2A 00 19 13 3E 03 8F 2D 2D 2D |..4.. *...>..---|
00000B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 46 13 E8 03 8D 20 |---------.F.... |
00000B20: 35 30 30 3A 8B 20 4F 4B 20 A7 20 54 32 28 49 2C |500:. OK . T2(I,|
00000B30: 50 29 B2 54 32 28 49 2C 50 29 AA 31 3A 99 22 2E |P).T2(I,P).1:.".|
00000B40: 2E 2E 22 50 3A 8E 00 52 13 F2 03 4B B2 4B AB 31 |.."P:..R...K.K.1|
00000B50: 3A 8E 00 7E 13 D0 07 99 3A 99 3A 99 22 9E 20 20 |:..~....:.:.". |
00000B60: 20 20 20 20 52 45 54 55 52 4E 20 54 4F 20 4C 4F | RETURN TO LO|
00000B70: 41 44 53 54 41 52 3F 20 28 59 2F 4E 29 22 00 9C |ADSTAR? (Y/N)"..|
00000B80: 13 D2 07 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF |....A$:.A$.."Y".|
00000B90: 41 24 B3 B1 22 4E 22 A7 32 30 30 32 00 AA 13 D4 |A$.."N".2002....|
00000BA0: 07 8B 41 24 B2 22 4E 22 A7 8A 00 E4 13 DA 07 9F |..A$."N"........|
00000BB0: 31 35 2C 38 2C 31 35 2C 22 52 30 3A 48 45 4C 4C |15,8,15,"R0:HELL|
00000BC0: 4F 20 43 4F 4E 4E 45 43 54 3D 48 45 4C 4C 4F 20 |O CONNECT=HELLO |
00000BD0: 43 4F 4E 4E 45 43 54 22 3A 84 31 35 2C 45 52 25 |CONNECT":.15,ER%|
00000BE0: 3A A0 31 35 00 F3 13 E4 07 8B 45 52 25 B3 B1 36 |:.15......ER%..6|
00000BF0: 33 A7 80 00 0A 14 F8 07 93 22 48 45 4C 4C 4F 20 |3........"HELLO |
00000C00: 43 4F 4E 4E 45 43 54 22 2C 38 00 29 14 C4 EA 97 |CONNECT",8.)....|
00000C10: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,|
00000C20: 20 30 3A 99 22 93 8E 22 3B 00 51 14 CE EA 99 22 | 0:."..";.Q...."|
00000C30: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 99 4C 4F |..............LO|
00000C40: 41 44 53 54 41 52 1D 50 52 45 53 45 4E 54 53 3A |ADSTAR.PRESENTS:|
00000C50: 22 00 81 14 D8 EA 99 22 11 11 11 11 11 11 1D 1D |"......"........|
00000C60: 1D 1D 1D 1D 1D 1D 1D 1D 12 96 20 20 20 20 20 20 |.......... |
00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C80: 22 00 AA 14 E2 EA 99 22 1D 1D 1D 1D 1D 1D 1D 1D |"......"........|
00000C90: 1D 1D 12 20 20 20 20 20 20 20 45 4C 45 43 54 49 |... ELECTI|
00000CA0: 4F 4E 20 20 20 20 20 20 20 22 00 D3 14 EC EA 99 |ON "......|
00000CB0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 20 20 20 |"........... |
00000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CD0: 20 20 22 00 FC 14 F6 EA 99 22 1D 1D 1D 1D 1D 1D | "......"......|
00000CE0: 1D 1D 1D 1D 12 20 20 20 20 20 42 59 20 20 4C 49 |..... BY LI|
00000CF0: 5A 20 44 45 41 4C 20 20 20 20 20 22 00 25 15 00 |Z DEAL ".%..|
00000D00: EB 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 20 |.."........... |
00000D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D20: 20 20 20 20 22 00 4E 15 0A EB 99 22 1D 1D 1D 1D | ".N...."....|
00000D30: 1D 1D 1D 1D 1D 1D 12 20 20 20 20 43 4F 50 59 52 |....... COPYR|
00000D40: 49 47 48 54 20 31 39 38 38 20 20 20 20 22 00 77 |IGHT 1988 ".w|
00000D50: 15 14 EB 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |...."...........|
00000D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D70: 20 20 20 20 20 20 22 00 A9 15 1E EB 99 22 11 11 | "......"..|
00000D80: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 99 |................|
00000D90: 50 52 45 53 53 1D 53 50 41 43 45 1D 54 4F 1D 43 |PRESS.SPACE.TO.C|
00000DA0: 4F 4E 54 49 4E 55 45 13 22 00 BF 15 28 EB 8B C2 |ONTINUE."...(...|
00000DB0: 28 32 30 33 29 B3 B1 36 30 A7 36 30 32 30 30 00 |(203)..60.60200.|
00000DC0: C5 15 32 EB 8E 00 DC 15 54 EC 43 24 B2 22 22 3A |..2.....T.C$."":|
00000DD0: 97 31 39 38 2C 2E 3A 99 22 A4 22 3B 00 EA 15 5E |.198,.:.".";...^|
00000DE0: EC 81 41 B2 31 A4 4C 45 AA 31 00 FF 15 68 EC A1 |..A.1.LE.1...h..|
00000DF0: 41 24 3A 8B 41 24 B2 22 22 A7 36 30 35 32 30 00 |A$:.A$."".60520.|
00000E00: 11 16 6D EC 8B 41 24 B2 22 24 22 A7 36 30 35 39 |..m..A$."$".6059|
00000E10: 35 00 27 16 72 EC 8B 41 24 B2 C7 28 31 33 29 A7 |5.'.r..A$..(13).|
00000E20: 99 22 9D 20 22 3A 8E 00 5F 16 7C EC 8B 41 24 B2 |.". ":.._.|..A$.|
00000E30: C7 28 32 30 29 AF 41 B1 31 A7 99 22 9D 9D 20 20 |.(20).A.1..".. |
00000E40: 9D 9D A4 22 3B 3A 41 B2 41 AB 31 3A 43 24 B2 C8 |...";:A.A.1:C$..|
00000E50: 28 43 24 2C 41 AB 31 29 3A 89 36 30 35 32 30 00 |(C$,A.1):.60520.|
00000E60: 73 16 86 EC 8B 28 41 B2 4C 45 AA 31 29 A7 36 30 |s....(A.LE.1).60|
00000E70: 35 32 30 00 99 16 90 EC 8B 28 4E 55 29 AF 28 28 |520......(NU).((|
00000E80: 41 24 B1 B2 22 30 22 29 AF 28 41 24 B3 B2 22 39 |A$.."0").(A$.."9|
00000E90: 22 29 29 A7 36 30 35 39 35 00 CF 16 9A EC 8B 28 |")).60595......(|
00000EA0: 41 4C 29 AF 28 28 41 24 B1 B2 22 20 22 AF 41 24 |AL).((A$.." ".A$|
00000EB0: B3 B2 22 2F 22 29 B0 28 41 24 B1 B2 22 3A 22 AF |.."/").(A$..":".|
00000EC0: 41 24 B3 B2 22 5A 22 29 29 A7 36 30 35 39 35 00 |A$.."Z")).60595.|
00000ED0: F2 16 A4 EC 8B 28 41 4C 29 A7 8B 28 41 24 B1 B2 |.....(AL)..(A$..|
00000EE0: 22 C1 22 AF 41 24 B3 B2 22 DA 22 29 A7 36 30 35 |".".A$..".").605|
00000EF0: 39 35 00 FD 16 AE EC 89 36 30 35 32 30 00 21 17 |95......60520.!.|
00000F00: B3 EC 99 22 9D 22 41 24 3B 3A 97 32 31 32 2C 2E |..."."A$;:.212,.|
00000F10: 3A 99 22 A4 22 3B 3A 43 24 B2 43 24 AA 41 24 3A |:.".";:C$.C$.A$:|
00000F20: 82 00 00 00 |.... |
..!.D..60100:.".":. TITLE SCREEN.;.N..
SAVE"0:ELECTIONS",8.`.... TRAP 700 :REM
+4,C16,B128,C128.U....---MAIN PROGRAM...
..NP.20:M.9:. MAX POSITIONS,CANDIDATES/O
FFICE.R.... R$(NP),MX(NP),TC(NP),N$(NP,M
),T2(NP,M)... .. 540:. READ IN DATA.....
NV.1.2....". .VOTER #."NV:EF
.0:."...":. 610:. EF . 210.J...V..1:. 23
0:. VOTING.\.H.NV.NV.1:. 180.{.R.V.0:. 2
30::. PRINT RESULTS......2000......---VO
TING SCREEN OR RESULTS...... IF YOU HA
VE 'PRINT USING' YOU CAN MAKE THIS NICER
...... I.1 . NP.......V.."....RESULTS.."
:.238.!...."....VOTING..".,....R$(I).H..
.. V . .".VOTE FOR"MX(I).N.......... J.1
. TC(I):. "."I(" ".D(J),2)" ."N$(I,J);
...... . V . . T2(I,J)"VOTES";..........
.. J.E.".. V . . 360:. EF . ..W.,.. . V
. . 320...6.. I:....;..---ANY KEY; IF YO
U HAVE 'GET KEY' YOU CAN USE THIS HERE.6
.@..:."PRESS ANY KEY";.X.J..198,.:. EMPT
Y KEYBOARD QUEUE...T.. I$:. I$."". 340:.
NOW WAIT FOR KEY TO CONTINUE...^.....C.
.---ADD POINT IF LEGAL VOTE.A.H.V$."":P.
0...R..".ENTER A NUMBER AND RETURN OR PU
SH *"...|.."FOR NO VOTE. YOU CAN CHANGE
YOUR MIND".V...."BEFORE PUSHING RETURN.
.":. MESSAGE FITS IN 40COLUMNS......"...
...PRESS F7 TO RETURN TO LOADSTAR.....".
....OK.1:. K.1 . MX(I):. GET VOTE.A....
MX(I).1 . .".#"K;.W....".YOUR VOTE: .";.
.....OK.1.V$.V$.G(P.48)...... I$:. I$.""
. 440......I$.".".2000./.B.AV.F(I$):. AV
.42 . ..H.L.. AV.13 . .1000:.490.L.V.AV.
AV.48:. AV.1 . AV.TC(I). 440...... I$" "
;:P.AV:. 440...... K:.......---ONE VOTE
ONLY, CHECK LEGAL NUMBER.....OK..1:. CAN
'T VOTE TWICE CHECK...... V$."". ......O
K.1:. L.1 . C(V$).*.... P.F(J(V$,L,1)).4
8 . OK.0:."ERROR!".4.... L:..Y....---BUI
LD TABLES FROM DATA LINES.B...NP.0...&..
V$:. V$."*". .:. ALL DATA READ IN...0.N
P.NP.1:R$(NP).V$:. MX(NP)...:.M.0...D..
V$:.V$."*". TC(NP).M:. 600:. SUBGROUP RE
AD IN.(.N.M.M.1:N$(NP,M).V$:T2(NP,M).0:.
580:. LOOP FOR MORE IN SUBGROUP.M.X.. 5
50:. ALWAYS LOOP TILL FINAL *.W.]..---VO
TE ENABLE CHECK, END VOTING DAY...B.Z$."
":Q$."VOTE":. ENABLE VOTING BY 4-LETTER
CODE...G..".........ENTER $ IF THE VOTIN
G IS OVER.........".&.L..".ENTER CODE TO
ENABLE VOTING:. ...";:LE.4:NU.1:AL.1:
.60500.D....C$."$". EF.1:.:. $QUITS ALL
VOTING - YOU CAN CHANGE THIS...... PRINT
C$;:REM ENABLE FOR TESTING BY REMOVING
'REM'...... C$.Q$ . .".":..A....".";:.62
0......---STOP DISABLE ... YOU CAN DO YO
UR OWN THING HERE.:.... IF ER=30 THEN RE
SUME:REM STOP KEY DISABLE +4,C16,B128,C1
28.~.... PRINT"ERROR" ER,ERR$(ER)" IN LI
NE"EL:END:REM +4,C16,B128,C128...E..---S
TRUCTURE OF DATA YOU CAN FILL IN...F.. W
HO,VOTE FOR HOW MANY,LIST OF NAMES,STAR,
STAR AT THE END...P.. PRESIDENT,1...Z..
PRES1,PRES2,PRES3,"PRES4, MD",*.6.... VI
CE PRESIDENT,1.N.... VP1,VP2,VP3,VP4,*.`
.... SECRETARY,1.W.... SEC1,SEC2,SEC3,*.
..... TREASURER,1...... TREAS1,TREAS2,TR
EAS3,TREAS4,TREAS5,*.O. .. BLACKBOARD CL
EANER,3...*.. BC1,BC2,BC3,BC4,BC5,BC6,*.
..4.. *...>..---------------------------
-.F.... 500:. OK . T2(I,P).T2(I,P).1:.".
.."P:..R...K.K.1:..~.P..:.:.". RETU
RN TO LOADSTAR? (Y/N)"...R..A$:.A$.."Y".
A$.."N".2002...T..A$."N".....Z..15,8,15,
"R0:HELLO CONNECT=HELLO CONNECT":.15,ER%
: 15......ER%..63........"HELLO CONNECT"
,8.).D..53280,14:.53281, 0:."..";.Q.N.."
..............LOADSTAR.PRESENTS:"...X.."
..................
"......"........... ELECTION
".S...."...........
"......"........... BY LIZ DEAL
".%...."...........
".N...."........... COPYRIGHT 198
8 ".W...."...........
"......"..................PRESS.SP
ACE.TO.CONTINUE."...(..B(203)..60.60200.
E.2.....T.C$."":.198,.:.".";...^..A.1.LE
.1...H..A$:.A$."".60520...M..A$."$".6059
5.'.R..A$.G(13)..". ":.._.|..A$.G(20).A.
1..".. ...";:A.A.1:C$.H(C$,A.1):.60520.
S....(A.LE.1).60520......(NU).((A$.."0")
.(A$.."9")).60595.O....(AL).((A$.." ".A$
.."/").(A$..":".A$.."Z")).60595......(AL
)..(A$.."A".A$.."Z").60595......60520.!.
..."."A$;:.212,.:.".";:C$.C$.A$:....
> CLICK IMAGE PREVIEW FOR FULL MODAL