1 REM Ins{nd av Lars Davidsson <7020>    1986-09-28 19.49.33 (SEND)
1000 ! SAVE DR1:REMOTERM
1010 ! 
1020 ! Program REMOTERM.BAC version 1.0 1986-09-06
1030 ! 
1040 ! Konstrukt|r : Lars Davidsson
1050 ! P}b|rjat    : 1986-09-06
1060 ! [ndring     : 1986-09-06
1070 ! 
1080 ! Terminal program f|r k|rning mot ABC800 i remote l{ge.
1090 ! 
1100 EXTEND : INTEGER 
1110 ! 
1120 GOSUB 1980
1130 ! 
1140 DIM Rad25$=80%
1150 POKE VAROOT(Rad25$)+2%,128%,127%
1160 Rad25$=SPACE$(80%)
1170 Begloc%=63232%
1180 Prgini%=Begloc%
1190 Remoterm%=Begloc%+3%
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
1395 DATA 87,2
1400 ! 
1410 ! Initierings data f|r paritet.
1420 ! 
1430 DATA 0
1440 DATA 3
1450 DATA 1
1460 ! 
1470 ! Initierings data f|r antalet databitar.
1480 ! 
1490 DATA 128,64
1500 DATA 192,96
1510 ! 
1520 ! Initierings data f|r antalet stopbitar.
1530 ! 
1540 DATA 4
1550 DATA 8
1560 DATA 12
1570 ! 
1580 PRINT 
1590 PRINT STRING$(80%,ASCII('_')) : PRINT 
1600 PRINT "REMOTERM version 1.0 1986-09-06" : PRINT 
1610 ON (INSTR(1%,Speed$,FNAsk$("S{ndnings hastighet",Deftspeed$))-1%)/8%+1% RESTORE 1310,1320,1330,1340,1350,1360,1370,1380,1390,1395
1620 READ Tcword%,Ttcdword%
1630 ON (INSTR(1%,Speed$,FNAsk$("Mottagnings hastighet",Defrspeed$))-1%)/8%+1% RESTORE 1310,1320,1330,1340,1350,1360,1370,1380,1390,1395
1640 READ Rcword%,Rtcdword%
1650 ON (INSTR(1%,Parity$,FNAsk$("Paritet",Defparity$))-1%)/8%+1% RESTORE 1430,1440,1450
1660 READ Parity%
1670 ON (INSTR(1%,Dbits$,FNAsk$("Antal databitar",Defdbits$))-1%)/8%+1% RESTORE 1490,1500
1680 READ Rdbits%,Tdbits%
1690 ON (INSTR(1%,Sbits$,FNAsk$("Antal stopbitar",Defsbits$))-1%)/8%+1% RESTORE 1540,1550,1560
1700 READ Sbits%
1710 ! 
1720 Para$=CHR$(0%)
1730 Para$=Para$+CHR$(67%,49%,67%,4%,67%,2%,67%,192%)
1740 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%)
1750 Para$=Para$+CHR$(96%,Tcword%,96%,Ttcdword%)
1760 Para$=Para$+CHR$(97%,Rcword%,97%,Rtcdword%)
1770 Para$=Para$+CHR$(0%)
1780 Z%=CALL(Prgini%,VARPTR(Para$))
1790 ! 
1800 PUT CHR$(12%)
1810 OUT 56%,6%,57%,25%
1820 OUT 56%,10%,57%,64%+8%,56%,11%,57%,9%
1830 Oldkey%=PEEK2(65460%)
1840 Z%=CALL(Remoterm%)
1850 OUT 56%,6%,57%,24%
1860 POKE 65460%,Oldkey%,SWAP%(Oldkey%)
1870 PUT CHR$(12%)
1880 ! 
1890 END 
1900 ! 
1910 DEF FNAsk$(Asktxt$,Defvalue$)
1920   PRINT Asktxt$+SPACE$(32%-LEN(Asktxt$)-LEN(Defvalue$))+"<"+Defvalue$+"> : ";
1930   INPUT LINE Svar$ : Svar$=LEFT$(Svar$,LEN(Svar$)-2%)
1940   IF Svar$="" THEN Svar$=Defvalue$ : PRINT Svar$ ELSE PRINT 
1950   RETURN SPACE$(8%-LEN(Svar$))+Svar$
1960 FNEND 
1970 ! 
1980 POKE -2304%,195%,6%,247%,195%,59%,247%,243%,33%,180%,248%,34%,180%,255%,33%,196%,248%
1990 POKE -2288%,34%,200%,255%,33%,198%,248%,34%,202%,255%,33%,200%,248%,34%,204%,255%,33%
2000 POKE -2272%,240%,248%,34%,206%,255%,235%,126%,35%,50%,254%,248%,205%,48%,247%,251%,201%
2010 POKE -2256%,126%,167%,200%,78%,35%,126%,35%,237%,121%,24%,245%,253%,229%,253%,33%,250%
2020 POKE -2240%,248%,205%,71%,247%,253%,225%,201%,237%,115%,4%,249%,205%,118%,247%,205%,83%
2030 POKE -2224%,247%,24%,248%,254%,32%,216%,71%,14%,49%,62%,15%,211%,56%,237%,104%,61%
2040 POKE -2208%,211%,56%,237%,96%,203%,244%,112%,205%,166%,248%,216%,62%,13%,205%,226%,247%
2050 POKE -2192%,62%,10%,205%,226%,247%,201%,42%,250%,248%,77%,68%,41%,41%,9%,41%,41%
2060 POKE -2176%,41%,41%,58%,252%,248%,79%,6%,120%,9%,62%,14%,14%,57%,211%,56%,237%
2070 POKE -2160%,97%,60%,211%,56%,237%,105%,58%,226%,255%,230%,128%,196%,201%,247%,42%,1%
2080 POKE -2144%,249%,58%,255%,248%,149%,40%,239%,254%,128%,204%,182%,247%,126%,44%,34%,1%
2090 POKE -2128%,249%,205%,226%,247%,24%,192%,58%,3%,249%,254%,19%,192%,62%,32%,50%,207%
2100 POKE -2112%,127%,62%,17%,50%,3%,249%,195%,108%,248%,175%,50%,226%,255%,58%,227%,255%
2110 POKE -2096%,254%,192%,194%,108%,248%,205%,119%,248%,254%,192%,202%,108%,248%,237%,123%,4%
2120 POKE -2080%,249%,201%,254%,7%,40%,22%,254%,8%,40%,28%,254%,10%,40%,41%,254%,12%
2130 POKE -2064%,40%,63%,254%,13%,40%,81%,254%,27%,40%,82%,193%,201%,6%,200%,61%,32%
2140 POKE -2048%,253%,219%,5%,16%,249%,201%,205%,157%,248%,240%,205%,134%,248%,253%,54%,2%
2150 POKE -2032%,79%,240%,253%,54%,0%,23%,201%,205%,143%,248%,216%,33%,80%,120%,17%,0%
2160 POKE -2016%,120%,1%,48%,7%,237%,160%,234%,36%,248%,6%,80%,43%,54%,32%,16%,251%
2170 POKE -2000%,201%,175%,50%,250%,248%,50%,252%,248%,33%,0%,120%,1%,128%,7%,54%,32%
2180 POKE -1984%,35%,11%,120%,177%,32%,248%,201%,175%,50%,252%,248%,201%,205%,118%,247%,254%
2190 POKE -1968%,61%,40%,2%,193%,201%,205%,118%,247%,214%,32%,254%,24%,208%,50%,250%,248%
2200 POKE -1952%,205%,118%,247%,214%,32%,254%,80%,208%,50%,252%,248%,201%,245%,219%,65%,230%
2210 POKE -1936%,4%,40%,250%,241%,211%,64%,201%,58%,226%,255%,230%,128%,40%,249%,175%,50%
2220 POKE -1920%,226%,255%,58%,227%,255%,201%,253%,53%,0%,240%,253%,54%,0%,0%,201%,253%
2230 POKE -1904%,52%,0%,58%,250%,248%,254%,24%,216%,253%,54%,0%,23%,201%,253%,53%,2%
2240 POKE -1888%,240%,253%,54%,2%,0%,201%,253%,52%,2%,58%,252%,248%,254%,80%,216%,253%
2250 POKE -1872%,54%,2%,79%,201%,243%,245%,219%,34%,50%,227%,255%,62%,128%,50%,226%,255%
2260 POKE -1856%,241%,251%,237%,77%,237%,77%,237%,77%,243%,245%,219%,64%,229%,42%,255%,248%
2270 POKE -1840%,119%,44%,34%,255%,248%,58%,1%,249%,149%,254%,32%,204%,227%,248%,225%,241%
2280 POKE -1824%,251%,237%,77%,62%,127%,50%,207%,127%,62%,19%,50%,3%,249%,195%,108%,248%
2290 POKE -1808%,243%,245%,62%,48%,211%,65%,241%,251%,237%,77%,0%,0%,0%,0%,0%,0%
2300 POKE -1792%,251%,0%,251%,17%,0%,0%
2310 RETURN