Skip to content

Instantly share code, notes, and snippets.

@jgrahamc
Created May 12, 2017 20:31
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save jgrahamc/fe64fac1fc9cb46d6fbc82a7db440af2 to your computer and use it in GitHub Desktop.
Save jgrahamc/fe64fac1fc9cb46d6fbc82a7db440af2 to your computer and use it in GitHub Desktop.
Code used in episodes 2 and 10 of season 3 of Knight Rider
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment