10MODE0:VDU23;8202;0;0;0;:HIMEM=&2C80 :LOMEM=&2600:Z%=&25F2:M%=&2540:I%=0:S%=& 1432 100PROCc(4,3):SX=4.8:SY=4.8:H%=230:V%= 136:?Z%=&31:CALLM%:PROCr(966):PROCt(0):P ROCs:PROCr(1000):PROCt(1) 110PROCd(33):PROCf(480,700,0):VDU5:GCO L0,0:MOVE484,660:PRINT"Silesians":MOVE71 2,556:PRINT"*":MOVE730,540:PRINT"Cracow" :VDU4:GCOL0,1:PROCd(6):PROCf(700,840,0): PROCd(45):PROCf(900,700,0) 120PROCd(79):PROCf(400,700,5):PROCn(36 0,574,"BOHEMIA"):PROCn(310,670,"LUSATIA" ):PROCn(600,430,"SLOVAKIA"):PROCn(380,47 6,"(1002-1037)") 200PROCs:PROCc(1,3):SX=5.2:SY=5.2:H%=2 30:V%=48:?Z%=&32:CALLM%:PROCr(1138):PROC t(0):PROCs 210PROCn(752,900," "):PROCn(736,864 ,STRING$(6," ")):VDU5:MOVE500,880:PRINT" Pomerania":MOVE520,780:PRINT"Great":MOVE 512,740:PRINT"Poland":MOVE740,768:PRINT" Mazovia":MOVE760,612:PRINT"Little":MOVE7 60,572:PRINT"Poland" 220MOVE520,600:PRINT"Silesia":MOVE784, 920:PRINT"STATE OF":MOVE720,880:PRINT"TE UTONIC KNIGHTS":VDU4:GCOL0,1:PROCd(7):PR OCf(744,816,0):GCOL0,0:PROCw(9) 230PROCd(5):PROCd(4):PROCw(4):PROCw(10 ):PROCw(10):PROCd(7):PROCw(9):PROCw(2):P ROCw(6):PROCd(3):PROCw(3):PROCd(3):PROCw (6):PROCd(8):PROCw(6):PROCd(4):PROCw(4): PROCw(6):PROCw(7):PROCr(1250):PROCs:PROC t(1) 240GCOL4,0:FORX%=378TO500STEP2:MOVEX%, 852:DRAWX%,820:NEXT:GCOL0,0:MOVE516,836: PLOT85,500,852:GCOL4,0:FORY%=520TO720STE P4:MOVE550,Y%:DRAW512,Y%:NEXT:GCOL0,0:MO VE530,736:PLOT85,550,720 250GCOL4,0:FORX%=578TO700STEP2:MOVEX%, 492:DRAWX%,460:NEXT:GCOL0,0:MOVE716,476: PLOT85,700,492:GCOL4,0:FORX%=712TO620STE P-2:MOVEX%,884:DRAWX%,852:NEXT:GCOL0,0:M OVE604,868:PLOT85,620,884 260GCOL4,0:FORX%=1048TO590STEP-2:MOVEX %,600:DRAWX%,560:NEXT:GCOL0,0:MOVE574,58 0:PLOT85,590,600:GCOL0,1:VDU5:MOVE800,59 2:PRINT"Tartars":VDU4 270PROCs:GCOL0,0:VDU5:MOVE800,592:PRIN T"Tartars":VDU4:GCOL0,1:MOVE590,600:MOVE 574,580:PLOT85,590,560:GCOL4,0:FORX%=592 TO1048STEP2:MOVEX%,600:DRAWX%,560:NEXT:G COL0,1 300PROCc(0,3):?Z%=&33:CALLM%:PROCr(132 0):PROCt(0):PROCs:PROCr(1386):PROCt(1) 400PROCs:PROCc(0,3):?Z%=&34:CALLM%:PRO Cr(1410):PROCt(0):PROCs:PROCr(1500):PROC t(1) 500PROCs:PROCc(4,6):SX=2.8:SY=2.8:H%=1 90:V%=348:?Z%=&35:CALLM%:PROCt(0):XX=INK EY500:PROCr(1683):PROCs:PROCr(1700):PROC t(1):PROCs 510PROCr(1772):PROCd(28):PROCf(400,700 ,7):PROCd(42):PROCf(800,900,15):PROCd(48 ):PROCf(600,500,10):XX=INKEY100:VDU7:PRO Cr(1793):PROCd(22):PROCf(400,600,7):PROC d(35):PROCf(750,800,15):XX=INKEY100:VDU7 520PROCr(1795):PROCd(25):PROCd(31):PRO Cf(550,700,7):PROCf(650,650,15):PROCf(55 0,600,10) 600PROCs:PROCc(0,6):SX=3.08:SY=2.94:H% =230:V%=328:?Z%=&36:CALLM%:PROCr(1918):P ROCt(0):PROCs:PROCr(1939):PROCt(1) 610GCOL0,0:VDU5:MOVE554,708:PRINT"*":M OVE570,692:PRINT"Warsaw":MOVE492,532:PRI NT"*":MOVE508,516:PRINT"Cracow":MOVE720, 512:PRINT"*":MOVE736,498:PRINT"Lvov":MOV E766,908:PRINT"*":MOVE782,892:PRINT"Viln a" 620MOVE344,732:PRINT"*":MOVE360,716:PR INT"Poznan":VDU4:GCOL0,1:PROCd(3):PROCd( 56):PROCf(478,852,7):PLOT69,450,860:PLOT 69,480,856:PLOT69,472,840:PROCf(400,700, 7):PROCf(660,848,7):PROCf(800,600,15) 700PROCs:PROCc(1,3):?Z%=&37:CALLM%:PRO Cr(1945):PROCt(0):PROCs:PROCr(1989):PROC t(1) 800PROCs:VDU26,28,68,22,79,18,12,28,0, 31,79,22,12,26,5:MOVE320,280:PROCp("That 's all for now !"):MOVE208,200:PROCp("Ne xt time - "+CHR$34+"Poland Today"+CHR$34 +"."):MOVE320,80:PROCp("Press SPACE to e xit."):VDU4:PROCs 900MODE135:END 910: 1000DEFPROCd(N%):MOVEH%+SX*S%?I%,V%+SY* S%?(I%+1):I%=I%+2:FORJ%=1TON%:DRAWH%+SX* S%?I%,V%+SY*S%?(I%+1):I%=I%+2:NEXT:ENDPR OC 1010DEFPROCp(X$):LOCALJ%:FORJ%=1TOLENX$ :A%=ASCMID$(X$,J%,1):CALL&13F8:NEXT:ENDP ROC 1020DEFPROCt(T%):LOCALY%,A%,N%:VDU28,0, 31,79,22,12,26,5:FORY%=312TO32STEP-40:N% =(312-Y%)DIV40:A%=&2C80+T%*&140+N%*40:MO VE32,Y%:PROCp($A%):NEXT:VDU4,24,230;320; 1050;1023;:ENDPROC 1030DEFPROCn(X%,Y%,A$):LOCALL%:L%=LENA$ +1:VDU23,255,-1;-1;-1;-1;:GCOL0,0:VDU5:M OVEX%,Y%:PRINTSTRING$(L%,CHR$255);:MOVEX %,Y%+4:DRAWX%+L%*16-2,Y%+4:GCOL0,1:MOVEX %+8,Y%:PRINTA$:VDU4:ENDPROC 1040DEFPROCf(X%,Y%,C%):SOUND1,-10,200,2 :CALL&1100,X%,Y%,C%:ENDPROC 1050DEFPROCw(N%):GCOL0,0:PROCd(N%):GCOL 0,1:ENDPROC 1060DEFPROCr(R%):VDU26,31,69,19:PROCp(S TR$R%):ENDPROC 1070DEFPROCs:VDU7:OSCLI"FX15,1":REPEATU NTILGET=32:ENDPROC 1080DEFPROCc(B%,F%):VDU26,12,19,0,B%;0; 19,1,F%;0;24,230;320;1050;1023;:ENDPROC