10 REM PolLinker2
   20 HIMEM=&3000:LOMEM=&1E00:V%=!&220 AND&FFFF:ONERRORGOTO50
   30 t$="This is the second program of the series by Miroslaw Bobrowski. You are invited to take part in the shortest course of the history of Poland.   To continue any time press SPACE ..."
   40 t$=STRING$(20," ")+t$+STRING$(20," "):N%=LENt$-32:CALL&1B00
   50 VDU23;8202;0;0;0;17,131,17,1:I%=1:REPEAT:PRINTTAB(4,30)MID$(t$,I%,32);:I%=(I%+1)MODN%:IF INKEY(10)=32 UNTIL TRUE ELSE UNTIL FALSE
   60 CALL&1B69:?&220=V%MOD256:?&221=V%DIV256:VDU30,17,128,17,3:A%=RND(5)*2+73:Y%=&30:CALL&1DB0:CHAIN"Pol2L2"