1 GOSUB 49000:GOSUB50000
49000 '
49010 '
49020 POKE 16553,255 :INPUT "ENTER MEMORY SIZE";MS:MS=MS+1
49030 HB=INT(MS/256):LB=MS-256*HB
49040 POKE 16422,LB:POKE 16423, HB
49050 IF MS>32767 THEN MS=MS-65536
49060 '
49070 FORI=0TO105:READD
49080 POKE MS+I,D:NEXT
49090 '
49100 INPUT"BAUD RATE";B:BR=1
49110 IF B=110 THEN 49190
49120 IF B=150 OR B=300 OR B=450 OR B=600 THEN 49150
49130 IF B=1200 OR B=2400 OR B=4800 OR B=9600 THEN 49170
49140 PRINT"INVALID SELECTION":PRINT:GOTO49100
49150 BR=BR+1:B=B-150:IF B<>0 THEN 49150
49160 GOTO 49190
49170 BR=BR+1:B=B/2:IF B<>600 THEN 49170
49180 BR=BR+4
49190 FORI=1TOBR:READD:NEXT
49200 DH=INT(D/256):DL=D-256*DH
49210 '
49220 POKE MS+24,DL:POKE MS+25,DH
49230 POKE MS+66,DL:POKE MS+67,DH
49240 POKE MS+76,DL:POKE MS+77,DH
49250 '
49260 INPUT"ADD LF AFTER CR (Y/N)";Q$
49270 IF Q$="Y" THEN 49310
49280 IF Q$<>"N" THEN 49260
49290 FORI=1TO4:POKE MS+48+I,0:NEXT
49300 '
49310 INPUT"NUMBER OF NULLS (0-127)";N
49320 IF N<0 OR N>127 THEN 49310
49330 POKE MS+42,INT(N+1):RETURN
49340 '
49350 DATA 243,121,254,13,40,3,254,32,216,245,229,197,6,9,55
49360 DATA 245,245,33,1,252,205,33,2,33,222,0,43,124,181,32
49370 DATA 251,241,31,245,48,19,33,0,252,24,19,14,2,175,13,40
49380 DATA 2,24,219,62,10,24,215,24,47,198,0,33,1,252,205,33
49390 DATA 2,0,0,33,222,0,43,124,181,32,251,16,212,17,222,0
49400 DATA 203,74,40,11,33,0,252,205,33,2,27,122,179,32,251
49410 DATA 241,241,254,13,40,198,183,40,197,193,225,241,201
49420 '
49430 DATA 615,450,222,146,108,51,23,8,1
50000 REM--LPRINT--ROUTINE
50010 Y=0:Z=0
50020 FORX=16422TO16423:Y=Y+1:A(Y)=PEEK(X):NEXTX
50030 FORX=16414TO16415:Z=Z+1:B(Z)=PEEK(X):NEXTX
50040 POKE16422,B(Z-1):POKE16423,B(Z)
50050 POKE16414,A(Y-1):POKE16415,A(Y)
50060 RETURN
