--- title: "We-They Scorepad" id: 76673 type: "computer_media" slug: "we-they-scorepad" url: "http://localhost/computer_media/we-they-scorepad/" markdown_url: "http://localhost/computer_media/we-they-scorepad.md" published_at: "2026-11-11T08:02:11+00:00" modified_at: "2026-11-11T08:02:11+00:00" author: "David Anderson" featured_image: url: "http://localhost/wp-content/uploads/2026/11/we-they-scorepad-1.png" excerpt: "Keep score for two players or teams on a scorepad screen that shows each entry, the running totals and the winning score." post_tag: - name: "Downloadable" slug: "downloadable" taxonomy: "post_tag" url: "http://localhost/tag/downloadable/" - name: "TS 1000" slug: "ts1000" taxonomy: "post_tag" url: "http://localhost/tag/ts1000/" - name: "ZX81" slug: "zx81" taxonomy: "post_tag" url: "http://localhost/tag/zx81/" model: - name: "Sinclair ZX81" slug: "zx81" taxonomy: "model" url: "http://localhost/model/zx81/" - name: "Timex/Sinclair 1000" slug: "ts-1000" taxonomy: "model" url: "http://localhost/model/ts-1000/" indiv: - name: "Harold Hart" slug: "harold-hart" taxonomy: "indiv" url: "http://localhost/indiv/harold-hart/" genre: - name: "Utility" slug: "utility" taxonomy: "genre" url: "http://localhost/type/utility/" media_type: "Program" programmers: - name: "Harold Hart" slug: "harold-hart" taxonomy: "indiv" url: "http://localhost/indiv/harold-hart/" download_url: "https://archive.org/download/timex-sinclair-software-archive/We-They%20Scorepad%20%281983%29%28Hart%2C%20Harold%29%28TS1000%29%28CA%29%28Program%29.zip" mediadate: "1983" images: - url: "http://localhost/wp-content/uploads/2026/11/we-they-scorepad-1.png" - url: "http://localhost/wp-content/uploads/2026/11/we-they-scorepad-2.png" - url: "http://localhost/wp-content/uploads/2026/11/we-they-scorepad-3.png" article_media: - id: 19622 title: "We-They Scorepad" type: "article" url: "http://localhost/article/we-they-scorepad/" media_type_tags: "Utility" license: false --- # We-They Scorepad An on-screen scorepad for card games and other two-sided games. Enter the name of the game and the winning score, say whether each round’s WE and THEY scores must add up to a fixed total, and confirm. Then enter the WE and THEY score for each round; the pad shows each entry beside the running totals. When one side reaches the winning score, the screen scrolls away and announces the result. Press ENTER for a new game. After 13 rounds without a winner, the pad scrolls off and reappears so the prompt stays on screen. Save the program with RUN 620. Published in Syntax October 1983 ([We-They Scorepad](https://timexsinclair.com/article/we-they-scorepad/)). ## Source Code ``` 1 REM "WE-THEY" 2 LET J=4 5 LET C=0 6 LET T=0 10 LET A$="▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀" 12 LET B$="▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄" 14 LET W$="0" 15 LET S$="0" 16 LET WT=0 17 LET TW=0 18 LET T$="0" 19 LET J$="0" 20 GOTO 500 90 FOR N=1 TO 18 92 SCROLL 94 NEXT N 100 PRINT ;AT 16,2;"** ";SC;" **";AT 17,22;"▛▀▀▀▀▀▀▀▀▜";TAB 0;A$;TAB 22;"▌ SCORE ▐";TAB 11-INT (.5*LEN N$);N$;TAB 22;"▌ ▐";TAB 0;B$;TAB 22;"▌ ▐";TAB 22;"▙▄▄▄▄▄▄▄▄▟" 101 LET K=0 102 SCROLL 104 PRINT TAB 8;"WE";TAB 14;"THEY" 105 SCROLL 106 PRINT "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒" 107 SCROLL 108 PRINT TAB 11;"▒" 109 SCROLL 110 GOSUB 310 111 LET J=J+1 112 LET U=0 113 PRINT AT 20-J,27;" ";AT 20-J,25;"WE ??";AT 20-(J-1),27;" " 114 INPUT D$ 116 GOSUB 400 117 PRINT AT 20-J,27;" ";AT 20-J,31-LEN D$;D$ 118 LET W$=D$ 120 PRINT AT 20-(J-1),27;" ";AT 20-(J-1),23;"THEY ??" 121 LET U=1 122 INPUT D$ 124 GOSUB 400 125 PRINT AT 20-(J-1),27;" ";AT 20-(J-1),31-LEN D$;D$ 126 LET T$=D$ 128 GOSUB 295 130 IF K=13 THEN LET J=4 133 IF K=13 THEN GOTO 90 135 GOTO 111 295 LET TT=VAL W$+VAL T$ 296 IF TT<0 THEN LET TT=ABS TT 298 IF C=9 AND T<>TT THEN GOTO 113 300 SCROLL 302 LET WT=WT+VAL W$ 303 LET S$=STR$ WT 304 LET TW=TW+VAL T$ 305 LET J$=STR$ TW 310 PRINT AT 21,4-LEN W$;W$;;TAB 10-LEN S$;S$;TAB 11;"▒";TAB 17-LEN J$;J$;TAB 23-LEN T$;T$ 312 LET K=K+1 313 IF S$=J$ THEN GOTO 315 314 IF VAL S$>=SC OR VAL J$>=SC THEN GOTO 550 315 RETURN 400 IF D$="" AND U=0 THEN GOTO 113 402 IF D$="" AND U=1 THEN GOTO 122 404 FOR A=1 TO LEN D$ 406 IF D$(A)=CHR$ 22 THEN NEXT A 408 IF D$(A)CHR$ 37 THEN GOTO 412 410 NEXT A 411 RETURN 412 IF U=0 THEN GOTO 113 414 IF U=1 THEN GOTO 122 500 PRINT AT 2,0;A$;TAB 4;"WE-THEY SCOREPAD";TAB 0;B$ 502 PRINT AT 6,0;"NAME OF GAME ???" 504 INPUT M$ 505 LET N$=M$ 506 IF LEN M$>18 THEN LET N$=M$(1 TO 18) 507 PRINT AT 7,12;N$ 508 PRINT AT 9,0;"WINNING SCORE ???" 510 INPUT SC 512 PRINT AT 10,20;SC 514 PRINT AT 12,0;"DOES THE TOTAL OF EACH ""WE-THEY""";TAB 0;"INPUT HAVE TO EQUAL";TAB 0;"A SET VALUE ?" 516 GOSUB 600 518 IF E$="Y" THEN GOTO 522 520 GOTO 528 522 PRINT AT 16,0;"ENTER VALUE..." 523 LET C=9 524 INPUT T 526 PRINT AT 17,20;T 528 PRINT AT 19,0;"SATISFIED ?" 530 GOSUB 600 538 CLS 540 IF E$="N" THEN GOTO 500 542 GOTO 100 550 GOSUB 700 556 PRINT AT 5,0;N$;TAB 0;A$(1 TO 18);AT 9,0;A$;TAB 0;"GAME FINISHED...";;TAB 0;B$;TAB 6;"▌";TAB 6;"▌";TAB 10;"WE - ";S$;TAB 6;"▌";TAB 6;"▌";TAB 8;"THEY - ";J$ 558 PRINT AT 20,0;"HIT ENTER FOR NEW GAME..." 560 INPUT E$ 561 LET W$="0" 562 LET T$="0" 563 LET S$="0" 564 LET J$="0" 565 LET J=4 566 LET WT=0 568 LET TW=0 570 GOSUB 700 575 GOTO 100 600 PRINT TAB 20;"(Y-OR-N) ???" 602 IF INKEY$="Y" OR INKEY$="N" THEN GOTO 605 603 GOTO 602 605 LET E$=INKEY$ 606 POKE 16442,PEEK 16442+1 608 PRINT TAB 20;" ";E$;" " 610 FOR N=1 TO 20 612 NEXT N 615 RETURN 620 SAVE "SCORE" 625 GOTO 2 700 FOR N=0 TO 21 702 SCROLL 703 NEXT N 705 RETURN ```