10 MODE0:VDU23;8202;0;0;0;:HIMEM=&2C80:LOMEM=&2600:Z%=&25F2:M%=&2540:I%=0:S%=&1432 100 PROCc(4,3):SX=4.8:SY=4.8:H%=230:V%=136:?Z%=&31:CALLM%:PROCr(966):PROCt(0):PROCs:PROCr(1000):PROCt(1) 110 PROCd(33):PROCf(480,700,0):VDU5:GCOL0,0:MOVE484,660:PRINT"Silesians":MOVE712,556:PRINT"*":MOVE730,540:PRINT"Cracow":VDU4:GCOL0,1:PROCd(6):PROCf(700,840,0):PROCd(45):PROCf(900,700,0) 120 PROCd(79):PROCf(400,700,5):PROCn(360,574,"BOHEMIA"):PROCn(310,670,"LUSATIA"):PROCn(600,430,"SLOVAKIA"):PROCn(380,476,"(1002-1037)") 200 PROCs:PROCc(1,3):SX=5.2:SY=5.2:H%=230:V%=48:?Z%=&32:CALLM%:PROCr(1138):PROCt(0):PROCs 210 PROCn(752,900," "):PROCn(736,864,STRING$(6," ")):VDU5:MOVE500,880:PRINT"Pomerania":MOVE520,780:PRINT"Great":MOVE512,740:PRINT"Poland":MOVE740,768:PRINT"Mazovia":MOVE760,612:PRINT"Little":MOVE760,572:PRINT"Poland" 220 MOVE520,600:PRINT"Silesia":MOVE784,920:PRINT"STATE OF":MOVE720,880:PRINT"TEUTONIC KNIGHTS":VDU4:GCOL0,1:PROCd(7):PROCf(744,816,0):GCOL0,0:PROCw(9) 230 PROCd(5):PROCd(4):PROCw(4):PROCw(10):PROCw(10):PROCd(7):PROCw(9):PROCw(2):PROCw(6):PROCd(3):PROCw(3):PROCd(3):PROCw(6):PROCd(8):PROCw(6):PROCd(4):PROCw(4):PROCw(6):PROCw(7):PROCr(1250):PROCs:PROCt(1) 240 GCOL4,0:FORX%=378TO500STEP2:MOVEX%,852:DRAWX%,820:NEXT:GCOL0,0:MOVE516,836:PLOT85,500,852:GCOL4,0:FORY%=520TO720STEP4:MOVE550,Y%:DRAW512,Y%:NEXT:GCOL0,0:MOVE530,736:PLOT85,550,720 250 GCOL4,0:FORX%=578TO700STEP2:MOVEX%,492:DRAWX%,460:NEXT:GCOL0,0:MOVE716,476:PLOT85,700,492:GCOL4,0:FORX%=712TO620STEP-2:MOVEX%,884:DRAWX%,852:NEXT:GCOL0,0:MOVE604,868:PLOT85,620,884 260 GCOL4,0:FORX%=1048TO590STEP-2:MOVEX%,600:DRAWX%,560:NEXT:GCOL0,0:MOVE574,580:PLOT85,590,600:GCOL0,1:VDU5:MOVE800,592:PRINT"Tartars":VDU4 270 PROCs:GCOL0,0:VDU5:MOVE800,592:PRINT"Tartars":VDU4:GCOL0,1:MOVE590,600:MOVE574,580:PLOT85,590,560:GCOL4,0:FORX%=592TO1048STEP2:MOVEX%,600:DRAWX%,560:NEXT:GCOL0,1 300 PROCc(0,3):?Z%=&33:CALLM%:PROCr(1320):PROCt(0):PROCs:PROCr(1386):PROCt(1) 400 PROCs:PROCc(0,3):?Z%=&34:CALLM%:PROCr(1410):PROCt(0):PROCs:PROCr(1500):PROCt(1) 500 PROCs:PROCc(4,6):SX=2.8:SY=2.8:H%=190:V%=348:?Z%=&35:CALLM%:PROCt(0):XX=INKEY500:PROCr(1683):PROCs:PROCr(1700):PROCt(1):PROCs 510 PROCr(1772):PROCd(28):PROCf(400,700,7):PROCd(42):PROCf(800,900,15):PROCd(48):PROCf(600,500,10):XX=INKEY100:VDU7:PROCr(1793):PROCd(22):PROCf(400,600,7):PROCd(35):PROCf(750,800,15):XX=INKEY100:VDU7 520 PROCr(1795):PROCd(25):PROCd(31):PROCf(550,700,7):PROCf(650,650,15):PROCf(550,600,10) 600 PROCs:PROCc(0,6):SX=3.08:SY=2.94:H%=230:V%=328:?Z%=&36:CALLM%:PROCr(1918):PROCt(0):PROCs:PROCr(1939):PROCt(1) 610 GCOL0,0:VDU5:MOVE554,708:PRINT"*":MOVE570,692:PRINT"Warsaw":MOVE492,532:PRINT"*":MOVE508,516:PRINT"Cracow":MOVE720,512:PRINT"*":MOVE736,498:PRINT"Lvov":MOVE766,908:PRINT"*":MOVE782,892:PRINT"Vilna" 620 MOVE344,732:PRINT"*":MOVE360,716:PRINT"Poznan":VDU4:GCOL0,1:PROCd(3):PROCd(56):PROCf(478,852,7):PLOT69,450,860:PLOT69,480,856:PLOT69,472,840:PROCf(400,700,7):PROCf(660,848,7):PROCf(800,600,15) 700 PROCs:PROCc(1,3):?Z%=&37:CALLM%:PROCr(1945):PROCt(0):PROCs:PROCr(1989):PROCt(1) 800 PROCs: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("Next time - "+CHR$34+"Poland Today"+CHR$34+"."):MOVE320,80:PROCp("Press SPACE to exit."):VDU4:PROCs 900 MODE135:END 910 : 1000 DEFPROCd(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:ENDPROC 1010 DEFPROCp(X$):LOCALJ%:FORJ%=1TOLENX$:A%=ASCMID$(X$,J%,1):CALL&13F8:NEXT:ENDPROC 1020 DEFPROCt(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:MOVE32,Y%:PROCp($A%):NEXT:VDU4,24,230;320;1050;1023;:ENDPROC 1030 DEFPROCn(X%,Y%,A$):LOCALL%:L%=LENA$+1:VDU23,255,-1;-1;-1;-1;:GCOL0,0:VDU5:MOVEX%,Y%:PRINTSTRING$(L%,CHR$255);:MOVEX%,Y%+4:DRAWX%+L%*16-2,Y%+4:GCOL0,1:MOVEX%+8,Y%:PRINTA$:VDU4:ENDPROC 1040 DEFPROCf(X%,Y%,C%):SOUND1,-10,200,2:CALL&1100,X%,Y%,C%:ENDPROC 1050 DEFPROCw(N%):GCOL0,0:PROCd(N%):GCOL0,1:ENDPROC 1060 DEFPROCr(R%):VDU26,31,69,19:PROCp(STR$R%):ENDPROC 1070 DEFPROCs:VDU7:OSCLI"FX15,1":REPEATUNTILGET=32:ENDPROC 1080 DEFPROCc(B%,F%):VDU26,12,19,0,B%;0;19,1,F%;0;24,230;320;1050;1023;:ENDPROC