diff --git a/dec/DOGS.BAS b/dec/DOGS.BAS
new file mode 100644
index 0000000..6c4a6f7
--- /dev/null
+++ b/dec/DOGS.BAS
@@ -0,0 +1,218 @@
+5 REM  V.NAHIGIAN     8TH GRADE     DOG RACE GAME
+10 DIM S(10),C(10),J(20),W(10),A(10)
+15 DIM N$(20),H$(10),P(20)
+20 DIM Y(10),B(11),M5(20)
+25 RECORD V
+30 RECORD X
+35 OPEN 8,"WINS"\OPEN 9,"LOSSES"
+40 IF S9=6 THEN 70\FOR I=1 TO 10\GET 8,25,I\V9=V9+V\NEXT I
+45 IF V9<25 THEN 60\IF V9>200 THEN  55
+50 GOTO 100
+55 UNSAVE 8\UNSAVE 9
+60 PRINT "PLEASE WAIT, DISREGARD THE 25 BELLS"
+65 PRINT\PRINT\PRINT\PRINT\PRINT\S9=6\GOTO  35
+70 FOR I=1 TO 25-V9\RANDOMIZE\H=INT(10*RND(X))+1\GET 8,25,H
+75 V=V+1\PUT 8,25,H\FOR T=1 TO 10\IF H=T THEN   85
+80 GET 9,30,T\X=X+1\PUT 9,30,T
+85 NEXT T
+90 PRINT CHR$(135);
+95 NEXT I
+100 PRINT\PRINT\PRINT
+105 PRINT TAB(10);"WELCOME TO ROOK-A-DAY RACE TRACK!!!"
+110 PRINT\PRINT
+115 PRINT "DO YOU WANT THE INSTRUCTIONS";\INPUT I$\GOTO 215
+120 PRINT "     THIS IS A DOG RACE GAME. THERE ARE 10 DOGS"
+125 PRINT "WHICH RUN IN THIS RACE. THE WINS AND LOSSES  OF"
+130 PRINT "EACH DOG ARE RECORDED SO THAT EVEN AFTER    YOU"
+135 PRINT "LOG-OFF, THE WINS AND LOSSES OF THE DOGS WILL STILL"
+140 PRINT "BE RECORDED."
+145 PRINT "     THE WINNER OF THE RACE WILL BE DETERMENED BY HOW"
+150 PRINT "MANY WINS AND LOSSES EACH DOG HAS. AFTER THE WINS AND"
+155PRINT "LOSSES OF EACH DOG HAVE BEEN POSTED, YOU WILL HAVE A "
+160 PRINT "CHANCE TO BET. NO MORE THAN 19 PEOPLE ARE ALLOWED"
+165 PRINT "TO BET IN THIS GAME. WHEN BETTING, YOU CANNOT BET OVER"
+170 PRINT "$500.00 AND MUST BET AT LEAST $2.00. MORE THAN 1"
+175 PRINT "PERSON MAY BET ON THE SAME DOG. AFTER THE BETS"
+180 PRINT "ARE MADE THE ODDS WILL BE FIGURED AND POSTED AND THE "
+185 PRINT "RACE WILL BEGIN."
+190 PRINT "     THE STRADGY OF THIS GAME IS TO PICK THE WINNER"
+195 PRINT " INSUCH A WAY THAT THE ODDS ON THAT DOG ARE GOOD"
+200 PRINT "IN YOUR FAVOR."
+210 PRINT\PRINT TAB(10);"GOOD LUCK!!"\GOTO  220
+215 IF I$="YES" THEN 120\GOTO 220
+220 GOSUB 225\GOTO  255
+225 PRINT\PRINT\PRINT "DOG","NUMBER","WINS","LOSSES"
+230 FOR I=1 TO 10
+235 READ H$(I)
+240 GET 8,25,I\GET 9,30,I
+245 PRINT H$(I),I,V,X
+250 NEXT I\RETURN
+255 PRINT\PRINT\PRINT "HOW MANY WISH TO BET";
+260 INPUT Q\IF Q<20 THEN  270
+265 PRINT "NO MORE THAN 19 ALLOWED"\PRINT\GOTO  255
+270 FOR Z=1 TO Q
+275 PRINT "BETTOR'S NAME";\INPUT N$(Z)
+280 PRINT "DOG'S NUMBER";\INPUT J(Z)
+285 PRINT "AND YOUR BET";\INPUT P(Z)
+290 IF P(Z)<2 THEN 300\IF P(Z)>500 THEN     315
+295 PRINT\NEXT Z\GOTO 325
+300 PRINT "YOU MUST BET AT LEAST $2.00. TRY AGAIN "N$(Z)
+305 PRINT "YOUR BET";\INPUT P(Z)
+310 GOTO 290
+315 PRINT "YOU CAN'T BET OVER $500.00 "N$(Z)" TRY AGAIN"
+320 GOTO 305
+325 FOR I=1 TO 10
+330 B(11)=B(11)+P(I)
+335 NEXT I
+340 FOR I=1 TO Q 'AMOUNT OF PEOPLE PLAYING
+345 FOR I3=1 TO 10'DOGS
+350 IF J(I)<>I3 THEN  360
+355 A(I3)=A(I3)+P(I)
+360 NEXT I3
+365 NEXT I
+370 FOR I=1 TO 10
+375 IF A(I)>=2 THEN 390
+380 B(I)=INT(B(11)*RND(X))+1
+385 GOTO  395
+390 B(I)=INT((B(11)-A(I))/(A(I)-(.17*A(I))))
+395 IF B(I)<=2 THEN 405
+400 GOTO  410
+405 B(I)=2
+410 NEXT I
+415 PRINT
+420 PRINT "DOG","NUMBER","ODDS"
+425 FOR I=1 TO 10
+430 PRINT H$(I),I,B(I)": 1"
+435 NEXT I
+440 FOR I=1 TO 10
+445 GET 8,25,I\GET 9,30,I\IF V+X<=0 THEN  470
+450 RANDOMIZE
+455 Y(I)=INT(V/ABS((V+X))+INT(V*RND(X))+1)
+460 IF Y(I)<7 THEN  470
+465 GOTO  475
+470 Y(I)=INT(7*RND(X))+1
+475 NEXT I
+480 FOR R=1 TO 10
+485 S(R)=0
+490 NEXT R
+495 PRINT
+500 PRINT TAB(2);"-1 2 3 4 5 6 7 8 9 10","AND THEY'RE OFF!!!"
+505 PRINT CHR$(135);CHR$(135);CHR$(135);CHR$(135);CHR$(135);
+510 FOR R=1 TO 10
+515  RANDOMIZE
+520 C(R)=INT(Y(R)*RND(X))+1
+525 S(R)=S(R)+C(R)
+530 NEXT R
+535 PRINT TAB(2);"XXXXXXXXSTARTXXXXXXXX"
+540 FOR P=1 TO 20
+545 FOR R=1 TO 10
+550 IF P=S(R) THEN  580
+555 IF S(R)>20 THEN 590
+560 NEXT R
+565 PRINT
+570 NEXT P
+575 GOTO    625
+580 PRINT TAB(R*2);R;CHR$(141)
+585 GOTO  560
+590 IF W(1)<>0 THEN 605
+595 W(1)=R
+600 GOTO  560
+605  D=2
+610 W(D)=R
+615  D=D+1
+620 GOTO  560
+625 IF W(1)<>0 THEN   640
+630 PRINT TAB(2);"XXXXXXXFINISHXXXXXXXX"
+635 GOTO  510
+640 FOR Y=2 TO 22
+645 PRINT TAB(Y);"X";TAB(Y);CHR$(135);
+650 IF Y=7 THEN   665
+655 NEXT Y
+660 GOTO    680
+665 PRINT " FINISH";
+670 Y=13
+675 GOTO    655
+680 PRINT
+685 PRINT "  ";
+690 FOR I=2 TO 22\PRINT "*";\NEXT I\PRINT
+695 IF D<=1 THEN    735
+700 G=W(1)
+705 FOR I2=1 TO D
+710 IF S(W(I2))<S(W(I2+1)) THEN   725
+715 NEXT I2
+720 GOTO    735
+725 G=W(I2+1)
+730 GOTO    715
+735 PRINT
+740 PRINT
+745 PRINT "AND THE WINNER IS DOG NUMBER";G,H$(G)
+750 PRINT\GOTO  970
+755 RESTORE
+760 FOR E=1 TO Q
+765 IF G=J(E) THEN     790
+770 M5(E)=M5(E)-P(E)
+775 N7=N7+P(E)
+780 NEXT E
+785 GOTO    835
+790 IF B(G)=2 THEN  800
+795 GOTO  805
+800 B(G)=1
+805 M=INT(100*(B(G)*P(E)+P(E))/100)
+810 PRINT "CONGRATULATION "N$(E)" YOU HAVE WON $";M
+815 M5(E)=M5(E)+M
+820 N7=N7-M
+825 PRINT
+830  GOTO   780
+835 PRINT "WOULD YOU AVID RACE FANS LIKE TO PLAY AGAIN";
+840 INPUT L$
+845 IF L$="YES" THEN  870
+850 PRINT\PRINT "PERSON","AMOUNT"\FOR I=1 TO Q
+855 PRINT N$(I),M5(I)\NEXT I\PRINT "COMP",N7
+860 FOR I=1 TO 5\PRINT\NEXT I\GOTO 1085
+865 GOTO 1085
+870 FOR K=1 TO 10
+875 A(K)=0
+880 S(K)=0
+885 W(K)=0
+890 C(K)=0
+895 J(K)=0
+900 B(11)=0
+905 B(K)=0
+910 NEXT K\GOSUB  225
+915 PRINT "ANY NEWCOMERS";\INPUT C$
+920 FOR I=1 TO Q
+925 PRINT N$(I)" YOUR DOG NUMBER";\INPUT J(I)
+930 PRINT "AND YOUR BET";\INPUT P(I)
+935 IF P(I)<2 THEN 950\IF P(I)>500 THEN 960\NEXT I
+940 IF C$="NO" THEN 325
+945 GOTO 1025
+950 PRINT "YOU MUST BET AT LEAST $2.00 "N$(I) " YOUR BET";
+955 INPUT P(I)\GOTO   935
+960 PRINT "YOU CAN'T BET OVER $500.00 "N$(I)" TRY AGAIN"
+965 GOTO  930
+970 FOR I=1 TO 10
+975 GET 8,25,I\GET 9,30,I
+980 IF I=G THEN   995
+985 X=X+1\ PUT 9,30,I
+990 GO TO   1000
+995 V=V+1\PUT 8,25,I
+1000 NEXT I
+1005 GOTO    755
+1010 DATA "FASTER","ZELDA","SPEEDY","ZIFFLE","KILLER"
+1015 DATA "BURBON","BUGZY","SNOOPY","LASSIE","WINNER"
+1020 GOTO 1085
+1025 PRINT\PRINT "HOW MANY NEWCOMERS";\Q4=0\INPUT J6\Q4=Q+J6
+1030 IF Q4>20 THEN 1035\Q=Q4\Q4=0\GO TO 1040
+1035 PRINT "NO MORE THAN 19 ALLOWED. YOU U NOW HAVE "Q\Q4=0\GOTO   1025
+1040 FOR Z=I TO Q
+1045 PRINT "BETTORS NAME";\INPUT N$(Z)
+1050 PRINT "DOGS NUMBER";\INPUT J(Z)
+1055 PRINT "AND YOUR BET";\INPUT P(Z)\IF P(Z)<2 THEN   1070
+1060 IF P(Z)>500 THEN 1075
+1065 PRINT\NEXT Z\GOTO 325
+1070 PRINT "YOU MUST BET AT LEAST $2.00"\GOTO 1055
+1075 PRINT "YOU CAN'T BET OVER $500.00"\GOTO  1055
+1080 GOTO  325
+1085 CLOSE 8\CLOSE 9
+1090 REM
+1095 END
diff --git a/port/DOGS.BAS b/port/DOGS.BAS
new file mode 100644
index 0000000..939a6e1
--- /dev/null
+++ b/port/DOGS.BAS
@@ -0,0 +1,213 @@
+   5 REM  V.NAHIGIAN     8TH GRADE     DOG RACE GAME
+  10 DIM S(10),C(10),J(20),W(10),A(10)
+  15 DIM N$(20),H$(10),P(20)
+  20 DIM Y(10),B(11),M5(20)
+  25 RECORD V
+  30 RECORD X
+  35 OPEN 8,"WINS"\OPEN 9,"LOSSES"
+  40 IF S9=6 THEN 70\I1=0\FOR I=1 TO 10\GET 8,25,I1
+  41  IF V=INT(V) THEN 43
+  42   I=11\V9=999\GOTO 44
+  43  V9=V9+V
+  44 NEXT I
+  45 IF V9<25 THEN 60\IF V9>200 THEN  55
+  50 GOTO 100
+  55 UNSAVE 8\UNSAVE 9\V9=0
+  60 PRINT "PLEASE WAIT, DISREGARD THE 25 BELLS"
+  65 PRINT\PRINT\PRINT\PRINT\PRINT\S9=6\GOTO  35
+  70 I1=0\I2=0\V=0\X=0\FOR I=1 TO 10\PUT 8,25,I1\PUT 9,30,I2\NEXT I
+  71 FOR I=1 TO 25-V9\RANDOMIZE\H=INT(10*RND(X))\H1=H\GET 8,25,H1
+  75 V=V+1\H1=H\PUT 8,25,H1\FOR T=0 TO 9\IF H=T THEN   85
+  80 T1=T\GET 9,30,T1\X=X+1\T1=T\PUT 9,30,T1
+  85 NEXT T
+  90 PRINT CHR$(135);
+  95 NEXT I
+ 100 PRINT\PRINT\PRINT
+ 105 PRINT TAB(10);"WELCOME TO ROOK-A-DAY RACE TRACK!!!"
+ 110 PRINT\PRINT
+ 115 PRINT "DO YOU WANT THE INSTRUCTIONS";\INPUT I$\GOTO 215
+ 120 PRINT "     THIS IS A DOG RACE GAME. THERE ARE 10 DOGS"
+ 125 PRINT "WHICH RUN IN THIS RACE. THE WINS AND LOSSES  OF"
+ 130 PRINT "EACH DOG ARE RECORDED SO THAT EVEN AFTER    YOU"
+ 135 PRINT "LOG-OFF, THE WINS AND LOSSES OF THE DOGS WILL STILL"
+ 140 PRINT "BE RECORDED."
+ 145 PRINT "     THE WINNER OF THE RACE WILL BE DETERMINED BY HOW"
+ 150 PRINT "MANY WINS AND LOSSES EACH DOG HAS. AFTER THE WINS AND"
+ 155PRINT "LOSSES OF EACH DOG HAVE BEEN POSTED, YOU WILL HAVE A "
+ 160 PRINT "CHANCE TO BET. NO MORE THAN 19 PEOPLE ARE ALLOWED"
+ 165 PRINT "TO BET IN THIS GAME. WHEN BETTING, YOU CANNOT BET OVER"
+ 170 PRINT "$500.00 AND MUST BET AT LEAST $2.00. MORE THAN 1"
+ 175 PRINT "PERSON MAY BET ON THE SAME DOG. AFTER THE BETS"
+ 180 PRINT "ARE MADE THE ODDS WILL BE FIGURED AND POSTED AND THE "
+ 185 PRINT "RACE WILL BEGIN."
+ 190 PRINT "     THE STRATEGY OF THIS GAME IS TO PICK THE WINNER"
+ 195 PRINT "IN SUCH A WAY THAT THE ODDS ON THAT DOG ARE GOOD"
+ 200 PRINT "IN YOUR FAVOR."
+ 210 PRINT\PRINT TAB(10);"GOOD LUCK!!"\GOTO  220
+ 215 IF I$="YES" THEN 120\GOTO 220
+ 220 GOSUB 225\GOTO  255
+ 225 PRINT\PRINT\PRINT "DOG","NUMBER","WINS","LOSSES"
+ 230 I1=0\I2=0\FOR I=1 TO 10
+ 235 READ H$(I)
+ 240 GET 8,25,I1\GET 9,30,I2
+ 245 PRINT H$(I),I,V,X
+ 250 NEXT I\RETURN
+ 255 PRINT\PRINT\PRINT "HOW MANY WISH TO BET";
+ 260 INPUT Q\IF Q<20 THEN  270
+ 265 PRINT "NO MORE THAN 19 ALLOWED"\PRINT\GOTO  255
+ 270 FOR Z=1 TO Q
+ 275 PRINT "BETTOR'S NAME";\INPUT N$(Z)
+ 280 PRINT "DOG'S NUMBER";\INPUT J(Z)
+ 285 PRINT "AND YOUR BET";\INPUT P(Z)
+ 290 IF P(Z)<2 THEN 300\IF P(Z)>500 THEN     315
+ 295 PRINT\NEXT Z\GOTO 325
+ 300 PRINT "YOU MUST BET AT LEAST $2.00. TRY AGAIN "N$(Z)
+ 305 PRINT "YOUR BET";\INPUT P(Z)
+ 310 GOTO 290
+ 315 PRINT "YOU CAN'T BET OVER $500.00 "N$(Z)" TRY AGAIN"
+ 320 GOTO 305
+ 325 FOR I=1 TO 10
+ 330 B(11)=B(11)+P(I)
+ 335 NEXT I
+ 340 FOR I=1 TO Q 'AMOUNT OF PEOPLE PLAYING
+ 345 FOR I3=1 TO 10'DOGS
+ 350 IF J(I)<>I3 THEN  360
+ 355 A(I3)=A(I3)+P(I)
+ 360 NEXT I3
+ 365 NEXT I
+ 370 FOR I=1 TO 10
+ 375 IF A(I)>=2 THEN 390
+ 380 B(I)=INT(B(11)*RND(X))+1
+ 385 GOTO  395
+ 390 B(I)=INT((B(11)-A(I))/(A(I)-(.17*A(I))))
+ 395 IF B(I)<=2 THEN 405
+ 400 GOTO  410
+ 405 B(I)=2
+ 410 NEXT I
+ 415 PRINT
+ 420 PRINT "DOG","NUMBER","ODDS"
+ 425 FOR I=1 TO 10
+ 430 PRINT H$(I),I,B(I)": 1"
+ 435 NEXT I
+ 440 I1=0\I2=0\FOR I=1 TO 10
+ 445 GET 8,25,I1\GET 9,30,I2\IF V+X<=0 THEN  470
+ 450 RANDOMIZE
+ 455 Y(I)=INT(V/ABS((V+X))+INT(V*RND(X))+1)
+ 460 IF Y(I)<7 THEN  470
+ 465 GOTO  475
+ 470 Y(I)=INT(7*RND(X))+1
+ 475 NEXT I
+ 480 FOR R=1 TO 10
+ 485 S(R)=0
+ 490 NEXT R
+ 495 PRINT
+ 500 PRINT TAB(2);"-1 2 3 4 5 6 7 8 9 10","AND THEY'RE OFF!!!"
+ 505 PRINT CHR$(135);CHR$(135);CHR$(135);CHR$(135);CHR$(135);
+ 510 FOR R=1 TO 10
+ 515  RANDOMIZE
+ 520 C(R)=INT(Y(R)*RND(X))+1
+ 525 S(R)=S(R)+C(R)
+ 530 NEXT R
+ 535 PRINT TAB(2);"XXXXXXXXSTARTXXXXXXXX"
+ 540 FOR P=1 TO 20
+ 545 FOR R=1 TO 10
+ 550 IF P=S(R) THEN  580
+ 555 IF S(R)>20 THEN 590
+ 560 NEXT R
+ 565 PRINT
+ 570 NEXT P
+ 575 GOTO    625
+ 580 PRINT TAB(R*2);R;CHR$(141)
+ 585 GOTO  560
+ 590 IF W(1)<>0 THEN 605
+ 595 W(1)=R
+ 600 GOTO  560
+ 605  D=2
+ 610 W(D)=R
+ 615  D=D+1
+ 620 GOTO  560
+ 625 PRINT TAB(2);"XXXXXXXFINISHXXXXXXXX"
+ 630 IF W(1)=0 THEN 510
+ 685 PRINT "  ";
+ 690 FOR I=2 TO 22\PRINT "*";\NEXT I\PRINT
+ 695 IF D<=1 THEN    735
+ 700 G=W(1)
+ 705 FOR I2=1 TO D
+ 710 IF S(W(I2))<S(W(I2+1)) THEN   725
+ 715 NEXT I2
+ 720 GOTO    735
+ 725 G=W(I2+1)
+ 730 GOTO    715
+ 735 PRINT
+ 740 PRINT
+ 745 PRINT "AND THE WINNER IS DOG NUMBER";G,H$(G)
+ 750 PRINT\GOTO  970
+ 755 RESTORE
+ 760 FOR E=1 TO Q
+ 765 IF G=J(E) THEN     790
+ 770 M5(E)=M5(E)-P(E)
+ 775 N7=N7+P(E)
+ 780 NEXT E
+ 785 GOTO    835
+ 790 IF B(G)=2 THEN  800
+ 795 GOTO  805
+ 800 B(G)=1
+ 805 M=INT(100*(B(G)*P(E)+P(E))/100)
+ 810 PRINT "CONGRATULATION "N$(E)" YOU HAVE WON $";M
+ 815 M5(E)=M5(E)+M
+ 820 N7=N7-M
+ 825 PRINT
+ 830  GOTO   780
+ 835 PRINT "WOULD YOU AVID RACE FANS LIKE TO PLAY AGAIN";
+ 840 INPUT L$
+ 845 IF L$="YES" THEN  870
+ 850 PRINT\PRINT "PERSON","AMOUNT"\FOR I=1 TO Q
+ 855 PRINT N$(I),M5(I)\NEXT I\PRINT "COMP",N7
+ 860 FOR I=1 TO 5\PRINT\NEXT I\GOTO 1085
+ 865 GOTO 1085
+ 870 FOR K=1 TO 10
+ 875 A(K)=0
+ 880 S(K)=0
+ 885 W(K)=0
+ 890 C(K)=0
+ 895 J(K)=0
+ 900 B(11)=0
+ 905 B(K)=0
+ 910 NEXT K\GOSUB  225
+ 915 PRINT "ANY NEWCOMERS";\INPUT C$
+ 920 FOR I=1 TO Q
+ 925 PRINT N$(I)" YOUR DOG NUMBER";\INPUT J(I)
+ 930 PRINT "AND YOUR BET";\INPUT P(I)
+ 935 IF P(I)<2 THEN 950\IF P(I)>500 THEN 960\NEXT I
+ 940 IF C$="NO" THEN 325
+ 945 GOTO 1025
+ 950 PRINT "YOU MUST BET AT LEAST $2.00 "N$(I) " YOUR BET";
+ 955 INPUT P(I)\GOTO   935
+ 960 PRINT "YOU CAN'T BET OVER $500.00 "N$(I)" TRY AGAIN"
+ 965 GOTO  930
+ 970 FOR I=1 TO 10
+ 975 I1=I-1\GET 8,25,I1\I2=I-1\GET 9,30,I2
+ 980 IF I=G THEN   995
+ 985 X=X+1\I2=I-1\PUT 9,30,I2
+ 990 GO TO   1000
+ 995 V=V+1\I1=I-1\PUT 8,25,I1
+1000 NEXT I
+1005 GOTO    755
+1010 DATA "FASTER","ZELDA","SPEEDY","ZIFFLE","KILLER"
+1015 DATA "BURBON","BUGZY","SNOOPY","LASSIE","WINNER"
+1020 GOTO 1085
+1025 PRINT\PRINT "HOW MANY NEWCOMERS";\Q4=0\INPUT J6\Q4=Q+J6
+1030 IF Q4>20 THEN 1035\Q=Q4\Q4=0\GO TO 1040
+1035 PRINT "NO MORE THAN 19 ALLOWED. YOU U NOW HAVE "Q\Q4=0\GOTO   1025
+1040 FOR Z=I TO Q
+1045 PRINT "BETTORS NAME";\INPUT N$(Z)
+1050 PRINT "DOGS NUMBER";\INPUT J(Z)
+1055 PRINT "AND YOUR BET";\INPUT P(Z)\IF P(Z)<2 THEN   1070
+1060 IF P(Z)>500 THEN 1075
+1065 PRINT\NEXT Z\GOTO 325
+1070 PRINT "YOU MUST BET AT LEAST $2.00"\GOTO 1055
+1075 PRINT "YOU CAN'T BET OVER $500.00"\GOTO  1055
+1080 GOTO  325
+1085 CLOSE 8\CLOSE 9
+1090 REM
+1095 END