1               /IN CASE WE START IN 8 MODE
   2               *200
   3                       LMODE
   4 000200  6141          LINC            / SWITCH TO LINC MODE
   5 000201  0602          LIF 2           / FIELD 2 (04000)
   6 000202  6020          JMP A           / START IT UP
   7               *20
   8               /KALEID
   9               /PDP12 VERSION OF 
  10               /KALEIDOSCOPE
  11               /SCOPE PATTERN CHANGES
  12               /BY SAM7 + SAM10
  13               /PATTERN WILL CHANGE WITH
  14               /PREAMP INPUT INTO A-D 10
  15               /CREATED ON 7-12-69 BY
  16               /MICHAEL I. GAGE
  17               *4020
  18               LMODE
  19 000020  1020  A, LDA I
  20 000021  0000  0000
  21 000022  0340  SCR 0
  22 000023  0017  COM 
  23 000024  1140  ADM
  24 000025  0034  .+7
  25 000026  1560  BCL I
  26 000027  4000  4000
  27 000030  4001  STC 1
  28 000031  2043  ADD .+12
  29 000032  0141  DIS 1
  30 000033  1020  LDA I
  31 000034  1777  1777
  32 000035  0340  SCR 0
  33 000036  1140  ADM
  34 000037  0021  .-16
  35 000040  1120  ADA I
  36 000041  1400  -6377
  37 000042  1060  STA I
  38 000043  0000  0000
  39 000044  0141  DIS 1
  40 000045  0107  SAM 7
  41 000046  4051  STC .+3
  42 000047  0110  SAM 10
  43 000050  1120  ADA I
  44 000051  0107  SAM 7
  45 000052  0451  APO
  46 000053  6020  JMP A
  47 000054  1560  BCL I
  48 000055  7774  7774
  49 000056  0470  AZE I
  50 000057  6020  JMP A
  51 000060  1120  ADA I
  52 000061  0340  SCR 0
  53 000062  1040  STA
  54 000063  0022  A+2
  55 000064  4035  STC A+15
  56 000065  6020  JMP A
  57               $