Code used in episodes 2 and 10 of season 3 of Knight Rider

knightrider.bas

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 CHOICE OF"
1400  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
1500  PRINT "     THESE AND OTHER"
1600  PRINT "     STORIES CAN BE SEEN"
1700  PRINT "     ON THE AMAZING"
1800  PRINT "     CANTERBURY STORIES"
1900  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
2000  PRINT "     KNIGHT INDUSTRIES"
2100  PRINT "     TWO THOUSAND"
2200  PRINT "     LOADED AND READY"
2300 NEXT G