/NAAM PROGRAMMA 'SCHADI' OP TAPE 174 FIELD 0 *223 6212 JMS I .+1 BOORD, BORD *303 6212 JMS I BOORD / NU WORDT HET BORD WEGEZET VOOR DISPLAY DOELEINDEN *200 6213 JMP I SETUP /SET BOARD DISPLAY UP SETUP=231 /6001 FIELD 1 / HOEKPUNTEN VAN BORDVLAKKEN *6001 CLA IAC DCA WIE TAD EEWA /EERSTE WAARDE V PUNT DCA WEGX TAD WAARX /EERSTE WEGZET PLAATS DCA WEGEGX TAD BNTAL /-8PUNTEN VOOR 8 VLAKKEN DCA TEL TAD WAARY DCA WEGEGY TAD EEWA DCA WEGY JMS DOE / GA ZE WEGZETTEN / / PUNTEN TUSSEN HOEKPUNTEN / TAD EEWA DCA WEGX TAD BNTAL /-8 PUNTEN TUSSEN HOEKPUNTEN DCA TEL TAD BEWA DCA WEGY JMS DOE TAD BEWA DCA WEGX TAD BNTAL DCA TEL TAD EEWA DCA WEGY JMS DOE TAD WEGEGX DCA BEGINX TAD WEGEGY DCA BEGINY 6201 TAD I EVELD DCA I TVELD 6203 JMP I .+1 202 EVELD, 377 DECIMAL EEWA, -400 BEWA, -350 OCTAL ANTAL, -11 WAARY, 2777 WAARX, 37 WEGX, 0 WEGY, 0 BNTAL, -10 TELS, 0 TELL, 0 WEGXS, 0 ADD, 144 TVELD, 26 DOE, 0 TAD TEL DCA TELS TAD WEGX DCA WEGXS TAD TEL DCA TELL DIPUN, TAD WEGX DCA I WEGEGX TAD WEGY DCA I WEGEGY TAD ADD TAD WEGX DCA WEGX ISZ TEL JMP DIPUN TAD TELS DCA TEL TAD ADD TAD WEGY DCA WEGY TAD WEGXS DCA WEGX ISZ TELL JMP DIPUN JMP I DOE FIELD 0 *5071 6212 JMP I SETAF /6244 SETAF=5052 FIELD 1 *6244 JMS DISPL /GA DISPLAYEN 6201 CLA TAD I ISW 6203 JMP I .+1 5073 / *6200 WHO, 77 ISW, 34 DISX, 0 PLAOX, 40 PLAOY, 3000 START, 7477 AANTAL, -100 STUKAF, STUK TIEN, 10 EEN, 1 ZWARTS, ZWART DISPL, 0 6213 TAD WAARX DCA DIX TAD WAARY DCA DIY TAD DISX DCA TEL DISPLA, TAD I DIX DILX CLA TAD I DIY DILY CLA DISD JMP .-1 DIXY ISZ TEL JMP DISPLA JMP I DISPL FIELD 1 *6262 / OPNIEUW DISPLAY KLAARZETTEN OPNIDI, 0 /DE KLEUR VAN SPELER IS GEWISSELT TAD PLAOX /EERSTE VLAK INDICATIE VAN X DCA PLAX TAD PLAOY DCA PLAY TAD START /BEGIN BORDGEHEUGEN FIELD 0 DCA REPEAT TAD AANTAL /-100 BORDPLAATSEN DCA TEL TAD BEGINX DCA WEGEGX TAD BEGINY DCA WEGEGY HERHA, 6201 TAD I REPEAT SZA /IS HET EEN STUK OF LEGE PLAATS JMS I STUKAF CLA TAD TWEEDE DCA KEUS TAD TEL /ALS HET GEEN STUK IS AND TIEN /IS HET EEN ZWART VELD EERST, SZA CLA /OF NIET JMS ZWAV /BIJ EVEN RIJEN EN EVEN NUMMERS IS HET TAD TEL /VELD ZWART AND EEN KEUS, SZA CLA JMS I ZWARTS DCA STUKS DCA STUKKL ISZ PLAX /GA HET VOLGENDE VELD DOEN ISZ PLAY ISZ TEL JMP HERHA 6211 TAD WEGEGX CIA TAD WAARX DCA DISX /SAVE AANTAL TE DISPLAYEN PUNTEN VOOR DISPLAY ROUTINE JMP I OPNIDI ZWAV, 0 TAD EERST DCA KEUS JMP I ZWAV TWEEDE, SNA CLA / BORD, 0 TAD BORD TAD MINBOR /WAAR KWAM IK VANDAAN(-225) SZA CLA JMP BLACK /VAN AF ZWARTE ZET TAD I WHOWHI /VANAF WITTE ZET SZA CLA JMP CMOVE JMS OPNIDI ALLRE, 6203 JMP I PRINTO BLACK, TAD I WHOBLK SZA CLA JMP CMOVE JMS OPNIDI JMP ALLRE CMOVE, 6203 JMP I CCMOVE CCMOVE, 306 PRINTO, 226 MINBOR, -225 WHOBLK, 146 WHOWHI, 145 CLA 6201 / *6400 STUK, 0 6211 SPA JMP NEG STAK, TAD M40 SNA JMP PION /JA TAD M104 /PAARD? SNA JMP PAARD TAD (-6 /LOPER? SNA JMP LOPER TAD (152-240 /TOREN? SNA JMP TOREN TAD (240-440 /QUEEN? SNA JMP QUEEN TAD (440-740 /KING SNA JMP KING HLT NEG, CIA DCA TYD IAC DCA STUKKL /KLEUR INDCATIE TAD TYD JMP STAK PION, TAD PIO JMP ZETWE PAARD, TAD PAAR JMP ZETWE LOPER, TAD LOPE JMP ZETWE QUEEN, TAD QUEE JMP ZETWE KING, TAD KIN JMP ZETWE TOREN, TAD TORE JMP ZETWE TYD, 0 ZWART, 0 /ZWART VELD 6211 TAD ZWART DCA STUK TAD STUKS /STAAT ER EEN STUK OP SZA CLA /DOE DAN NIETS JMP I ZWART TAD SWAR JMP ZETWE ZETWE, DCA INZET IAC DCA STUKS /GEEF STUK INDICATIE WEERX, TAD I INZET SNA JMP STUKY /GA Y WAARDEN DOEN TAD I PLAX DCA I WEGEGX /ZET JUISTE WAARDE WEG JMP WEERX STUKY, CLA WEERY, TAD I INZET SNA JMP STUKZW /TEST OP ZWARTE KLEUR TAD I PLAY DCA I WEGEGY JMP WEERY STUKZW, CLA TAD STUKKL /KLEURINDICATIE SNA CLA JMP I STUK /WIT DCA STUKKL /RESET INDICATIE TAD KLEUCO JMP ZETWE KLEUCO, KLEURC DIXY=6055 DISD=6052 DILY=6054 DILX=6053 PIO, PI PAAR, PAA LOPE, LOP TORE, TOR KIN, KI QUEE, QUE SWAR, SWA / / / FIELD 1 *10 REPEAT, 0 WEGEGX, 0 WEGEGY, 0 INZET, 0 DIX, 0 DIY, 0 *20 PLAX, 0 PLAY, 0 TEL, 0 BEGINX, 0 BEGINY, 0 STUKS, 0 STUKKL, 0 M40, -40 M104, -104 WIE, 1 / / *6600 DECIMAL / / EEN ZWART STUK KRIJGT 5 PUNTEN EXTRA ONDER ZICH KLEURC, 0;30;40;50;60;70;0;10;10;10;10;10;0 / / EEN ZWART VAK SWA, 0;1;1;25;25;25;25;25;50;50;50;75;75;75;75;75;100;100 0;25;75;1;25;50;75;100;25;50;75;1;25;50;75;100;25;75;0 / / PION / PI, 0;30;40;50;60;70;35;65;40;60;45;55;40;60;45;55;0 20;20;20;20;20;30;30;40;40;50;50;55;55;62;62;0 / / LOPER / LOP, 0;30;40;50;60;70;25;75;50;20;40;50;60;80;25;50 75;30;50;70;40;60;50;0;20;20;20;20;20;30;30;30;40;40; 40;40;40;50;50;50;60;60;60;70;70;80;0 / / PAARD, / PAA, 0;40;50;60;70;45;75;30;28;40;50;80;60;35;80;43;57;77 55;65;58;63;60;0;20;20;20;20;30;30;32;36;36;40;40;44; 47;50;57;57;64;68;69;80;80;90;0 / / TOREN / TOR, 0;30;40;50;60;70;30;35;65;70;35;65;35;65;35;65;30; 35;65;70;30;40;50;60;70;0;20;20;20;20;20;30;30;30;30 40;40;50;50;60;60;70;70;70;70;80;80;80;80;80;0 / / / KONING / KI, 0;30;40;50;60;70;28;72;20;45;55;80;10;90;40;60;10;90;15 30;70;85;0;20;20;20;20;20;30;30;40;40;40;40;55;55;60 60;65;65;70;70;70;70;0 / / / / KONINGIN / QUE, 0;30;40;50;60;70;28;40;60;72;35;65;20;80;24;44;56 76;15;85;46;54;50;0;20;20;20;20;20;30;30;30;30;35; 35;40;40;44;44;44;44;50;50;56;56;70;0 $