Rem Check For Months

1160 IF X>0 AND X<10 THEN RETURN

1165 REM DATE PASSED ALL TESTS, SAVE IT

1170 EF=1:RETURN

2000 REM sort the list

2005 PRINT"SORTING"

2020 IF GAP<=1 THEN PRINT"DONE":RETURN 2030 GAP = INT(GAP/2)

REM FLG IS USED TO MARK THE FACT REM THAT CHANGES WERE MADE FLG = 0

REM LOOK AT ALL PAIRS AT THIS GAP FOR J=0 TO I-l-GAP

REM PAIR OUT OF ORDER, SWAP IT IF T$ (J) >T$ (J+GAP) THEN GOSUB2

0 0

Post a comment