100 AD=49152
110 FOR T=0 TO 94:READ X:POKE 49152+T,X:NEXT
120 :
130 REM SET JMP ADDRESS FOR OPEN
140 OL=PEEK (794):OH=PEEK (795)
150 POKE AD+24,OL:POKE AD+25,OH
160 AH=INT(AD/256):POKE 794,AD-(256*AH):POKE 795,AH
170 :
180 REM SET RS-232 OUTPUT BUFFER ADDRESS
190 BH=INT((AD+96)/256):BL=AD+96-(256*BH)
200 POKE AD+16,BL:POKE AD+18,BH
210 :
220 REM SET BAUD RATE
230 POKE AD+11,7
240 :
250 REM SET TEMPORARY STORAGE
260 SH=INT((AD+95)/256):SL=AD+95-(SH*256)
270 POKE AD+29,SL:POKE AD+30,SH
280 POKE AD+38,SL:POKE AD+39,SH
290 POKE AD+87,SL:POKE AD+88,SH
300 POKE AD+90,SL:POKE AD+91,SH
310 :
320 REM ADD LINEFEED 10 YES/0 NO
330 POKE AD+45,10
340 :
350 REM SET ASCII CONVERSION FLAG (56 YES/24 NO)
360 POKE AD+51,56
370 :
380 REM SET JMP ADDRESS FOR PRINT
390 PL=PEEK (806):PH=PEEK (807)
400 POKE AD+47,PL:POKE AD+48,PH
410 POKE AD+93,PL:POKE AD+94,PH
420 PH=INT((AD+28)/256):PL=AD+28-(256*PH)
430 POKE 806,PL:POKE 807,PH
440 :
1000 DATA 165,186,201,4,208,17,169,2
1010 DATA 133,186,169,7,141,147,2,169
1020 DATA 96,162,192,133,249,134,250,32
1030 DATA 74,243,24,96,141,95,192,165
1040 DATA 154,201,2,208,52,173,95,192
1050 DATA 201,13,208,7,169,10,32,202
1060 DATA 241,169,13,56,144,32,201,65
1070 DATA 144,9,201,91,176,5,24,105
1080 DATA 32,208,19,201,193,144,9,201
1090 DATA 219,176,5,56,233,128,208,6
1100 DATA 201,20,208,2,169,8,141,95
1110 DATA 192,173,95,192,76,202,241