14  REM***************************************************************
20  REM
30  REM       ROUTINE WHICH SETS UP RESTART FILE
40  REM       RESTART FILE IS INDEX FILE OF 3 RECORDS
50  REM       FIRST RECORD USED FOR MODULE,MODEL,COMPONENT I.D.
60REM       SECOND AND THIRD RECORDS-MAX OF 111 DATA ELEMENTS
80  REM            FILE NAME PLACE IN CORE COMMON R$
90  REM            ROUTINE ALSO DETERMINES SCREEN ERASE AND PLACES IN L$
95 REM             WHICH IS PLACED AFTER R$ IN CORE COMMON LEN(R$)=7
100  REM**************************************************************
105 R$=SYS(CHR$(6)+CHR$(9))
106 L=ASCII(R$)/2
107 R$="A"+MID(NUM$(L+100),3,2)+".TMP"
120  DIM #1,A1(111),A2(111),A3(111)
160OPEN R$ FOR OUTPUT AS FILE 1
210  PRINT "TYPE THE NUMBER OF THE KIND OF TERMINAL YOU ARE USING."
220DIM M(111)
230  MAT M=ZER
235 M(0)=0
240 MAT A3=M
245 A1(0)=0
246A2(0)=0
247A3(0)=0
250 MAT A2=M
260  PRINT "    1. BEEHIVE"
270  PRINT "    2. ADDS OR HAZELTINE"
280  PRINT "    3. SUPER BEEHIVE"
290PRINT"    4. DECSCOPE"
295PRINT"    5. OTHER"
300  INPUT I
310  IF I <> 1 THEN 340
320L$=CHR$(20)
325PRINT L$
330  REM L$ CONTAINS A CONTROL T
340  IF I <> 2 THEN 380
350L$=CHR$(12)
355PRINT L$
360  GOTO 420
370  REM L$ CONTAINS A CONTROL SCREEN ERASE OR DEC. 12
380 IF I<>3 THEN 411
390L$=CHR$(27)+"E"
400  REM L$ CONTAINS AN ESCAPE E
410  GOTO 420
411 IF I<>4 THEN 419
412L$=CHR$(155)+"H"+CHR$(155)+"J"
413PRINT L$
415 GOTO 420
419L$=CHR$(13)+CHR$(10)
420  REM
430 MAT A1=M
432X$=SYS(CHR$(8)+(R$+L$))
440  CLOSE 1: CHAIN "CEXPLN"
450  END