0100      JMP	0179
012B      MOV	AX,0618
012E      MOV	BH,07
0130      XOR	CX,CX
0132      MOV	DX,184F
0135      INT	10
0137      RET	
0138      MOV	BYTE PTR [0113],02
013D      MOV	BYTE PTR [0114],08
0142      RET	
0143      MOV	AH,02
0145      MOV	BH,00
0147      MOV	DH,[0113]
014B      MOV	DL,[0114]
014F      INT	10
0151      RET	
0152      INC	BYTE PTR [0113]
0156      INC	BYTE PTR [0114]
015A      INC	BYTE PTR [0114]
015E      INC	BYTE PTR [0114]
0162      RET	
0163      MOV	AH,09
0165      MOV	DX,0103
0168      INT	21
016A      RET	
016B      MOV	AH,09
016D      MOV	DX,0115
0170      INT	21
0172      RET	
0173      CMP	BYTE PTR [0113],12
0178      RET	
0179      CALL	012B
017C      CALL	0138
017F      CALL	0143
0182      CALL	0163
0185      CALL	0152
0188      CALL	0173
018B      JLE	017F
018D      CALL	016B
0190      MOV	AX,4C00
0193      INT	21
