1 ! SAVE GUTSNY
10 EXTEND : INTEGER : COMMON Fil$=12 : COMMON Dr$=3 : COMMON Mat$=8
15 DIM D$,P$=1 : DIM B$=10000 : DIM F$=12 : DIM G$=30 : DIM S$,S8$=120
16 DIM R$=6 : DIM N$=5 : DIM A$=5000
20 POKE PEEK2(65500)+2,VAROOT(B$),SWAP%(VAROOT(B$))
21 ; CHR$(12)
22 ; 'TERMIALPROGRAM F\R ATT K\RA ABC-800 MED EPSON MX-80 MOT GUTS'
23 ; 'RING 23 55 80 EL 23 46 40 F\R 300 BAUD'
24 ; '     63 57 40 F\R 1200 BAUD'
25 ; '     14 47 00 F\R 1200 BAUD \VER TERMINALV[XEL, VANLIG INLOGGNING'
30 ; 
32 ; 'N[R LINJEN [R KLAR: PIPTON EV GR\N LAMPA P] MODEM, LAGT P] LUREN'
37 ; '300 =1,  1200 =3' : GET I$
39 IF I$='1' THEN OPEN 'V24:VEA30E24.22' AS FILE 1
40 IF I$='3' THEN OPEN 'V24:VEA30E24.44' AS FILE 1
41 IF I$<>'1' AND I$<>'3' THEN 37
42 ; CHR$(12)
44 GOTO 111
106 ! 
107 ! TERMINAL
110 ; CHR$(12) : ; 'TERMINALMODE'
111 S1=1
120 GOSUB 3000
130 IF PEEK2(PEEK2(65500)+6)<>0 THEN GOSUB 2000
140 IF SYS(5)=128 THEN 160 ! KOLLA BRYT
150 GOTO 111
160 GET D$
170 IF ASCII(D$)=192 THEN 210
172 IF ASCII(D$)=194 THEN 191
175 ; #1,D$;
180 ; D$;
190 GOTO 111
191 ; #1,CHR$(19) : GOTO 111
193 ! 
200 ! MENY
210 ; CHR$(12);
220 ; 'SKRIV P] DISKETT     =1'
230 ; 'SKRIV P] PRINTER     =2'
240 ; 'S[ND FIL TILL GUTS   =3 OBS, GUTS SKA ST] MED RADNUMMER'
250 ; 'AVSLUT               =4 OBS, AVSLUTAR ENDAST PROGRAM, EJ NERKOPPLING'
255 ; 'TILL TERMINAL        =5'
256 ; 
257 ; 
258 ; 'V[LJ 1-5, V[NTA P] SVAR, G\R EJ RETURN EFTER SIFFRAN'
260 GET I$
270 IF I$='1' OR I$='2' THEN 400
280 IF I$='3' THEN 700
290 IF I$='4' THEN 900
295 IF I$='5' THEN 110
300 GOTO 210
390 ! 
391 ! 
392 ! 
400 ! SKRIV MOT PRINTER(2) EL DISKETT(1)
402 A$='' : F6$='0'
403 ; CHR$(12)
404 ; #1,'/SET LW=132'
405 GOSUB 4500
407 ; #1,'/SET LC=20'
408 GOSUB 4500
410 IF I$='1' THEN GOSUB 2200
420 IF I$='2' THEN GOSUB 2300
425 ! !!!430-460 konstr och s{nder kommando till GUTS
430 INPUT 'LIST=1 DISPLAY=2 SHOW=3   :'D$ : R$='/SH ' : IF D$='1' THEN R$='/L '
431 IF D$='2' THEN R$='/DI '
432 IF D$<'1' OR D$>'3' THEN 430
433 INPUT 'FILNAMN (AKTIV=A) EL VAD SOM SKA SWOW     :'G$ : IF D$='3' THEN 450
434 INPUT 'HELA FILEN=1,  DEL AV FILEN=2     :'P$
435 IF P$='1' THEN 440
436 INPUT 'RADER    :'F$
440 IF G$='A' OR G$='a' THEN G$=''
441 IF G$<>'' THEN F$=','+F$
446 IF P$='1' THEN 450
447 G$=G$+F$
450 G$=R$+G$
453 IF I$='1' THEN 460
455 ; #2,G$ : ; #2 : ; #2
460 ; #1,G$
491 ; CHR$(12)
492 ; 'GUTS SKRIVER NU RESULTATET AV KOMMANDOT ';G$
500 ! L[S FR]N V24, SKRIV
510 S1=1
520 GOSUB 3000
530 ! IF PEEK2(PEEK2(65500)+6)=0 THEN 600
540 S1=0
550 GOSUB 3000
560 GET #1,B$
570 D$=CHR$(ASCII(B$) AND 127)
575 IF ASCII(D$)=17 THEN GOSUB 5000
580 ; D$;
590 A$=A$+D$
610 GOTO 510
651 CLOSE 2
652 ; #1,CHR$(13) : GOTO 110
660 GOTO 210
691 ! 
692 ! 
693 ! 
700 ! S[ND FIL TILL GUTS
710 ; CHR$(12)
712 INPUT 'VILKEN FIL P] DISKETT (NAMN.EXT) SKA S[NDAS    :'F$
715 ON ERROR GOTO 830
720 OPEN F$ AS FILE 2
740 INPUT LINE #2,S$
742 IF LEN(S$)<3 THEN 740
745 S8$=''
750 FOR J8=1 TO LEN(S$)
755   D$=MID$(S$,J8,1)
760   IF ASCII(D$)<32 OR ASCII(D$)>127 THEN 770
765   S8$=S8$+D$
770 NEXT J8 
778 IF LEN(S8$)=0 THEN 740
779 ; S8$ : ; #1,S8$
780 GOSUB 4500
790 GOTO 740 ! GUTS KLAR, L[S NY RAD FR]N DISKETT
830 CLOSE 2
840 GOTO 210
891 ! 
892 ! 
893 ! 
900 ! AVSLUT 
901 ; CHR$(12)
920 CLOSE 1
925 ; 'AVSLUTAT'
930 CHAIN 'kronstat.bac'
1991 ! 
1992 ! 
1993 ! 
2000 ! l{s ett tecken fr}n v24 och skriv p} sk{rmen'
2004 S1=0
2005 GOSUB 3000
2010 GET #1,B$
2020 D$=CHR$(ASCII(B$) AND 127)
2030 ; D$;
2040 RETURN 
2190 ! 
2191 ! 
2199 ! 
2200 ! DISKETTSTART
2210 INPUT 'VAD SKA FILEN HETA P] DISKETT(EXT TXT L[GGS P] AUTOM)    :'F$
2220 F$=F$+'.TXT'
2230 PREPARE F$ AS FILE 2
2240 RETURN 
2291 ! 
2292 ! 
2293 ! 
2300 ! PRINTER START
2400 INPUT 'ANTAL TECKEN P] PRINTERRADEN, 80 EL 132     :'T1
2410 IF T1<>80 THEN 2440
2420 OPEN 'PR:\\\30A\\.\\' AS FILE 2
2425 ; #2,CHR$(18);
2430 GOTO 430
2440 IF T1<>132 THEN 2400
2450 OPEN 'PR:\\\50A\\.\\' AS FILE 2
2455 ; #2,CHR$(15);
2460 RETURN 
2991 ! 
2992 ! 
2993 ! 
3000 ! st{ll portar f|r l{s fr}n v24
3010 OUT 56,10
3020 OUT 57,40-32*S1
3030 M=30720+PEEK(65363)*80+PEEK(65362)
3040 OUT 56,14
3050 OUT 57,SWAP%(M)
3060 OUT 56,15
3070 OUT 57,M
3080 RETURN 
4490 ! 
4491 ! 
4492 ! 
4499 ! V[NTA P] '17' FR]N GUTS, SEN RETURN
4500 S1=0
4510 GOSUB 3000
4520 IF PEEK2(PEEK2(65500)+6)=0 THEN 4500
4530 GET #1,D$ COUNT 1
4540 IF ASCII(D$)<>17 THEN 4500
4550 RETURN 
4590 ! 
4591 ! 
4999 ! HANTERAR GUTS AVBROTT VID SKRIV P] PRINTER, DISKETT
5000 IF F6$='1' THEN 5005
5001 F6$='1' : A$=RIGHT$(A$,3)
5002 GOTO 5008
5005 A$=RIGHT$(A$,2)
5008 IF ASCII(RIGHT$(A$,LEN(A$)))<>7 THEN 5100
5010 A$=LEFT$(A$,LEN(A$)-10)
5020 ; #2,A$
5030 A$='' : ; CHR$(12)
5035 ; #1,CHR$(13)
5040 GOTO 5200
5050 ! !!5100-5130 [R AVSLUTNING OCH ]TERG]NG TILL TERMINALMODE
5100 IF ASCII(RIGHT$(A$,LEN(A$)))=32 THEN 5105 ! !RADNR
5101 A$=LEFT$(A$,LEN(A$)-2)
5102 GOTO 5109
5105 A$=LEFT$(A$,LEN(A$)-8)
5109 ; #2,A$
5110 ; #1,'/SET LC=0'
5120 GOSUB 4500
5130 GOTO 651
5200 RETURN