1 REM Ins{nd av Lars Davidsson <7020>    1986-09-28 19.39.44 (SEND)
1000 ! SAVE DR1:MULTUSER
1010 ! 
1020 ! Program MULTUSER.BAC version 1.0 1986-09-07
1030 ! 
1040 ! Konstrukt|rer   : Lars Davidsson och Tomas Enblom
1050 ! P}b|rjat        : 1986-09-07
1060 ! Senaste {ndring : 1986-09-28
1070 ! 
1080 ! Programmet laddar ned rutiner f|r multiuser.
1090 ! 
1100 EXTEND : INTEGER 
1110 ! 
1120 POKE 64512,PEEK(65413),PEEK(65414)
1130 ! 
1140 Bottom%=32768%+1024%
1150 Multini%=63232%
1160 Path$="" ! Biblioteks pekare till multiuser programmen.
1170 ! 
1180 IF PEEK2(65292%)<>Bottom% AND PEEK2(65328%)<>Bottom% THEN PRINT "MSTART.BAC m}ste k|ras innan MULTUSER.BAC laddas in !" : STOP 
1190 ! 
1200 Speed$="      75     110     300     600    1200    2400    4800    9600   19200   38400"
1210 Parity$="   Ingen    J{mn    Udda"
1220 Dbits$="       7       8"
1230 Sbits$="       1     1/2       2"
1240 Deftspeed$="19200" : Defrspeed$=Deftspeed$
1250 Defparity$="Ingen"
1260 Defdbits$="8"
1270 Defsbits$="1"
1280 ! 
1290 ! Initierings data f|r hastigheterna.
1300 ! 
1310 DATA 7,156
1320 DATA 7,107
1330 DATA 7,39
1340 DATA 87,156
1350 DATA 87,78
1360 DATA 87,39
1370 DATA 87,20
1380 DATA 87,10
1390 DATA 87,5
1400 DATA 87,2
1410 ! 
1420 ! Initierings data f|r paritet.
1430 ! 
1440 DATA 0
1450 DATA 3
1460 DATA 1
1470 ! 
1480 ! Initierings data f|r antalet databitar.
1490 ! 
1500 DATA 128,64
1510 DATA 192,96
1520 ! 
1530 ! Initierings data f|r antalet stopbitar.
1540 ! 
1550 DATA 4
1560 DATA 8
1570 DATA 12
1580 ! 
1590 PRINT CHR$(12%)+STRING$(80%,ASCII('_')) : PRINT 
1600 PRINT "Multiuser till ABC800 version 1.0 (c) Anemone Software 1986-09-07" : PRINT 
1610 PRINT "S{tt nya kommunikations parametrar f|r remote (J/N) <N> ? "; : Svar$=FNInput$(8%)
1620 IF (ASCII(Svar$) AND 95%)=ASCII('J') THEN PRINT : PRINT : GOTO 1660
1630 OPEN Path$+"REMOSET.TXT" AS FILE 1% : INPUT #1%,Tcword%,Ttcdword%,Rcword%,Rtcdword%,Parity%,Rdbits%,Tdbits%,Sbits% : CLOSE 
1640 GOTO 1800
1650 ! 
1660 ON (INSTR(1%,Speed$,FNAsk$("S{ndnings hastighet",Deftspeed$))-1%)/8%+1% RESTORE 1310,1320,1330,1340,1350,1360,1370,1380,1390,1400
1670 READ Tcword%,Ttcdword%
1680 ON (INSTR(1%,Speed$,FNAsk$("Mottagnings hastighet",Defrspeed$))-1%)/8%+1% RESTORE 1310,1320,1330,1340,1350,1360,1370,1380,1390,1400
1690 READ Rcword%,Rtcdword%
1700 ON (INSTR(1%,Parity$,FNAsk$("Paritet",Defparity$))-1%)/8%+1% RESTORE 1440,1450,1460
1710 READ Parity%
1720 ON (INSTR(1%,Dbits$,FNAsk$("Antal databitar",Defdbits$))-1%)/8%+1% RESTORE 1500,1510
1730 READ Rdbits%,Tdbits%
1740 ON (INSTR(1%,Sbits$,FNAsk$("Antal stopbitar",Defsbits$))-1%)/8%+1% RESTORE 1550,1560,1570
1750 READ Sbits%
1760 ! 
1770 PREPARE Path$+"REMOSET.TXT" AS FILE 1%
1780 PRINT #1%,Tcword% "," Ttcdword% "," Rcword% "," Rtcdword% "," Parity% "," Rdbits% "," Tdbits% "," Sbits% : CLOSE 
1790 ! 
1800 Para$=CHR$(67%,49%,67%,4%,67%,2%,67%,192%)
1810 Para$=Para$+CHR$(65%,52%,65%,64%+Sbits%+Parity%,65%,1%,65%,24%,65%,3%,65%,1%+Rdbits%,65%,5%,65%,128%+2%+8%+Tdbits%)
1820 Para$=Para$+CHR$(96%,Tcword%,96%,Ttcdword%)
1830 Para$=Para$+CHR$(97%,Rcword%,97%,Rtcdword%)
1840 Para$=Para$+CHR$(0%)
1850 ! 
1860 POKE 65413%,0%,0% : GOSUB 2610 : Z%=CALL(Multini%,VARPTR(Para$))
1870 ! 
1880 IF PEEK(32768%)=0% THEN GOSUB 1990
1890 ! 
1900 CHAIN Path$+"MULTLOG"
1910 ! 
1920 DEF FNAsk$(Asktxt$,Defvalue$)
1930   PRINT Asktxt$+SPACE$(32%-LEN(Asktxt$)-LEN(Defvalue$))+"<"+Defvalue$+"> : ";
1940   INPUT LINE Svar$ : Svar$=LEFT$(Svar$,LEN(Svar$)-2%)
1950   IF Svar$="" THEN Svar$=Defvalue$ : PRINT Svar$ ELSE PRINT 
1960   RETURN SPACE$(8%-LEN(Svar$))+Svar$
1970 FNEND 
1980 ! 
1990 PRINT CHR$(12%)+STRING$(80%,ASCII('_'))
2000 PRINT "Multiuser till ABC800 version 1.0 (c) Anemone Software 1986-09-07" : PRINT 
2010 PRINT "  (1)  -  VT52        (2)  -  VT100       (3)  -  VT220       (4)  -  VT240"
2020 PRINT "  (5)  -  ADM3A       (6)  -  ABC800"
2030 PRINT 
2040 PRINT "  (0)  -  Ingen av ovanst}ende"
2050 Option$=""
2060 WHILE INSTR(1%," 0 1 2 3 4 5 6 "," "+CHR$(ASCII(Option$))+" ")=0%
2070   PRINT : PRINT "Ange vilken terminal du har : "; : Option$=FNInput$(8%)
2080 WEND 
2090 ON INSTR(1%,"0123456",CHR$(ASCII(Option$))) GOSUB 2570,2260,2340,2340,2340,2430,2500
2100 RETURN 
2110 ! 
2120 DEF FNInput$(M%)
2130   S$="" : GET C$
2140   WHILE C$<>CHR$(13%)
2150     L%=LEN(S$)
2160     IF C$=CHR$(8%) AND L% THEN S$=LEFT$(S$,LEN(S$)-1%) : PUT CHR$(8%,32%,8%)
2170     IF C$=CHR$(24%) AND L% THEN FOR I%=1% TO L% : PUT CHR$(8%,32%,8%) : NEXT I% : S$=""
2180     IF C$>=" " AND C$<="" AND L%<M% THEN S$=S$+C$ : PUT C$
2190     GET C$
2200   WEND 
2210   RETURN S$
2220 FNEND 
2230 ! 
2240 ! Drivrutin f|r VT52 terminal.
2250 ! 
2260 POKE -32758%,195%,128%,131%,195%,148%,131%
2270 POKE -31872%,62%,27%,205%,1%,128%,62%,72%,205%,1%,128%,62%,27%,205%,1%,128%,62%
2280 POKE -31856%,74%,195%,1%,128%,62%,27%,205%,1%,128%,62%,89%,205%,1%,128%,122%,198%
2290 POKE -31840%,31%,205%,1%,128%,123%,198%,31%,195%,1%,128%
2300 RETURN 
2310 ! 
2320 ! Interface rutin f|r VT100 terminal.
2330 ! 
2340 POKE -32758%,195%,128%,131%,195%,159%,131%
2350 POKE -31872%,245%,213%,62%,27%,205%,1%,128%,62%,91%,205%,1%,128%,62%,50%,205%,1%
2360 POKE -31856%,128%,62%,74%,205%,1%,128%,17%,1%,1%,205%,159%,131%,209%,241%,201%,245%
2370 POKE -31840%,62%,27%,205%,1%,128%,62%,91%,205%,1%,128%,122%,205%,7%,128%,62%,59%
2380 POKE -31824%,205%,1%,128%,123%,205%,7%,128%,62%,72%,205%,1%,128%,241%,201%
2390 RETURN 
2400 ! 
2410 ! Interface rutin f|r ADM3A terminal.
2420 ! 
2430 POKE -32758%,195%,128%,131%,195%,133%,131%
2440 POKE -31872%,62%,26%,195%,1%,128%,62%,27%,205%,1%,128%,62%,61%,205%,1%,128%,122%
2450 POKE -31856%,198%,31%,205%,1%,128%,123%,198%,31%,195%,1%,128%
2460 RETURN 
2470 ! 
2480 ! Interface rutin f|r ABC800 terminal.
2490 ! 
2500 POKE -32758%,195%,128%,131%,195%,133%,131%
2510 POKE -31872%,62%,12%,195%,1%,128%,62%,27%,205%,1%,128%,62%,61%,205%,1%,128%,122%
2520 POKE -31856%,198%,31%,205%,1%,128%,123%,198%,31%,195%,1%,128%
2530 RETURN 
2540 ! 
2550 ! Ingen av terminalerna.
2560 ! 
2570 RETURN 
2580 ! 
2590 ! Multiuser rutiner.
2600 ! 
2610 POKE -2304%,243%,245%,197%,213%,237%,83%,249%,247%,229%,221%,229%,253%,229%,8%,245%,217%
2620 POKE -2288%,197%,213%,229%,237%,115%,141%,128%,33%,16%,128%,34%,214%,255%,33%,55%,130%
2630 POKE -2272%,34%,200%,255%,33%,57%,130%,34%,202%,255%,33%,0%,130%,34%,204%,255%,33%
2640 POKE -2256%,112%,130%,34%,206%,255%,62%,52%,211%,1%,62%,1%,211%,0%,33%,106%,247%
2650 POKE -2240%,17%,0%,0%,1%,31%,0%,237%,176%,205%,0%,0%,62%,240%,211%,0%,205%
2660 POKE -2224%,137%,247%,175%,211%,0%,62%,248%,50%,0%,128%,225%,209%,193%,217%,241%,8%
2670 POKE -2208%,253%,225%,221%,225%,225%,209%,193%,241%,251%,201%,1%,0%,160%,33%,0%,96%
2680 POKE -2192%,221%,33%,0%,96%,120%,177%,200%,94%,62%,249%,211%,0%,221%,115%,0%,62%
2690 POKE -2176%,1%,211%,0%,35%,221%,35%,11%,24%,235%,33%,122%,130%,34%,142%,255%,42%
2700 POKE -2160%,145%,255%,34%,251%,247%,33%,241%,247%,34%,145%,255%,221%,33%,76%,255%,33%
2710 POKE -2144%,253%,247%,1%,1%,0%,205%,5%,0%,42%,251%,247%,34%,145%,255%,221%,42%
2720 POKE -2128%,80%,255%,221%,110%,0%,221%,102%,1%,34%,180%,128%,33%,164%,128%,34%,80%
2730 POKE -2112%,255%,42%,145%,255%,34%,194%,128%,33%,193%,128%,34%,145%,255%,42%,123%,255%
2740 POKE -2096%,34%,159%,128%,33%,145%,128%,34%,123%,255%,33%,67%,130%,34%,204%,255%,33%
2750 POKE -2080%,187%,129%,34%,180%,255%,42%,249%,247%,78%,35%,175%,177%,200%,237%,163%,24%
2760 POKE -2064%,247%,227%,34%,217%,128%,227%,62%,13%,201%,0%,0%,0%,0%
2770 POKE -32768%,0%,195%,248%,128%,195%,10%,129%,195%,145%,129%,195%,128%,131%,195%,143%,131%
2780 POKE -32752%,243%,227%,34%,143%,128%,227%,245%,197%,213%,229%,221%,229%,253%,229%,8%,245%
2790 POKE -32736%,217%,197%,213%,229%,205%,82%,128%,58%,144%,128%,230%,240%,254%,96%,40%,17%
2800 POKE -32720%,237%,115%,141%,128%,62%,52%,211%,1%,58%,0%,128%,211%,0%,237%,123%,141%
2810 POKE -32704%,128%,225%,209%,193%,217%,241%,8%,253%,225%,221%,225%,225%,209%,193%,241%,251%
2820 POKE -32688%,237%,77%,33%,245%,255%,52%,126%,254%,100%,216%,54%,0%,43%,52%,126%,254%
2830 POKE -32672%,60%,216%,54%,0%,43%,52%,126%,254%,60%,216%,54%,0%,43%,52%,126%,254%
2840 POKE -32656%,24%,216%,54%,0%,43%,52%,126%,254%,31%,216%,54%,1%,43%,52%,126%,254%
2850 POKE -32640%,13%,216%,54%,1%,43%,52%,126%,254%,100%,216%,54%,0%,201%,0%,0%,0%
2860 POKE -32624%,0%,152%,128%,86%,50%,52%,166%,128%,159%,128%,80%,82%,32%,166%,128%,0%
2870 POKE -32608%,0%,67%,79%,78%,170%,128%,55%,62%,51%,201%,245%,229%,197%,205%,182%,128%
2880 POKE -32592%,193%,225%,241%,195%,143%,1%,254%,4%,202%,53%,129%,254%,6%,202%,53%,129%
2890 POKE -32576%,201%,205%,64%,3%,227%,34%,184%,129%,227%,245%,229%,213%,197%,205%,213%,128%
2900 POKE -32560%,193%,209%,225%,241%,201%,42%,184%,129%,17%,0%,0%,167%,237%,82%,192%,254%
2910 POKE -32544%,8%,40%,56%,254%,9%,40%,46%,254%,12%,202%,10%,128%,254%,24%,40%,62%
2920 POKE -32528%,5%,200%,254%,32%,216%,254%,128%,208%,245%,58%,186%,129%,254%,17%,32%,249%
2930 POKE -32512%,219%,65%,230%,4%,40%,250%,241%,211%,64%,201%,120%,177%,200%,126%,35%,11%
2940 POKE -32496%,205%,248%,128%,24%,245%,42%,224%,255%,126%,24%,215%,121%,184%,200%,62%,8%
2950 POKE -32480%,205%,248%,128%,62%,32%,205%,248%,128%,62%,8%,205%,248%,128%,201%,205%,27%
2960 POKE -32464%,129%,200%,4%,24%,249%,120%,177%,200%,126%,35%,11%,205%,64%,129%,24%,245%
2970 POKE -32448%,254%,7%,40%,180%,254%,8%,40%,176%,254%,10%,40%,172%,254%,12%,40%,16%
2980 POKE -32432%,254%,13%,40%,164%,254%,27%,40%,16%,230%,127%,254%,32%,216%,195%,248%,128%
2990 POKE -32416%,229%,197%,205%,10%,128%,193%,225%,201%,126%,254%,61%,192%,235%,33%,253%,255%
3000 POKE -32400%,9%,235%,208%,35%,11%,126%,214%,32%,254%,24%,208%,60%,87%,35%,11%,126%
3010 POKE -32384%,214%,32%,254%,80%,208%,60%,95%,35%,11%,229%,197%,205%,13%,128%,193%,225%
3020 POKE -32368%,201%,197%,6%,255%,14%,100%,205%,165%,129%,14%,10%,205%,165%,129%,246%,48%
3030 POKE -32352%,205%,248%,128%,193%,201%,4%,145%,48%,252%,129%,5%,248%,245%,4%,120%,246%
3040 POKE -32336%,48%,205%,248%,128%,6%,47%,241%,201%,0%,0%,17%,243%,227%,34%,143%,128%
3050 POKE -32320%,227%,245%,197%,219%,34%,79%,58%,144%,128%,230%,240%,254%,96%,40%,99%,237%
3060 POKE -32304%,115%,141%,128%,62%,52%,211%,1%,58%,0%,128%,211%,0%,237%,123%,141%,128%
3070 POKE -32288%,121%,205%,242%,129%,58%,0%,128%,211%,0%,237%,123%,141%,128%,193%,241%,251%
3080 POKE -32272%,237%,77%,50%,227%,255%,254%,3%,204%,104%,130%,62%,128%,50%,226%,255%,201%
3090 POKE -32256%,243%,227%,34%,143%,128%,227%,245%,197%,219%,64%,79%,58%,144%,128%,230%,240%
3100 POKE -32240%,254%,96%,40%,30%,237%,115%,141%,128%,62%,52%,211%,1%,58%,0%,128%,211%
3110 POKE -32224%,0%,237%,123%,141%,128%,121%,205%,78%,130%,58%,0%,128%,211%,0%,237%,123%
3120 POKE -32208%,141%,128%,193%,241%,251%,237%,77%,237%,77%,243%,245%,62%,16%,211%,65%,241%
3130 POKE -32192%,251%,237%,77%,243%,245%,219%,64%,205%,78%,130%,241%,251%,237%,77%,254%,17%
3140 POKE -32176%,40%,18%,254%,19%,40%,14%,50%,227%,255%,254%,3%,204%,104%,130%,62%,128%
3150 POKE -32160%,50%,226%,255%,201%,50%,186%,129%,201%,229%,42%,133%,255%,203%,198%,225%,201%
3160 POKE -32144%,243%,245%,62%,48%,211%,65%,241%,251%,237%,77%,201%
3170 POKE -31872%,62%,13%,205%,248%,128%,6%,32%,62%,10%,205%,248%,128%,16%,249%,201%,201%
3180 RETURN