*IOCS(CARD,1132PRINTER) 
*IOCS (TYPEWRITER,KEYBOARD) 
      CALL DATSW(1,IS1) 
      GO TO (20,999),IS1
   20 CALL DATSW(2,IS2) 
      GO TO(999,30),IS2 
   30 CALL DATSW(3,IS3) 
      GO TO (40,999),IS3
   40 CONTINUE
   10 WRITE(3,2)
    2 FORMAT(1H1,/,1H0,74X,4('8'),/1H ,70X,3('8'),4X,3('8'),/ 
     11H ,68X,2('8'),9X,4('8'),/
     21H ,66X,'88',13X,4('8'),/1H ,66X,'8',15X,4('8'),/ 
     31H ,65X,'8',5X,'8',11X,3('8'),/ 
     41H ,64X,'88 8  8 8',9X,2('8',3X),/
     51H ,63X,'88 ',8('8'),13X,'8',/,1H ,62X,12('8'),13X,'8'/)
      WRITE(3,21) 
   21 FORMAT(1H&,61X,13('8'),13X,'00',/,1H ,60X,14('8'),11X,'000 888',/ 
     11H ,59X,15('8'),10X,4('0'),3X,10('8'),/ 
     21H ,58X,16('8'),10X,'00',14X,'888',/
     31H ,18X,11('8'),28X,17('8'),27X,'888',/ 
     41H ,16X,'888',4X,'88   ',6('8'),23X,16('8'),30X,'88',/) 
      WRITE(3,3)
    3 FORMAT(1H&,14X,'88',18X,5('8'),18X,16('8'),32X,'88',/ 
     11H ,12X,'8',7X,8('8'),11X,'88',16X,15('8'),35X,'88',/ 
     21H ,11X,'88',6X,7('8'),14X,'888',14X,13('8'),39X,'8',/
     31H ,9X,'88',5X,9('8'),16X,6('8'),10X,12('8'),41X,'8',/
     41H ,7X,'88',5X,'88',8X,'88',16X,8('8')8X,10('8'),42X,'80',/)
      WRITE(3,31) 
   31 FORMAT(1H&,6X,'8',5X,'88',10X,'88',17X,9('8'),6X,9('8'),
     18X,4('8'),30X,'80000',/ 
     21H ,5X,'8',3X,'88',13X,'88',18X,14('8'),1X,6('8'),
     38X,'88',3X,'8888',26X,'8',6('0'),/
     41H ,4X,'8',2X,'88',15X,'8',20X,8('8'),
     57X,'888',9X,'88',8X,'888',22X,'88',6('0'),/)
      WRITE(3,4)
    4 FORMAT(1H&,3X,2('8',1X),14X,'88 8',23X,5('8'),9X,'888',5X,'88', 
     113X,'8888',17X,'88',6('0'),/
     21H ,3X,'88',15X,'8  88',16X,'8',21X,'888',3X,'88',18X,
     36('8'),8X,'888',3X,'000',/
     41H ,3X,2('8',16X),5X,'8',22X,5('8'),26X,8('8'),/
     51H ,2(20X,'8'),23X,'88',/)
      WRITE(3,41) 
   41 FORMAT(1H&,20X,'88',19X,'8',11X,'8',5X,'8',5X,'88',/
     11H ,20X,'88',18X,'88',11X,'8',5X,'8',2X,'88',/) 
      WRITE(3,5)
    5 FORMAT(1H&,21X,'88',8X,'88',6X,'888',11X,'8',5X,'888',/ 
     11H ,22X,'88',7X,'888',4X,'88',2X,12('8'),4X,'8 8',/ 
     21H ,23X,'88',6X,'8',2X,5('8'),3X,13('8'),4X,'8',8X,6('8'),/ 
     31H ,23X,'88',6X,'8',9X,'8 8',9X,'88',4X,'8',6X,'88',6X,'8',/
     41H ,21X,'88',8X,'8',8X,'88 8',10X,'88',4X,'8',3X,'88',4X,5('8'),/)
      WRITE(3,6)
    6 FORMAT(1H&,19X,6('8'),6X,'8',8X,4('8'),4X,5('8'),1X,'88',5X,
     1'888',9X,'88',/)
      WRITE(3,7)
    7 FORMAT(1H&,18X,'88',11X,'8',8X,2('88',4X),2X,'88',6X,'8',9X,'88',/
     11H ,18X,5('8'),8X,'8',9X,6('8'),8X,'88',11X,5('8'),/
     21H ,18X,'88',9X,'888',10X,4('8'),9X,2('88',12X),/ 
     31H ,19X,10('8'),27X,'8',11X,'88',/,1H ,57X,'8',8X,'88',/
     41H ,58X,'8',5X,'88',/,1H ,59X,5('8'),/) 
      WRITE(3,8)
    8 FORMAT(/,1H ,27X,'C O M P U T E R M U S E U M   D E R   F A K U L 
     1T A E T   5',/,36X,'U N I V E R S I T A E T   S T U T T G A R T') 
      CALL DATSW (0,J)
      GO TO (999,10),J
  999 CALL EXIT 
      END 
