Comments on CK Type

Stan Lemke wrote a great little 2068 program which appeared in the May/June ’87 issue of TDM called CK TYPE. CK TYPE gives you a quick check of the listings you have typed in from TDM to see if you have made any errors. But so far, I’ve only seen Stan using it! Well, I intend to repent of this slothfulness on my part by including CK TYPE reports with each listing. This will help all the readers who type in my programs nip their entry problems in the bud.

I’ve also taken the liberty to condense Stan’s BASIC version into a “one-liner”. With a few tricks his whole program fit into one line (9999) and this can be easily MERGEd to a listing and RUN to give an evaluation. This “one line” version appears in Listing 1.1, and a report on itself is found in Figure 1.1. To do this self check, you will have to enter and run it as line 999 not 9999. It has an added facility to kip its own line 9999 in its evaluation. It also starts wanting you to enter the name of the program you are analyzing so it can properly title the output. I hope Stan won’t mind me refining his little gem! And come on programmers, let’s start using it!

Listing 1.1

9999 INPUT k$: LPRINT k$;" CK TY
PE report:"'': LET d=256: LET g=
23636: LET b=d*PEEK g+PEEK (g-1)
: FOR h=1 TO g*2: LET e=0: LET f
=d*PEEK b+PEEK (b+1): IF f<>9999
 THEN LET a=d*PEEK (b+3)+PEEK (b
+2): LET b=b+4: LET j=1: FOR i=1
 TO a: LET e=e+(j+1)*PEEK b: LET
 j=NOT j: LET b=b+1: NEXT i: FOR
 c=2 TO 3: PRINT #c;f;TAB 8;": "
;a;TAB 16;": ";e: NEXT c: NEXT h

Figure 1.1

short version CK TYPE report:

999     : 319     : 29480