ao2.it
Antonio Ospite, attacchi teoristici

I was watching a Knight Rider episode (namely from Season 3, Episode 1: Knight of the Drones) and I spotted some source code of a program listed by KITT.

This was found out by Alden Bates already in 2007, he talks about it in the blog post titled KITT was programmed in BASIC.

Here is a video snippet of the scene where the code shows up:

The exact quote introducing the listing:

Michael: That chopper could be it. See if you can get me a reading on it.

Here is the transcription of the code:

1  SPEED= 240
50  HOME
55  INPUT "";W$
70  HTAB 9
82  HTAB 9
85  PRINT
90  FOR A = 1 TO 30
100 R =  RND (9)
140  HTAB 1
150  PRINT  SIN (R),
151  HTAB 7: PRINT "      ",
155  HTAB 12
160  PRINT  COS (R),
161  HTAB 19: PRINT "      ",
165  HTAB 24
170  PRINT  TAN (R),
171  HTAB 28: PRINT "       ",
200  NEXT A
300  HOME
350  FOR G = 1 TO 3
400  PRINT "MARK MARSHALL 3526-3782"
410  PRINT "DON SHARP     2415-3816"
420  PRINT "BILL STARK    3454-3921"
430  PRINT "KURT BORG     5647-2931"
440  PRINT "LEROY JOESEPH 5473-3333"
450  PRINT "KEVIN DOWNEY  9990-6969"
460  PRINT "ERIC VESPER   2738-4628"
470  PRINT "MIMI SOUDAN   3425-2837"
480  PRINT "C. GIBSON     3516-9827"
490  PRINT "CHRIS MILLER  4622-2819"
500  PRINT "JOHN SITCOM   2516-3981"
510  PRINT "STEVE PENCE   3617-2938"
520  PRINT "PHIL MORITS   5783-4720"
530  PRINT "MARK FOSTER   4537-1984"
540  PRINT "DEKE MILLER   4527-4729"
550  PRINT "BRAD REYZE    3541-3721"
560  PRINT "RANDY RODGERS 4627-4478"
570  PRINT "DENNIS PARR   3621-2836"
590  PRINT "DAN BUCK      4526-4627"
600  PRINT "A.J. MCDONALD 3619-8972"
610  PRINT "IAN WAYNE     3276-8567"
620  PRINT "JIM DAWSON    4562-4362"
630  PRINT "JUDY ALLEN    5171-9292"
640  PRINT "DAVID CAZARUS 9475-4627"
650  PRINT "MIKE CRAVEN   4562-7829"
660  PRINT "BILL BUSAK    3546-3719"
670  PRINT "HELEN DAVIS   5632-1938"
680  PRINT "CHRIS ALSIP   1113-7858"
690  PRINT "BRUCE GOLSKI  4451-1031"
695  PRINT "DAVE DEVLIN   2541-5463"
700  NEXT G
800  HOME
850  FLASH
875  HTAB 7
880  VTAB 3
900  PRINT "SYSTEMS DEVICE LOADING 5.2"
950  NORMAL
960  FOR G = 1 TO 3
975  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
990  PRINT : PRINT : PRINT : PRINT : PRINT
1000  PRINT "     WHAT THE HECK"
1100  PRINT "     THE JURY DECISION"
1200  PRINT "     TO DENY MAYOR SMITH"
1300  PRINT "     HIS CHOICHE OF"

The code is in Applesoft BASIC.

It can be run on an Apple II or in an emulator, I tried on the Applesoft BASIC in Javascript by Joshua Bell, and also in linapple after creating an appropriate disk image.

For the records, some tools to deal with Apple II disk images are: CiderPress, AppleCommander and dos33fsprogs.

Under GNU/Linux dos33fsprogs is the easiest to use, see a quick tutorial.

Here is a video I made of the code being listed and then run:

Attached there are all the files needed to run the program (kitt.dsk is the ready to use disk image).

File allegati: 

Applesoft BASIC source code

Tokenized Applesoft BASIC program

DOS3.3 disk image with the program listed by KITT