---
title: "SuperCheck"
id: 70844
type: "computer_media"
slug: "supercheck"
url: "http://localhost/computer_media/supercheck/"
markdown_url: "http://localhost/computer_media/supercheck.md"
published_at: "2026-08-23T15:08:01+00:00"
modified_at: "2026-08-23T15:08:01+00:00"
author: "David Anderson"
featured_image:
  url: "http://localhost/wp-content/uploads/2026/08/supercheck.png"
  alt: "SuperCheck screen"
category:
  - name: "Archived Media"
    slug: "archived-media"
    taxonomy: "category"
    url: "http://localhost/category/archived-media/"
post_tag:
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
media_type: "Program"
download_url: "https://archive.org/download/timex-sinclair-software-archive/SuperCheck%20%28198x%29%28-%29%28TS2068%29%28US%29%28Program%29.zip"
tsrun_member: "SuperCheck (198x)(-)(TS2068)(US)(Program).tap"
mediadate: "198x"
images:
  - url: "http://localhost/wp-content/uploads/2026/08/supercheck.png"
    alt: "SuperCheck screen"
---

# SuperCheck

## Source Code

```
  100 INK 0: PAPER 6: BORDER 6
  300 DIM b(100): DIM c(100)
  400 CLS : PRINT TAB 3;"DON'S  CHECKING BALANCE"
  405 LPRINT TAB 3;"DON'S  CHECKING BALANCE"
  406 PRINT AT 10,5;"REMEMBER:  BAL-->B$"
  407 PRINT "                CHG-->B$"
  408 PRINT "                V/d-->B$"
  409 PRINT "                MONTH>A$"
  410 PRINT "                VOID->C$"
  500 PRINT AT 3,0;"STATUS?    Just use the first   digit for the month desired...  Or the full date for individual search/pull... ENTER for all...": INPUT n$: CLS : LPRINT "SEARCHING FOR: ";n$: PRINT "SEARCHING FOR: ";n$
  504 IF n$=" STOP " THEN STOP 
  505 LPRINT : LPRINT "STATUS?  Press ENTER to continue": LPRINT n$
  510 PRINT : PRINT "DATE:    CHECK:  PAID:  REM:"
  515 LPRINT : LPRINT "DATE:       DUE:   PAID:  REM:"
  520 PRINT "--------------------------------"
  525 LPRINT "--------------------------------"
  600 LET x=LEN n$: LET ct=0: LET c=1
  610 READ a$,b$,c(c),c$: LET y=LEN a$
  611 LET c(c)=-c(c)-.30
  612 IF b$="V/d" THEN LET c(c)=-c(c)-.30
  613 IF b$="BAL" THEN LET c(c)=-c(c)-.30
  614 IF b$="CHG" THEN LET c(c)=c(c)+.30
  615 IF a$="MONTH" THEN LET c(c)=0: LET c=1
  616 IF b$="V/w" THEN LET c(c)=c(c)+.15
  617 IF c$="VOID" THEN LET c(c)=c(c)+.30
  618 POKE 23692,255
  620 IF a$="z" THEN GO TO 800
  640 FOR s=1 TO y-x+1
  650 IF n$=a$(s TO s+x-1) THEN GO TO 700
  660 NEXT s
  670 GO TO 610
  710 PRINT a$;TAB 10;b$;TAB 14;c(c);TAB 22;c$
  720 LPRINT a$;TAB 10;b$;TAB 14;c(c);TAB 22;c$
  730 LET ct=ct+c(c): LET c=c
  731 LET ct=INT (ct*100+.5)/100
  735 IF a$="MONTH" THEN LET ct=0: LET c=1
  740 GO TO 610
  800 PRINT "================================"
  810 LPRINT "================================"
  815 IF ct<=0 THEN PRINT "TOTAL USABLE BALANCE: "; FLASH 1; PAPER 6; INK 2;TAB 22;"$";ct: GO TO 830
  820 PRINT "TOTAL USABLE BALANCE:";TAB 22;"$";ct
  830 LPRINT "TOTAL USABLE BALANCE:";TAB 22;"$";ct
  840 PRINT "================================"
  850 LPRINT "================================"
  999 SAVE "checkbal"
 1000 DATA "JUL/85","BAL",36.21,"BAL FWD"
 1001 DATA "JUL 01/85","CHG",3,"BANK CHG"
 1002 DATA "JUL 01/85","A/d",13.35,"LIFE INS"
 8998 DATA "z","1",1,"Z"
 8999 STOP 
 9999 SAVE "@1,ck" LINE 0: CLS : PRINT AT 10,6;"VERIFYING ""ck""": VERIFY "@ck": PRINT AT 10,6;" ""@ck""VERIFIED": BEEP .1,.05: BEEP .1,.15: BEEP .1,.05: BEEP .1,.15: BEEP .1,.05: BEEP .1,.15: PAUSE 400: RUN
```